pax_global_header00006660000000000000000000000064127151203140014506gustar00rootroot0000000000000052 comment=3b20f4a95a6326e7ea42756e4fd5f72512b33d62 citadel-902/000077500000000000000000000000001271512031400127675ustar00rootroot00000000000000citadel-902/COPYING000066400000000000000000001076031271512031400140310ustar00rootroot00000000000000 Copyright: (C) 1987-2016 Citadel development team; GPL V3 Copyright for CRC16: (C) 2002-2003 Indigo Systems Corporation; Artistic license + Non advertising clause Copyright for MD5 implementation: (C) 1993 Colin Plumb; Public Domain Copyright for RFC 2739 openldap schema: (C) 2000 The Internet Society (C) 2004 Martin Konold (C) 2006 Art Cancro * In addition, as a special exception, we hereby declare that our favorite type of software is called "open source" -- NOT "free software" -- and that our favorite operating system is called "Linux" -- NOT "GNU/Linux." We officially reject and denounce Richard Stallman's linguistic fascism. * In addition, as a special exception, the copyright holders give permission to link the code of portions of this program with the OpenSSL library under certain conditions as described in each individual source file, and distribute linked combinations including the two. You must obey the General Public License in all respects for all of the code used other than OpenSSL. If you modify file(s) with this exception, you may extend this exception to your version of the file(s), but you are not obligated to do so. If you do not wish to do so, delete this exception statement from your version. If you delete this exception statement from all source files in the program, then also delete it here. GENERAL PUBLIC LICENSE Version 3, 29 June 2007 Preamble The General Public License is an open source license for software. The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains open source for all its users. The Free Software Foundation uses the General Public License for most of its software; it applies also to any other work released this way by its authors. You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things. To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others. For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. Developers that use the GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it. For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this open source software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions. Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users. Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to an open source program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program closed-source. The precise terms and conditions for copying, distribution and modification follow. TERMS AND CONDITIONS 0. Definitions. "This License" refers to version 3 of the General Public License. "Copyright" also means copyright-like laws that apply to other kinds of works, such as semiconductor masks. "The Program" refers to any copyrightable work licensed under this License. Each licensee is addressed as "you". "Licensees" and "recipients" may be individuals or organizations. To "modify" a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a "modified version" of the earlier work or a work "based on" the earlier work. A "covered work" means either the unmodified Program or a work based on the Program. To "propagate" a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well. To "convey" a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying. An interactive user interface displays "Appropriate Legal Notices" to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominent item in the list meets this criterion. 1. Source Code. The "source code" for a work means the preferred form of the work for making modifications to it. "Object code" means any non-source form of a work. A "Standard Interface" means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language. The "System Libraries" of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A "Major Component", in this context, means a major essential component (kernel, window system, and so on) of the specific operating system (if any) on which the executable work runs, or a compiler used to produce the work, or an object code interpreter used to run it. The "Corresponding Source" for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available open source programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes interface definition files associated with source files for the work, and the source code for shared libraries and dynamically linked subprograms that the work is specifically designed to require, such as by intimate data communication or control flow between those subprograms and other parts of the work. The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source. The Corresponding Source for a work in source code form is that same work. 2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law. You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you must do so exclusively on your behalf, under your direction and control, on terms that prohibit them from making any copies of your copyrighted material outside their relationship with you. Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures. When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures. 4. Conveying Verbatim Copies. You may convey verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program. You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee. 5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions: a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to "keep intact all notices". c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable section 7 additional terms, to the whole of the work, and all its parts, regardless of how they are packaged. This License gives no permission to license the work in any other way, but it does not invalidate such permission if you have separately received it. d) If the work has interactive user interfaces, each must display Appropriate Legal Notices; however, if the Program has interactive interfaces that do not display Appropriate Legal Notices, your work need not make them do so. A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered work, and which are not combined with it such as to form a larger program, in or on a volume of a storage or distribution medium, is called an "aggregate" if the compilation and its resulting copyright are not used to limit the access or legal rights of the compilation's users beyond what the individual works permit. Inclusion of a covered work in an aggregate does not cause this License to apply to the other parts of the aggregate. 6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways: a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to give anyone who possesses the object code either (1) a copy of the Corresponding Source for all the software in the product that is covered by this License, on a durable physical medium customarily used for software interchange, for a price no more than your reasonable cost of physically performing this conveying of source, or (2) access to copy the Corresponding Source from a network server at no charge. c) Convey individual copies of the object code with a copy of the written offer to provide the Corresponding Source. This alternative is allowed only occasionally and noncommercially, and only if you received the object code with such an offer, in accord with subsection 6b. d) Convey the object code by offering access from a designated place (gratis or for a charge), and offer equivalent access to the Corresponding Source in the same way through the same place at no further charge. You need not require recipients to copy the Corresponding Source along with the object code. If the place to copy the object code is a network server, the Corresponding Source may be on a different server (operated by you or a third party) that supports equivalent copying facilities, provided you maintain clear directions next to the object code saying where to find the Corresponding Source. Regardless of what server hosts the Corresponding Source, you remain obligated to ensure that it is available for as long as needed to satisfy these requirements. e) Convey the object code using peer-to-peer transmission, provided you inform other peers where the object code and Corresponding Source of the work are being offered to the general public at no charge under subsection 6d. A separable portion of the object code, whose source code is excluded from the Corresponding Source as a System Library, need not be included in conveying the object code work. A "User Product" is either (1) a "consumer product", which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, "normally used" refers to a typical or common use of that class of product, regardless of the status of the particular user or of the way in which the particular user actually uses, or expects or is expected to use, the product. A product is a consumer product regardless of whether the product has substantial commercial, industrial or non-consumer uses, unless such uses represent the only significant mode of use of the product. "Installation Information" for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made. If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neither you nor any third party retains the ability to install modified object code on the User Product (for example, the work has been installed in ROM). The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network. Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying. 7. Additional Terms. "Additional permissions" are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains governed by this License without regard to the additional permissions. When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission. Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms: a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limiting the use for publicity purposes of names of licensors or authors of the material; or e) Declining to grant rights under trademark law for use of some trade names, trademarks, or service marks; or f) Requiring indemnification of licensors and authors of that material by anyone who conveys the material (or modified versions of it) with contractual assumptions of liability to the recipient, for any liability that these contractual assumptions directly impose on those licensors and authors. All other non-permissive additional terms are considered "further restrictions" within the meaning of section 10. If the Program as you received it, or any part of it, contains a notice stating that it is governed by this License along with a term that is a further restriction, you may remove that term. If a license document contains a further restriction but permits relicensing or conveying under this License, you may add to a covered work material governed by the terms of that license document, provided that the further restriction does not survive such relicensing or conveying. If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms. Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way. 8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11). However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation. Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice. Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10. 9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by modifying or propagating a covered work, you indicate your acceptance of this License to do so. 10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License. An "entity transaction" is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source of the work from the predecessor in interest, if the predecessor has it or can get it with reasonable efforts. You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it. 11. Patents. A "contributor" is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's "contributor version". A contributor's "essential patent claims" are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, "control" includes the right to grant patent sublicenses in a manner consistent with the requirements of this License. Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version. In the following three paragraphs, a "patent license" is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To "grant" such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party. If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent with the requirements of this License, to extend the patent license to downstream recipients. "Knowingly relying" means you have actual knowledge that, but for the patent license, your conveying the covered work in a country, or your recipient's use of the covered work in a country, would infringe one or more identifiable patents in that country that you have reason to believe are valid. If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it. A patent license is "discriminatory" if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and under which the third party grants, to any of the parties who would receive the covered work from you, a discriminatory patent license (a) in connection with copies of the covered work conveyed by you (or copies made from those copies), or (b) primarily for and in connection with specific products or compilations that contain the covered work, unless you entered into that arrangement, or that patent license was granted, prior to 28 March 2007. Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law. 12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalty for further conveying from those to whom you convey the Program, the only way you could satisfy both those terms and this License would be to refrain entirely from conveying the Program. 13. Use with the Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the Affero General Public License, section 13, concerning interaction through a network will apply to the combination as such. 14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies that a certain numbered version of the General Public License "or any later version" applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the General Public License, you may choose any version ever published by the Free Software Foundation. If the Program specifies that a proxy can decide which future versions of the General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program. Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version. 15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. END OF TERMS AND CONDITIONS CRC16 license: Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 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. Neither the name of the Indigo Systems Corporation nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 COPYRIGHT OWNER 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. MD5 license: This code was written by Colin Plumb in 1993, no copyright is claimed. This code is in the public domain; do with it what you wish. RFC 2739 openldap schema license: This document and translations of it may be copied and furnished to others, and derivative works that comment on or otherwise explain it or assist in its implementation may be prepared, copied, published and distributed, in whole or in part, without restriction of any kind, provided that the above copyright notice and this paragraph are included on all such copies and derivative works. However, this document itself may not be modified in any way, such as by removing the copyright notice or references to the Internet Society or other Internet organizations, except as needed for the purpose of developing Internet standards in which case the procedures for copyrights defined in the Internet Standards process must be followed, or as required to translate it into languages other than English. The limited permissions granted above are perpetual and will not be revoked by the Internet Society or its successors or assigns. This document and the information contained herein is provided on an "AS IS" basis and THE INTERNET SOCIETY AND THE INTERNET ENGINEERING TASK FORCE DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTY THAT THE USE OF THE INFORMATION HEREIN WILL NOT INFRINGE ANY RIGHTS OR ANY IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. citadel-902/Make_modules000066400000000000000000000050521271512031400153210ustar00rootroot00000000000000# # Make_modules # This file is to be included by Makefile to dynamically add modules to the build process # THIS FILE WAS AUTO GENERATED BY mk_modules_init.sh DO NOT EDIT THIS FILE # SERV_MODULES = \ modules/autocompletion/serv_autocompletion.o \ modules/bio/serv_bio.o \ modules/blog/serv_blog.o \ modules/c-ares-dns/serv_c-ares-dns.o \ modules/calendar/serv_calendar.o \ modules/checkpoint/serv_checkpoint.o \ modules/clamav/serv_virus.o \ modules/crypto/serv_crypto.o \ modules/ctdlproto/serv_ctdlproto.o \ modules/ctdlproto/serv_file.o \ modules/ctdlproto/serv_messages.o \ modules/ctdlproto/serv_rooms.o \ modules/ctdlproto/serv_session.o \ modules/ctdlproto/serv_syscmds.o \ modules/ctdlproto/serv_user.o \ modules/dspam/serv_dspam.o \ modules/eventclient/serv_eventclient.o \ modules/expire/expire_policy.o \ modules/expire/serv_expire.o \ modules/extnotify/extnotify_main.o \ modules/extnotify/funambol65.o \ modules/fulltext/crc16.o \ modules/fulltext/ft_wordbreaker.o \ modules/fulltext/serv_fulltext.o \ modules/image/serv_image.o \ modules/imap/imap_acl.o \ modules/imap/imap_fetch.o \ modules/imap/imap_list.o \ modules/imap/imap_metadata.o \ modules/imap/imap_misc.o \ modules/imap/imap_search.o \ modules/imap/imap_store.o \ modules/imap/imap_tools.o \ modules/imap/serv_imap.o \ modules/inetcfg/serv_inetcfg.o \ modules/instmsg/serv_instmsg.o \ modules/listsub/serv_listsub.o \ modules/managesieve/serv_managesieve.o \ modules/migrate/serv_migrate.o \ modules/mrtg/serv_mrtg.o \ modules/network/serv_netfilter.o \ modules/network/serv_netmail.o \ modules/network/serv_netspool.o \ modules/network/serv_network.o \ modules/networkclient/serv_networkclient.o \ modules/newuser/serv_newuser.o \ modules/nntp/serv_nntp.o \ modules/nntp/wildmat.o \ modules/notes/serv_notes.o \ modules/openid/serv_openid_rp.o \ modules/pop3/serv_pop3.o \ modules/pop3client/serv_pop3client.o \ modules/roomchat/serv_roomchat.o \ modules/rssclient/rss_atom_parser.o \ modules/rssclient/serv_rssclient.o \ modules/rwho/serv_rwho.o \ modules/sieve/serv_sieve.o \ modules/smtp/serv_smtp.o \ modules/smtp/serv_smtpeventclient.o \ modules/smtp/serv_smtpqueue.o \ modules/smtp/smtp_clienthandlers.o \ modules/smtp/smtp_util.o \ modules/spam/serv_spam.o \ modules/test/serv_test.o \ modules/upgrade/serv_upgrade.o \ modules/urldeshortener/serv_expand_shorter_urls.o \ modules/vcard/serv_vcard.o \ modules/wiki/serv_wiki.o \ modules/xmpp/serv_xmpp.o \ modules/xmpp/xmpp_messages.o \ modules/xmpp/xmpp_presence.o \ modules/xmpp/xmpp_query_namespace.o \ modules/xmpp/xmpp_queue.o \ modules/xmpp/xmpp_sasl_service.o citadel-902/Make_sources000066400000000000000000000050451271512031400153360ustar00rootroot00000000000000# # Make_sources # This file is to be included by Makefile to dynamically add modules to the build process # THIS FILE WAS AUTO GENERATED BY mk_modules_init.sh DO NOT EDIT THIS FILE # SOURCES = \ modules/autocompletion/serv_autocompletion.c \ modules/bio/serv_bio.c \ modules/blog/serv_blog.c \ modules/c-ares-dns/serv_c-ares-dns.c \ modules/calendar/serv_calendar.c \ modules/checkpoint/serv_checkpoint.c \ modules/clamav/serv_virus.c \ modules/crypto/serv_crypto.c \ modules/ctdlproto/serv_ctdlproto.c \ modules/ctdlproto/serv_file.c \ modules/ctdlproto/serv_messages.c \ modules/ctdlproto/serv_rooms.c \ modules/ctdlproto/serv_session.c \ modules/ctdlproto/serv_syscmds.c \ modules/ctdlproto/serv_user.c \ modules/dspam/serv_dspam.c \ modules/eventclient/serv_eventclient.c \ modules/expire/expire_policy.c \ modules/expire/serv_expire.c \ modules/extnotify/extnotify_main.c \ modules/extnotify/funambol65.c \ modules/fulltext/crc16.c \ modules/fulltext/ft_wordbreaker.c \ modules/fulltext/serv_fulltext.c \ modules/image/serv_image.c \ modules/imap/imap_acl.c \ modules/imap/imap_fetch.c \ modules/imap/imap_list.c \ modules/imap/imap_metadata.c \ modules/imap/imap_misc.c \ modules/imap/imap_search.c \ modules/imap/imap_store.c \ modules/imap/imap_tools.c \ modules/imap/serv_imap.c \ modules/inetcfg/serv_inetcfg.c \ modules/instmsg/serv_instmsg.c \ modules/listsub/serv_listsub.c \ modules/managesieve/serv_managesieve.c \ modules/migrate/serv_migrate.c \ modules/mrtg/serv_mrtg.c \ modules/network/serv_netfilter.c \ modules/network/serv_netmail.c \ modules/network/serv_netspool.c \ modules/network/serv_network.c \ modules/networkclient/serv_networkclient.c \ modules/newuser/serv_newuser.c \ modules/nntp/serv_nntp.c \ modules/nntp/wildmat.c \ modules/notes/serv_notes.c \ modules/openid/serv_openid_rp.c \ modules/pop3/serv_pop3.c \ modules/pop3client/serv_pop3client.c \ modules/roomchat/serv_roomchat.c \ modules/rssclient/rss_atom_parser.c \ modules/rssclient/serv_rssclient.c \ modules/rwho/serv_rwho.c \ modules/sieve/serv_sieve.c \ modules/smtp/serv_smtp.c \ modules/smtp/serv_smtpeventclient.c \ modules/smtp/serv_smtpqueue.c \ modules/smtp/smtp_clienthandlers.c \ modules/smtp/smtp_util.c \ modules/spam/serv_spam.c \ modules/test/serv_test.c \ modules/upgrade/serv_upgrade.c \ modules/urldeshortener/serv_expand_shorter_urls.c \ modules/vcard/serv_vcard.c \ modules/wiki/serv_wiki.c \ modules/xmpp/serv_xmpp.c \ modules/xmpp/xmpp_messages.c \ modules/xmpp/xmpp_presence.c \ modules/xmpp/xmpp_query_namespace.c \ modules/xmpp/xmpp_queue.c \ modules/xmpp/xmpp_sasl_service.c citadel-902/Makefile.in000066400000000000000000000313531271512031400150410ustar00rootroot00000000000000# Makefile for Citadel # # NOTE: normally you should not have to modify the Makefile. All # system-dependent configuration is in the "configure" script, which # uses "Makefile.in" to generate a "Makefile". In the rare instance # that you have to modify something here, please take note: # 1. Edit Makefile.in, -not- Makefile. # 2. Send e-mail to ajc@uncensored.citadel.org and let me know what you # did, so any necessary changes can be put into the next release. # ######################################################################## prefix=@prefix@ srcdir=@srcdir@ VPATH=$(srcdir) TARGETS=@TARGETS@ RUN_DIR=@MAKE_RUN_DIR@ SPOOL_DIR=@MAKE_SPOOL_DIR@ ETC_DIR=@MAKE_ETC_DIR@ DATA_DIR=@MAKE_DATA_DIR@ STATICDATA_DIR=@MAKE_STATICDATA_DIR@ HELP_DIR=@MAKE_HELP_DIR@ DOC_DIR=@MAKE_DOC_DIR@ UTILBIN_DIR=@MAKE_UTILBIN_DIR@ DEPEND_FLAG=@DEPEND_FLAG@ all: buildinfo $(TARGETS) .SUFFIXES: .o .d .c EXEEXT=@EXEEXT@ SERVER_TARGETS=citserver$(EXEEXT) include Make_modules UTIL_TARGETS=citmail$(EXEEXT) sendcommand$(EXEEXT) UTILBIN_TARGETS= base64$(EXEEXT) setup$(EXEEXT) \ chkpw$(EXEEXT) chkpwd$(EXEEXT) \ aidepost$(EXEEXT) msgform$(EXEEXT) \ ctdlmigrate$(EXEEXT) ACLOCAL=@ACLOCAL@ AUTOCONF=@AUTOCONF@ chkpwd_LIBS=@chkpwd_LIBS@ CC=@CC@ CFLAGS=@CFLAGS@ -I ./include/ CPPFLAGS=@CPPFLAGS@ -I. -I ./include/ DATABASE=@DATABASE@ DEFS=@DEFS@ -DDIFF=\"@DIFF@\" -DPATCH=\"@PATCH@\" LDFLAGS=@LDFLAGS@ LIBS=@LIBS@ LIBOBJS=@LIBOBJS@ INSTALL=@INSTALL@ INSTALL_DATA=@INSTALL_DATA@ RESOLV=@RESOLV@ SHELL=/bin/sh SERVER_LDFLAGS=@SERVER_LDFLAGS@ SERVER_LIBS=@SERVER_LIBS@ SETUP_LIBS=@SETUP_LIBS@ YACC=@YACC@ DIFF=@DIFF@ PATCH=@PATCH@ LOCALEDIR=@LOCALEDIR@ # End configuration section .SILENT: SOURCES=utils/aidepost.c utils/citmail.c \ utils/setup.c utils/msgform.c utils/chkpw.c \ utils/sendcommand.c \ utils/ctdlmigrate.c utils/base64.c utils/chkpwd.c \ utillib/citadel_dirs.c \ citserver.c clientsocket.c config.c control.c $(DATABASE) \ domain.c serv_extensions.c genstamp.c \ housekeeping.c ical_dezonify.c internet_addressing.c ecrash.c \ locate_host.c auth.c msgbase.c parsedate.c \ room_ops.c euidindex.c server_main.c ldap.c \ support.c sysdep.c user_ops.c journaling.c threads.c \ context.c event_client.c netconfig.c nttlist.c md5.c include Make_sources # for VPATH builds (invoked by configure) mkdir-init: DIRS=`/bin/ls $(VPATH)/modules/` echo $(DIRS) @for d in `/bin/ls $(VPATH)/modules/`; do \ (mkdir -p modules/$$d ) ; \ done DIRS=`/bin/ls $(VPATH)/user_modules/` echo $(DIRS) @for d in `/bin/ls $(VPATH)/user_modules/`; do \ (mkdir -p user_modules/$$d ) ; \ done mkdir -p utils utillib mkdir locale svn_revision.c: ${SOURCES} $(srcdir)/scripts/mk_svn_revision.sh DEP_FILES=$(SOURCES:.c=.d) modules_init.d modules_upgrade.d noinst: $(NOINST_TARGETS) server: $(SERVER_TARGETS) $(SERV_MODULES) utils: $(UTIL_TARGETS) $(UTILBIN_TARGETS) .y.c: $(YACC) $(YFLAGS) $< mv -f y.tab.c $@ # # parsedate.o: parsedate.c Make_sources: modules_init.c Make_modules: modules_init.c modules_upgrade.c: modules_init.c SERV_OBJS = server_main.o utillib/citadel_dirs.o event_client.o \ user_ops.o citserver.o sysdep.o serv_extensions.o \ $(DATABASE:.c=.o) domain.o \ control.o config.o support.o room_ops.o \ msgbase.o euidindex.o \ locate_host.o housekeeping.o ical_dezonify.o \ internet_addressing.o journaling.o \ parsedate.o genstamp.o ecrash.o threads.o context.o \ clientsocket.o modules_init.o modules_upgrade.o $(SERV_MODULES) \ svn_revision.o ldap.o netconfig.o nttlist.o md5.o citserver$(EXEEXT): $(SERV_OBJS) $(CC) $(SERV_OBJS) $(LDFLAGS) $(SERVER_LDFLAGS) $(LIBS) $(SERVER_LIBS) $(RESOLV) -o citserver$(EXEEXT) %.o: %.c ${HEADERS} echo "CC $<" $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) -c $< -o $@ aidepost$(EXEEXT): utils/aidepost.o utillib/citadel_dirs.o $(CC) utils/aidepost.o utillib/citadel_dirs.o \ $(LDFLAGS) -o aidepost$(EXEEXT) $(LIBS) citmail$(EXEEXT): utils/citmail.o utillib/citadel_dirs.o $(CC) utils/citmail.o utillib/citadel_dirs.o \ $(LDFLAGS) -o citmail$(EXEEXT) $(LIBS) # setup does need LIBS defined, because it uses network functions which are in -lsocket -lnsl on Solaris. setup$(EXEEXT): utils/setup.o utillib/citadel_dirs.o $(CC) utils/setup.o utillib/citadel_dirs.o \ $(LDFLAGS) -o setup$(EXEEXT) $(LIBS) $(SETUP_LIBS) ctdlmigrate$(EXEEXT): utils/ctdlmigrate.o utillib/citadel_dirs.o $(CC) utils/ctdlmigrate.o utillib/citadel_dirs.o \ $(LDFLAGS) -o ctdlmigrate$(EXEEXT) $(LIBS) chkpwd$(EXEEXT): utils/chkpwd.o auth.o $(CC) utils/chkpwd.o auth.o $(LDFLAGS) -o chkpwd$(EXEEXT) $(chkpwd_LIBS) chkpw$(EXEEXT): utils/chkpw.o auth.o utillib/citadel_dirs.o $(CC) utils/chkpw.o auth.o utillib/citadel_dirs.o \ $(LDFLAGS) -o chkpw$(EXEEXT) $(chkpwd_LIBS) sendcommand$(EXEEXT): utils/sendcommand.o utillib/citadel_dirs.o $(LIBOBJS) $(CC) utils/sendcommand.o utillib/citadel_dirs.o \ $(LIBOBJS) $(LDFLAGS) -o sendcommand$(EXEEXT) $(LIBS) base64$(EXEEXT): utils/base64.o $(CC) utils/base64.o $(LDFLAGS) -o base64$(EXEEXT) msgform$(EXEEXT): utils/msgform.o $(CC) utils/msgform.o $(LDFLAGS) -o msgform$(EXEEXT) .PHONY: install-data install-doc install-exec clean cleaner distclean install-locale: cd po/citadel-setup; $(MAKE) for i in `find locale -type d | grep -v .svn` \ ; do \ test -d $(DESTDIR)$(LOCALEDIR)/$$i || mkdir -p $(DESTDIR)$(LOCALEDIR)/$$i; \ done for i in `find locale -type f | grep -v .svn`; do \ $(INSTALL) $$i $(DESTDIR)$(LOCALEDIR)/$$i; \ done install: install-exec install-data install-doc install-locale @echo @echo Installation is complete. @echo Now go to your Citadel directory and run 'setup'. @echo install-new: install-exec-new install-data-new install-doc-new install-locale @echo @echo Installation is complete. @echo Now go to your Citadel directory and run 'setup'. @echo upgrade: install-exec install-doc @echo @echo Upgrade is complete. @echo Now go to your Citadel directory and run 'setup'. @echo install-data: @for i in help messages network/spoolin network/spoolout \ network/systems; do \ $(srcdir)/mkinstalldirs $(DESTDIR)$(prefix)/$$i; \ done @for i in funambol_newmail_soap.xml notify_about_newmail.js public_clients citadel_urlshorteners.rc \ `find $(srcdir)/help $(srcdir)/messages $(srcdir)/network -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(prefix)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(prefix)/$$i; \ done -@if test -d $(DESTDIR)/etc/pam.d; then \ echo $(INSTALL_DATA) $(srcdir)/citadel.pam $(DESTDIR)/etc/pam.d/citadel; \ $(INSTALL_DATA) $(srcdir)/citadel.pam $(DESTDIR)/etc/pam.d/citadel; \ fi install-data-new: @for i in network/spoolin network/spoolout network/systems; do \ $(srcdir)/mkinstalldirs $(DESTDIR)$(RUN_DIR)/$$i; \ done $(srcdir)/mkinstalldirs $(DESTDIR)$(ETC_DIR)/ $(INSTALL_DATA) $(srcdir)/public_clients $(DESTDIR)$(ETC_DIR)/public_clients $(INSTALL_DATA) $(srcdir)/citadel_urlshorteners.rc $(DESTDIR)$(ETC_DIR)/citadel_urlshorteners.rc $(INSTALL_DATA) $(srcdir)/network/mail.aliases $(DESTDIR)$(ETC_DIR)/mail.aliases$ $(srcdir)/mkinstalldirs $(DESTDIR)$(STATICDATA_DIR)/messages @for i in \ `find $(srcdir)/messages -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(STATICDATA_DIR)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(STATICDATA_DIR)/$$i; \ done $(srcdir)/mkinstalldirs $(DESTDIR)$(HELP_DIR)/help @for i in funambol_newmail_soap.xml notify_about_newmail.js \ `find $(srcdir)/help -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(HELP_DIR)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(HELP_DIR)/$$i; \ done $(srcdir)/mkinstalldirs $(DESTDIR)$(SPOOL_DIR)/network/spoolin $(srcdir)/mkinstalldirs $(DESTDIR)$(SPOOL_DIR)/network/spoolout $(srcdir)/mkinstalldirs $(DESTDIR)$(SPOOL_DIR)/network/systems -@if test -d $(DESTDIR)/etc/pam.d; then \ echo $(INSTALL_DATA) $(srcdir)/citadel.pam $(DESTDIR)/etc/pam.d/citadel; \ $(INSTALL_DATA) $(srcdir)/citadel.pam $(DESTDIR)/etc/pam.d/citadel; \ fi @for i in bio bitbucket files images info userpics netconfigs; do \ $(srcdir)/mkinstalldirs $(DESTDIR)$(DATA_DIR)/$$i; \ done install-doc: @$(srcdir)/mkinstalldirs $(DESTDIR)$(prefix)/docs @for i in `find $(srcdir)/docs -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(prefix)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(prefix)/$$i; \ done @$(srcdir)/mkinstalldirs $(DESTDIR)$(prefix)/techdoc @for i in `find $(srcdir)/techdoc -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(prefix)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(prefix)/$$i; \ done @for i in `cd openldap; find $(srcdir)/ -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) openldap/$$i $(DESTDIR)$(prefix)/$$i; \ $(INSTALL_DATA) openldap/$$i $(DESTDIR)$(prefix)/$$i; \ done echo $(INSTALL_DATA) README.txt $(DESTDIR)$(prefix)/README.txt $(INSTALL_DATA) README.txt $(DESTDIR)$(prefix)/README.txt install-doc-new: @$(srcdir)/mkinstalldirs $(DESTDIR)$(DOC_DIR)/docs @for i in `find $(srcdir)/docs -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(DOC_DIR)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(DOC_DIR)/$$i; \ done @$(srcdir)/mkinstalldirs $(DESTDIR)$(DOC_DIR)/techdoc @for i in `find $(srcdir)/techdoc -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(DOC_DIR)/$$i; \ $(INSTALL_DATA) $$i $(DESTDIR)$(DOC_DIR)/$$i; \ done @for i in `cd openldap; find $(srcdir)/ -type f | grep -v .svn`; do \ echo $(INSTALL_DATA) $$i $(DESTDIR)$(DOC_DIR)/$$i; \ $(INSTALL_DATA) openldap/$$i $(DESTDIR)$(DOC_DIR)/$$i; \ done $(INSTALL_DATA) README.txt $(DESTDIR)$(DOC_DIR)/README.txt install-exec: all @for i in bio bitbucket files images info userpics netconfigs; do \ $(srcdir)/mkinstalldirs $(DESTDIR)$(prefix)/$$i; \ done @for i in $(SERVER_TARGETS) $(UTIL_TARGETS) $(UTILBIN_TARGETS); do \ if test -f $$i; then \ echo $(INSTALL) $$i $(DESTDIR)$(prefix)/$$i; \ $(INSTALL) $$i $(DESTDIR)$(prefix)/$$i; \ fi \ done $(srcdir)/mkinstalldirs $(DESTDIR)$(prefix)/unstripped cp $(SERVER_TARGETS) $(DESTDIR)$(prefix)/unstripped/ @for i in utilsmenu database_cleanup.sh migrate_aliases.sh citadel-openldap.schema; do \ if test -f $(srcdir)/$$i; then \ echo $(INSTALL) $(srcdir)/$$i $(DESTDIR)$(prefix)/$$i; \ $(INSTALL) $(srcdir)/$$i $(DESTDIR)$(prefix)/$$i; \ fi \ done install-exec-new: all $(srcdir)/mkinstalldirs $(DESTDIR)/usr/sbin; $(srcdir)/mkinstalldirs $(DESTDIR)/usr/bin; $(srcdir)/mkinstalldirs $(DESTDIR)/usr/bin; $(srcdir)/mkinstalldirs $(DESTDIR)$(UTILBIN_DIR); $(srcdir)/mkinstalldirs $(DESTDIR)$(DOC_DIR); @for i in $(SERVER_TARGETS) $(UTIL_TARGETS); do \ if test -f $$i; then \ echo $(INSTALL) $$i $(DESTDIR)/usr/sbin/$$i; \ $(INSTALL) $$i $(DESTDIR)/usr/sbin/$$i; \ fi \ done cp citserver $(DESTDIR)/$(UTILBIN_DIR)/citserver.unstripped cp migrate_aliases.sh $(DESTDIR)/$(UTILBIN_DIR)/ @for i in $(UTILBIN_TARGETS); do \ if test -f $$i; then \ echo $(INSTALL) $$i $(DESTDIR)/$(UTILBIN_DIR)/$$i; \ $(INSTALL) $$i $(DESTDIR)/$(UTILBIN_DIR)/$$i; \ fi \ done $(INSTALL) citmail $(DESTDIR)/usr/sbin/sendmail; @for i in utilsmenu database_cleanup.sh citadel-openldap.schema ; do \ if test -f $(srcdir)/$$i; then \ echo $(INSTALL) $(srcdir)/$$i $(DESTDIR)$(DOC_DIR)/$$i; \ $(INSTALL) $(srcdir)/$$i $(DESTDIR)$(DOC_DIR)/$$i; \ fi \ done clean: rm -fr locale/* rm -f *.o rm -f utils/*.o ;\ rm -f utillib/*.o ;\ for i in $(srcdir)/modules/* ; do \ rm -f $$i/*.o ;\ done if test -d $(srcdir)/user_modules ; then \ for i in $(srcdir)/user_modules/* ; do \ rm -f $$i/*.o ;\ done \ fi rm -f $(SERVER_TARGETS) $(UTIL_TARGETS) $(UTILBIN_TARGETS) $(NOINST_TARGETS) cleaner: clean rm -rf $(SERVER_TARGETS) $(UTIL_TARGETS) $(UTILBIN_TARGETS) $(NOINST_TARGETS) database_cleanup.sh *.la rm -rf modules_upgrade.c modules_init.c modules_init.h Make_modules Make_sources distclean: cleaner find . -name '*~' -o -name '.#*' | xargs rm -f rm -f po/Makefile rm -f Makefile sysdep.h config.cache config.log config.status *.d rm -f utils/*.d ; rm -f utillib/*.d ; for i in $(srcdir)/modules/* ; do \ rm -f $$i/*.d ;\ done if test -d $(srcdir)/user_modules ; then \ for i in $(srcdir)/user_modules/* ; do \ rm -f $$i/*.o ;\ done \ fi .c.d: @echo Checking dependencies for $< @$(CC) $(DEPEND_FLAG) $(CPPFLAGS) $< | sed -e 's!$*.o!$*.o $*/.o $@!' > $@ @test -s $@ || rm -f $@ Makefile: $(srcdir)/Makefile.in config.status CONFIG_FILES=Makefile CONFIG_HEADERS= $(SHELL) ./config.status config.status: $(srcdir)/configure $(SHELL) ./config.status --recheck $(srcdir)/configure: $(srcdir)/configure.ac $(srcdir)/aclocal.m4 cd $(srcdir) && $(AUTOCONF) $(srcdir)/aclocal.m4: $(srcdir)/acinclude.m4 cd $(srcdir) && $(ACLOCAL) buildinfo: echo echo "Dependencies: $(CC) $(DEPEND_FLAG) $(CPPFLAGS) $< | sed -e 's!$*.o!$*.o $*/.o $@!' > $@" echo "Compile: $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) -c $< -o $@ " echo "LDFLAGS: $(LDFLAGS)" echo -include $(DEP_FILES) citadel-902/README.txt000066400000000000000000000007501271512031400144670ustar00rootroot00000000000000 * Full documentation is at http://www.citadel.org. * The condensed version: 1. Create a user on your system under which to run Citadel 2. Install supported versions of Berkeley DB, libical, and libsieve. 3. ./configure && make && make install 4. Run the "setup" program * After installing Citadel, you'll probably want to install WebCit so that you can access the Citadel system using a web browser. * Keep in mind that there is a FAQ at http://www.citadel.org citadel-902/acinclude.m4000066400000000000000000000030121271512031400151540ustar00rootroot00000000000000# CIT_STRUCT_TM # ------------------ # Figure out how to get the current GMT offset. If `struct tm' has a # `tm_gmtoff' member, define `HAVE_STRUCT_TM_TM_GMTOFF'. Otherwise, if the # external variable `timezone' is found, define `HAVE_TIMEZONE'. AC_DEFUN([CIT_STRUCT_TM], [AC_REQUIRE([AC_STRUCT_TM])dnl AC_CHECK_MEMBERS([struct tm.tm_gmtoff],,,[#include #include <$ac_cv_struct_tm> ]) if test "$ac_cv_member_struct_tm_tm_gmtoff" != yes; then AC_CACHE_CHECK(for timezone, ac_cv_var_timezone, [AC_TRY_LINK( [#include ], [printf("%ld", (long)timezone);], ac_cv_var_timezone=yes, ac_cv_var_timezone=no)]) if test $ac_cv_var_timezone = yes; then AC_DEFINE(HAVE_TIMEZONE, 1, [Define if you don't have `tm_gmtoff' but do have the external variable `timezone'.]) fi fi ])# CIT_STRUCT_TM AC_DEFUN([AC_CHECK_DB],[ for lib in $1 do AS_VAR_PUSHDEF([ac_tr_db], [ac_cv_db_lib_${lib}])dnl bogo_saved_LIBS="$LIBS" LIBS="$LIBS -l$lib" AC_CACHE_CHECK([for db_create in -l${lib}], ac_tr_db, [AC_TRY_LINK([#include ], [int foo=db_create((void *)0, (void *) 0, 0 )], [AS_VAR_SET(ac_tr_db, yes)], [AS_VAR_SET(ac_tr_db, no)]) ]) AS_IF([test AS_VAR_GET(ac_tr_db) = yes], [$2 LIBS="$bogo_saved_LIBS" SERVER_LIBS="$SERVER_LIBS -l$lib" db=yes], [LIBS="$bogo_saved_LIBS" db=no]) AS_VAR_POPDEF([ac_tr_db])dnl test "$db" = "yes" && break done if test "$db" = "no"; then $3 fi ])# AC_CHECK_DB citadel-902/aclocal.m4000066400000000000000000000103221271512031400146250ustar00rootroot00000000000000# generated automatically by aclocal 1.11.1 -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to # `$srcdir', `$srcdir/..', or `$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is `.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997, 1999, 2000, 2001, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 6 # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it supports --run. # If it does, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= AC_MSG_WARN([`missing' script is too old or missing]) fi ]) m4_include([m4/ucread.m4]) m4_include([acinclude.m4]) citadel-902/auth.c000066400000000000000000000063031271512031400140760ustar00rootroot00000000000000/* * system-level password checking for host auth mode * by Nathan Bryant, March 1999 * updated by Trey van Riper, June 2005 * * Copyright (c) 1999-2009 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #if defined(__linux) || defined(__sun) /* needed for crypt(): */ #define _XOPEN_SOURCE #define _XOPEN_SOURCE_EXTENDED 1 #endif #include #include #include #include #include #include "auth.h" #include "sysdep.h" #ifdef HAVE_GETSPNAM #include #endif #ifdef HAVE_PAM_START #include /* * struct appdata: passed to the conversation function */ struct appdata { const char *name; const char *pw; }; /* * conv(): the PAM conversation function. this assumes that a * PAM_PROMPT_ECHO_ON is asking for a username, and a PAM_PROMPT_ECHO_OFF is * asking for a password. esoteric authentication modules will fail with this * code, but we can't really support them with the existing client protocol * anyway. the failure mode should be to deny access, in any case. */ static int conv(int num_msg, const struct pam_message **msg, struct pam_response **resp, void *appdata_ptr) { struct pam_response *temp_resp; struct appdata *data = appdata_ptr; if ((temp_resp = malloc(sizeof(struct pam_response[num_msg]))) == NULL) return PAM_CONV_ERR; while (num_msg--) { switch ((*msg)[num_msg].msg_style) { case PAM_PROMPT_ECHO_ON: temp_resp[num_msg].resp = strdup(data->name); break; case PAM_PROMPT_ECHO_OFF: temp_resp[num_msg].resp = strdup(data->pw); break; default: temp_resp[num_msg].resp = NULL; } temp_resp[num_msg].resp_retcode = 0; } *resp = temp_resp; return PAM_SUCCESS; } #endif /* HAVE_PAM_START */ /* * check that `pass' is the correct password for `uid' * returns zero if no, nonzero if yes */ int validate_password(uid_t uid, const char *pass) { #ifdef HAVE_PAM_START struct pam_conv pc; struct appdata data; pam_handle_t *ph; int i; #else char *crypted_pwd; #ifdef HAVE_GETSPNAM struct spwd *sp; #endif #endif struct passwd *pw; int retval = 0; if ((pw = getpwuid(uid)) == NULL) { return retval; } #ifdef HAVE_PAM_START #ifdef PAM_DATA_SILENT int flags = PAM_DATA_SILENT; #else int flags = 0; #endif /* PAM_DATA_SILENT */ pc.conv = conv; pc.appdata_ptr = &data; data.name = pw->pw_name; data.pw = pass; if (pam_start("citadel", pw->pw_name, &pc, &ph) != PAM_SUCCESS) return retval; if ((i = pam_authenticate(ph, flags)) == PAM_SUCCESS) if ((i = pam_acct_mgmt(ph, flags)) == PAM_SUCCESS) retval = -1; pam_end(ph, i | flags); #else crypted_pwd = pw->pw_passwd; #ifdef HAVE_GETSPNAM if ((sp = getspnam(pw->pw_name)) != NULL) crypted_pwd = sp->sp_pwdp; #endif if (!strcmp(crypt(pass, crypted_pwd), crypted_pwd)) retval = -1; #endif /* HAVE_PAM_START */ return retval; } citadel-902/auth.h000066400000000000000000000000651271512031400141020ustar00rootroot00000000000000 int validate_password(uid_t uid, const char *pass); citadel-902/axdefs.h000066400000000000000000000005671271512031400144220ustar00rootroot00000000000000#ifndef AXDEFS char *axdefs[]={ "Deleted", "New User", "Problem User", "Local User", "Network User", "Preferred User", "Admin", "Admin" }; #define AXDEFS 1 #else extern char *axdefs[]; #endif #ifndef VIEWDEFS char *viewdefs[]={ "Messages", "Summary", "Address book", "Calendar", "Tasks" }; #define VIEWDEFS 1 #else extern char *viewdefs[]; #endif citadel-902/bootstrap000077500000000000000000000015661271512031400147420ustar00rootroot00000000000000#!/bin/sh # # run me after checking Citadel out of the source code repository. # Remove any vestiges of pre-6.05 build environments rm -f .libs modules *.so *.lo *.la 2>/dev/null echo ... running aclocal ... aclocal -I m4 echo ... running autoconf ... autoconf # If your autoconf version changes, the autom4te.cache stuff will mess you up. # Get rid of it. echo ... removing autoheader cache files ... rm -rf autom4te*.cache echo ... running autoheader ... autoheader echo ... running mk_svn_revision.sh ... ./scripts/mk_svn_revision.sh echo ... running mk_module_init.sh ... ./scripts/mk_module_init.sh echo echo This script has been tested with autoconf 2.53 and echo automake 1.5. Other versions may work, but we recommend echo the latest echo compatible versions of these. echo echo Also note that autoconf and automake should be configured echo with the same prefix. echo citadel-902/buildpackages000077500000000000000000000062751271512031400155250ustar00rootroot00000000000000#!/bin/bash # find out the package version from conf if test -f Makefile; then make distclean fi ./bootstrap export `grep PACKAGE_VERSION= configure |sed -e "s;';;g" -e "s;PACKAGE;CITADEL;"` PACKAGE_VERSION=`cat packageversion` DATE=`date '+%a, %d %b %Y %H:%I:00 %z'` ACTUAL_DIR=`pwd` rm -rf debian/citadel-client debian/citadel-common debian/citadel-doc debian/citadel-mta debian/citadel-server debian/citadel-suite debian/tmp if echo "$ACTUAL_DIR" |grep -q "$CITADEL_VERSION"; then echo "directory ($ACTUAL_DIR) naming scheme seems right. nothing done." else done=false if test -L "$ACTUAL_DIR"; then SYMLINK_=`pwd` SYMLINK=`ls -l $SYMLINK_|sed "s;.*-> ;;"` if ls -l $SYMLINK_|grep -q "$CITADEL_VERSION"; then done=true fi else SYMLINK=`pwd|sed "s;.*/;;"` fi if test "$done" = "false"; then cd .. ln -sf citadel "citadel-$CITADEL_VERSION" cd "citadel-$CITADEL_VERSION" else cd "../citadel-$CITADEL_VERSION" fi fi case $1 in debian) if grep -q "($CITADEL_VERSION" debian/changelog; then echo rebuilding package. else echo "Upstream Version higher than local." fi if test "$2" == "src"; then cd .. rm -rf tmp mkdir tmp cp -rL citadel-$CITADEL_VERSION tmp cd tmp/citadel-$CITADEL_VERSION rm -rf `find -name .svn ` svn*tmp config.log config.status find -type f -exec chmod a-x {} \; chmod a+x configure *.sh *.sh.in debian/rules debian/*inst* debian/rules mkinstalldirs cd .. tar -chzf citadel_${CITADEL_VERSION}.orig.tar.gz citadel-${CITADEL_VERSION}/ --exclude "debian/*" pwd cd citadel-${CITADEL_VERSION}; debuild -S -sa -kw.goesgens@outgesourced.org else fakeroot dpkg-buildpackage fi ;; csw) if !test -d ~/pkgs/; then mkdir ~/pkgs fi echo " PKG=CSWcitadel NAME=citadel - The groupware server for Web 2.0 VERSION=${PACKAGE_VERSION} CATEGORY=application VENDOR=http://www.citadel.org/ packaged for CSW by Wilfried Goesgens HOTLINE=https://uncensored.citadel.org/ Room citadel support EMAIL=citadel@outgesourced.org " >~/pkgs/citadel export LDFLAGS='-L/opt/csw/lib -L /usr/local/lib' export CFLAGS='-I/opt/csw/include -I/usr/local/include -DDISABLE_CURSES' ./configure \ --with-db=/opt/csw/bdb44 \ --with-ical=/usr/local/ \ --with-prefix=/opt/csw/ \ --with-datadir=/opt/csw/var/lib/citadel \ --with-sysconfdir=/opt/csw/etc/citadel \ --with-ssldir=/opt/csw/etc/ssl/citadel/ \ --with-spooldir=/opt/csw/var/spool/citadel \ --with-rundir=/opt/csw/var/run/citadel \ --with-docdir=/opt/csw/share/doc/citadel-doc/ \ --with-pam \ --with-zlib \ --with-ldap \ --with-libsieve gmake citserver aidepost msgform citmail userlist sendcommand base64 whobbs citadel gmake DESTDIR=$ACTUAL_DIR/cswstage install-new ;; sourcedist) cd ..; tar \ --exclude ".gitignore" \ --exclude "*.lo" \ --exclude "*.o" \ --exclude "*.d" \ --exclude "autom4te.cache/*" \ --exclude "debian/*" \ --exclude "sysdep.h" \ \ -chvzf citadel-$CITADEL_VERSION.tar.gz citadel-$CITADEL_VERSION/ ;; version) echo This would build citadel-$CITADEL_VERSION ;; *) echo "Not yet implemented. we have: debian " ;; esac citadel-902/citadel-slapd.conf000066400000000000000000000020311271512031400163400ustar00rootroot00000000000000# This is a sample OpenLDAP configuration file (usually placed in # /etc/openldap/slapd.conf) for use with the Citadel LDAP connector. # # In this sample, we have a server called "servername.domain.org" and # we've built our directory tree's Base DN using the components of that # domain name. You can change this if you'd like. # # Once you've got this in place, all you have to do is run slapd, configure # Citadel to point its LDAP connector at it, and run the IGAB command to # initialize the directory. # A sample schema is included, but you're probably better off # just going with "schemacheck off" and using whatever schema came with # your system's slapd. # # include /usr/local/citadel/citadel-openldap.schema pidfile /usr/local/citadel/openldap-data/slapd.pid argsfile /usr/local/citadel/openldap-data/slapd.args database ldbm schemacheck off allow bind_v2 suffix "dc=servername,dc=domain,dc=org" rootdn "cn=manager,dc=servername,dc=domain,dc=org" rootpw secret directory /usr/local/citadel/openldap-data index objectClass eq citadel-902/citadel.h000066400000000000000000000160451271512031400145530ustar00rootroot00000000000000/* * Main Citadel header file * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ /* system customizations are in sysconfig.h */ #ifndef CITADEL_H #define CITADEL_H /* #include uncomment if using dmalloc */ #include "sysdep.h" #include #include "sysconfig.h" #include "typesize.h" #include "ipcdef.h" #ifdef __cplusplus extern "C" { #endif /* * Text description of this software * (We used to define this ourselves, but why bother when * the GNU build tools do it for us?) */ #define CITADEL PACKAGE_STRING /* * REV_LEVEL is the current version number (multiplied by 100 to avoid having * to fiddle with the decimal). REV_MIN is the oldest version of Citadel * whose data files are compatible with the current version. If the data files * are older than REV_MIN, none of the programs will work until the setup * program is run again to bring things up to date. EXPORT_REV_MIN is the * oldest version of Citadel whose export files we can read. The latter is * usually more strict because you're not really supposed to dump/load and * upgrade at the same time. */ #define REV_LEVEL 902 /* This version */ #define REV_MIN 591 /* Oldest compatible database */ #define EXPORT_REV_MIN 760 /* Oldest compatible export files */ #define LIBCITADEL_MIN 901 /* Minimum required version of libcitadel */ #define SERVER_TYPE 0 /* zero for stock Citadel; other developers please obtain SERVER_TYPE codes for your implementations */ #ifdef LIBCITADEL_VERSION_NUMBER #if LIBCITADEL_VERSION_NUMBER < LIBCITADEL_MIN #error libcitadel is too old. Please upgrade it before continuing. #endif #endif /* Various length constants */ #define ROOMNAMELEN 128 /* The size of a roomname string */ #define USERNAME_SIZE 64 /* The size of a username string */ #define MAX_EDITORS 5 /* number of external editors supported ; must be at least 1 */ /* * Message expiration policy stuff */ typedef struct ExpirePolicy ExpirePolicy; struct ExpirePolicy { int expire_mode; int expire_value; }; #define EXPIRE_NEXTLEVEL 0 /* Inherit expiration policy */ #define EXPIRE_MANUAL 1 /* Don't expire messages at all */ #define EXPIRE_NUMMSGS 2 /* Keep only latest n messages */ #define EXPIRE_AGE 3 /* Expire messages after n days */ /* * This struct stores a list of rooms with new messages which the client * fetches from the server. This allows the client to "march" through * relevant rooms without having to ask the server each time where to go next. */ typedef struct march march; struct march { struct march *next; char march_name[ROOMNAMELEN]; unsigned int march_flags; char march_floor; char march_order; unsigned int march_flags2; int march_access; }; /* * User records. */ typedef struct ctdluser ctdluser; struct ctdluser { /* User record */ int version; /* Cit vers. which created this rec */ uid_t uid; /* Associate with a unix account? */ char password[32]; /* password */ unsigned flags; /* See US_ flags below */ long timescalled; /* Total number of logins */ long posted; /* Number of messages ever submitted */ cit_uint8_t axlevel; /* Access level */ long usernum; /* User number (never recycled) */ time_t lastcall; /* Date/time of most recent login */ int USuserpurge; /* Purge time (in days) for user */ char fullname[64]; /* Display name (primary identifier) */ long msgnum_bio; /* msgnum of user's profile (bio) */ long msgnum_pic; /* msgnum of user's avatar (photo) */ }; /* Bits which may appear in MMflags. */ #define MM_VALID 4 /* New users need validating */ /* * Room records. */ typedef struct ctdlroom ctdlroom; struct ctdlroom { char QRname[ROOMNAMELEN]; /* Name of room */ char QRpasswd[10]; /* Only valid if it's a private rm */ long QRroomaide; /* User number of room aide */ long QRhighest; /* Highest message NUMBER in room */ time_t QRgen; /* Generation number of room */ unsigned QRflags; /* See flag values below */ char QRdirname[15]; /* Directory name, if applicable */ long msgnum_info; /* msgnum of room banner (info file)*/ char QRfloor; /* Which floor this room is on */ time_t QRmtime; /* Date/time of last post */ struct ExpirePolicy QRep; /* Message expiration policy */ long QRnumber; /* Globally unique room number */ char QRorder; /* Sort key for room listing order */ unsigned QRflags2; /* Additional flags */ int QRdefaultview; /* How to display the contents */ long msgnum_pic; /* msgnum of room picture or icon */ }; /* Private rooms are always flagged with QR_PRIVATE. If neither QR_PASSWORDED * or QR_GUESSNAME is set, then it is invitation-only. Passworded rooms are * flagged with both QR_PRIVATE and QR_PASSWORDED while guess-name rooms are * flagged with both QR_PRIVATE and QR_GUESSNAME. NEVER set all three flags. */ /* * Miscellaneous */ #define MES_NORMAL 65 /* Normal message */ #define MES_ANONONLY 66 /* "****" header */ #define MES_ANONOPT 67 /* "Anonymous" header */ #define MES_ERROR (-1) /* Can't send message due to bad address */ #define MES_LOCAL 0 /* Local message, do no network processing */ #define MES_INTERNET 1 /* Convert msg and send as Internet mail */ #define MES_IGNET 2 /* Process recipient and send via Cit net */ /****************************************************************************/ /* * Floor record. The floor number is implicit in its location in the file. */ typedef struct floor floor; struct floor { unsigned short f_flags; /* flags */ char f_name[256]; /* name of floor */ int f_ref_count; /* reference count */ struct ExpirePolicy f_ep; /* default expiration policy */ }; #define F_INUSE 1 /* floor is in use */ /* * Values used internally for function call returns, etc. */ #define NEWREGISTER 0 /* new user to register */ #define REREGISTER 1 /* existing user reregistering */ /* number of items which may be handled by the CONF command */ #define NUM_CONFIGS 71 #define TRACE syslog(LOG_DEBUG, "\033[31mCheckpoint: %s : %d\033[0m", __FILE__, __LINE__) #ifndef LONG_MAX #define LONG_MAX 2147483647L #endif /* * Authentication modes */ #define AUTHMODE_NATIVE 0 /* Native (self-contained or "black box") */ #define AUTHMODE_HOST 1 /* Authenticate against the host OS user database */ #define AUTHMODE_LDAP 2 /* Authenticate against an LDAP server with RFC 2307 schema */ #define AUTHMODE_LDAP_AD 3 /* Authenticate against non-standard MS Active Directory LDAP */ #ifdef __cplusplus } #endif #endif /* CITADEL_H */ citadel-902/citadel.pam000066400000000000000000000002471271512031400150760ustar00rootroot00000000000000#%PAM-1.0 # # /etc/pam.d/citadel: PAM configuration file for Linux-PAM. # auth include system-auth account include system-auth session include system-auth citadel-902/citadel_ldap.h000066400000000000000000000015051271512031400155460ustar00rootroot00000000000000/* * Configuration for LDAP authentication. Most of this stuff gets pulled out of our site config file. * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ int CtdlTryUserLDAP(char *username, char *found_dn, int found_dn_size, char *fullname, int fullname_size, uid_t *found_uid, int lookup_based_on_uid); int CtdlTryPasswordLDAP(char *user_dn, const char *password); int Ctdl_LDAP_to_vCard(char *ldap_dn, struct vCard *v); citadel-902/citadel_urlshorteners.rc000066400000000000000000000011511271512031400177170ustar00rootroot00000000000000# these URLs will be expanded when fetching them from # RSS-Feeds with short contents (like twitter feeds) # we expect to find a 30x location header, if we find it, # we put it in front of that URL, so the full information # whether one wants to click that or not can be expanded. http://bit.ly/ http://krz.ch/ http://flic.kr/ http://sns.ly/ http://wp.me/ http://ow.ly/ http://tinyurl.com/ http://goo.gl/ http://dld.bz/ http://tiny.cc/ http://j.mp/ http://su.pr/ #Posting Images to twitter: http://yfrog.com/ http://t.co/ http://nblo.gs/ http://0x4d.ch/ http://fb.me/ http://tagi.ch/ http://post.ly/ http://aol.it/ citadel-902/citserver.c000066400000000000000000000226111271512031400151430ustar00rootroot00000000000000/* * Main source module for the Citadel server * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include "sysdep.h" #include #if HAVE_BACKTRACE #include #endif #include #include "ctdl_module.h" #include "housekeeping.h" #include "locate_host.h" #include "citserver.h" #include "user_ops.h" #include "control.h" #include "config.h" char *unique_session_numbers; int ScheduledShutdown = 0; time_t server_startup_time; int panic_fd; int openid_level_supported = 0; /* * print the actual stack frame. */ void cit_backtrace(void) { #ifdef HAVE_BACKTRACE void *stack_frames[50]; size_t size, i; char **strings; const char *p = IOSTR; if (p == NULL) p = ""; size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); strings = backtrace_symbols(stack_frames, size); for (i = 0; i < size; i++) { if (strings != NULL) syslog(LOG_ALERT, "%s %s\n", p, strings[i]); else syslog(LOG_ALERT, "%s %p\n", p, stack_frames[i]); } free(strings); #endif } void cit_oneline_backtrace(void) { #ifdef HAVE_BACKTRACE void *stack_frames[50]; size_t size, i; char **strings; StrBuf *Buf; size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); strings = backtrace_symbols(stack_frames, size); if (size > 0) { Buf = NewStrBuf(); for (i = 1; i < size; i++) { if (strings != NULL) StrBufAppendPrintf(Buf, "%s : ", strings[i]); else StrBufAppendPrintf(Buf, "%p : ", stack_frames[i]); } free(strings); syslog(LOG_ALERT, "%s %s\n", IOSTR, ChrPtr(Buf)); FreeStrBuf(&Buf); } #endif } /* * print the actual stack frame. */ void cit_panic_backtrace(int SigNum) { #ifdef HAVE_BACKTRACE void *stack_frames[10]; size_t size, i; char **strings; printf("caught signal 11\n"); size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); strings = backtrace_symbols(stack_frames, size); for (i = 0; i < size; i++) { if (strings != NULL) syslog(LOG_ALERT, "%s\n", strings[i]); else syslog(LOG_ALERT, "%p\n", stack_frames[i]); } free(strings); #endif exit(-1); } /* * Various things that need to be initialized at startup */ void master_startup(void) { struct timeval tv; unsigned int seed; FILE *urandom; struct ctdlroom qrbuf; int rv; struct passwd *pw; gid_t gid; syslog(LOG_DEBUG, "master_startup() started\n"); time(&server_startup_time); syslog(LOG_INFO, "Checking directory access"); if ((pw = getpwuid(ctdluid)) == NULL) { gid = getgid(); } else { gid = pw->pw_gid; } if (create_run_directories(CTDLUID, gid) != 0) { syslog(LOG_EMERG, "failed to access & create directories"); exit(1); } syslog(LOG_INFO, "Opening databases"); open_databases(); /* Load site-specific configuration */ syslog(LOG_INFO, "Initializing configuration system"); initialize_config_system(); validate_config(); migrate_legacy_control_record(); /* Check floor reference counts */ check_ref_counts(); syslog(LOG_INFO, "Creating base rooms (if necessary)\n"); CtdlCreateRoom(CtdlGetConfigStr("c_baseroom"), 0, "", 0, 1, 0, VIEW_BBS); CtdlCreateRoom(AIDEROOM, 3, "", 0, 1, 0, VIEW_BBS); CtdlCreateRoom(SYSCONFIGROOM, 3, "", 0, 1, 0, VIEW_BBS); CtdlCreateRoom(CtdlGetConfigStr("c_twitroom"), 0, "", 0, 1, 0, VIEW_BBS); /* The "Local System Configuration" room doesn't need to be visible */ if (CtdlGetRoomLock(&qrbuf, SYSCONFIGROOM) == 0) { qrbuf.QRflags2 |= QR2_SYSTEM; CtdlPutRoomLock(&qrbuf); } /* Aide needs to be public postable, else we're not RFC conformant. */ if (CtdlGetRoomLock(&qrbuf, AIDEROOM) == 0) { qrbuf.QRflags2 |= QR2_SMTP_PUBLIC; CtdlPutRoomLock(&qrbuf); } syslog(LOG_INFO, "Seeding the pseudo-random number generator...\n"); urandom = fopen("/dev/urandom", "r"); if (urandom != NULL) { rv = fread(&seed, sizeof seed, 1, urandom); if (rv == -1) syslog(LOG_EMERG, "failed to read random seed: %s\n", strerror(errno)); fclose(urandom); } else { gettimeofday(&tv, NULL); seed = tv.tv_usec; } srand(seed); srandom(seed); syslog(LOG_DEBUG, "master_startup() finished\n"); } /* * Cleanup routine to be called when the server is shutting down. */ void master_cleanup(int exitcode) { struct CleanupFunctionHook *fcn; static int already_cleaning_up = 0; if (already_cleaning_up) while(1) usleep(1000000); already_cleaning_up = 1; /* Run any cleanup routines registered by loadable modules */ for (fcn = CleanupHookTable; fcn != NULL; fcn = fcn->next) { (*fcn->h_function_pointer)(); } /* Close the AdjRefCount queue file */ AdjRefCount(-1, 0); /* Do system-dependent stuff */ sysdep_master_cleanup(); /* Close the configuration system */ shutdown_config_system(); /* Close databases */ syslog(LOG_INFO, "Closing databases\n"); close_databases(); /* If the operator requested a halt but not an exit, halt here. */ if (shutdown_and_halt) { syslog(LOG_NOTICE, "citserver: Halting server without exiting.\n"); fflush(stdout); fflush(stderr); while(1) { sleep(32767); } } /* Now go away. */ syslog(LOG_NOTICE, "citserver: Exiting with status %d\n", exitcode); fflush(stdout); fflush(stderr); if (restart_server != 0) exit(1); if ((running_as_daemon != 0) && ((exitcode == 0) )) exitcode = CTDLEXIT_SHUTDOWN; exit(exitcode); } /* * returns an asterisk if there are any instant messages waiting, * space otherwise. */ char CtdlCheckExpress(void) { if (CC->FirstExpressMessage == NULL) { return(' '); } else { return('*'); } } /* * Check originating host against the public_clients file. This determines * whether the client is allowed to change the hostname for this session * (for example, to show the location of the user rather than the location * of the client). */ int CtdlIsPublicClient(void) { char buf[1024]; char addrbuf[1024]; FILE *fp; int i; char *public_clientspos; char *public_clientsend; char *paddr = NULL; struct stat statbuf; static time_t pc_timestamp = 0; static char public_clients[SIZ]; static char public_clients_file[SIZ]; #define LOCALHOSTSTR "127.0.0.1" snprintf(public_clients_file, sizeof public_clients_file, "%s/public_clients", ctdl_etc_dir); /* * Check the time stamp on the public_clients file. If it's been * updated since the last time we were here (or if this is the first * time we've been through the loop), read its contents and learn * the IP addresses of the listed hosts. */ if (stat(public_clients_file, &statbuf) != 0) { /* No public_clients file exists, so bail out */ syslog(LOG_WARNING, "Warning: '%s' does not exist\n", public_clients_file); return(0); } if (statbuf.st_mtime > pc_timestamp) { begin_critical_section(S_PUBLIC_CLIENTS); syslog(LOG_INFO, "Loading %s\n", public_clients_file); public_clientspos = &public_clients[0]; public_clientsend = public_clientspos + SIZ; safestrncpy(public_clientspos, LOCALHOSTSTR, sizeof public_clients); public_clientspos += sizeof(LOCALHOSTSTR) - 1; if (hostname_to_dotted_quad(addrbuf, CtdlGetConfigStr("c_fqdn")) == 0) { *(public_clientspos++) = '|'; paddr = &addrbuf[0]; while (!IsEmptyStr (paddr) && (public_clientspos < public_clientsend)) *(public_clientspos++) = *(paddr++); } fp = fopen(public_clients_file, "r"); if (fp != NULL) while ((fgets(buf, sizeof buf, fp)!=NULL) && (public_clientspos < public_clientsend)){ char *ptr; ptr = buf; while (!IsEmptyStr(ptr)) { if (*ptr == '#') { *ptr = 0; break; } else ptr++; } ptr--; while (ptr>buf && isspace(*ptr)) { *(ptr--) = 0; } if (hostname_to_dotted_quad(addrbuf, buf) == 0) { *(public_clientspos++) = '|'; paddr = addrbuf; while (!IsEmptyStr(paddr) && (public_clientspos < public_clientsend)){ *(public_clientspos++) = *(paddr++); } } } if (fp != NULL) fclose(fp); pc_timestamp = time(NULL); end_critical_section(S_PUBLIC_CLIENTS); } syslog(LOG_DEBUG, "Checking whether %s is a local or public client\n", CC->cs_addr); for (i=0; ics_addr, addrbuf)) { syslog(LOG_DEBUG, "... yes its local.\n"); return(1); } } /* No hits. This is not a public client. */ syslog(LOG_DEBUG, "... no it isn't.\n"); return(0); } void citproto_begin_session() { if (CC->nologin==1) { cprintf("%d %s: Too many users are already online (maximum is %d)\n", ERROR + MAX_SESSIONS_EXCEEDED, CtdlGetConfigStr("c_nodename"), CtdlGetConfigInt("c_maxsessions") ); CC->kill_me = KILLME_MAX_SESSIONS_EXCEEDED; } else { cprintf("%d %s Citadel server ready.\n", CIT_OK, CtdlGetConfigStr("c_nodename")); CC->can_receive_im = 1; } } void citproto_begin_admin_session() { CC->internal_pgm = 1; cprintf("%d %s Citadel server ADMIN CONNECTION ready.\n", CIT_OK, CtdlGetConfigStr("c_nodename")); } /* * This loop performs all asynchronous functions. */ void do_async_loop(void) { PerformSessionHooks(EVT_ASYNC); } citadel-902/citserver.h000066400000000000000000000031121271512031400151430ustar00rootroot00000000000000/* * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "serv_extensions.h" #include "context.h" #include "ctdl_module.h" /* Simple linked list structures ... used in a bunch of different places. */ typedef struct RoomProcList RoomProcList; struct RoomProcList { struct RoomProcList *next; char name[ROOMNAMELEN]; char lcname[ROOMNAMELEN]; long namelen; long lastsent; long key; long QRNum; }; struct UserProcList { struct UserProcList *next; char user[64]; }; #define CTDLUSERIP (IsEmptyStr(CC->cs_addr) ? CC->cs_clientinfo: CC->cs_addr) void cit_backtrace(void); void cit_oneline_backtrace(void); void cit_panic_backtrace(int SigNum); void master_startup (void); void master_cleanup (int exitcode); void set_wtmpsupp (char *newtext); void set_wtmpsupp_to_current_room(void); void do_command_loop(void); void do_async_loop(void); void begin_session(struct CitContext *con); void citproto_begin_session(void); void citproto_begin_admin_session(void); void help_subst (char *strbuf, char *source, char *dest); extern int panic_fd; char CtdlCheckExpress(void); int CtdlIsPublicClient(void); extern time_t server_startup_time; extern int openid_level_supported; citadel-902/clientsocket.c000066400000000000000000000162241271512031400156270ustar00rootroot00000000000000/* * This module handles client-side sockets opened by the Citadel server (for * the client side of Internet protocols, etc.) It does _not_ handle client * sockets for the Citadel client; for that you must look in ipc_c_tcp.c * (which, uncoincidentally, bears a striking similarity to this file). * * Copyright (c) 1987-2011 by the citadel.org team * * This program is open source software; you can redistribute it and/or * modify it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include #include "ctdl_module.h" #include "clientsocket.h" int sock_connect(char *host, char *service) { struct in6_addr serveraddr; struct addrinfo hints; struct addrinfo *res = NULL; struct addrinfo *ai = NULL; int rc = (-1); int sock = (-1); if ((host == NULL) || IsEmptyStr(host)) return (-1); if ((service == NULL) || IsEmptyStr(service)) return (-1); memset(&hints, 0x00, sizeof(hints)); hints.ai_flags = AI_NUMERICSERV; hints.ai_family = AF_UNSPEC; hints.ai_socktype = SOCK_STREAM; /* * Handle numeric IPv4 and IPv6 addresses */ rc = inet_pton(AF_INET, host, &serveraddr); if (rc == 1) { /* dotted quad */ hints.ai_family = AF_INET; hints.ai_flags |= AI_NUMERICHOST; } else { rc = inet_pton(AF_INET6, host, &serveraddr); if (rc == 1) { /* IPv6 address */ hints.ai_family = AF_INET6; hints.ai_flags |= AI_NUMERICHOST; } } /* Begin the connection process */ rc = getaddrinfo(host, service, &hints, &res); if (rc != 0) { syslog(LOG_ERR, "%s: %s", host, gai_strerror(rc)); return(-1); } /* * Try all available addresses until we connect to one or until we run out. */ for (ai = res; ai != NULL; ai = ai->ai_next) { sock = socket(ai->ai_family, ai->ai_socktype, ai->ai_protocol); if (sock < 0) { syslog(LOG_ERR, "socket() failed: %s", strerror(errno)); freeaddrinfo(res); return(-1); } rc = connect(sock, ai->ai_addr, ai->ai_addrlen); if (rc >= 0) { freeaddrinfo(res); return(sock); } else { syslog(LOG_ERR, "connect() failed: %s", strerror(errno)); close(sock); } } freeaddrinfo(res); return(-1); } /* * Read data from the client socket. * * sock socket fd to read from * buf buffer to read into * bytes number of bytes to read * timeout Number of seconds to wait before timing out * * Possible return values: * 1 Requested number of bytes has been read. * 0 Request timed out. * -1 Connection is broken, or other error. */ int socket_read_blob(int *Socket, StrBuf * Target, int bytes, int timeout) { CitContext *CCC = MyContext(); const char *Error; int retval = 0; retval = StrBufReadBLOBBuffered(Target, CCC->SBuf.Buf, &CCC->SBuf.ReadWritePointer, Socket, 1, bytes, O_TERM, &Error); if (retval < 0) { syslog(LOG_CRIT, "socket_read_blob() failed: %s", Error); } return retval; } int CtdlSockGetLine(int *sock, StrBuf * Target, int nSec) { CitContext *CCC = MyContext(); const char *Error; int rc; FlushStrBuf(Target); rc = StrBufTCP_read_buffered_line_fast(Target, CCC->SBuf.Buf, &CCC->SBuf.ReadWritePointer, sock, nSec, 1, &Error); if ((rc < 0) && (Error != NULL)) syslog(LOG_CRIT, "CtdlSockGetLine() failed: %s", Error); return rc; } /* * client_getln() ... Get a LF-terminated line of text from the client. * (This is implemented in terms of client_read() and could be * justifiably moved out of sysdep.c) */ int sock_getln(int *sock, char *buf, int bufsize) { int i, retval; CitContext *CCC = MyContext(); const char *pCh; FlushStrBuf(CCC->sMigrateBuf); retval = CtdlSockGetLine(sock, CCC->sMigrateBuf, 5); i = StrLength(CCC->sMigrateBuf); pCh = ChrPtr(CCC->sMigrateBuf); memcpy(buf, pCh, i + 1); FlushStrBuf(CCC->sMigrateBuf); if (retval < 0) { safestrncpy(&buf[i], "000", bufsize - i); i += 3; } return i; } /* * sock_write() - send binary to server. * Returns the number of bytes written, or -1 for error. */ int sock_write(int *sock, const char *buf, int nbytes) { return sock_write_timeout(sock, buf, nbytes, 50); } int sock_write_timeout(int *sock, const char *buf, int nbytes, int timeout) { int nSuccessLess = 0; int bytes_written = 0; int retval; fd_set rfds; int fdflags; int IsNonBlock; struct timeval tv; int selectresolution = 100; fdflags = fcntl(*sock, F_GETFL); IsNonBlock = (fdflags & O_NONBLOCK) == O_NONBLOCK; while ((nSuccessLess < timeout) && (*sock != -1) && (bytes_written < nbytes)) { if (IsNonBlock){ tv.tv_sec = selectresolution; tv.tv_usec = 0; FD_ZERO(&rfds); FD_SET(*sock, &rfds); if (select(*sock + 1, NULL, &rfds, NULL, &tv) == -1) { /// *Error = strerror(errno); close (*sock); *sock = -1; return -1; } } if (IsNonBlock && ! FD_ISSET(*sock, &rfds)) { nSuccessLess ++; continue; } retval = write(*sock, &buf[bytes_written], nbytes - bytes_written); if (retval < 1) { sock_close(*sock); *sock = -1; return (-1); } bytes_written = bytes_written + retval; if (IsNonBlock && (bytes_written == nbytes)){ tv.tv_sec = selectresolution; tv.tv_usec = 0; FD_ZERO(&rfds); FD_SET(*sock, &rfds); if (select(*sock + 1, NULL, &rfds, NULL, &tv) == -1) { /// *Error = strerror(errno); close (*sock); *sock = -1; return -1; } } } return (bytes_written); } /* * client_getln() ... Get a LF-terminated line of text from the client. * (This is implemented in terms of client_read() and could be * justifiably moved out of sysdep.c) */ int sock_getln_err(int *sock, char *buf, int bufsize, int *rc, int nSec) { int i, retval; CitContext *CCC = MyContext(); const char *pCh; FlushStrBuf(CCC->sMigrateBuf); *rc = retval = CtdlSockGetLine(sock, CCC->sMigrateBuf, nSec); i = StrLength(CCC->sMigrateBuf); pCh = ChrPtr(CCC->sMigrateBuf); memcpy(buf, pCh, i + 1); FlushStrBuf(CCC->sMigrateBuf); if (retval < 0) { safestrncpy(&buf[i], "000", bufsize - i); i += 3; } return i; } /* * Multiline version of sock_gets() ... this is a convenience function for * client side protocol implementations. It only returns the first line of * a multiline response, discarding the rest. */ int ml_sock_gets(int *sock, char *buf, int nSec) { int rc = 0; char bigbuf[1024]; int g; g = sock_getln_err(sock, buf, SIZ, &rc, nSec); if (rc < 0) return rc; if (g < 4) return (g); if (buf[3] != '-') return (g); do { g = sock_getln_err(sock, bigbuf, SIZ, &rc, nSec); if (rc < 0) return rc; if (g < 0) return (g); } while ((g >= 4) && (bigbuf[3] == '-')); return (strlen(buf)); } /* * sock_puts() - send line to server - implemented in terms of serv_write() * Returns the number of bytes written, or -1 for error. */ int sock_puts(int *sock, char *buf) { int i, j; i = sock_write(sock, buf, strlen(buf)); if (i < 0) return (i); j = sock_write(sock, "\n", 1); if (j < 0) return (j); return (i + j); } citadel-902/clientsocket.h000066400000000000000000000022611271512031400156300ustar00rootroot00000000000000/* * Header file for TCP client socket library * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ int sock_connect(char *host, char *service); int sock_write(int *sock, const char *buf, int nbytes); int sock_write_timeout(int *sock, const char *buf, int nbytes, int timeout); int ml_sock_gets(int *sock, char *buf, int nSec); int sock_getln(int *sock, char *buf, int bufsize); int CtdlSockGetLine(int *sock, StrBuf *Target, int nSec); int sock_puts(int *sock, char *buf); int socket_read_blob(int *Socket, StrBuf * Target, int bytes, int timeout); /* * This looks dumb, but it's being done for future portability */ #define sock_close(sock) close(sock) #define sock_shutdown(sock, how) shutdown(sock, how) /* * Default timeout for client sessions */ #define CLIENT_TIMEOUT 600 citadel-902/config.c000066400000000000000000000415221271512031400144040ustar00rootroot00000000000000/* * Read and write the citadel.config file * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include "config.h" #include "ctdl_module.h" long config_msgnum = 0; HashList *ctdlconfig = NULL; // new configuration void config_warn_if_port_unset(char *key, int default_port) \ { int p = CtdlGetConfigInt(key); if ((p < -1) || (p == 0) || (p > UINT16_MAX)) { syslog(LOG_EMERG, "configuration setting %s is not -1 (disabled) or a valid TCP-Port - check your config! Default setting is: %d", key, default_port ); } } void config_warn_if_empty(char *key) { if (IsEmptyStr(CtdlGetConfigStr(key))) { syslog(LOG_EMERG, "configuration setting %s is empty, but must not - check your config!", key); } } void validate_config(void) { /* * these shouldn't be empty */ config_warn_if_empty("c_fqdn"); config_warn_if_empty("c_baseroom"); config_warn_if_empty("c_aideroom"); config_warn_if_empty("c_twitroom"); config_warn_if_empty("c_nodename"); config_warn_if_empty("c_default_cal_zone"); /* * Sanity check for port bindings */ config_warn_if_port_unset("c_smtp_port", 25); config_warn_if_port_unset("c_pop3_port", 110); config_warn_if_port_unset("c_imap_port", 143); config_warn_if_port_unset("c_msa_port", 587); config_warn_if_port_unset("c_port_number", 504); config_warn_if_port_unset("c_smtps_port", 465); config_warn_if_port_unset("c_pop3s_port", 995); config_warn_if_port_unset("c_imaps_port", 993); config_warn_if_port_unset("c_pftcpdict_port", -1); config_warn_if_port_unset("c_managesieve_port", 2020); config_warn_if_port_unset("c_xmpp_c2s_port", 5222); config_warn_if_port_unset("c_xmpp_s2s_port", 5269); config_warn_if_port_unset("c_nntp_port", 119); config_warn_if_port_unset("c_nntps_port", 563); if (getpwuid(ctdluid) == NULL) { syslog(LOG_EMERG, "The UID (%d) citadel is configured to use is not defined in your system (/etc/passwd?)!", ctdluid); } } /* * Put some sane default values into our configuration. Some will be overridden when we run setup. */ void brand_new_installation_set_defaults(void) { struct utsname my_utsname; struct hostent *he; char detected_hostname[256]; /* Determine our host name, in case we need to use it as a default */ uname(&my_utsname); /* set some sample/default values in place of blanks... */ extract_token(detected_hostname, my_utsname.nodename, 0, '.', sizeof detected_hostname); CtdlSetConfigStr("c_nodename", detected_hostname); if ((he = gethostbyname(my_utsname.nodename)) != NULL) { CtdlSetConfigStr("c_fqdn", he->h_name); } else { CtdlSetConfigStr("c_fqdn", my_utsname.nodename); } CtdlSetConfigStr("c_humannode", "Citadel Server"); CtdlSetConfigInt("c_initax", 4); CtdlSetConfigStr("c_moreprompt", ""); CtdlSetConfigStr("c_twitroom", "Trashcan"); CtdlSetConfigStr("c_baseroom", BASEROOM); CtdlSetConfigStr("c_aideroom", "Aide"); CtdlSetConfigInt("c_sleeping", 900); if (CtdlGetConfigInt("c_createax") == 0) { CtdlSetConfigInt("c_createax", 3); } /* * Default port numbers for various services */ CtdlSetConfigInt("c_port_number", 504); CtdlSetConfigInt("c_smtp_port", 25); CtdlSetConfigInt("c_pop3_port", 110); CtdlSetConfigInt("c_imap_port", 143); CtdlSetConfigInt("c_msa_port", 587); CtdlSetConfigInt("c_smtps_port", 465); CtdlSetConfigInt("c_pop3s_port", 995); CtdlSetConfigInt("c_imaps_port", 993); CtdlSetConfigInt("c_pftcpdict_port", -1); CtdlSetConfigInt("c_managesieve_port", 2020); CtdlSetConfigInt("c_xmpp_c2s_port", 5222); CtdlSetConfigInt("c_xmpp_s2s_port", 5269); CtdlSetConfigInt("c_nntp_port", 119); CtdlSetConfigInt("c_nntps_port", 563); /* * Prevent the "new installation, set defaults" behavior from occurring again */ CtdlSetConfigLong("c_config_created_or_migrated", (long)time(NULL)); } /* * Migrate a supplied legacy configuration to the new in-db format. * No individual site should ever have to do this more than once. */ void migrate_legacy_config(struct legacy_config *lconfig) { CtdlSetConfigStr( "c_nodename" , lconfig->c_nodename ); CtdlSetConfigStr( "c_fqdn" , lconfig->c_fqdn ); CtdlSetConfigStr( "c_humannode" , lconfig->c_humannode ); CtdlSetConfigInt( "c_creataide" , lconfig->c_creataide ); CtdlSetConfigInt( "c_sleeping" , lconfig->c_sleeping ); CtdlSetConfigInt( "c_initax" , lconfig->c_initax ); CtdlSetConfigInt( "c_regiscall" , lconfig->c_regiscall ); CtdlSetConfigInt( "c_twitdetect" , lconfig->c_twitdetect ); CtdlSetConfigStr( "c_twitroom" , lconfig->c_twitroom ); CtdlSetConfigStr( "c_moreprompt" , lconfig->c_moreprompt ); CtdlSetConfigInt( "c_restrict" , lconfig->c_restrict ); CtdlSetConfigStr( "c_site_location" , lconfig->c_site_location ); CtdlSetConfigStr( "c_sysadm" , lconfig->c_sysadm ); CtdlSetConfigInt( "c_maxsessions" , lconfig->c_maxsessions ); CtdlSetConfigStr( "c_ip_addr" , lconfig->c_ip_addr ); CtdlSetConfigInt( "c_port_number" , lconfig->c_port_number ); CtdlSetConfigInt( "c_ep_mode" , lconfig->c_ep.expire_mode ); CtdlSetConfigInt( "c_ep_value" , lconfig->c_ep.expire_value ); CtdlSetConfigInt( "c_userpurge" , lconfig->c_userpurge ); CtdlSetConfigInt( "c_roompurge" , lconfig->c_roompurge ); CtdlSetConfigStr( "c_logpages" , lconfig->c_logpages ); CtdlSetConfigInt( "c_createax" , lconfig->c_createax ); CtdlSetConfigLong( "c_maxmsglen" , lconfig->c_maxmsglen ); CtdlSetConfigInt( "c_min_workers" , lconfig->c_min_workers ); CtdlSetConfigInt( "c_max_workers" , lconfig->c_max_workers ); CtdlSetConfigInt( "c_pop3_port" , lconfig->c_pop3_port ); CtdlSetConfigInt( "c_smtp_port" , lconfig->c_smtp_port ); CtdlSetConfigInt( "c_rfc822_strict_from" , lconfig->c_rfc822_strict_from ); CtdlSetConfigInt( "c_aide_zap" , lconfig->c_aide_zap ); CtdlSetConfigInt( "c_imap_port" , lconfig->c_imap_port ); CtdlSetConfigLong( "c_net_freq" , lconfig->c_net_freq ); CtdlSetConfigInt( "c_disable_newu" , lconfig->c_disable_newu ); CtdlSetConfigInt( "c_enable_fulltext" , lconfig->c_enable_fulltext ); CtdlSetConfigStr( "c_baseroom" , lconfig->c_baseroom ); CtdlSetConfigStr( "c_aideroom" , lconfig->c_aideroom ); CtdlSetConfigInt( "c_purge_hour" , lconfig->c_purge_hour ); CtdlSetConfigInt( "c_mbxep_mode" , lconfig->c_mbxep.expire_mode ); CtdlSetConfigInt( "c_mbxep_value" , lconfig->c_mbxep.expire_value ); CtdlSetConfigStr( "c_ldap_host" , lconfig->c_ldap_host ); CtdlSetConfigInt( "c_ldap_port" , lconfig->c_ldap_port ); CtdlSetConfigStr( "c_ldap_base_dn" , lconfig->c_ldap_base_dn ); CtdlSetConfigStr( "c_ldap_bind_dn" , lconfig->c_ldap_bind_dn ); CtdlSetConfigStr( "c_ldap_bind_pw" , lconfig->c_ldap_bind_pw ); CtdlSetConfigInt( "c_msa_port" , lconfig->c_msa_port ); CtdlSetConfigInt( "c_imaps_port" , lconfig->c_imaps_port ); CtdlSetConfigInt( "c_pop3s_port" , lconfig->c_pop3s_port ); CtdlSetConfigInt( "c_smtps_port" , lconfig->c_smtps_port ); CtdlSetConfigInt( "c_auto_cull" , lconfig->c_auto_cull ); CtdlSetConfigInt( "c_allow_spoofing" , lconfig->c_allow_spoofing ); CtdlSetConfigInt( "c_journal_email" , lconfig->c_journal_email ); CtdlSetConfigInt( "c_journal_pubmsgs" , lconfig->c_journal_pubmsgs ); CtdlSetConfigStr( "c_journal_dest" , lconfig->c_journal_dest ); CtdlSetConfigStr( "c_default_cal_zone" , lconfig->c_default_cal_zone ); CtdlSetConfigInt( "c_pftcpdict_port" , lconfig->c_pftcpdict_port ); CtdlSetConfigInt( "c_managesieve_port" , lconfig->c_managesieve_port ); CtdlSetConfigInt( "c_auth_mode" , lconfig->c_auth_mode ); CtdlSetConfigStr( "c_funambol_host" , lconfig->c_funambol_host ); CtdlSetConfigInt( "c_funambol_port" , lconfig->c_funambol_port ); CtdlSetConfigStr( "c_funambol_source" , lconfig->c_funambol_source ); CtdlSetConfigStr( "c_funambol_auth" , lconfig->c_funambol_auth ); CtdlSetConfigInt( "c_rbl_at_greeting" , lconfig->c_rbl_at_greeting ); CtdlSetConfigStr( "c_master_user" , lconfig->c_master_user ); CtdlSetConfigStr( "c_master_pass" , lconfig->c_master_pass ); CtdlSetConfigStr( "c_pager_program" , lconfig->c_pager_program ); CtdlSetConfigInt( "c_imap_keep_from" , lconfig->c_imap_keep_from ); CtdlSetConfigInt( "c_xmpp_c2s_port" , lconfig->c_xmpp_c2s_port ); CtdlSetConfigInt( "c_xmpp_s2s_port" , lconfig->c_xmpp_s2s_port ); CtdlSetConfigLong( "c_pop3_fetch" , lconfig->c_pop3_fetch ); CtdlSetConfigLong( "c_pop3_fastest" , lconfig->c_pop3_fastest ); CtdlSetConfigInt( "c_spam_flag_only" , lconfig->c_spam_flag_only ); CtdlSetConfigInt( "c_guest_logins" , lconfig->c_guest_logins ); CtdlSetConfigInt( "c_nntp_port" , lconfig->c_nntp_port ); CtdlSetConfigInt( "c_nntps_port" , lconfig->c_nntps_port ); } /* * Called during the initialization of Citadel server. * It verifies the system's integrity and reads citadel.config into memory. */ void initialize_config_system(void) { FILE *cfp; int rv; struct legacy_config lconfig; // legacy configuration ctdlconfig = NewHash(1, NULL); // set up the real config system /* Ensure that we are linked to the correct version of libcitadel */ if (libcitadel_version_number() < LIBCITADEL_VERSION_NUMBER) { fprintf(stderr, "You are running libcitadel version %d\n", libcitadel_version_number()); fprintf(stderr, "citserver was compiled against version %d\n", LIBCITADEL_VERSION_NUMBER); exit(CTDLEXIT_LIBCITADEL); } if (chdir(ctdl_bbsbase_dir) != 0) { fprintf(stderr, "This program could not be started.\nUnable to change directory to %s\nError: %s\n", ctdl_bbsbase_dir, strerror(errno) ); exit(CTDLEXIT_HOME); } memset(&lconfig, 0, sizeof(struct legacy_config)); cfp = fopen(file_citadel_config, "rb"); if (cfp != NULL) { if (CtdlGetConfigLong("c_config_created_or_migrated") > 0) { fprintf(stderr, "Citadel Server found BOTH legacy and new configurations present.\n"); fprintf(stderr, "Exiting to prevent data corruption.\n"); exit(CTDLEXIT_CONFIG); } rv = fread((char *) &lconfig, sizeof(struct legacy_config), 1, cfp); if (rv != 1) { fprintf(stderr, "Warning: Found a legacy config file %s has unexpected size. \n", file_citadel_config ); } migrate_legacy_config(&lconfig); fclose(cfp); if (unlink(file_citadel_config) != 0) { fprintf(stderr, "Unable to remove legacy config file %s after migrating it.\n", file_citadel_config); fprintf(stderr, "Exiting to prevent data corruption.\n"); exit(CTDLEXIT_CONFIG); } /* * Prevent migration/initialization from happening again. */ CtdlSetConfigLong("c_config_created_or_migrated", (long)time(NULL)); } /* New installation? Set up configuration */ if (CtdlGetConfigLong("c_config_created_or_migrated") <= 0) { brand_new_installation_set_defaults(); } /* Only allow LDAP auth mode if we actually have LDAP support */ #ifndef HAVE_LDAP if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) { fprintf(stderr, "Your system is configured for LDAP authentication,\n" "but you are running a server built without OpenLDAP support.\n"); exit(CTDL_EXIT_UNSUP_AUTH); } #endif /* Default maximum message length is 10 megabytes. This is site * configurable. Also check to make sure the limit has not been * set below 8192 bytes. */ if (CtdlGetConfigLong("c_maxmsglen") <= 0) CtdlSetConfigLong("c_maxmsglen", 10485760); if (CtdlGetConfigLong("c_maxmsglen") < 8192) CtdlSetConfigLong("c_maxmsglen", 8192); /* * Default lower and upper limits on number of worker threads */ if (CtdlGetConfigInt("c_min_workers") < 5) CtdlSetConfigInt("c_min_workers", 5); // min if (CtdlGetConfigInt("c_max_workers") == 0) CtdlSetConfigInt("c_max_workers", 256); // default max if (CtdlGetConfigInt("c_max_workers") < CtdlGetConfigInt("c_min_workers")) { CtdlSetConfigInt("c_max_workers", CtdlGetConfigInt("c_min_workers")); // max >= min } /* Networking more than once every five minutes just isn't sane */ if (CtdlGetConfigLong("c_net_freq") == 0) CtdlSetConfigLong("c_net_freq", 3600); // once per hour default if (CtdlGetConfigLong("c_net_freq") < 300) CtdlSetConfigLong("c_net_freq", 300); // minimum 5 minutes /* Same goes for POP3 */ if (CtdlGetConfigLong("c_pop3_fetch") == 0) CtdlSetConfigLong("c_pop3_fetch", 3600); // once per hour default if (CtdlGetConfigLong("c_pop3_fetch") < 300) CtdlSetConfigLong("c_pop3_fetch", 300); // 5 minutes min if (CtdlGetConfigLong("c_pop3_fastest") == 0) CtdlSetConfigLong("c_pop3_fastest", 3600); // once per hour default if (CtdlGetConfigLong("c_pop3_fastest") < 300) CtdlSetConfigLong("c_pop3_fastest", 300); // 5 minutes min /* "create new user" only works with native authentication mode */ if (CtdlGetConfigInt("c_auth_mode") != AUTHMODE_NATIVE) { CtdlSetConfigInt("c_disable_newu", 1); } } /* * Called when Citadel server is shutting down. * Clears out the config hash table. */ void shutdown_config_system(void) { DeleteHash(&ctdlconfig); } /* * Set a system config value. Simple key/value here. */ void CtdlSetConfigStr(char *key, char *value) { int key_len = strlen(key); int value_len = strlen(value); /* Save it in memory */ Put(ctdlconfig, key, key_len, strdup(value), NULL); /* Also write it to the config database */ int dbv_size = key_len + value_len + 2; char *dbv = malloc(dbv_size); strcpy(dbv, key); strcpy(&dbv[key_len + 1], value); cdb_store(CDB_CONFIG, key, key_len, dbv, dbv_size); free(dbv); } /* * Set a numeric system config value (long integer) */ void CtdlSetConfigLong(char *key, long value) { char longstr[256]; sprintf(longstr, "%ld", value); CtdlSetConfigStr(key, longstr); } /* * Set a numeric system config value (integer) */ void CtdlSetConfigInt(char *key, int value) { char intstr[256]; sprintf(intstr, "%d", value); CtdlSetConfigStr(key, intstr); } /* * Delete a system config value. */ void CtdlDelConfig(char *key) { int key_len = strlen(key); if (IsEmptyStr(key)) return; /* Delete from the database. */ cdb_delete(CDB_CONFIG, key, key_len); /* Delete from the in-memory cache */ HashPos *Pos = GetNewHashPos(ctdlconfig, 1); if (GetHashPosFromKey(ctdlconfig, key, key_len, Pos)) { DeleteEntryFromHash(ctdlconfig, Pos); } DeleteHashPos(&Pos); assert(Pos == NULL); // no memory leaks allowed } /* * Fetch a system config value. Caller does *not* own the returned value and may not alter it. */ char *CtdlGetConfigStr(char *key) { char *value = NULL; struct cdbdata *cdb; int key_len = strlen(key); if (IsEmptyStr(key)) return(NULL); /* First look in memory */ if (GetHash(ctdlconfig, key, key_len, (void *)&value)) { return value; } /* Then look in the database. */ cdb = cdb_fetch(CDB_CONFIG, key, key_len); if (cdb == NULL) { /* nope, not there either. */ return(NULL); } /* Got it. Save it in memory for the next fetch. */ value = strdup(cdb->ptr + key_len + 1); /* The key was stored there too; skip past it */ cdb_free(cdb); Put(ctdlconfig, key, key_len, value, NULL); return value; } /* * Fetch a system config value - integer */ int CtdlGetConfigInt(char *key) { char *s = CtdlGetConfigStr(key); if (s) return atoi(s); return 0; } /* * Fetch a system config value - long integer */ long CtdlGetConfigLong(char *key) { char *s = CtdlGetConfigStr(key); if (s) return atol(s); return 0; } /**********************************************************************/ void CtdlGetSysConfigBackend(long msgnum, void *userdata) { config_msgnum = msgnum; } char *CtdlGetSysConfig(char *sysconfname) { char hold_rm[ROOMNAMELEN]; long msgnum; char *conf; struct CtdlMessage *msg; char buf[SIZ]; strcpy(hold_rm, CC->room.QRname); if (CtdlGetRoom(&CC->room, SYSCONFIGROOM) != 0) { CtdlGetRoom(&CC->room, hold_rm); return NULL; } /* We want the last (and probably only) config in this room */ begin_critical_section(S_CONFIG); config_msgnum = (-1L); CtdlForEachMessage(MSGS_LAST, 1, NULL, sysconfname, NULL, CtdlGetSysConfigBackend, NULL); msgnum = config_msgnum; end_critical_section(S_CONFIG); if (msgnum < 0L) { conf = NULL; } else { msg = CtdlFetchMessage(msgnum, 1, 1); if (msg != NULL) { conf = strdup(msg->cm_fields[eMesageText]); CM_Free(msg); } else { conf = NULL; } } CtdlGetRoom(&CC->room, hold_rm); if (conf != NULL) do { extract_token(buf, conf, 0, '\n', sizeof buf); strcpy(conf, &conf[strlen(buf)+1]); } while ( (!IsEmptyStr(conf)) && (!IsEmptyStr(buf)) ); return(conf); } void CtdlPutSysConfig(char *sysconfname, char *sysconfdata) { CtdlWriteObject(SYSCONFIGROOM, sysconfname, sysconfdata, (strlen(sysconfdata)+1), NULL, 0, 1, 0); } citadel-902/config.guess000077500000000000000000001262601271512031400153160ustar00rootroot00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, # Inc. timestamp='2006-07-02' # This file 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 2 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, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA # 02110-1301, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Per Bothner . # Please send patches to . Submit a context # diff and a properly formatted ChangeLog entry. # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # The plan is that this can be called by configure scripts if you # don't specify an explicit build system type. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi trap 'exit 1' 1 2 15 # CC_FOR_BUILD -- compiler used by this script. Note that the use of a # compiler to aid in system detection is discouraged as it requires # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. set_cc_for_build=' trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; : ${TMPDIR=/tmp} ; { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; break ; fi ; done ; if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found ; fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac ; set_cc_for_build= ;' # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in *:NetBSD:*:*) # NetBSD (nbsd) targets should (where applicable) match one or # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; *) machine=${UNAME_MACHINE_ARCH}-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently, or will in the future. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep __ELF__ >/dev/null then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "${UNAME_VERSION}" in Debian*) release='-gnu' ;; *) release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE="alpha" ;; "EV4.5 (21064)") UNAME_MACHINE="alpha" ;; "LCA4 (21066/21068)") UNAME_MACHINE="alpha" ;; "EV5 (21164)") UNAME_MACHINE="alphaev5" ;; "EV5.6 (21164A)") UNAME_MACHINE="alphaev56" ;; "EV5.6 (21164PC)") UNAME_MACHINE="alphapca56" ;; "EV5.7 (21164PC)") UNAME_MACHINE="alphapca57" ;; "EV6 (21264)") UNAME_MACHINE="alphaev6" ;; "EV6.7 (21264A)") UNAME_MACHINE="alphaev67" ;; "EV6.8CB (21264C)") UNAME_MACHINE="alphaev68" ;; "EV6.8AL (21264B)") UNAME_MACHINE="alphaev68" ;; "EV6.8CX (21264D)") UNAME_MACHINE="alphaev68" ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE="alphaev69" ;; "EV7 (21364)") UNAME_MACHINE="alphaev7" ;; "EV7.9 (21364A)") UNAME_MACHINE="alphaev79" ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` exit ;; Alpha\ *:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # Should we change UNAME_MACHINE based on the output of uname instead # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm:riscos:*:*|arm:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:SunOS:5.*:*) echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`$dummy $dummyarg` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[45]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "${sc_cpu_version}" in 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "${sc_kernel_bits}" in 32) HP_ARCH="hppa2.0n" ;; 64) HP_ARCH="hppa2.0w" ;; '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 esac ;; esac fi if [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ ${HP_ARCH} = "hppa2.0w" ] then eval $set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | grep __LP64__ >/dev/null then HP_ARCH="hppa2.0w" else HP_ARCH="hppa64" fi fi echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) case ${UNAME_MACHINE} in pc98) echo i386-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; i*:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; x86:Interix*:[3456]*) echo i586-pc-interix${UNAME_RELEASE} exit ;; EM64T:Interix*:[3456]*) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) echo i${UNAME_MACHINE}-pc-mks exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; arm*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; cris:Linux:*:*) echo cris-axis-linux-gnu exit ;; crisv32:Linux:*:*) echo crisv32-axis-linux-gnu exit ;; frv:Linux:*:*) echo frv-unknown-linux-gnu exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; mips:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef mips #undef mipsel #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=mipsel #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=mips #else CPU= #endif #endif EOF eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' /^CPU/{ s: ::g p }'`" test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef mips64 #undef mips64el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=mips64el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=mips64 #else CPU= #endif #endif EOF eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' /^CPU/{ s: ::g p }'`" test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; or32:Linux:*:*) echo or32-unknown-linux-gnu exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-gnu exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-gnu exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; PCA57) UNAME_MACHINE=alphapca56 ;; EV6) UNAME_MACHINE=alphaev6 ;; EV67) UNAME_MACHINE=alphaev67 ;; EV68*) UNAME_MACHINE=alphaev68 ;; esac objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-gnu ;; PA8*) echo hppa2.0-unknown-linux-gnu ;; *) echo hppa-unknown-linux-gnu ;; esac exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-gnu exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-gnu exit ;; x86_64:Linux:*:*) echo x86_64-unknown-linux-gnu exit ;; i*86:Linux:*:*) # The BFD linker knows what the default object file format is, so # first see if it will tell us. cd to the root directory to prevent # problems with other programs or directories called `ld' in the path. # Set LC_ALL=C to ensure ld outputs messages in English. ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ | sed -ne '/supported targets:/!d s/[ ][ ]*/ /g s/.*supported targets: *// s/ .*// p'` case "$ld_supported_targets" in elf32-i386) TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" ;; a.out-i386-linux) echo "${UNAME_MACHINE}-pc-linux-gnuaout" exit ;; coff-i386) echo "${UNAME_MACHINE}-pc-linux-gnucoff" exit ;; "") # Either a pre-BFD a.out linker (linux-gnuoldld) or # one that does not give us useful --help. echo "${UNAME_MACHINE}-pc-linux-gnuoldld" exit ;; esac # Determine whether the default compiler is a.out or elf eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include #ifdef __ELF__ # ifdef __GLIBC__ # if __GLIBC__ >= 2 LIBC=gnu # else LIBC=gnulibc1 # endif # else LIBC=gnulibc1 # endif #else #if defined(__INTEL_COMPILER) || defined(__PGI) || defined(__SUNPRO_C) || defined(__SUNPRO_CC) LIBC=gnu #else LIBC=gnuaout #endif #endif #ifdef __dietlibc__ LIBC=dietlibc #endif EOF eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' /^LIBC/{ s: ::g p }'`" test x"${LIBC}" != x && { echo "${UNAME_MACHINE}-pc-linux-${LIBC}" exit } test x"${TENTATIVE}" != x && { echo "${TENTATIVE}"; exit; } ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i386. echo i386-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown case $UNAME_PROCESSOR in unknown) UNAME_PROCESSOR=powerpc ;; esac echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = "x86"; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NSE-?:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. if test "$cputype" = "386"; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos exit ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 eval $set_cc_for_build cat >$dummy.c < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) # if !defined (ultrix) # include # if defined (BSD) # if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); # else # if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); # else printf ("vax-dec-bsd\n"); exit (0); # endif # endif # else printf ("vax-dec-bsd\n"); exit (0); # endif # else printf ("vax-dec-ultrix\n"); exit (0); # endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed information to handle your system. config.guess timestamp = $timestamp uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = ${UNAME_MACHINE} UNAME_RELEASE = ${UNAME_RELEASE} UNAME_SYSTEM = ${UNAME_SYSTEM} UNAME_VERSION = ${UNAME_VERSION} EOF exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: citadel-902/config.h000066400000000000000000000072641271512031400144160ustar00rootroot00000000000000/* * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "serv_extensions.h" #include "citadel_dirs.h" /* * This is the format of the legacy config file. Do not attempt to do anything with it other * than migrate it into the new format. */ struct legacy_config { char c_nodename[16]; /* short name of this node on a Citadel network */ char c_fqdn[64]; /* this site's fully qualified domain name */ char c_humannode[21]; /* human-readable site name */ char c_niu_7[16]; uid_t c_niu_6; char c_creataide; /* 1 = creating a room auto-grants room aide privileges */ int c_sleeping; /* watchdog timer (seconds) */ char c_initax; /* initial access level for new users */ char c_regiscall; /* after c_regiscall logins user will be asked to register */ char c_twitdetect; /* automatically move messages from problem users to trashcan */ char c_twitroom[ROOMNAMELEN]; /* name of trashcan */ char c_moreprompt[80]; /* paginator prompt */ char c_restrict; /* require per-user permission to send Internet mail */ long c_niu_1; char c_site_location[32]; /* geographic location of this Citadel site */ char c_sysadm[26]; /* name of system administrator */ char c_niu_2[15]; int c_niu_3; int c_maxsessions; /* maximum number of concurrent sessions allowed */ char c_ip_addr[20]; /* bind address for listening sockets */ int c_port_number; /* port number for Citadel protocol (usually 504) */ int c_niu_4; struct ExpirePolicy c_ep; /* default expire policy for the entire site */ int c_userpurge; /* user purge time (in days) */ int c_roompurge; /* room purge time (in days) */ char c_logpages[ROOMNAMELEN]; char c_createax; long c_maxmsglen; int c_min_workers; int c_max_workers; int c_pop3_port; int c_smtp_port; int c_rfc822_strict_from; int c_aide_zap; int c_imap_port; time_t c_net_freq; char c_disable_newu; char c_enable_fulltext; char c_baseroom[ROOMNAMELEN]; char c_aideroom[ROOMNAMELEN]; int c_purge_hour; struct ExpirePolicy c_mbxep; char c_ldap_host[128]; int c_ldap_port; char c_ldap_base_dn[256]; char c_ldap_bind_dn[256]; char c_ldap_bind_pw[256]; int c_msa_port; int c_imaps_port; int c_pop3s_port; int c_smtps_port; char c_auto_cull; char c_niu_5; char c_allow_spoofing; char c_journal_email; char c_journal_pubmsgs; char c_journal_dest[128]; char c_default_cal_zone[128]; int c_pftcpdict_port; int c_managesieve_port; int c_auth_mode; char c_funambol_host[256]; int c_funambol_port; char c_funambol_source[256]; char c_funambol_auth[256]; char c_rbl_at_greeting; char c_master_user[32]; char c_master_pass[32]; char c_pager_program[256]; char c_imap_keep_from; int c_xmpp_c2s_port; int c_xmpp_s2s_port; time_t c_pop3_fetch; time_t c_pop3_fastest; int c_spam_flag_only; int c_guest_logins; int c_nntp_port; int c_nntps_port; }; void initialize_config_system(void); void shutdown_config_system(void); void put_config(void); void CtdlSetConfigStr(char *, char *); char *CtdlGetConfigStr(char *); int CtdlGetConfigInt(char *); long CtdlGetConfigLong(char *); void CtdlSetConfigInt(char *key, int value); void CtdlSetConfigLong(char *key, long value); void CtdlDelConfig(char *key); char *CtdlGetSysConfig(char *sysconfname); void CtdlPutSysConfig(char *sysconfname, char *sysconfdata); void validate_config(void); void netcfg_keyname(char *, long); citadel-902/config.sub000077500000000000000000000774601271512031400147700ustar00rootroot00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, # Inc. timestamp='2006-09-20' # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file 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 2 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, write to the Free Software # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA # 02110-1301, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Please send patches to . Submit a context # diff and a properly formatted ChangeLog entry. # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" exit 1 ;; *local*) # First pass through any local machine types. echo $1 exit ;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | linux-dietlibc | linux-newlib* | linux-uclibc* | \ uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple | -axis | -knuth | -cray) os= basic_machine=$1 ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5v6*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ | am33_2.0 \ | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \ | bfin \ | c4x | clipper \ | d10v | d30v | dlx | dsp16xx \ | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | mcore \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64vr | mips64vrel \ | mips64orion | mips64orionel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | mt \ | msp430 \ | nios | nios2 \ | ns16k | ns32k \ | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ | pyramid \ | score \ | sh | sh[1234] | sh[24]a | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ | sh64 | sh64le \ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ | spu | strongarm \ | tahoe | thumb | tic4x | tic80 | tron \ | v850 | v850e \ | we32k \ | x86 | xc16x | xscale | xscalee[bl] | xstormy16 | xtensa \ | z8k) basic_machine=$basic_machine-unknown ;; m6811 | m68hc11 | m6812 | m68hc12) # Motorola 68HC11/12. basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-unknown ;; # We use `pc' rather than `unknown' # because (1) that's what they normally are, and # (2) the word "unknown" tends to confuse beginning users. i*86 | x86_64) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \ | clipper-* | craynv-* | cydra-* \ | d10v-* | d30v-* | dlx-* \ | elxsi-* \ | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64vr-* | mips64vrel-* \ | mips64orion-* | mips64orionel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nios-* | nios2-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ | pyramid-* \ | romp-* | rs6000-* \ | sh-* | sh[1234]-* | sh[24]a-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ | sparclite-* \ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | strongarm-* | sv1-* | sx?-* \ | tahoe-* | thumb-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tron-* \ | v850-* | v850e-* | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* | xscale-* | xscalee[bl]-* \ | xstormy16-* | xtensa-* \ | ymp-* \ | z8k-*) ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; abacus) basic_machine=abacus-unknown ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; c90) basic_machine=c90-cray os=-unicos ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16c) basic_machine=cr16c-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; i370-ibm* | ibm*) basic_machine=i370-ibm ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? i*86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; mvs) basic_machine=i370-ibm os=-mvs ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc) basic_machine=powerpc-unknown ;; ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rdos) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; tic54x | c54x*) basic_machine=tic54x-unknown os=-coff ;; tic55x | c55x*) basic_machine=tic55x-unknown os=-coff ;; tic6x | c6x*) basic_machine=tic6x-unknown os=-coff ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh[1234] | sh[24]a | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -openbsd* | -solidbsd* \ | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* \ | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -linux-newlib* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -atheos*) os=-atheos ;; -syllable*) os=-syllable ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -nova*) os=-rtmk-nova ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -tpf*) os=-tpf ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -aros*) os=-aros ;; -kaos*) os=-kaos ;; -zvmoe) os=-zvmoe ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; # This must come before the *-dec entry. pdp10-*) os=-tops20 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; m68*-cisco) os=-aout ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-ibm) os=-aix ;; *-knuth) os=-mmixware ;; *-wec) os=-proelf ;; *-winbond) os=-proelf ;; *-oki) os=-proelf ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f30[01]-fujitsu | f700-fujitsu) os=-uxpv ;; *-rom68k) os=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -aix*) vendor=ibm ;; -beos*) vendor=be ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs* | -opened*) vendor=ibm ;; -os400*) vendor=ibm ;; -ptx*) vendor=sequent ;; -tpf*) vendor=ibm ;; -vxsim* | -vxworks* | -windiss*) vendor=wrs ;; -aux*) vendor=apple ;; -hms*) vendor=hitachi ;; -mpw* | -macos*) vendor=apple ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) vendor=atari ;; -vos*) vendor=stratus ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: citadel-902/configure000077500000000000000000007574751271512031400147270ustar00rootroot00000000000000#! /bin/sh # From configure.ac Revision: 5108 . # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.67 for Citadel 902. # # Report bugs to . # # # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, # 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software # Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV export CONFIG_SHELL exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org and $0: http://www.citadel.org/ about your system, including $0: any error possibly output before this message. Then $0: install a modern shell, or manually run the script $0: under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in #( -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='Citadel' PACKAGE_TARNAME='citadel' PACKAGE_VERSION='902' PACKAGE_STRING='Citadel 902' PACKAGE_BUGREPORT='http://www.citadel.org/' PACKAGE_URL='' ac_unique_file="citserver.c" ac_default_prefix=/usr/local/citadel # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_subst_vars='LTLIBOBJS LIBOBJS SETUP_LIBS SERVER_LIBS SERVER_LDFLAGS DATABASE TARGETS chkpwd_LIBS RESOLV ok_msgfmt ok_msgmerge ok_xgettext ACLOCAL AUTOCONF PATCH DIFF YFLAGS YACC INSTALL_DATA INSTALL_SCRIPT INSTALL_PROGRAM DEPEND_FLAG host_os host_vendor host_cpu host build_os build_vendor build_cpu build LOCALEDIR MAKE_DOC_DIR MAKE_RUN_DIR MAKE_UTILBIN_DIR MAKE_AUTO_ETC_DIR MAKE_ETC_DIR MAKE_SPOOL_DIR MAKE_SSL_DIR MAKE_STATICDATA_DIR MAKE_HELP_DIR MAKE_DATA_DIR EGREP GREP CPP OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking with_datadir with_helpdir with_staticdatadir with_ssldir with_spooldir with_sysconfdir with_autosysconfdir with_utility_bindir with_rundir with_egdpool with_docdir with_localedir enable_iconv enable_pie with_pam with_kthread with_db with_ssl with_with_ldap with_with_gc with_backtrace with_gprof ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP YACC YFLAGS' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval $ac_prev=\$ac_option ac_prev= continue fi case $ac_option in *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe $as_echo "$as_me: WARNING: if you wanted to set the --build type, don't use --host. If a cross compiler is detected then cross compile mode will be used" >&2 elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` srcdir=$ac_confdir if test ! -r "$srcdir/$ac_unique_file"; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures Citadel 902 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/citadel] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of Citadel 902:";; esac cat <<\_ACEOF Optional Features: --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --disable-iconv do not use iconv charset conversion --enable-pie build position-independent executables Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-datadir directory to store the databases under --with-helpdir directory to store the helpfiles under --with-staticdatadir directory to store citadels system messages under --with-ssldir directory to store the ssl certificates under --with-spooldir directory to keep queues under --with-sysconfdir directory to store the configs under --with-autosysconfdir directory to store the automaticaly maintained configs under --with-utility-bindir directory where to find helper binaries --with-rundir directory to place runtime files (UDS) to? --with-egdpool the socket from Pseudo Random Generator, defaults to /var/run/egd-pool --with-docdir where to install the documentation. default: /usr/local/citadel/ --with-localedir directory to put the locale files to --with-pam use PAM if present (see PAM.txt before you try this) --with-kthread use kernel threads (on FreeBSD) (not recommended yet) --with-db[=DIR] use Berkeley DB 3.x [DIR=/usr/local/BerkeleyDB.3.[123]] --with-ssl=PATH Specify path to OpenSSL installation --with-ldap use OpenLDAP client library --with-gc use the Boehm-Demers-Weiser garbage collection library --with-backtrace enable backtrace dumps in the syslog --with-gprof enable profiling Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor YACC The `Yet Another C Compiler' implementation to use. Defaults to the first program found out of: `bison -y', `byacc', `yacc'. YFLAGS The list of arguments that will be passed by default to $YACC. This script will default YFLAGS to the empty string to avoid a default value of `-d' given by some make applications. Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to . _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF Citadel configure 902 generated by GNU Autoconf 2.67 Copyright (C) 2010 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_c_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval "test \"\${$3+set}\"" = set; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval "test \"\${$3+set}\"" = set; then : $as_echo_n "(cached) " >&6 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ( $as_echo "## -------------------------------------- ## ## Report this to http://www.citadel.org/ ## ## -------------------------------------- ##" ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval "test \"\${$3+set}\"" = set; then : $as_echo_n "(cached) " >&6 else eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} } # ac_fn_c_check_header_mongrel # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval "test \"\${$3+set}\"" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} } # ac_fn_c_check_header_compile # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || $as_test_x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_c_compute_int LINENO EXPR VAR INCLUDES # -------------------------------------------- # Tries to find the compile-time value of EXPR in a program that includes # INCLUDES, setting VAR accordingly. Returns whether the value could be # computed ac_fn_c_compute_int () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if test "$cross_compiling" = yes; then # Depending upon the size, compute the lo and hi bounds. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= 0)]; test_array [0] = 0 ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_lo=0 ac_mid=0 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=$ac_mid; break else as_fn_arith $ac_mid + 1 && ac_lo=$as_val if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) < 0)]; test_array [0] = 0 ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=-1 ac_mid=-1 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) >= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_lo=$ac_mid; break else as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= break fi as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done else ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0 ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_hi=$ac_mid else as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in #(( ?*) eval "$3=\$ac_lo"; ac_retval=0 ;; '') ac_retval=1 ;; esac else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 static long int longval () { return $2; } static unsigned long int ulongval () { return $2; } #include #include int main () { FILE *f = fopen ("conftest.val", "w"); if (! f) return 1; if (($2) < 0) { long int i = longval (); if (i != ($2)) return 1; fprintf (f, "%ld", i); } else { unsigned long int i = ulongval (); if (i != ($2)) return 1; fprintf (f, "%lu", i); } /* Do not output a trailing newline, as this causes \r\n confusion on some platforms. */ return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : echo >>conftest.val; read $3 &5 $as_echo_n "checking for $2... " >&6; } if eval "test \"\${$3+set}\"" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined __stub_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} } # ac_fn_c_check_func # ac_fn_c_check_type LINENO TYPE VAR INCLUDES # ------------------------------------------- # Tests whether TYPE exists after having included INCLUDES, setting cache # variable VAR accordingly. ac_fn_c_check_type () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval "test \"\${$3+set}\"" = set; then : $as_echo_n "(cached) " >&6 else eval "$3=no" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof ($2)) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof (($2))) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else eval "$3=yes" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} } # ac_fn_c_check_type # ac_fn_c_check_member LINENO AGGR MEMBER VAR INCLUDES # ---------------------------------------------------- # Tries to find if the field MEMBER exists in type AGGR, after including # INCLUDES, setting cache variable VAR accordingly. ac_fn_c_check_member () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5 $as_echo_n "checking for $2.$3... " >&6; } if eval "test \"\${$4+set}\"" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $5 int main () { static $2 ac_aggr; if (ac_aggr.$3) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$4=yes" else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $5 int main () { static $2 ac_aggr; if (sizeof ac_aggr.$3) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$4=yes" else eval "$4=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$4 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} } # ac_fn_c_check_member cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by Citadel $as_me 902, which was generated by GNU Autoconf 2.67. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5 ; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_headers="$ac_config_headers sysdep.h" if test "$prefix" = NONE; then cat >>confdefs.h <<_ACEOF #define CTDLDIR "$ac_default_prefix" _ACEOF ssl_dir="$ac_default_prefix/keys" localedir=$ac_default_prefix else cat >>confdefs.h <<_ACEOF #define CTDLDIR "$prefix" _ACEOF ssl_dir="$prefix/keys" localedir=$prefix fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5 ; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5 ; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5 ; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5 ; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if test "${ac_cv_objext+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5 ; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if test "${ac_cv_c_compiler_gnu+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if test "${ac_cv_prog_cc_g+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if test "${ac_cv_prog_cc_c89+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if test "${ac_cv_prog_CPP+set}" = set; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5 ; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if test "${ac_cv_path_GREP+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if test "${ac_cv_path_EGREP+set}" = set; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if test "${ac_cv_header_stdc+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default" if test "x$ac_cv_header_minix_config_h" = x""yes; then : MINIX=yes else MINIX= fi if test "$MINIX" = yes; then $as_echo "#define _POSIX_SOURCE 1" >>confdefs.h $as_echo "#define _POSIX_1_SOURCE 2" >>confdefs.h $as_echo "#define _MINIX 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5 $as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; } if test "${ac_cv_safe_to_define___extensions__+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ # define __EXTENSIONS__ 1 $ac_includes_default int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_safe_to_define___extensions__=yes else ac_cv_safe_to_define___extensions__=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5 $as_echo "$ac_cv_safe_to_define___extensions__" >&6; } test $ac_cv_safe_to_define___extensions__ = yes && $as_echo "#define __EXTENSIONS__ 1" >>confdefs.h $as_echo "#define _ALL_SOURCE 1" >>confdefs.h $as_echo "#define _GNU_SOURCE 1" >>confdefs.h $as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h $as_echo "#define _TANDEM_SOURCE 1" >>confdefs.h # Check whether --with-datadir was given. if test "${with_datadir+set}" = set; then : withval=$with_datadir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_DATA_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define DATA_DIR "$withval" _ACEOF MAKE_DATA_DIR=$withval fi fi # Check whether --with-helpdir was given. if test "${with_helpdir+set}" = set; then : withval=$with_helpdir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_HELP_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define HELP_DIR "$withval" _ACEOF MAKE_HELP_DIR=$withval fi fi # Check whether --with-staticdatadir was given. if test "${with_staticdatadir+set}" = set; then : withval=$with_staticdatadir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_STATICDATA_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define STATICDATA_DIR "$withval" _ACEOF MAKE_STATICDATA_DIR=$withval fi fi # Check whether --with-ssldir was given. if test "${with_ssldir+set}" = set; then : withval=$with_ssldir; if test "x$withval" != "xno" ; then ssl_dir="$withval" fi fi cat >>confdefs.h <<_ACEOF #define SSL_DIR "$ssl_dir" _ACEOF # Check whether --with-spooldir was given. if test "${with_spooldir+set}" = set; then : withval=$with_spooldir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_SPOOL_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define SPOOL_DIR "$withval" _ACEOF MAKE_SPOOL_DIR=$withval fi fi # Check whether --with-sysconfdir was given. if test "${with_sysconfdir+set}" = set; then : withval=$with_sysconfdir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_ETC_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define ETC_DIR "$withval" _ACEOF MAKE_ETC_DIR=$withval fi fi # Check whether --with-autosysconfdir was given. if test "${with_autosysconfdir+set}" = set; then : withval=$with_autosysconfdir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_AUTO_ETC_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define AUTO_ETC_DIR "$withval" _ACEOF MAKE_AUTO_ETC_DIR=$withval fi fi # Check whether --with-utility-bindir was given. if test "${with_utility_bindir+set}" = set; then : withval=$with_utility_bindir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_UTILBIN_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define UTILBIN_DIR "$withval" _ACEOF MAKE_UTILBIN_DIR=$withval fi fi # Check whether --with-rundir was given. if test "${with_rundir+set}" = set; then : withval=$with_rundir; if test "x$withval" != "xno" ; then $as_echo "#define HAVE_RUN_DIR /**/" >>confdefs.h cat >>confdefs.h <<_ACEOF #define RUN_DIR "$withval" _ACEOF MAKE_RUN_DIR=$withval fi fi cat >>confdefs.h <<_ACEOF #define EGD_POOL "/var/run/egd-pool" _ACEOF # Check whether --with-egdpool was given. if test "${with_egdpool+set}" = set; then : withval=$with_egdpool; if test "x$withval" != "xno" ; then cat >>confdefs.h <<_ACEOF #define EGD_POOL "$withval" _ACEOF fi fi # Check whether --with-docdir was given. if test "${with_docdir+set}" = set; then : withval=$with_docdir; if test "x$withval" != "xno" ; then MAKE_DOC_DIR=$withval fi fi # Check whether --with-localedir was given. if test "${with_localedir+set}" = set; then : withval=$with_localedir; if test "x$withval" != "xno" ; then localedir=$withval fi fi cat >>confdefs.h <<_ACEOF #define LOCALEDIR "$localedir" _ACEOF LOCALEDIR=$localedir saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" ac_fn_c_check_header_mongrel "$LINENO" "zlib.h" "ac_cv_header_zlib_h" "$ac_includes_default" if test "x$ac_cv_header_zlib_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for zlibVersion in -lz" >&5 $as_echo_n "checking for zlibVersion in -lz... " >&6; } if test "${ac_cv_lib_z_zlibVersion+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lz $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char zlibVersion (); int main () { return zlibVersion (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_z_zlibVersion=yes else ac_cv_lib_z_zlibVersion=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_z_zlibVersion" >&5 $as_echo "$ac_cv_lib_z_zlibVersion" >&6; } if test "x$ac_cv_lib_z_zlibVersion" = x""yes; then : LIBS="-lz $LIBS $SERVER_LIBS" else as_fn_error $? "zlib was not found or is not usable. Please install zlib." "$LINENO" 5 fi else as_fn_error $? "zlib.h was not found or is not usable. Please install zlib." "$LINENO" 5 fi CFLAGS="$saved_CFLAGS" # Check whether --enable-iconv was given. if test "${enable_iconv+set}" = set; then : enableval=$enable_iconv; ok_iconv=no else ok_iconv=yes fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking Checking to see if your system supports iconv" >&5 $as_echo_n "checking Checking to see if your system supports iconv... " >&6; } if test "$cross_compiling" = yes; then : { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5 ; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include main() { iconv_t ic = (iconv_t)(-1) ; ic = iconv_open("UTF-8", "us-ascii"); iconv_close(ic); exit(0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ok_iconv=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else ok_iconv=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi if test "$ok_iconv" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking Checking for an external libiconv" >&5 $as_echo_n "checking Checking for an external libiconv... " >&6; } OLD_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -liconv" if test "$cross_compiling" = yes; then : { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5 ; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include main() { iconv_t ic = (iconv_t)(-1) ; ic = iconv_open("UTF-8", "us-ascii"); iconv_close(ic); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ok_iconv=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else ok_iconv=no LDFLAGS="$OLD_LDFLAGS" { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi if test "$ok_iconv" != "no"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: Citadel will be built with character set conversion." >&5 $as_echo "Citadel will be built with character set conversion." >&6; } $as_echo "#define HAVE_ICONV /**/" >>confdefs.h else { $as_echo "$as_me:${as_lineno-$LINENO}: result: Citadel will be built without character set conversion." >&5 $as_echo "Citadel will be built without character set conversion." >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for libintl_bindtextdomain in -lintl" >&5 $as_echo_n "checking for libintl_bindtextdomain in -lintl... " >&6; } if test "${ac_cv_lib_intl_libintl_bindtextdomain+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lintl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char libintl_bindtextdomain (); int main () { return libintl_bindtextdomain (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_intl_libintl_bindtextdomain=yes else ac_cv_lib_intl_libintl_bindtextdomain=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_intl_libintl_bindtextdomain" >&5 $as_echo "$ac_cv_lib_intl_libintl_bindtextdomain" >&6; } if test "x$ac_cv_lib_intl_libintl_bindtextdomain" = x""yes; then : LDFLAGS="$LDFLAGS -lintl" fi # Check whether --enable-pie was given. if test "${enable_pie+set}" = set; then : enableval=$enable_pie; fi # Check whether --with-pam was given. if test "${with_pam+set}" = set; then : withval=$with_pam; fi # Check whether --with-kthread was given. if test "${with_kthread+set}" = set; then : withval=$with_kthread; fi # Check whether --with-db was given. if test "${with_db+set}" = set; then : withval=$with_db; fi # Check whether --with-ssl was given. if test "${with_ssl+set}" = set; then : withval=$with_ssl; if test "x$withval" != "xno" ; then tryssldir=$withval fi fi # Check whether --with-with_ldap was given. if test "${with_with_ldap+set}" = set; then : withval=$with_with_ldap; fi # Check whether --with-with_gc was given. if test "${with_with_gc+set}" = set; then : withval=$with_with_gc; fi if test "x$with_db" != xno -a "x$with_db" != xyes -a "$with_db"; then db_dir="$with_db" with_db=yes else test -f /usr/local/lib/libdb.a -o -f /usr/local/lib/libdb.so \ -o -f /usr/local/lib/libdb4.a -o -f /usr/local/lib/libdb4.so \ && db_dir=/usr/local test -d /usr/local/BerkeleyDB.4.1 && db_dir=/usr/local/BerkeleyDB.4.1 test -d /usr/local/BerkeleyDB.4.2 && db_dir=/usr/local/BerkeleyDB.4.2 test -d /usr/local/BerkeleyDB.4.3 && db_dir=/usr/local/BerkeleyDB.4.3 test -d /usr/local/BerkeleyDB.4.4 && db_dir=/usr/local/BerkeleyDB.4.4 test -d /usr/local/BerkeleyDB.4.5 && db_dir=/usr/local/BerkeleyDB.4.5 fi ac_aux_dir= for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do if test -f "$ac_dir/install-sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f "$ac_dir/install.sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if test "${ac_cv_build+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5 ;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if test "${ac_cv_host+set}" = set; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5 ;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac PTHREAD_DEFS=-D_REENTRANT { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to compile with POSIX threads" >&5 $as_echo_n "checking how to compile with POSIX threads... " >&6; } case "$host" in *-*-bsdi123*) test -z "$CC" -a -x /usr/bin/shlicc2 && CC=shlicc2 $as_echo "#define HAVE_NONREENTRANT_NETDB /**/" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: result: Old BSDI" >&5 $as_echo "Old BSDI" >&6; } ;; *-*-bsdi*) $as_echo "#define HAVE_NONREENTRANT_NETDB /**/" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: result: BSD/OS" >&5 $as_echo "BSD/OS" >&6; } ;; *-*-darwin*) $as_echo "#define HAVE_DARWIN /**/" >>confdefs.h { $as_echo "$as_me:${as_lineno-$LINENO}: result: Mac OS X" >&5 $as_echo "Mac OS X" >&6; } ;; alpha*-dec-osf*) test -z "$CC" && CC=cc LIBS="-lpthread -lexc $LIBS" check_pthread=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: Tru64 or Digital UNIX" >&5 $as_echo "Tru64 or Digital UNIX" >&6; } ;; *-*-freebsd*) if test "$with_kthread" = yes; then LIBS="-kthread $LIBS" else LIBS="-pthread $LIBS" fi check_pthread=no PTHREAD_DEFS=-D_THREAD_SAFE { $as_echo "$as_me:${as_lineno-$LINENO}: result: FreeBSD" >&5 $as_echo "FreeBSD" >&6; } ;; *-*-openbsd*) LIBS="-pthread $LIBS" check_pthread=no PTHREAD_DEFS=-pthread { $as_echo "$as_me:${as_lineno-$LINENO}: result: OpenBSD" >&5 $as_echo "OpenBSD" >&6; } ;; *-*-linux*) PTHREAD_DEFS="-D_REENTRANT -pthread" { $as_echo "$as_me:${as_lineno-$LINENO}: result: Linux" >&5 $as_echo "Linux" >&6; } ;; *-*-solaris*) PTHREAD_DEFS="-D_REENTRANT -D_PTHREADS" { $as_echo "$as_me:${as_lineno-$LINENO}: result: Solaris" >&5 $as_echo "Solaris" >&6; } ;; *-*-cygwin*) SERVER_LDFLAGS="-Wl,-subsystem,windows" { $as_echo "$as_me:${as_lineno-$LINENO}: result: Cygwin" >&5 $as_echo "Cygwin" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: default" >&5 $as_echo "default" >&6; } ;; esac ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# != 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5 ; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if test "${ac_cv_c_compiler_gnu+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if test "${ac_cv_prog_cc_g+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if test "${ac_cv_prog_cc_c89+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test "$GCC" = yes; then if test "$CC" = icc; then CFLAGS="$CFLAGS -w1" else case "$host" in *-*-solaris*|alpha*-dec-osf*) CFLAGS="$CFLAGS -Wall -Wcast-qual -Wcast-align -Wno-char-subscripts $PTHREAD_DEFS" ;; *) CFLAGS="$CFLAGS -Wall -Wcast-qual -Wcast-align -Wstrict-prototypes -Wno-strict-aliasing $PTHREAD_DEFS" ;; esac fi fi if test "x$enable_pie" = xyes; then save_CFLAGS="$CFLAGS" save_LDFLAGS="$LDFLAGS" CFLAGS="$CFLAGS -fpie" LDFLAGS="$LDFLAGS -pie -fpie" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether compiler accepts -pie -fpie" >&5 $as_echo_n "checking whether compiler accepts -pie -fpie... " >&6; } if test "${ac_cv_pie_fpie+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_pie_fpie=yes else ac_cv_pie_fpie=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_pie_fpie" >&5 $as_echo "$ac_cv_pie_fpie" >&6; } if test $ac_cv_pie_fpie = no; then CFLAGS="$save_CFLAGS" LDFLAGS="$save_LDFLAGS" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to create dependancy checks" >&5 $as_echo_n "checking how to create dependancy checks... " >&6; } if test -n "`$CC -V 2>&1 |grep Sun`"; then DEPEND_FLAG=-xM; else DEPEND_FLAG=-M fi # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 $as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if test "${ac_cv_path_install+set}" = set; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in #(( ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; }; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else rm -rf conftest.one conftest.two conftest.dir echo one > conftest.one echo two > conftest.two mkdir conftest.dir if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi fi done done ;; esac done IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. Don't cache a # value for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. INSTALL=$ac_install_sh fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 $as_echo "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' for ac_prog in 'bison -y' byacc do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_YACC+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$YACC"; then ac_cv_prog_YACC="$YACC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_YACC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi YACC=$ac_cv_prog_YACC if test -n "$YACC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $YACC" >&5 $as_echo "$YACC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$YACC" && break done test -n "$YACC" || YACC="yacc" # Extract the first word of "diff", so it can be a program name with args. set dummy diff; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_path_DIFF+set}" = set; then : $as_echo_n "(cached) " >&6 else case $DIFF in [\\/]* | ?:[\\/]*) ac_cv_path_DIFF="$DIFF" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_path_DIFF="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi DIFF=$ac_cv_path_DIFF if test -n "$DIFF"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DIFF" >&5 $as_echo "$DIFF" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi # Extract the first word of "patch", so it can be a program name with args. set dummy patch; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_path_PATCH+set}" = set; then : $as_echo_n "(cached) " >&6 else case $PATCH in [\\/]* | ?:[\\/]*) ac_cv_path_PATCH="$PATCH" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_path_PATCH="$as_dir/$ac_word$ac_exec_ext" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS ;; esac fi PATCH=$ac_cv_path_PATCH if test -n "$PATCH"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PATCH" >&5 $as_echo "$PATCH" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi missing_dir=`cd $ac_aux_dir && pwd` # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal"} # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of char" >&5 $as_echo_n "checking size of char... " >&6; } if test "${ac_cv_sizeof_char+set}" = set; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (char))" "ac_cv_sizeof_char" "$ac_includes_default"; then : else if test "$ac_cv_type_char" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (char) See \`config.log' for more details" "$LINENO" 5 ; } else ac_cv_sizeof_char=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_char" >&5 $as_echo "$ac_cv_sizeof_char" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_CHAR $ac_cv_sizeof_char _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of short" >&5 $as_echo_n "checking size of short... " >&6; } if test "${ac_cv_sizeof_short+set}" = set; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (short))" "ac_cv_sizeof_short" "$ac_includes_default"; then : else if test "$ac_cv_type_short" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (short) See \`config.log' for more details" "$LINENO" 5 ; } else ac_cv_sizeof_short=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_short" >&5 $as_echo "$ac_cv_sizeof_short" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_SHORT $ac_cv_sizeof_short _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of int" >&5 $as_echo_n "checking size of int... " >&6; } if test "${ac_cv_sizeof_int+set}" = set; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (int))" "ac_cv_sizeof_int" "$ac_includes_default"; then : else if test "$ac_cv_type_int" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (int) See \`config.log' for more details" "$LINENO" 5 ; } else ac_cv_sizeof_int=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_int" >&5 $as_echo "$ac_cv_sizeof_int" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_INT $ac_cv_sizeof_int _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of long" >&5 $as_echo_n "checking size of long... " >&6; } if test "${ac_cv_sizeof_long+set}" = set; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (long))" "ac_cv_sizeof_long" "$ac_includes_default"; then : else if test "$ac_cv_type_long" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (long) See \`config.log' for more details" "$LINENO" 5 ; } else ac_cv_sizeof_long=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_long" >&5 $as_echo "$ac_cv_sizeof_long" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_LONG $ac_cv_sizeof_long _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of size_t" >&5 $as_echo_n "checking size of size_t... " >&6; } if test "${ac_cv_sizeof_size_t+set}" = set; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (size_t))" "ac_cv_sizeof_size_t" "$ac_includes_default"; then : else if test "$ac_cv_type_size_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (size_t) See \`config.log' for more details" "$LINENO" 5 ; } else ac_cv_sizeof_size_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_size_t" >&5 $as_echo "$ac_cv_sizeof_size_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_SIZE_T $ac_cv_sizeof_size_t _ACEOF # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. { $as_echo "$as_me:${as_lineno-$LINENO}: checking size of loff_t" >&5 $as_echo_n "checking size of loff_t... " >&6; } if test "${ac_cv_sizeof_loff_t+set}" = set; then : $as_echo_n "(cached) " >&6 else if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (loff_t))" "ac_cv_sizeof_loff_t" "$ac_includes_default"; then : else if test "$ac_cv_type_loff_t" = yes; then { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (loff_t) See \`config.log' for more details" "$LINENO" 5 ; } else ac_cv_sizeof_loff_t=0 fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_loff_t" >&5 $as_echo "$ac_cv_sizeof_loff_t" >&6; } cat >>confdefs.h <<_ACEOF #define SIZEOF_LOFF_T $ac_cv_sizeof_loff_t _ACEOF for ac_func in crypt gethostbyname connect flock getpwnam_r getpwuid_r getloadavg do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done for ac_func in strftime_l uselocale gettext do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done if test "$ok_nls" != "no"; then # Extract the first word of "xgettext", so it can be a program name with args. set dummy xgettext; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ok_xgettext+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ok_xgettext"; then ac_cv_prog_ok_xgettext="$ok_xgettext" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ok_xgettext="yes" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_prog_ok_xgettext" && ac_cv_prog_ok_xgettext="no" fi fi ok_xgettext=$ac_cv_prog_ok_xgettext if test -n "$ok_xgettext"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ok_xgettext" >&5 $as_echo "$ok_xgettext" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ok_nls=$ok_xgettext fi if test "$ok_nls" != "no"; then # Extract the first word of "msgmerge", so it can be a program name with args. set dummy msgmerge; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ok_msgmerge+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ok_msgmerge"; then ac_cv_prog_ok_msgmerge="$ok_msgmerge" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ok_msgmerge="yes" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_prog_ok_msgmerge" && ac_cv_prog_ok_msgmerge="no" fi fi ok_msgmerge=$ac_cv_prog_ok_msgmerge if test -n "$ok_msgmerge"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ok_msgmerge" >&5 $as_echo "$ok_msgmerge" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ok_nls=$ok_msgmerge fi if test "$ok_nls" != "no"; then # Extract the first word of "msgfmt", so it can be a program name with args. set dummy msgfmt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if test "${ac_cv_prog_ok_msgfmt+set}" = set; then : $as_echo_n "(cached) " >&6 else if test -n "$ok_msgfmt"; then ac_cv_prog_ok_msgfmt="$ok_msgfmt" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ok_msgfmt="yes" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_prog_ok_msgfmt" && ac_cv_prog_ok_msgfmt="no" fi fi ok_msgfmt=$ac_cv_prog_ok_msgfmt if test -n "$ok_msgfmt"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ok_msgfmt" >&5 $as_echo "$ok_msgfmt" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ok_nls=$ok_msgfmt fi if test "$ok_nls" != "no"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: citadel will be built with national language support." >&5 $as_echo "citadel will be built with national language support." >&6; } $as_echo "#define ENABLE_NLS /**/" >>confdefs.h PROG_SUBDIRS="$PROG_SUBDIRS po/citadel-setup" else { $as_echo "$as_me:${as_lineno-$LINENO}: result: citadel will be built without national language support." >&5 $as_echo "citadel will be built without national language support." >&6; } fi # Check whether --with-backtrace was given. if test "${with_backtrace+set}" = set; then : withval=$with_backtrace; if test "x$withval" != "xno" ; then CFLAGS="$CFLAGS -rdynamic " LDFLAGS="$LDFLAGS -rdynamic " SERVER_LDFLAGS="$SERVER_LDFLAGS -rdynamic " for ac_func in backtrace do : ac_fn_c_check_func "$LINENO" "backtrace" "ac_cv_func_backtrace" if test "x$ac_cv_func_backtrace" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_BACKTRACE 1 _ACEOF fi done fi fi # Check whether --with-gprof was given. if test "${with_gprof+set}" = set; then : withval=$with_gprof; if test "x$withval" != "xno" ; then CFLAGS="$CFLAGS -pg " LDFLAGS="$LDFLAGS -pg " SERVER_LDFLAGS="$SERVER_LDFLAGS -pg " fi fi if test "$ac_cv_func_gethostbyname" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gethostbyname in -lnsl" >&5 $as_echo_n "checking for gethostbyname in -lnsl... " >&6; } if test "${ac_cv_lib_nsl_gethostbyname+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lnsl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char gethostbyname (); int main () { return gethostbyname (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_nsl_gethostbyname=yes else ac_cv_lib_nsl_gethostbyname=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_nsl_gethostbyname" >&5 $as_echo "$ac_cv_lib_nsl_gethostbyname" >&6; } if test "x$ac_cv_lib_nsl_gethostbyname" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBNSL 1 _ACEOF LIBS="-lnsl $LIBS" fi fi if test "$ac_cv_func_connect" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for connect in -lsocket" >&5 $as_echo_n "checking for connect in -lsocket... " >&6; } if test "${ac_cv_lib_socket_connect+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsocket $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char connect (); int main () { return connect (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_socket_connect=yes else ac_cv_lib_socket_connect=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_socket_connect" >&5 $as_echo "$ac_cv_lib_socket_connect" >&6; } if test "x$ac_cv_lib_socket_connect" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBSOCKET 1 _ACEOF LIBS="-lsocket $LIBS" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sched_yield in -lrt" >&5 $as_echo_n "checking for sched_yield in -lrt... " >&6; } if test "${ac_cv_lib_rt_sched_yield+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lrt $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char sched_yield (); int main () { return sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_rt_sched_yield=yes else ac_cv_lib_rt_sched_yield=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_rt_sched_yield" >&5 $as_echo "$ac_cv_lib_rt_sched_yield" >&6; } if test "x$ac_cv_lib_rt_sched_yield" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBRT 1 _ACEOF LIBS="-lrt $LIBS" fi save_LIBS=$LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pam_start in -lpam" >&5 $as_echo_n "checking for pam_start in -lpam... " >&6; } if test "${ac_cv_lib_pam_pam_start+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpam $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pam_start (); int main () { return pam_start (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_pam_pam_start=yes else ac_cv_lib_pam_pam_start=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pam_pam_start" >&5 $as_echo "$ac_cv_lib_pam_pam_start" >&6; } if test "x$ac_cv_lib_pam_pam_start" = x""yes; then : chkpwd_LIBS="-lpam $chkpwd_LIBS" LIBS="-lpam $LIBS" fi for ac_func in pam_start do : ac_fn_c_check_func "$LINENO" "pam_start" "ac_cv_func_pam_start" if test "x$ac_cv_func_pam_start" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_PAM_START 1 _ACEOF fi done test "$enable_chkpwd" != no && LIBS=$save_LIBS if test "$ac_cv_func_pam_start" = no -o "$with_pam" != yes; then save_LIBS=$LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing getspnam" >&5 $as_echo_n "checking for library containing getspnam... " >&6; } if test "${ac_cv_search_getspnam+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char getspnam (); int main () { return getspnam (); ; return 0; } _ACEOF for ac_lib in '' shadow; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_getspnam=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if test "${ac_cv_search_getspnam+set}" = set; then : break fi done if test "${ac_cv_search_getspnam+set}" = set; then : else ac_cv_search_getspnam=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_getspnam" >&5 $as_echo "$ac_cv_search_getspnam" >&6; } ac_res=$ac_cv_search_getspnam if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" if test "$ac_cv_search_getspnam" = -lshadow; then chkpwd_LIBS="-lshadow $chkpwd_LIBS" fi fi test "$enable_chkpwd" != no && LIBS=$save_LIBS if test "$ac_cv_func_crypt" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for crypt in -lcrypt" >&5 $as_echo_n "checking for crypt in -lcrypt... " >&6; } if test "${ac_cv_lib_crypt_crypt+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lcrypt $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char crypt (); int main () { return crypt (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_crypt_crypt=yes else ac_cv_lib_crypt_crypt=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_crypt_crypt" >&5 $as_echo "$ac_cv_lib_crypt_crypt" >&6; } if test "x$ac_cv_lib_crypt_crypt" = x""yes; then : chkpwd_LIBS="-lcrypt $chkpwd_LIBS" test "$enable_chkpwd" = no && \ LIBS="-lcrypt $LIBS" fi fi fi for ac_func in vw_printw wcolor_set resizeterm wresize do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done if test "$check_pthread" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create in -lpthread" >&5 $as_echo_n "checking for pthread_create in -lpthread... " >&6; } if test "${ac_cv_lib_pthread_pthread_create+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpthread $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pthread_create (); int main () { return pthread_create (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_pthread_pthread_create=yes else ac_cv_lib_pthread_pthread_create=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_create" >&5 $as_echo "$ac_cv_lib_pthread_pthread_create" >&6; } if test "x$ac_cv_lib_pthread_pthread_create" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBPTHREAD 1 _ACEOF LIBS="-lpthread $LIBS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create in -lpthreads" >&5 $as_echo_n "checking for pthread_create in -lpthreads... " >&6; } if test "${ac_cv_lib_pthreads_pthread_create+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lpthreads $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char pthread_create (); int main () { return pthread_create (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_pthreads_pthread_create=yes else ac_cv_lib_pthreads_pthread_create=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthreads_pthread_create" >&5 $as_echo "$ac_cv_lib_pthreads_pthread_create" >&6; } if test "x$ac_cv_lib_pthreads_pthread_create" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LIBPTHREADS 1 _ACEOF LIBS="-lpthreads $LIBS" fi fi test -d /usr/kerberos/include && CPPFLAGS="$CPPFLAGS -I/usr/kerberos/include" ac_fn_c_check_header_mongrel "$LINENO" "libical/ical.h" "ac_cv_header_libical_ical_h" "$ac_includes_default" if test "x$ac_cv_header_libical_ical_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for icaltimezone_set_tzid_prefix in -lical" >&5 $as_echo_n "checking for icaltimezone_set_tzid_prefix in -lical... " >&6; } if test "${ac_cv_lib_ical_icaltimezone_set_tzid_prefix+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lical $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char icaltimezone_set_tzid_prefix (); int main () { return icaltimezone_set_tzid_prefix (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_ical_icaltimezone_set_tzid_prefix=yes else ac_cv_lib_ical_icaltimezone_set_tzid_prefix=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ical_icaltimezone_set_tzid_prefix" >&5 $as_echo "$ac_cv_lib_ical_icaltimezone_set_tzid_prefix" >&6; } if test "x$ac_cv_lib_ical_icaltimezone_set_tzid_prefix" = x""yes; then : SERVER_LIBS="-lical $SERVER_LIBS" else as_fn_error $? "libical was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi else as_fn_error $? "libical/ical.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi ac_fn_c_check_header_mongrel "$LINENO" "sieve2.h" "ac_cv_header_sieve2_h" "$ac_includes_default" if test "x$ac_cv_header_sieve2_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sieve2_license in -lsieve" >&5 $as_echo_n "checking for sieve2_license in -lsieve... " >&6; } if test "${ac_cv_lib_sieve_sieve2_license+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsieve $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char sieve2_license (); int main () { return sieve2_license (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_sieve_sieve2_license=yes else ac_cv_lib_sieve_sieve2_license=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sieve_sieve2_license" >&5 $as_echo "$ac_cv_lib_sieve_sieve2_license" >&6; } if test "x$ac_cv_lib_sieve_sieve2_license" = x""yes; then : SERVER_LIBS="-lsieve $SERVER_LIBS" else as_fn_error $? "libsieve was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi else as_fn_error $? "sieve2.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" ac_fn_c_check_header_mongrel "$LINENO" "libcitadel.h" "ac_cv_header_libcitadel_h" "$ac_includes_default" if test "x$ac_cv_header_libcitadel_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for libcitadel_version_string in -lcitadel" >&5 $as_echo_n "checking for libcitadel_version_string in -lcitadel... " >&6; } if test "${ac_cv_lib_citadel_libcitadel_version_string+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lcitadel $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char libcitadel_version_string (); int main () { return libcitadel_version_string (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_citadel_libcitadel_version_string=yes else ac_cv_lib_citadel_libcitadel_version_string=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_citadel_libcitadel_version_string" >&5 $as_echo "$ac_cv_lib_citadel_libcitadel_version_string" >&6; } if test "x$ac_cv_lib_citadel_libcitadel_version_string" = x""yes; then : LIBS="-lcitadel $LIBS $SERVER_LIBS" chkpwd_LIBS="-lcitadel $chkpwd_LIBS" else as_fn_error $? "libcitadel was not found or is not usable. Please install libcitadel." "$LINENO" 5 fi else as_fn_error $? "libcitadel.h was not found or is not usable. Please install libcitadel." "$LINENO" 5 fi CFLAGS="$saved_CFLAGS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ares_parse_mx_reply in -lcares" >&5 $as_echo_n "checking for ares_parse_mx_reply in -lcares... " >&6; } if test "${ac_cv_lib_cares_ares_parse_mx_reply+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lcares $SOCKET_LIBS $NSL_LIBS $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char ares_parse_mx_reply (); int main () { return ares_parse_mx_reply (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_cares_ares_parse_mx_reply=yes else ac_cv_lib_cares_ares_parse_mx_reply=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cares_ares_parse_mx_reply" >&5 $as_echo "$ac_cv_lib_cares_ares_parse_mx_reply" >&6; } if test "x$ac_cv_lib_cares_ares_parse_mx_reply" = x""yes; then : C_ARES_LIBS=-lcares $as_echo "#define HAVE_C_ARES 1" >>confdefs.h have_good_c_ares=yes fi saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" ac_fn_c_check_header_mongrel "$LINENO" "ares.h" "ac_cv_header_ares_h" "$ac_includes_default" if test "x$ac_cv_header_ares_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ares_parse_mx_reply in -lcares" >&5 $as_echo_n "checking for ares_parse_mx_reply in -lcares... " >&6; } if test "${ac_cv_lib_cares_ares_parse_mx_reply+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lcares $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char ares_parse_mx_reply (); int main () { return ares_parse_mx_reply (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_cares_ares_parse_mx_reply=yes else ac_cv_lib_cares_ares_parse_mx_reply=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cares_ares_parse_mx_reply" >&5 $as_echo "$ac_cv_lib_cares_ares_parse_mx_reply" >&6; } if test "x$ac_cv_lib_cares_ares_parse_mx_reply" = x""yes; then : LIBS="-lcares $LIBS $SERVER_LIBS" else as_fn_error $? "libc-ares was not found or is not usable. Please install libc-ares." "$LINENO" 5 fi else as_fn_error $? "ares.h was not found or is not usable. Please install libc-ares." "$LINENO" 5 fi CFLAGS="$saved_CFLAGS" saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" ac_fn_c_check_header_mongrel "$LINENO" "ev.h" "ac_cv_header_ev_h" "$ac_includes_default" if test "x$ac_cv_header_ev_h" = x""yes; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { ev_cleanup abort_by_shutdown; struct ev_loop *event_base; ev_cleanup_start(event_base, &abort_by_shutdown); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : LIBS="-lev -lm $LIBS $SERVER_LIBS" else as_fn_error $? "libev was not found or is not usable. Please install libev." "$LINENO" 5 fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext else as_fn_error $? "ev.h was not found or is not usable. Please install libev." "$LINENO" 5 fi CFLAGS="$saved_CFLAGS" # The big search for OpenSSL if test "$with_ssl" != "no"; then saved_LIBS="$LIBS" saved_LDFLAGS="$LDFLAGS" saved_CFLAGS="$CFLAGS" if test "x$prefix" != "xNONE"; then tryssldir="$tryssldir $prefix" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for OpenSSL" >&5 $as_echo_n "checking for OpenSSL... " >&6; } if test "${ac_cv_openssldir+set}" = set; then : $as_echo_n "(cached) " >&6 else for ssldir in $tryssldir "" /usr /usr/local/openssl /usr/lib/openssl /usr/local/ssl /usr/lib/ssl /usr/local /usr/pkg /opt /opt/openssl ; do CFLAGS="$saved_CFLAGS" LDFLAGS="$saved_LDFLAGS" LIBS="$saved_LIBS -lssl -lcrypto" # Skip directories if they don't exist if test ! -z "$ssldir" -a ! -d "$ssldir" ; then continue; fi if test ! -z "$ssldir" -a "x$ssldir" != "x/usr"; then # Try to use $ssldir/lib if it exists, otherwise # $ssldir if test -d "$ssldir/lib" ; then LDFLAGS="-L$ssldir/lib $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir/lib $LDFLAGS" fi else LDFLAGS="-L$ssldir $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir $LDFLAGS" fi fi # Try to use $ssldir/include if it exists, otherwise # $ssldir if test -d "$ssldir/include" ; then CFLAGS="-I$ssldir/include $saved_CFLAGS" else CFLAGS="-I$ssldir $saved_CFLAGS" fi fi # Basic test to check for compatible version and correct linking # *does not* test for RSA - that comes later. if test "$cross_compiling" = yes; then : { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run test program while cross compiling See \`config.log' for more details" "$LINENO" 5 ; } else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main(void) { char a[2048]; memset(a, 0, sizeof(a)); RAND_add(a, sizeof(a), sizeof(a)); return(RAND_status() <= 0); } _ACEOF if ac_fn_c_try_run "$LINENO"; then : found_crypto=1 break; fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi if test ! -z "$found_crypto" ; then break; fi done if test -z "$ssldir" ; then ssldir="(system)" fi if test ! -z "$found_crypto" ; then ac_cv_openssldir=$ssldir else ac_cv_openssldir="no" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_openssldir" >&5 $as_echo "$ac_cv_openssldir" >&6; } LIBS="$saved_LIBS" LDFLAGS="$saved_LDFLAGS" CFLAGS="$saved_CFLAGS" if test "x$ac_cv_openssldir" != "xno" ; then $as_echo "#define HAVE_OPENSSL /**/" >>confdefs.h LIBS="-lssl -lcrypto $LIBS" ssldir=$ac_cv_openssldir if test ! -z "$ssldir" -a "x$ssldir" != "x/usr" -a "x$ssldir" != "x(system)"; then # Try to use $ssldir/lib if it exists, otherwise # $ssldir if test -d "$ssldir/lib" ; then LDFLAGS="-L$ssldir/lib $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir/lib $LDFLAGS" fi else LDFLAGS="-L$ssldir $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir $LDFLAGS" fi fi # Try to use $ssldir/include if it exists, otherwise # $ssldir if test -d "$ssldir/include" ; then CFLAGS="-I$ssldir/include $saved_CFLAGS" else CFLAGS="-I$ssldir $saved_CFLAGS" fi fi fi fi if test "x$with_db" != xno; then test "$db_dir" && LDFLAGS="$LDFLAGS -L$db_dir/lib" dblib="" if test -d "$db_dir/include/db4"; then CPPFLAGS="$CPPFLAGS -I$db_dir/include/db4" dblib="db4" elif test "$db_dir"; then CPPFLAGS="$CPPFLAGS -I$db_dir/include" elif test -d /usr/include/db4; then CPPFLAGS="$CPPFLAGS -I/usr/include/db4" dblib="db4" fi for lib in db db-4.1 db-4 db4 do as_ac_tr_db=`$as_echo "ac_cv_db_lib_${lib}" | $as_tr_sh` bogo_saved_LIBS="$LIBS" LIBS="$LIBS -l$lib" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for db_create in -l${lib}" >&5 $as_echo_n "checking for db_create in -l${lib}... " >&6; } if eval "test \"\${$as_ac_tr_db+set}\"" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { int foo=db_create((void *)0, (void *) 0, 0 ) ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$as_ac_tr_db=yes" else eval "$as_ac_tr_db=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$as_ac_tr_db { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } if test `eval 'as_val=${'$as_ac_tr_db'};$as_echo "$as_val"'` = yes; then : DATABASE=database.c LIBS="$bogo_saved_LIBS" SERVER_LIBS="$SERVER_LIBS -l$lib" db=yes else LIBS="$bogo_saved_LIBS" db=no fi test "$db" = "yes" && break done if test "$db" = "no"; then as_fn_error $? "Can not locate a suitable Berkeley DB library. Use --with-db=PATH to specify the path" "$LINENO" 5 fi fi if test "x$with_ldap" != xno ; then for ac_header in ldap.h do : ac_fn_c_check_header_mongrel "$LINENO" "ldap.h" "ac_cv_header_ldap_h" "$ac_includes_default" if test "x$ac_cv_header_ldap_h" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_LDAP_H 1 _ACEOF { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ldap_initialize in -lldap" >&5 $as_echo_n "checking for ldap_initialize in -lldap... " >&6; } if test "${ac_cv_lib_ldap_ldap_initialize+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lldap $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char ldap_initialize (); int main () { return ldap_initialize (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_ldap_ldap_initialize=yes else ac_cv_lib_ldap_ldap_initialize=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ldap_ldap_initialize" >&5 $as_echo "$ac_cv_lib_ldap_ldap_initialize" >&6; } if test "x$ac_cv_lib_ldap_ldap_initialize" = x""yes; then : ok_ldap=yes fi fi done fi if test "x$ok_ldap" = xyes ; then SERVER_LIBS="-lldap $SERVER_LIBS" $as_echo "#define HAVE_LDAP /**/" >>confdefs.h fi ac_fn_c_check_header_mongrel "$LINENO" "expat.h" "ac_cv_header_expat_h" "$ac_includes_default" if test "x$ac_cv_header_expat_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XML_ParserCreateNS in -lexpat" >&5 $as_echo_n "checking for XML_ParserCreateNS in -lexpat... " >&6; } if test "${ac_cv_lib_expat_XML_ParserCreateNS+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lexpat $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char XML_ParserCreateNS (); int main () { return XML_ParserCreateNS (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_expat_XML_ParserCreateNS=yes else ac_cv_lib_expat_XML_ParserCreateNS=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_expat_XML_ParserCreateNS" >&5 $as_echo "$ac_cv_lib_expat_XML_ParserCreateNS" >&6; } if test "x$ac_cv_lib_expat_XML_ParserCreateNS" = x""yes; then : SERVER_LIBS="-lexpat $SERVER_LIBS" else as_fn_error $? "The Expat XML parser was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi else as_fn_error $? "expat.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi ac_fn_c_check_header_mongrel "$LINENO" "curl/curl.h" "ac_cv_header_curl_curl_h" "$ac_includes_default" if test "x$ac_cv_header_curl_curl_h" = x""yes; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for curl_version in -lcurl" >&5 $as_echo_n "checking for curl_version in -lcurl... " >&6; } if test "${ac_cv_lib_curl_curl_version+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lcurl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char curl_version (); int main () { return curl_version (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_curl_curl_version=yes else ac_cv_lib_curl_curl_version=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_curl_curl_version" >&5 $as_echo "$ac_cv_lib_curl_curl_version" >&6; } if test "x$ac_cv_lib_curl_curl_version" = x""yes; then : SERVER_LIBS="-lcurl $SERVER_LIBS" else as_fn_error $? "libcurl was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi else as_fn_error $? "curl/curl.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start" "$LINENO" 5 fi ac_header_dirent=no for ac_hdr in dirent.h sys/ndir.h sys/dir.h ndir.h; do as_ac_Header=`$as_echo "ac_cv_header_dirent_$ac_hdr" | $as_tr_sh` { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_hdr that defines DIR" >&5 $as_echo_n "checking for $ac_hdr that defines DIR... " >&6; } if eval "test \"\${$as_ac_Header+set}\"" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include <$ac_hdr> int main () { if ((DIR *) 0) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$as_ac_Header=yes" else eval "$as_ac_Header=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$as_ac_Header { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_hdr" | $as_tr_cpp` 1 _ACEOF ac_header_dirent=$ac_hdr; break fi done # Two versions of opendir et al. are in -ldir and -lx on SCO Xenix. if test $ac_header_dirent = dirent.h; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing opendir" >&5 $as_echo_n "checking for library containing opendir... " >&6; } if test "${ac_cv_search_opendir+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char opendir (); int main () { return opendir (); ; return 0; } _ACEOF for ac_lib in '' dir; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_opendir=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if test "${ac_cv_search_opendir+set}" = set; then : break fi done if test "${ac_cv_search_opendir+set}" = set; then : else ac_cv_search_opendir=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_opendir" >&5 $as_echo "$ac_cv_search_opendir" >&6; } ac_res=$ac_cv_search_opendir if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" fi else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing opendir" >&5 $as_echo_n "checking for library containing opendir... " >&6; } if test "${ac_cv_search_opendir+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char opendir (); int main () { return opendir (); ; return 0; } _ACEOF for ac_lib in '' x; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_opendir=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if test "${ac_cv_search_opendir+set}" = set; then : break fi done if test "${ac_cv_search_opendir+set}" = set; then : else ac_cv_search_opendir=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_opendir" >&5 $as_echo "$ac_cv_search_opendir" >&6; } ac_res=$ac_cv_search_opendir if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if test "${ac_cv_header_stdc+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : : else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sys/wait.h that is POSIX.1 compatible" >&5 $as_echo_n "checking for sys/wait.h that is POSIX.1 compatible... " >&6; } if test "${ac_cv_header_sys_wait_h+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #ifndef WEXITSTATUS # define WEXITSTATUS(stat_val) ((unsigned int) (stat_val) >> 8) #endif #ifndef WIFEXITED # define WIFEXITED(stat_val) (((stat_val) & 255) == 0) #endif int main () { int s; wait (&s); s = WIFEXITED (s) ? WEXITSTATUS (s) : 1; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_sys_wait_h=yes else ac_cv_header_sys_wait_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_sys_wait_h" >&5 $as_echo "$ac_cv_header_sys_wait_h" >&6; } if test $ac_cv_header_sys_wait_h = yes; then $as_echo "#define HAVE_SYS_WAIT_H 1" >>confdefs.h fi for ac_header in dl.h fcntl.h limits.h malloc.h termios.h sys/ioctl.h sys/select.h sys/stat.h sys/time.h sys/prctl.h syslog.h unistd.h utmp.h utmpx.h paths.h db.h db4/db.h pthread.h netinet/in.h arpa/nameser.h arpa/nameser_compat.h syscall.h sys/syscall.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done ac_fn_c_check_header_compile "$LINENO" "resolv.h" "ac_cv_header_resolv_h" "#ifdef HAVE_SYS_TYPES_H #include #endif #ifdef HAVE_NETINET_IN_H #include #endif #ifdef HAVE_ARPA_NAMESER_H #include #endif " if test "x$ac_cv_header_resolv_h" = x""yes; then : $as_echo "#define HAVE_RESOLV_H /**/" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5 $as_echo_n "checking for an ANSI C-conforming const... " >&6; } if test "${ac_cv_c_const+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { /* FIXME: Include the comments suggested by Paul. */ #ifndef __cplusplus /* Ultrix mips cc rejects this. */ typedef int charset[2]; const charset cs; /* SunOS 4.1.1 cc rejects this. */ char const *const *pcpcc; char **ppc; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; pcpcc = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++pcpcc; ppc = (char**) pcpcc; pcpcc = (char const *const *) ppc; { /* SCO 3.2v4 cc rejects this. */ char *t; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; if (s) return 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; }; struct s *b; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; if (!foo) return 0; } return !cs[0] && !zero.x; #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_const=yes else ac_cv_c_const=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_const" >&5 $as_echo "$ac_cv_c_const" >&6; } if test $ac_cv_c_const = no; then $as_echo "#define const /**/" >>confdefs.h fi ac_fn_c_check_type "$LINENO" "pid_t" "ac_cv_type_pid_t" "$ac_includes_default" if test "x$ac_cv_type_pid_t" = x""yes; then : else cat >>confdefs.h <<_ACEOF #define pid_t int _ACEOF fi ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" if test "x$ac_cv_type_size_t" = x""yes; then : else cat >>confdefs.h <<_ACEOF #define size_t unsigned int _ACEOF fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether time.h and sys/time.h may both be included" >&5 $as_echo_n "checking whether time.h and sys/time.h may both be included... " >&6; } if test "${ac_cv_header_time+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include int main () { if ((struct tm *) 0) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_time=yes else ac_cv_header_time=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_time" >&5 $as_echo "$ac_cv_header_time" >&6; } if test $ac_cv_header_time = yes; then $as_echo "#define TIME_WITH_SYS_TIME 1" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether struct tm is in sys/time.h or time.h" >&5 $as_echo_n "checking whether struct tm is in sys/time.h or time.h... " >&6; } if test "${ac_cv_struct_tm+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { struct tm tm; int *p = &tm.tm_sec; return !p; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_struct_tm=time.h else ac_cv_struct_tm=sys/time.h fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_tm" >&5 $as_echo "$ac_cv_struct_tm" >&6; } if test $ac_cv_struct_tm = sys/time.h; then $as_echo "#define TM_IN_SYS_TIME 1" >>confdefs.h fi ac_fn_c_check_member "$LINENO" "struct tm" "tm_gmtoff" "ac_cv_member_struct_tm_tm_gmtoff" "#include #include <$ac_cv_struct_tm> " if test "x$ac_cv_member_struct_tm_tm_gmtoff" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_STRUCT_TM_TM_GMTOFF 1 _ACEOF fi if test "$ac_cv_member_struct_tm_tm_gmtoff" != yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for timezone" >&5 $as_echo_n "checking for timezone... " >&6; } if test "${ac_cv_var_timezone+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { printf("%ld", (long)timezone); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_var_timezone=yes else ac_cv_var_timezone=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_var_timezone" >&5 $as_echo "$ac_cv_var_timezone" >&6; } if test $ac_cv_var_timezone = yes; then $as_echo "#define HAVE_TIMEZONE 1" >>confdefs.h fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ut_type in struct utmp" >&5 $as_echo_n "checking for ut_type in struct utmp... " >&6; } if test "${ac_cv_struct_ut_type+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { struct utmp ut; ut.ut_type; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_struct_ut_type=yes else ac_cv_struct_ut_type=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_ut_type" >&5 $as_echo "$ac_cv_struct_ut_type" >&6; } if test $ac_cv_struct_ut_type = yes; then $as_echo "#define HAVE_UT_TYPE /**/" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for call semantics from getpwuid_r" >&5 $as_echo_n "checking for call semantics from getpwuid_r... " >&6; } if test "${ac_cv_call_getpwuid_r+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { struct passwd pw, *pwp; char pwbuf[64]; uid_t uid; getpwuid_r(uid, &pw, pwbuf, sizeof(pwbuf), &pwp); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_call_getpwuid_r=yes else ac_cv_call_getpwuid_r=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_call_getpwuid_r" >&5 $as_echo "$ac_cv_call_getpwuid_r" >&6; } if test $ac_cv_call_getpwuid_r = no; then $as_echo "#define SOLARIS_GETPWUID /**/" >>confdefs.h $as_echo "#define F_UID_T \"%ld\"" >>confdefs.h $as_echo "#define F_PID_T \"%ld\"" >>confdefs.h $as_echo "#define F_XPID_T \"%lx\"" >>confdefs.h else $as_echo "#define F_UID_T \"%d\"" >>confdefs.h $as_echo "#define F_PID_T \"%d\"" >>confdefs.h $as_echo "#define F_XPID_T \"%x\"" >>confdefs.h fi case "`uname -a`" in OpenBSD*) echo "we don't need to check for resolv on openbsd" ;; FreeBSD*) echo "we don't need to check for resolv on freeBSD" ;; *) test -f /usr/local/lib/libresolv.a && LDFLAGS="$LDFLAGS -L/usr/local/lib" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for res_query in -lresolv" >&5 $as_echo_n "checking for res_query in -lresolv... " >&6; } if test "${ac_cv_lib_resolv_res_query+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lresolv $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char res_query (); int main () { return res_query (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_resolv_res_query=yes else ac_cv_lib_resolv_res_query=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_resolv_res_query" >&5 $as_echo "$ac_cv_lib_resolv_res_query" >&6; } if test "x$ac_cv_lib_resolv_res_query" = x""yes; then : RESOLV="$RESOLV -lresolv" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for res_query in -lresolv (with resolv.h if present)" >&5 $as_echo_n "checking for res_query in -lresolv (with resolv.h if present)... " >&6; } saved_libs="$LIBS" LIBS="-lresolv $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef HAVE_RESOLV_H #include #endif int main () { res_query(0,0,0,0,0) ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } have_res_query=yes else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } as_fn_error $? "libresolv was not found. Citadel requires the resolver library." "$LINENO" 5 fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ut_host in struct utmp" >&5 $as_echo_n "checking for ut_host in struct utmp... " >&6; } if test "${ac_cv_struct_ut_host+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { struct utmp ut; ut.ut_host; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_struct_ut_host=yes else ac_cv_struct_ut_host=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_ut_host" >&5 $as_echo "$ac_cv_struct_ut_host" >&6; } if test $ac_cv_struct_ut_host = yes; then $as_echo "#define HAVE_UT_HOST /**/" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether getpgrp requires zero arguments" >&5 $as_echo_n "checking whether getpgrp requires zero arguments... " >&6; } if test "${ac_cv_func_getpgrp_void+set}" = set; then : $as_echo_n "(cached) " >&6 else # Use it with a single arg. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int main () { getpgrp (0); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_func_getpgrp_void=no else ac_cv_func_getpgrp_void=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_getpgrp_void" >&5 $as_echo "$ac_cv_func_getpgrp_void" >&6; } if test $ac_cv_func_getpgrp_void = yes; then $as_echo "#define GETPGRP_VOID 1" >>confdefs.h fi if test $ac_cv_c_compiler_gnu = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC needs -traditional" >&5 $as_echo_n "checking whether $CC needs -traditional... " >&6; } if test "${ac_cv_prog_gcc_traditional+set}" = set; then : $as_echo_n "(cached) " >&6 else ac_pattern="Autoconf.*'x'" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Autoconf TIOCGETP _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes else ac_cv_prog_gcc_traditional=no fi rm -f conftest* if test $ac_cv_prog_gcc_traditional = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include Autoconf TCGETA _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "$ac_pattern" >/dev/null 2>&1; then : ac_cv_prog_gcc_traditional=yes fi rm -f conftest* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_gcc_traditional" >&5 $as_echo "$ac_cv_prog_gcc_traditional" >&6; } if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking return type of signal handlers" >&5 $as_echo_n "checking return type of signal handlers... " >&6; } if test "${ac_cv_type_signal+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main () { return *(signal (0, 0)) (0) == 1; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_type_signal=int else ac_cv_type_signal=void fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_signal" >&5 $as_echo "$ac_cv_type_signal" >&6; } cat >>confdefs.h <<_ACEOF #define RETSIGTYPE $ac_cv_type_signal _ACEOF for ac_func in vprintf do : ac_fn_c_check_func "$LINENO" "vprintf" "ac_cv_func_vprintf" if test "x$ac_cv_func_vprintf" = x""yes; then : cat >>confdefs.h <<_ACEOF #define HAVE_VPRINTF 1 _ACEOF ac_fn_c_check_func "$LINENO" "_doprnt" "ac_cv_func__doprnt" if test "x$ac_cv_func__doprnt" = x""yes; then : $as_echo "#define HAVE_DOPRNT 1" >>confdefs.h fi fi done for ac_func in getspnam getutxline mkdir mkfifo mktime rmdir select socket strerror strcasecmp strncasecmp do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_cancel" >&5 $as_echo_n "checking for pthread_cancel... " >&6; } if test "${ac_cv_func_pthread_cancel+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { pthread_t thread; /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_pthread_cancel) || defined (__stub___pthread_cancel) choke me #else pthread_cancel(thread); #endif ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_func_pthread_cancel=yes else ac_cv_func_pthread_cancel=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_pthread_cancel" >&5 $as_echo "$ac_cv_func_pthread_cancel" >&6; } if test "$ac_cv_func_pthread_cancel" = yes; then $as_echo "#define HAVE_PTHREAD_CANCEL /**/" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_create" >&5 $as_echo_n "checking for pthread_create... " >&6; } if test "${ac_cv_func_pthread_create+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_pthread_cancel) || defined (__stub___pthread_cancel) choke me #else pthread_create(NULL, NULL, NULL, NULL); #endif ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_func_pthread_create=yes else ac_cv_func_pthread_create=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_pthread_create" >&5 $as_echo "$ac_cv_func_pthread_create" >&6; } if test "$ac_cv_func_pthread_create" = yes; then test "$DATABASE" && TARGETS="server utils" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking the weather" >&5 $as_echo_n "checking the weather... " >&6; } if test "${ac_cv_weather+set}" = set; then : $as_echo_n "(cached) " >&6 else sleep 1 echo $ECHO_N "opening your window... $ECHO_C" >&6 sleep 2 month=`date | cut -f 2 -d ' '` case $month in Dec | Jan | Feb) ac_cv_weather="it's cold!" ;; Mar | Apr) ac_cv_weather="it's wet!" ;; Jul | Aug) ac_cv_weather="it's hot!" ;; Oct | Nov) ac_cv_weather="it's cool" ;; May | Jun | Sep | *) ac_cv_weather="it's fine" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_weather" >&5 $as_echo "$ac_cv_weather" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking under the bed" >&5 $as_echo_n "checking under the bed... " >&6; } if test "${ac_cv_under_the_bed+set}" = set; then : $as_echo_n "(cached) " >&6 else number=`date | cut -c 19` case $number in 7) ac_cv_under_the_bed="lunatics and monsters found" ;; *) ac_cv_under_the_bed="dust bunnies found" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_under_the_bed" >&5 $as_echo "$ac_cv_under_the_bed" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct ucred" >&5 $as_echo_n "checking for struct ucred... " >&6; } if test "${mpd_cv_have_struct_ucred+set}" = set; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { struct ucred cred; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : mpd_cv_have_struct_ucred=yes else mpd_cv_have_struct_ucred=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test x$mpd_cv_have_struct_ucred = xno; then # glibc 2.8 forces _GNU_SOURCE on us cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _GNU_SOURCE #include int main () { struct ucred cred; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : mpd_cv_have_struct_ucred=yes else mpd_cv_have_struct_ucred=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test x$mpd_cv_have_struct_ucred = xyes; then # :( MPD_CFLAGS="$MPD_CFLAGS -D_GNU_SOURCE" fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $mpd_cv_have_struct_ucred" >&5 $as_echo "$mpd_cv_have_struct_ucred" >&6; } if test x$mpd_cv_have_struct_ucred = xyes; then $as_echo "#define HAVE_STRUCT_UCRED 1" >>confdefs.h fi ac_config_files="$ac_config_files Makefile" ac_config_files="$ac_config_files database_cleanup.sh po/citadel-setup/Makefile" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then test "x$cache_file" != "x/dev/null" && { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} cat confcache >$cache_file else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs : ${CONFIG_STATUS=./config.status} ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -p'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -p' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi if test -x / >/dev/null 2>&1; then as_test_x='test -x' else if ls -dL / >/dev/null 2>&1; then as_ls_L_option=L else as_ls_L_option= fi as_test_x=' eval sh -c '\'' if test -d "$1"; then test -d "$1/."; else case $1 in #( -*)set "./$1";; esac; case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( ???[sx]*):;;*)false;;esac;fi '\'' sh ' fi as_executable_p=$as_test_x # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by Citadel $as_me 902, which was generated by GNU Autoconf 2.67. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Report bugs to ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ Citadel config.status 902 configured by $0, generated by GNU Autoconf 2.67, with options \\"\$ac_cs_config\\" Copyright (C) 2010 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' INSTALL='$INSTALL' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X '$SHELL' '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "sysdep.h") CONFIG_HEADERS="$CONFIG_HEADERS sysdep.h" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "database_cleanup.sh") CONFIG_FILES="$CONFIG_FILES database_cleanup.sh" ;; "po/citadel-setup/Makefile") CONFIG_FILES="$CONFIG_FILES po/citadel-setup/Makefile" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5 ;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= trap 'exit_status=$? { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_t=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_t"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS " shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5 ;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5 ;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; esac _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 $as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t s&@INSTALL@&$ac_INSTALL&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } && { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$tmp/stdin" case $ac_file in -) cat "$tmp/out" && rm -f "$tmp/out";; *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" } >"$tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi if test -z "$DATABASE"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: No database driver was found. Please install Berkeley DB." >&5 $as_echo "$as_me: WARNING: No database driver was found. Please install Berkeley DB." >&2;} fi abs_srcdir="`cd $srcdir && pwd`" abs_builddir="`pwd`" if test "$abs_srcdir" != "$abs_builddir"; then ln -sf $abs_srcdir/include $abs_builddir ln -sf $abs_srcdir/Make_sources $abs_builddir ln -sf $abs_srcdir/Make_modules $abs_builddir for i in $abs_srcdir/*.h ; do if test "$abs_srcdir/sysdep.h" != "$i"; then ln -sf $i $abs_builddir fi done for d in `/bin/ls $abs_srcdir/modules/`; do (mkdir -p $abs_builddir/modules/$d) done if test -d "$abs_srcdir/user_modules/"; then for d in `/bin/ls $abs_srcdir/user_modules/`; do (mkdir -p $abs_builddir/user_modules/$d) done fi mkdir -p $abs_builddir/utils mkdir -p $abs_builddir/utillib fi if test -n "$srcdir"; then export srcdir=. fi echo ------------------------------------------------------------------------ echo 'LDAP support: ' $ok_ldap echo 'Character set conversion support:' $ok_iconv echo 'Boehm-Demers-Weiser support: ' $ok_gc echo echo 'Note: if you are not using Linux, make sure you are using GNU make' echo '(gmake) to compile Citadel.' echo citadel-902/configure.ac000066400000000000000000000725741271512031400152740ustar00rootroot00000000000000dnl Process this file with autoconf to produce a configure script. AC_PREREQ(2.52) AC_INIT([Citadel], [902], [http://www.citadel.org/]) AC_REVISION([$Revision: 5108 $]) AC_CONFIG_SRCDIR([citserver.c]) AC_CONFIG_HEADER(sysdep.h) AC_CONFIG_MACRO_DIR([m4]) AC_PREFIX_DEFAULT(/usr/local/citadel) if test "$prefix" = NONE; then AC_DEFINE_UNQUOTED(CTDLDIR, "$ac_default_prefix", [define this to the Citadel home directory]) ssl_dir="$ac_default_prefix/keys" localedir=$ac_default_prefix else AC_DEFINE_UNQUOTED(CTDLDIR, "$prefix", [define this to the Citadel home directory]) ssl_dir="$prefix/keys" localedir=$prefix fi dnl Make sure we see all GNU and Solaris extensions. AC_GNU_SOURCE dnl Checks for the Datadir AC_ARG_WITH(datadir, [ --with-datadir directory to store the databases under], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_DATA_DIR,[],[use alternate database location?]) AC_DEFINE_UNQUOTED(DATA_DIR, "$withval",[define, if the user suplied a data-directory to use.]) MAKE_DATA_DIR=$withval AC_SUBST(MAKE_DATA_DIR) fi ] ) dnl Checks for the helpDatadir AC_ARG_WITH(helpdir, [ --with-helpdir directory to store the helpfiles under], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_HELP_DIR,[],[use alternate database location?]) AC_DEFINE_UNQUOTED(HELP_DIR, "$withval",[define, if the user suplied a helpfile-directory to use.]) MAKE_HELP_DIR=$withval AC_SUBST(MAKE_HELP_DIR) fi ] ) dnl Checks for the Static Datadir AC_ARG_WITH(staticdatadir, [ --with-staticdatadir directory to store citadels system messages under], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_STATICDATA_DIR, [], [should we activate an alternate static text location?]) AC_DEFINE_UNQUOTED(STATICDATA_DIR, "$withval", [where do we put our static text data?]) MAKE_STATICDATA_DIR=$withval AC_SUBST(MAKE_STATICDATA_DIR) fi ] ) dnl Checks for the SSLdir dnl this is a bit different than the rest, dnl because of the citadel used to have a keys/ subdir. AC_ARG_WITH(ssldir, [ --with-ssldir directory to store the ssl certificates under], [ if test "x$withval" != "xno" ; then ssl_dir="$withval" fi AC_SUBST(MAKE_SSL_DIR) ] ) AC_DEFINE_UNQUOTED(SSL_DIR, "$ssl_dir", [were should we put our keys?]) dnl Checks for the spooldir AC_ARG_WITH(spooldir, [ --with-spooldir directory to keep queues under], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_SPOOL_DIR, [], [enable alternate spool dir?]) AC_DEFINE_UNQUOTED(SPOOL_DIR,"$withval", [where do we place our spool dirs?]) MAKE_SPOOL_DIR=$withval AC_SUBST(MAKE_SPOOL_DIR) fi ] ) dnl Checks for the Configdir AC_ARG_WITH(sysconfdir, [ --with-sysconfdir directory to store the configs under], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_ETC_DIR, [], [should we search our system config in an alternate place?]) AC_DEFINE_UNQUOTED(ETC_DIR, "$withval", [where to search our config files]) MAKE_ETC_DIR=$withval AC_SUBST(MAKE_ETC_DIR) fi ] ) dnl Checks for the Configdir AC_ARG_WITH(autosysconfdir, [ --with-autosysconfdir directory to store the automaticaly maintained configs under], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_AUTO_ETC_DIR, [], [should we search our automatic config in an alternate place?]) AC_DEFINE_UNQUOTED(AUTO_ETC_DIR, "$withval", [where to search our automatic config files]) MAKE_AUTO_ETC_DIR=$withval AC_SUBST(MAKE_AUTO_ETC_DIR) fi ] ) dnl Checks for where to put our utilities AC_ARG_WITH(utility-bindir, [ --with-utility-bindir directory where to find helper binaries], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_UTILBIN_DIR,[],[should we put our helper binaries to another location?]) AC_DEFINE_UNQUOTED(UTILBIN_DIR, "$withval", [were to put our helper programs]) MAKE_UTILBIN_DIR=$withval AC_SUBST(MAKE_UTILBIN_DIR) fi ] ) dnl Checks for the run-dir for the sockets AC_ARG_WITH(rundir, [ --with-rundir directory to place runtime files (UDS) to?], [ if test "x$withval" != "xno" ; then AC_DEFINE(HAVE_RUN_DIR, [], [should we put our non volatile files elsewhere?]) AC_DEFINE_UNQUOTED(RUN_DIR, "$withval", [define, where the config should go in unix style]) MAKE_RUN_DIR=$withval AC_SUBST(MAKE_RUN_DIR) fi ] ) dnl Checks for the Pseudo Random Generator sockets TODO: this keeps being default. AC_DEFINE_UNQUOTED(EGD_POOL, "/var/run/egd-pool", [place to keep our pseudo random generator file]) AC_ARG_WITH(egdpool, [ --with-egdpool the socket from Pseudo Random Generator, defaults to /var/run/egd-pool], [ if test "x$withval" != "xno" ; then AC_DEFINE_UNQUOTED(EGD_POOL, "$withval", [the socket from Pseudo Random Generator]) fi ] ) AC_ARG_WITH(docdir, [ --with-docdir where to install the documentation. default: /usr/local/citadel/], [ if test "x$withval" != "xno" ; then MAKE_DOC_DIR=$withval AC_SUBST(MAKE_DOC_DIR) fi ] ) dnl where to put the locale files AC_ARG_WITH(localedir, [ --with-localedir directory to put the locale files to], [ if test "x$withval" != "xno" ; then localedir=$withval fi ] ) AC_DEFINE_UNQUOTED(LOCALEDIR, "$localedir",[where to find our pot files]) LOCALEDIR=$localedir AC_SUBST(LOCALEDIR) dnl Checks for the zlib compression library. saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" AC_CHECK_HEADER(zlib.h, [AC_CHECK_LIB(z, zlibVersion, [ LIBS="-lz $LIBS $SERVER_LIBS" ], [ AC_MSG_ERROR(zlib was not found or is not usable. Please install zlib.) ] , )], [ AC_MSG_ERROR(zlib.h was not found or is not usable. Please install zlib.) ] ) CFLAGS="$saved_CFLAGS" dnl Here is the check for a libc integrated iconv AC_ARG_ENABLE(iconv, [ --disable-iconv do not use iconv charset conversion], ok_iconv=no, ok_iconv=yes) AC_MSG_CHECKING(Checking to see if your system supports iconv) AC_TRY_RUN([ #include main() { iconv_t ic = (iconv_t)(-1) ; ic = iconv_open("UTF-8", "us-ascii"); iconv_close(ic); exit(0); } ], [ ok_iconv=yes AC_MSG_RESULT([yes]) ], [ ok_iconv=no AC_MSG_RESULT([no]) ] ) dnl Check for iconv in external libiconv if test "$ok_iconv" = no; then AC_MSG_CHECKING(Checking for an external libiconv) OLD_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -liconv" AC_TRY_RUN([ #include main() { iconv_t ic = (iconv_t)(-1) ; ic = iconv_open("UTF-8", "us-ascii"); iconv_close(ic); } ], [ ok_iconv=yes AC_MSG_RESULT([yes]) ], [ ok_iconv=no LDFLAGS="$OLD_LDFLAGS" AC_MSG_RESULT([no]) ] ) fi if test "$ok_iconv" != "no"; then AC_MSG_RESULT(Citadel will be built with character set conversion.) AC_DEFINE(HAVE_ICONV,[],[whether we have iconv for charset conversion]) else AC_MSG_RESULT(Citadel will be built without character set conversion.) fi AC_CHECK_LIB(intl, libintl_bindtextdomain, [LDFLAGS="$LDFLAGS -lintl"]) AC_ARG_ENABLE(pie, [ --enable-pie build position-independent executables]) AC_ARG_WITH(pam, [ --with-pam use PAM if present (see PAM.txt before you try this)]) AC_ARG_WITH(kthread, [ --with-kthread use kernel threads (on FreeBSD) (not recommended yet)]) AC_ARG_WITH(db, [ --with-db@<:@=DIR@:>@ use Berkeley DB 3.x @<:@DIR=/usr/local/BerkeleyDB.3.@<:@123@:>@@:>@]) AC_ARG_WITH(ssl, [ --with-ssl=PATH Specify path to OpenSSL installation ], [ if test "x$withval" != "xno" ; then tryssldir=$withval fi ] ) AC_ARG_WITH(with_ldap, [ --with-ldap use OpenLDAP client library]) dnl AC_ARG_WITH(with_libdspam, [ --with-libdspam use libdspam mail spam scanning library]) AC_ARG_WITH(with_gc, [ --with-gc use the Boehm-Demers-Weiser garbage collection library]) if test "x$with_db" != xno -a "x$with_db" != xyes -a "$with_db"; then db_dir="$with_db" with_db=yes else test -f /usr/local/lib/libdb.a -o -f /usr/local/lib/libdb.so \ -o -f /usr/local/lib/libdb4.a -o -f /usr/local/lib/libdb4.so \ && db_dir=/usr/local test -d /usr/local/BerkeleyDB.4.1 && db_dir=/usr/local/BerkeleyDB.4.1 test -d /usr/local/BerkeleyDB.4.2 && db_dir=/usr/local/BerkeleyDB.4.2 test -d /usr/local/BerkeleyDB.4.3 && db_dir=/usr/local/BerkeleyDB.4.3 test -d /usr/local/BerkeleyDB.4.4 && db_dir=/usr/local/BerkeleyDB.4.4 test -d /usr/local/BerkeleyDB.4.5 && db_dir=/usr/local/BerkeleyDB.4.5 fi AC_CANONICAL_HOST PTHREAD_DEFS=-D_REENTRANT AC_MSG_CHECKING([how to compile with POSIX threads]) case "$host" in dnl BSDI 3.0 wants relocatable object modules instead of shared libs dnl for dlopen(), and has a wrapper script to link with shared libs. dnl Also has stupid non-reentrant gethostbyaddr() and friends. *-*-bsdi[123]*) test -z "$CC" -a -x /usr/bin/shlicc2 && CC=shlicc2 AC_DEFINE(HAVE_NONREENTRANT_NETDB,[], [define this if the OS has broken non-reentrant gethostby{name,addr}() ]) AC_MSG_RESULT([Old BSDI]) ;; *-*-bsdi*) AC_DEFINE(HAVE_NONREENTRANT_NETDB, [], [define this if the OS has broken non-reentrant gethostby{name,addr}() ]) AC_MSG_RESULT([BSD/OS]) ;; dnl Curses support on Mac OS X is kind of screwed at the moment. dnl TCP buffering isn't ideal under OS X. This define should also be dnl checked in other cases of OS X-Linux differences. *-*-darwin*) AC_DEFINE(HAVE_DARWIN, [], [define if using OS X/Darwin]) AC_MSG_RESULT([Mac OS X]) ;; dnl Digital Unix has an odd way to build for pthreads, and we can't dnl build pthreads programs with gcc due to header problems. alpha*-dec-osf*) test -z "$CC" && CC=cc LIBS="-lpthread -lexc $LIBS" check_pthread=no AC_MSG_RESULT([Tru64 or Digital UNIX]) ;; dnl FreeBSD is similar to Digital UNIX with DEC C, which has a -pthread flag: *-*-freebsd*) if test "$with_kthread" = yes; then LIBS="-kthread $LIBS" else LIBS="-pthread $LIBS" fi check_pthread=no PTHREAD_DEFS=-D_THREAD_SAFE AC_MSG_RESULT([FreeBSD]) ;; *-*-openbsd*) LIBS="-pthread $LIBS" check_pthread=no PTHREAD_DEFS=-pthread AC_MSG_RESULT([OpenBSD]) ;; *-*-linux*) PTHREAD_DEFS="-D_REENTRANT -pthread" AC_MSG_RESULT([Linux]) ;; *-*-solaris*) PTHREAD_DEFS="-D_REENTRANT -D_PTHREADS" AC_MSG_RESULT([Solaris]) ;; *-*-cygwin*) SERVER_LDFLAGS="-Wl,-subsystem,windows" AC_MSG_RESULT([Cygwin]) ;; *) AC_MSG_RESULT([default]) ;; esac dnl DEFS="$DEFS $PTHREAD_DEFS" dnl Checks for programs. AC_PROG_CC dnl Set up system-dependent compiler flags. if test "$GCC" = yes; then if test "$CC" = icc; then CFLAGS="$CFLAGS -w1" else case "$host" in *-*-solaris*|alpha*-dec-osf*) CFLAGS="$CFLAGS -Wall -Wcast-qual -Wcast-align -Wno-char-subscripts $PTHREAD_DEFS" ;; *) CFLAGS="$CFLAGS -Wall -Wcast-qual -Wcast-align -Wstrict-prototypes -Wno-strict-aliasing $PTHREAD_DEFS" ;; esac fi fi if test "x$enable_pie" = xyes; then save_CFLAGS="$CFLAGS" save_LDFLAGS="$LDFLAGS" CFLAGS="$CFLAGS -fpie" LDFLAGS="$LDFLAGS -pie -fpie" AC_CACHE_CHECK([whether compiler accepts -pie -fpie], ac_cv_pie_fpie, [AC_TRY_LINK([], [], ac_cv_pie_fpie=yes, ac_cv_pie_fpie=no)]) if test $ac_cv_pie_fpie = no; then CFLAGS="$save_CFLAGS" LDFLAGS="$save_LDFLAGS" fi fi AC_MSG_CHECKING([how to create dependancy checks]) if test -n "`$CC -V 2>&1 |grep Sun`"; then DEPEND_FLAG=-xM; else DEPEND_FLAG=-M fi AC_SUBST(DEPEND_FLAG) AC_PROG_INSTALL AC_PROG_YACC AC_PATH_PROG(DIFF,diff) AC_PATH_PROG(PATCH,patch) missing_dir=`cd $ac_aux_dir && pwd` AM_MISSING_PROG(AUTOCONF, autoconf, $missing_dir) AM_MISSING_PROG(ACLOCAL, aclocal, $missing_dir) dnl Checks for system services. dnl Check the size of various builtin types; see typesize.h (error) AC_CHECK_SIZEOF(char, 0) AC_CHECK_SIZEOF(short, 0) AC_CHECK_SIZEOF(int, 0) AC_CHECK_SIZEOF(long, 0) AC_CHECK_SIZEOF(size_t, 0) AC_CHECK_SIZEOF(loff_t, 0) dnl AC_CHECK_SIZEOF(long long, 0) dnl Checks for libraries. dnl We want to test for the following in libc before checking for their dnl respective libraries, because some systems (like Irix) have both, and the dnl non-libc versions may be broken. AC_CHECK_FUNCS(crypt gethostbyname connect flock getpwnam_r getpwuid_r getloadavg) AC_CHECK_FUNCS(strftime_l uselocale gettext) if test "$ok_nls" != "no"; then AC_CHECK_PROG(ok_xgettext, xgettext, yes, no) ok_nls=$ok_xgettext fi if test "$ok_nls" != "no"; then AC_CHECK_PROG(ok_msgmerge, msgmerge, yes, no) ok_nls=$ok_msgmerge fi if test "$ok_nls" != "no"; then AC_CHECK_PROG(ok_msgfmt, msgfmt, yes, no) ok_nls=$ok_msgfmt fi if test "$ok_nls" != "no"; then AC_MSG_RESULT(citadel will be built with national language support.) AC_DEFINE(ENABLE_NLS, [], [whether we have NLS support]) PROG_SUBDIRS="$PROG_SUBDIRS po/citadel-setup" else AC_MSG_RESULT(citadel will be built without national language support.) fi dnl disable backtrace if we don't want it. AC_ARG_WITH(backtrace, [ --with-backtrace enable backtrace dumps in the syslog], [ if test "x$withval" != "xno" ; then CFLAGS="$CFLAGS -rdynamic " LDFLAGS="$LDFLAGS -rdynamic " SERVER_LDFLAGS="$SERVER_LDFLAGS -rdynamic " AC_CHECK_FUNCS(backtrace) fi ] ) dnl disable backtrace if we don't want it. AC_ARG_WITH(gprof, [ --with-gprof enable profiling], [ if test "x$withval" != "xno" ; then CFLAGS="$CFLAGS -pg " LDFLAGS="$LDFLAGS -pg " SERVER_LDFLAGS="$SERVER_LDFLAGS -pg " fi ] ) if test "$ac_cv_func_gethostbyname" = no; then AC_CHECK_LIB(nsl, gethostbyname) fi if test "$ac_cv_func_connect" = no; then AC_CHECK_LIB(socket, connect) fi dnl Check for Solaris realtime support AC_CHECK_LIB(rt, sched_yield) dnl Determine the system's authentication capabilities. dnl We currently support PAM, standard getpwnam(), and getspnam() dnl (Linux shadow passwords) save_LIBS=$LIBS AC_CHECK_LIB(pam, pam_start, [chkpwd_LIBS="-lpam $chkpwd_LIBS" LIBS="-lpam $LIBS"]) AC_CHECK_FUNCS(pam_start) test "$enable_chkpwd" != no && LIBS=$save_LIBS if test "$ac_cv_func_pam_start" = no -o "$with_pam" != yes; then save_LIBS=$LIBS AC_SEARCH_LIBS(getspnam, shadow, [ if test "$ac_cv_search_getspnam" = -lshadow; then chkpwd_LIBS="-lshadow $chkpwd_LIBS" fi]) test "$enable_chkpwd" != no && LIBS=$save_LIBS if test "$ac_cv_func_crypt" = no; then AC_CHECK_LIB(crypt, crypt, [ chkpwd_LIBS="-lcrypt $chkpwd_LIBS" test "$enable_chkpwd" = no && \ LIBS="-lcrypt $LIBS"]) fi fi AC_CHECK_FUNCS(vw_printw wcolor_set resizeterm wresize) dnl Check for libpthread(s) if we're not using Digital UNIX or FreeBSD. (On dnl which the -pthread flag takes care of this.) if test "$check_pthread" != no; then AC_CHECK_LIB(pthread, pthread_create) AC_CHECK_LIB(pthreads, pthread_create) fi test -d /usr/kerberos/include && CPPFLAGS="$CPPFLAGS -I/usr/kerberos/include" dnl Checks for the libical iCalendar library. AC_CHECK_HEADER(libical/ical.h, [AC_CHECK_LIB(ical, icaltimezone_set_tzid_prefix, [ SERVER_LIBS="-lical $SERVER_LIBS" ], [ AC_MSG_ERROR(libical was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] , )], [ AC_MSG_ERROR(libical/ical.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] ) dnl Checks for the libsieve mailbox sorting library. AC_CHECK_HEADER(sieve2.h, [AC_CHECK_LIB(sieve, sieve2_license, [ SERVER_LIBS="-lsieve $SERVER_LIBS" ], [ AC_MSG_ERROR(libsieve was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] , )], [ AC_MSG_ERROR(sieve2.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] ) saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" dnl Check for libcitadel AC_CHECK_HEADER(libcitadel.h, [AC_CHECK_LIB(citadel, libcitadel_version_string, [ LIBS="-lcitadel $LIBS $SERVER_LIBS" chkpwd_LIBS="-lcitadel $chkpwd_LIBS" ], [ AC_MSG_ERROR(libcitadel was not found or is not usable. Please install libcitadel.) ] , )], [ AC_MSG_ERROR(libcitadel.h was not found or is not usable. Please install libcitadel.) ] ) CFLAGS="$saved_CFLAGS" AC_CHECK_LIB(cares, ares_parse_mx_reply, [ C_ARES_LIBS=-lcares AC_DEFINE(HAVE_C_ARES, 1, [Define to use c-ares library]) have_good_c_ares=yes ],, $SOCKET_LIBS $NSL_LIBS ) saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" dnl Check for c-ares AC_CHECK_HEADER(ares.h, [AC_CHECK_LIB(cares, ares_parse_mx_reply, [ LIBS="-lcares $LIBS $SERVER_LIBS" ], [ AC_MSG_ERROR(libc-ares was not found or is not usable. Please install libc-ares.) ] )], [ AC_MSG_ERROR(ares.h was not found or is not usable. Please install libc-ares.) ] ) CFLAGS="$saved_CFLAGS" saved_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS $SERVER_LIBS" dnl Check for libev AC_CHECK_HEADER(ev.h, [AC_TRY_COMPILE([#include #include ], [ ev_cleanup abort_by_shutdown; struct ev_loop *event_base; ev_cleanup_start(event_base, &abort_by_shutdown); ], [ LIBS="-lev -lm $LIBS $SERVER_LIBS" ], [ AC_MSG_ERROR(libev was not found or is not usable. Please install libev.) ]) ], [ AC_MSG_ERROR(ev.h was not found or is not usable. Please install libev.) ] ) CFLAGS="$saved_CFLAGS" # The big search for OpenSSL if test "$with_ssl" != "no"; then saved_LIBS="$LIBS" saved_LDFLAGS="$LDFLAGS" saved_CFLAGS="$CFLAGS" if test "x$prefix" != "xNONE"; then tryssldir="$tryssldir $prefix" fi AC_CACHE_CHECK([for OpenSSL], ac_cv_openssldir, [ for ssldir in $tryssldir "" /usr /usr/local/openssl /usr/lib/openssl /usr/local/ssl /usr/lib/ssl /usr/local /usr/pkg /opt /opt/openssl ; do CFLAGS="$saved_CFLAGS" LDFLAGS="$saved_LDFLAGS" LIBS="$saved_LIBS -lssl -lcrypto" # Skip directories if they don't exist if test ! -z "$ssldir" -a ! -d "$ssldir" ; then continue; fi if test ! -z "$ssldir" -a "x$ssldir" != "x/usr"; then # Try to use $ssldir/lib if it exists, otherwise # $ssldir if test -d "$ssldir/lib" ; then LDFLAGS="-L$ssldir/lib $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir/lib $LDFLAGS" fi else LDFLAGS="-L$ssldir $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir $LDFLAGS" fi fi # Try to use $ssldir/include if it exists, otherwise # $ssldir if test -d "$ssldir/include" ; then CFLAGS="-I$ssldir/include $saved_CFLAGS" else CFLAGS="-I$ssldir $saved_CFLAGS" fi fi # Basic test to check for compatible version and correct linking # *does not* test for RSA - that comes later. AC_TRY_RUN( [ #include #include int main(void) { char a[2048]; memset(a, 0, sizeof(a)); RAND_add(a, sizeof(a), sizeof(a)); return(RAND_status() <= 0); } ], [ found_crypto=1 break; ], [] ) if test ! -z "$found_crypto" ; then break; fi done if test -z "$ssldir" ; then ssldir="(system)" fi if test ! -z "$found_crypto" ; then ac_cv_openssldir=$ssldir else ac_cv_openssldir="no" fi ]) LIBS="$saved_LIBS" LDFLAGS="$saved_LDFLAGS" CFLAGS="$saved_CFLAGS" if test "x$ac_cv_openssldir" != "xno" ; then AC_DEFINE(HAVE_OPENSSL, [], [Define if you have OpenSSL.]) LIBS="-lssl -lcrypto $LIBS" dnl Need to recover ssldir - test above runs in subshell ssldir=$ac_cv_openssldir if test ! -z "$ssldir" -a "x$ssldir" != "x/usr" -a "x$ssldir" != "x(system)"; then # Try to use $ssldir/lib if it exists, otherwise # $ssldir if test -d "$ssldir/lib" ; then LDFLAGS="-L$ssldir/lib $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir/lib $LDFLAGS" fi else LDFLAGS="-L$ssldir $saved_LDFLAGS" if test ! -z "$need_dash_r" ; then LDFLAGS="-R$ssldir $LDFLAGS" fi fi # Try to use $ssldir/include if it exists, otherwise # $ssldir if test -d "$ssldir/include" ; then CFLAGS="-I$ssldir/include $saved_CFLAGS" else CFLAGS="-I$ssldir $saved_CFLAGS" fi fi fi fi if test "x$with_db" != xno; then test "$db_dir" && LDFLAGS="$LDFLAGS -L$db_dir/lib" dblib="" if test -d "$db_dir/include/db4"; then CPPFLAGS="$CPPFLAGS -I$db_dir/include/db4" dblib="db4" elif test "$db_dir"; then CPPFLAGS="$CPPFLAGS -I$db_dir/include" elif test -d /usr/include/db4; then CPPFLAGS="$CPPFLAGS -I/usr/include/db4" dblib="db4" fi AC_CHECK_DB([db db-4.1 db-4 db4], [ DATABASE=database.c ], AC_MSG_ERROR([[Can not locate a suitable Berkeley DB library. Use --with-db=PATH to specify the path]])) fi dnl Checks for the OpenLDAP client library. if test "x$with_ldap" != xno ; then AC_CHECK_HEADERS(ldap.h, [AC_CHECK_LIB(ldap, ldap_initialize, [ok_ldap=yes],, )]) fi if test "x$ok_ldap" = xyes ; then SERVER_LIBS="-lldap $SERVER_LIBS" AC_DEFINE(HAVE_LDAP, [], [define this if you have OpenLDAP client available]) fi dnl Checks for the libdspam mail spam scanning library. dnl if test "x$with_libdspam" != xno ; then dnl AC_CHECK_HEADERS(dspam/libdspam.h, dnl [AC_CHECK_LIB(dspam, dspam_init, dnl [ok_libdspam=yes],, dnl )]) dnl fi dnl dnl if test "x$ok_libdspam" = xyes ; then dnl SERVER_LIBS="-ldspam $SERVER_LIBS" dnl AC_DEFINE(HAVE_LIBDSPAM, [], [(unfinished) define this if you have the libdspam mail spam scanning library available]) dnl fi dnl Checks for the Expat XML parser. AC_CHECK_HEADER(expat.h, [AC_CHECK_LIB(expat, XML_ParserCreateNS, [ SERVER_LIBS="-lexpat $SERVER_LIBS" ], [ AC_MSG_ERROR(The Expat XML parser was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] , )], [ AC_MSG_ERROR(expat.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] ) dnl Checks for libcurl. AC_CHECK_HEADER(curl/curl.h, [AC_CHECK_LIB(curl, curl_version, [ SERVER_LIBS="-lcurl $SERVER_LIBS" ], [ AC_MSG_ERROR(libcurl was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] , )], [ AC_MSG_ERROR(curl/curl.h was not found and is required. More info: http://www.citadel.org/doku.php/installation:start) ] ) dnl Checks for header files. AC_HEADER_DIRENT AC_HEADER_STDC AC_HEADER_SYS_WAIT dnl dnl TODO: for the DB header checks, we should check whether the headers dnl define db_env_create, somehow dnl AC_CHECK_HEADERS(dl.h fcntl.h limits.h malloc.h termios.h sys/ioctl.h sys/select.h sys/stat.h sys/time.h sys/prctl.h syslog.h unistd.h utmp.h utmpx.h paths.h db.h db4/db.h pthread.h netinet/in.h arpa/nameser.h arpa/nameser_compat.h syscall.h sys/syscall.h) AC_CHECK_HEADER(resolv.h,AC_DEFINE(HAVE_RESOLV_H, [], [define this if you have the resolv.h header file.]),, [#ifdef HAVE_SYS_TYPES_H #include #endif #ifdef HAVE_NETINET_IN_H #include #endif #ifdef HAVE_ARPA_NAMESER_H #include #endif]) dnl Checks for typedefs, structures, and compiler characteristics. AC_C_CONST AC_TYPE_PID_T AC_TYPE_SIZE_T AC_HEADER_TIME dnl defined in acinclude.m4: CIT_STRUCT_TM AC_CACHE_CHECK([for ut_type in struct utmp], ac_cv_struct_ut_type, [AC_TRY_COMPILE([#include #include ], [struct utmp ut; ut.ut_type;], ac_cv_struct_ut_type=yes, ac_cv_struct_ut_type=no)]) if test $ac_cv_struct_ut_type = yes; then AC_DEFINE(HAVE_UT_TYPE, [], [define this if struct utmp has an ut_type member]) fi AC_CACHE_CHECK( [for call semantics from getpwuid_r], ac_cv_call_getpwuid_r, [AC_TRY_COMPILE([#include #include ], [ struct passwd pw, *pwp; char pwbuf[64]; uid_t uid; getpwuid_r(uid, &pw, pwbuf, sizeof(pwbuf), &pwp); ], ac_cv_call_getpwuid_r=yes, ac_cv_call_getpwuid_r=no) ]) if test $ac_cv_call_getpwuid_r = no; then AC_DEFINE(SOLARIS_GETPWUID,[],[do we need to use solaris call syntax?]) AC_DEFINE(F_UID_T, "%ld", [whats the matching format string for uid_t?]) AC_DEFINE(F_PID_T, "%ld", [whats the matching format string for pid_t?]) AC_DEFINE(F_XPID_T, "%lx", [whats the matching format string for xpid_t?]) else AC_DEFINE(F_UID_T, "%d", [whats the matching format string for uid_t?]) AC_DEFINE(F_PID_T, "%d", [whats the matching format string for pid_t?]) AC_DEFINE(F_XPID_T, "%x", [whats the matching format string for xpid_t?]) fi dnl Our own happy little check for the resolver library. case "`uname -a`" in OpenBSD*) echo "we don't need to check for resolv on openbsd" ;; FreeBSD*) echo "we don't need to check for resolv on freeBSD" ;; *) test -f /usr/local/lib/libresolv.a && LDFLAGS="$LDFLAGS -L/usr/local/lib" AC_CHECK_LIB(resolv, res_query, RESOLV="$RESOLV -lresolv", [dnl Have to include resolv.h as res_query is sometimes defined as a macro AC_MSG_CHECKING([for res_query in -lresolv (with resolv.h if present)]) saved_libs="$LIBS" LIBS="-lresolv $LIBS" AC_TRY_LINK([ #ifdef HAVE_RESOLV_H #include #endif], [res_query(0,0,0,0,0)], [AC_MSG_RESULT(yes) have_res_query=yes], [AC_MSG_RESULT(no) AC_MSG_ERROR(libresolv was not found. Citadel requires the resolver library.) ]) ] ) ;; esac AC_CACHE_CHECK([for ut_host in struct utmp], ac_cv_struct_ut_host, [AC_TRY_COMPILE([#include #include ], [struct utmp ut; ut.ut_host;], ac_cv_struct_ut_host=yes, ac_cv_struct_ut_host=no)]) if test $ac_cv_struct_ut_host = yes; then AC_DEFINE(HAVE_UT_HOST, [], [define this if struct utmp has an ut_host member]) fi dnl Checks for library functions. AC_FUNC_GETPGRP AC_PROG_GCC_TRADITIONAL AC_TYPE_SIGNAL AC_FUNC_VPRINTF AC_CHECK_FUNCS(getspnam getutxline mkdir mkfifo mktime rmdir select socket strerror strcasecmp strncasecmp) dnl Now check for pthreads dnl On some platforms, AC_CHECK_FUNC[S] doesn't work for pthreads programs; dnl we need to include pthread.h AC_CACHE_CHECK([for pthread_cancel], ac_cv_func_pthread_cancel, [AC_TRY_LINK([#include ], [ pthread_t thread; /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_pthread_cancel) || defined (__stub___pthread_cancel) choke me #else pthread_cancel(thread); #endif], ac_cv_func_pthread_cancel=yes, ac_cv_func_pthread_cancel=no)]) if test "$ac_cv_func_pthread_cancel" = yes; then AC_DEFINE(HAVE_PTHREAD_CANCEL, [], [define this if you have the pthread_cancel() function]) fi AC_CACHE_CHECK([for pthread_create], ac_cv_func_pthread_create, [AC_TRY_LINK([#include ], [ /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_pthread_cancel) || defined (__stub___pthread_cancel) choke me #else pthread_create(NULL, NULL, NULL, NULL); #endif], ac_cv_func_pthread_create=yes, ac_cv_func_pthread_create=no)]) if test "$ac_cv_func_pthread_create" = yes; then test "$DATABASE" && TARGETS="server utils" fi AC_CACHE_CHECK([the weather], ac_cv_weather, [ sleep 1 echo $ECHO_N "opening your window... $ECHO_C" >&6 sleep 2 month=`date | cut -f 2 -d ' '` case $month in Dec | Jan | Feb) ac_cv_weather="it's cold!" ;; Mar | Apr) ac_cv_weather="it's wet!" ;; Jul | Aug) ac_cv_weather="it's hot!" ;; Oct | Nov) ac_cv_weather="it's cool" ;; May | Jun | Sep | *) ac_cv_weather="it's fine" ;; esac ]) AC_CACHE_CHECK([under the bed], ac_cv_under_the_bed, [ number=`date | cut -c 19` case $number in 7) ac_cv_under_the_bed="lunatics and monsters found" ;; *) ac_cv_under_the_bed="dust bunnies found" ;; esac ]) STRUCT_UCRED dnl Done! Now write the Makefile and sysdep.h AC_SUBST(RESOLV) AC_SUBST(chkpwd_LIBS) AC_SUBST(TARGETS) AC_SUBST(DATABASE) AC_SUBST(SERVER_LDFLAGS) AC_SUBST(SERVER_LIBS) AC_SUBST(SETUP_LIBS) AC_SUBST(DIFF) AC_SUBST(PATCH) AC_CONFIG_FILES([Makefile]) AC_OUTPUT(database_cleanup.sh po/citadel-setup/Makefile) if test -z "$DATABASE"; then AC_MSG_WARN([No database driver was found. Please install Berkeley DB.]) fi abs_srcdir="`cd $srcdir && pwd`" abs_builddir="`pwd`" if test "$abs_srcdir" != "$abs_builddir"; then ln -sf $abs_srcdir/include $abs_builddir ln -sf $abs_srcdir/Make_sources $abs_builddir ln -sf $abs_srcdir/Make_modules $abs_builddir for i in $abs_srcdir/*.h ; do if test "$abs_srcdir/sysdep.h" != "$i"; then ln -sf $i $abs_builddir fi done for d in `/bin/ls $abs_srcdir/modules/`; do (mkdir -p $abs_builddir/modules/$d) done if test -d "$abs_srcdir/user_modules/"; then for d in `/bin/ls $abs_srcdir/user_modules/`; do (mkdir -p $abs_builddir/user_modules/$d) done fi mkdir -p $abs_builddir/utils mkdir -p $abs_builddir/utillib fi if test -n "$srcdir"; then export srcdir=. fi echo ------------------------------------------------------------------------ echo 'LDAP support: ' $ok_ldap echo 'Character set conversion support:' $ok_iconv echo 'Boehm-Demers-Weiser support: ' $ok_gc dnl echo 'DSpam Scanning support: ' $ok_libdspam echo echo 'Note: if you are not using Linux, make sure you are using GNU make' echo '(gmake) to compile Citadel.' echo citadel-902/context.c000066400000000000000000000457541271512031400146360ustar00rootroot00000000000000/* * Citadel context management stuff. * Here's where we (hopefully) have all the code that manipulates contexts. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include "ctdl_module.h" #include "serv_extensions.h" #include "ecrash.h" #include "citserver.h" #include "user_ops.h" #include "locate_host.h" #include "context.h" #include "control.h" #include "config.h" int DebugSession = 0; pthread_key_t MyConKey; /* TSD key for MyContext() */ CitContext masterCC; CitContext *ContextList = NULL; time_t last_purge = 0; /* Last dead session purge */ int num_sessions = 0; /* Current number of sessions */ int next_pid = 0; /* Flag for single user mode */ static int want_single_user = 0; /* Try to go single user */ int CtdlTrySingleUser(void) { int can_do = 0; begin_critical_section(S_SINGLE_USER); if (want_single_user) can_do = 0; else { can_do = 1; want_single_user = 1; } end_critical_section(S_SINGLE_USER); return can_do; } void CtdlEndSingleUser(void) { begin_critical_section(S_SINGLE_USER); want_single_user = 0; end_critical_section(S_SINGLE_USER); } int CtdlWantSingleUser(void) { return want_single_user; } int CtdlIsSingleUser(void) { if (want_single_user) { /* check for only one context here */ if (num_sessions == 1) return TRUE; } return FALSE; } /* * Locate a context by its session number and terminate it if the user is able. * User can NOT terminate their current session. * User CAN terminate any other session that has them logged in. * Aide CAN terminate any session except the current one. */ int CtdlTerminateOtherSession (int session_num) { struct CitContext *CCC = CC; int ret = 0; CitContext *ccptr; int aide; if (session_num == CCC->cs_pid) return TERM_NOTALLOWED; aide = ( (CCC->user.axlevel >= AxAideU) || (CCC->internal_pgm) ) ; CONM_syslog(LOG_DEBUG, "Locating session to kill\n"); begin_critical_section(S_SESSION_TABLE); for (ccptr = ContextList; ccptr != NULL; ccptr = ccptr->next) { if (session_num == ccptr->cs_pid) { ret |= TERM_FOUND; if ((ccptr->user.usernum == CCC->user.usernum) || aide) { ret |= TERM_ALLOWED; } break; } } if (((ret & TERM_FOUND) != 0) && ((ret & TERM_ALLOWED) != 0)) { if (ccptr->IO != NULL) { AsyncIO *IO = ccptr->IO; end_critical_section(S_SESSION_TABLE); KillAsyncIOContext(IO); } else { if (ccptr->user.usernum == CCC->user.usernum) ccptr->kill_me = KILLME_ADMIN_TERMINATE; else ccptr->kill_me = KILLME_IDLE; end_critical_section(S_SESSION_TABLE); } } else end_critical_section(S_SESSION_TABLE); return ret; } /* * Check to see if the user who we just sent mail to is logged in. If yes, * bump the 'new mail' counter for their session. That enables them to * receive a new mail notification without having to hit the database. */ void BumpNewMailCounter(long which_user) { CtdlBumpNewMailCounter(which_user); } void CtdlBumpNewMailCounter(long which_user) { CitContext *ptr; begin_critical_section(S_SESSION_TABLE); for (ptr = ContextList; ptr != NULL; ptr = ptr->next) { if (ptr->user.usernum == which_user) { ptr->newmail += 1; } } end_critical_section(S_SESSION_TABLE); } /* * Check to see if a user is currently logged in * Take care with what you do as a result of this test. * The user may not have been logged in when this function was called BUT * because of threading the user might be logged in before you test the result. */ int CtdlIsUserLoggedIn (char *user_name) { CitContext *cptr; int ret = 0; begin_critical_section (S_SESSION_TABLE); for (cptr = ContextList; cptr != NULL; cptr = cptr->next) { if (!strcasecmp(cptr->user.fullname, user_name)) { ret = 1; break; } } end_critical_section(S_SESSION_TABLE); return ret; } /* * Check to see if a user is currently logged in. * Basically same as CtdlIsUserLoggedIn() but uses the user number instead. * Take care with what you do as a result of this test. * The user may not have been logged in when this function was called BUT * because of threading the user might be logged in before you test the result. */ int CtdlIsUserLoggedInByNum (long usernum) { CitContext *cptr; int ret = 0; begin_critical_section(S_SESSION_TABLE); for (cptr = ContextList; cptr != NULL; cptr = cptr->next) { if (cptr->user.usernum == usernum) { ret = 1; } } end_critical_section(S_SESSION_TABLE); return ret; } /* * Return a pointer to the CitContext structure bound to the thread which * called this function. If there's no such binding (for example, if it's * called by the housekeeper thread) then a generic 'master' CC is returned. * * This function is used *VERY* frequently and must be kept small. */ CitContext *MyContext(void) { register CitContext *c; return ((c = (CitContext *) pthread_getspecific(MyConKey), c == NULL) ? &masterCC : c); } /* * Terminate idle sessions. This function pounds through the session table * comparing the current time to each session's time-of-last-command. If an * idle session is found it is terminated, then the search restarts at the * beginning because the pointer to our place in the list becomes invalid. */ void terminate_idle_sessions(void) { CitContext *ccptr; time_t now; int killed = 0; int longrunners = 0; now = time(NULL); begin_critical_section(S_SESSION_TABLE); for (ccptr = ContextList; ccptr != NULL; ccptr = ccptr->next) { if ( (ccptr != CC) && (CtdlGetConfigLong("c_sleeping") > 0) && (now - (ccptr->lastcmd) > CtdlGetConfigLong("c_sleeping")) ) { if (!ccptr->dont_term) { ccptr->kill_me = KILLME_IDLE; ++killed; } else { ++longrunners; } } } end_critical_section(S_SESSION_TABLE); if (killed > 0) CON_syslog(LOG_INFO, "Scheduled %d idle sessions for termination\n", killed); if (longrunners > 0) CON_syslog(LOG_INFO, "Didn't terminate %d protected idle sessions", longrunners); } /* * During shutdown, close the sockets of any sessions still connected. */ void terminate_all_sessions(void) { CitContext *ccptr; int killed = 0; begin_critical_section(S_SESSION_TABLE); for (ccptr = ContextList; ccptr != NULL; ccptr = ccptr->next) { if (ccptr->client_socket != -1) { if (ccptr->IO != NULL) { CON_syslog(LOG_INFO, "terminate_all_sessions() is murdering %s IO[%ld]CC[%d]", ccptr->curr_user, ccptr->IO->ID, ccptr->cs_pid); } else { CON_syslog(LOG_INFO, "terminate_all_sessions() is murdering %s CC[%d]", ccptr->curr_user, ccptr->cs_pid); } close(ccptr->client_socket); ccptr->client_socket = -1; killed++; } } end_critical_section(S_SESSION_TABLE); if (killed > 0) { CON_syslog(LOG_INFO, "Flushed %d stuck sessions\n", killed); } } /* * Terminate a session. */ void RemoveContext (CitContext *con) { const char *c; if (con == NULL) { CONM_syslog(LOG_ERR, "WARNING: RemoveContext() called with NULL!"); return; } c = con->ServiceName; if (c == NULL) { c = "WTF?"; } CON_syslog(LOG_DEBUG, "RemoveContext(%s) session %d", c, con->cs_pid); /// cit_backtrace(); /* Run any cleanup routines registered by loadable modules. * Note: We have to "become_session()" because the cleanup functions * might make references to "CC" assuming it's the right one. */ become_session(con); CtdlUserLogout(); PerformSessionHooks(EVT_STOP); client_close(); /* If the client is still connected, blow 'em away. */ become_session(NULL); CON_syslog(LOG_NOTICE, "[%3d]SRV[%s] Session ended.", con->cs_pid, c); /* * If the client is still connected, blow 'em away. * if the socket is 0 or -1, its already gone or was never there. */ if (con->client_socket > 0) { CON_syslog(LOG_NOTICE, "Closing socket %d", con->client_socket); close(con->client_socket); } /* If using AUTHMODE_LDAP, free the DN */ if (con->ldap_dn) { free(con->ldap_dn); con->ldap_dn = NULL; } FreeStrBuf(&con->StatusMessage); FreeStrBuf(&con->MigrateBuf); FreeStrBuf(&con->RecvBuf.Buf); if (con->cached_msglist) { free(con->cached_msglist); } CONM_syslog(LOG_DEBUG, "Done with RemoveContext()"); } /* * Initialize a new context and place it in the list. The session number * used to be the PID (which is why it's called cs_pid), but that was when we * had one process per session. Now we just assign them sequentially, starting * at 1 (don't change it to 0 because masterCC uses 0). */ CitContext *CreateNewContext(void) { CitContext *me; me = (CitContext *) malloc(sizeof(CitContext)); if (me == NULL) { CONM_syslog(LOG_ALERT, "citserver: can't allocate memory!!\n"); return NULL; } memset(me, 0, sizeof(CitContext)); /* Give the context a name. Hopefully makes it easier to track */ strcpy (me->user.fullname, "SYS_notauth"); /* The new context will be created already in the CON_EXECUTING state * in order to prevent another thread from grabbing it while it's * being set up. */ me->state = CON_EXECUTING; /* * Generate a unique session number and insert this context into * the list. */ me->MigrateBuf = NewStrBuf(); me->RecvBuf.Buf = NewStrBuf(); me->lastcmd = time(NULL); /* set lastcmd to now to prevent idle timer infanticide TODO: if we have a valid IO, use that to set the timer. */ begin_critical_section(S_SESSION_TABLE); me->cs_pid = ++next_pid; me->prev = NULL; me->next = ContextList; ContextList = me; if (me->next != NULL) { me->next->prev = me; } ++num_sessions; end_critical_section(S_SESSION_TABLE); return (me); } /* * Initialize a new context and place it in the list. The session number * used to be the PID (which is why it's called cs_pid), but that was when we * had one process per session. Now we just assign them sequentially, starting * at 1 (don't change it to 0 because masterCC uses 0). */ CitContext *CloneContext(CitContext *CloneMe) { CitContext *me; me = (CitContext *) malloc(sizeof(CitContext)); if (me == NULL) { CONM_syslog(LOG_ALERT, "citserver: can't allocate memory!!\n"); return NULL; } memcpy(me, CloneMe, sizeof(CitContext)); memset(&me->RecvBuf, 0, sizeof(IOBuffer)); memset(&me->SendBuf, 0, sizeof(IOBuffer)); memset(&me->SBuf, 0, sizeof(IOBuffer)); me->MigrateBuf = NULL; me->sMigrateBuf = NULL; me->redirect_buffer = NULL; #ifdef HAVE_OPENSSL me->ssl = NULL; #endif me->download_fp = NULL; me->upload_fp = NULL; /// TODO: what about the room/user? me->ma = NULL; me->openid_data = NULL; me->ldap_dn = NULL; me->session_specific_data = NULL; me->CIT_ICAL = NULL; me->cached_msglist = NULL; me->download_fp = NULL; me->upload_fp = NULL; me->client_socket = 0; me->MigrateBuf = NewStrBuf(); me->RecvBuf.Buf = NewStrBuf(); begin_critical_section(S_SESSION_TABLE); { me->cs_pid = ++next_pid; me->prev = NULL; me->next = ContextList; me->lastcmd = time(NULL); /* set lastcmd to now to prevent idle timer infanticide */ ContextList = me; if (me->next != NULL) { me->next->prev = me; } ++num_sessions; } end_critical_section(S_SESSION_TABLE); return (me); } /* * Return an array containing a copy of the context list. * This allows worker threads to perform "for each context" operations without * having to lock and traverse the live list. */ CitContext *CtdlGetContextArray(int *count) { int nContexts, i; CitContext *nptr, *cptr; nContexts = num_sessions; nptr = malloc(sizeof(CitContext) * nContexts); if (!nptr) { *count = 0; return NULL; } begin_critical_section(S_SESSION_TABLE); for (cptr = ContextList, i=0; cptr != NULL && i < nContexts; cptr = cptr->next, i++) { memcpy(&nptr[i], cptr, sizeof (CitContext)); } end_critical_section (S_SESSION_TABLE); *count = i; return nptr; } /* * Back-end function for starting a session */ void begin_session(CitContext *con) { /* * Initialize some variables specific to our context. */ con->logged_in = 0; con->internal_pgm = 0; con->download_fp = NULL; con->upload_fp = NULL; con->cached_msglist = NULL; con->cached_num_msgs = 0; con->FirstExpressMessage = NULL; time(&con->lastcmd); time(&con->lastidle); strcpy(con->lastcmdname, " "); strcpy(con->cs_clientname, "(unknown)"); strcpy(con->curr_user, NLI); *con->net_node = '\0'; *con->fake_username = '\0'; *con->fake_hostname = '\0'; *con->fake_roomname = '\0'; *con->cs_clientinfo = '\0'; safestrncpy(con->cs_host, CtdlGetConfigStr("c_fqdn"), sizeof con->cs_host); safestrncpy(con->cs_addr, "", sizeof con->cs_addr); con->cs_UDSclientUID = -1; con->cs_host[sizeof con->cs_host - 1] = 0; if (!CC->is_local_socket) { locate_host(con->cs_host, sizeof con->cs_host, con->cs_addr, sizeof con->cs_addr, con->client_socket ); } else { con->cs_host[0] = 0; con->cs_addr[0] = 0; #ifdef HAVE_STRUCT_UCRED { /* as http://www.wsinnovations.com/softeng/articles/uds.html told us... */ struct ucred credentials; socklen_t ucred_length = sizeof(struct ucred); /*fill in the user data structure */ if(getsockopt(con->client_socket, SOL_SOCKET, SO_PEERCRED, &credentials, &ucred_length)) { syslog(LOG_NOTICE, "could obtain credentials from unix domain socket"); } else { /* the process ID of the process on the other side of the socket */ /* credentials.pid; */ /* the effective UID of the process on the other side of the socket */ con->cs_UDSclientUID = credentials.uid; /* the effective primary GID of the process on the other side of the socket */ /* credentials.gid; */ /* To get supplemental groups, we will have to look them up in our account database, after a reverse lookup on the UID to get the account name. We can take this opportunity to check to see if this is a legit account. */ snprintf(con->cs_clientinfo, sizeof(con->cs_clientinfo), "PID: "F_PID_T"; UID: "F_UID_T"; GID: "F_XPID_T" ", credentials.pid, credentials.uid, credentials.gid); } } #endif } con->cs_flags = 0; con->upload_type = UPL_FILE; con->dl_is_net = 0; con->nologin = 0; if (((CtdlGetConfigInt("c_maxsessions") > 0)&&(num_sessions > CtdlGetConfigInt("c_maxsessions"))) || CtdlWantSingleUser()) { con->nologin = 1; } if (!CC->is_local_socket) { syslog(LOG_NOTICE, "Session (%s) started from %s (%s).\n", con->ServiceName, con->cs_host, con->cs_addr); } else { syslog(LOG_NOTICE, "Session (%s) started via local socket UID:%d.\n", con->ServiceName, con->cs_UDSclientUID); } /* Run any session startup routines registered by loadable modules */ PerformSessionHooks(EVT_START); } /* * This function fills in a context and its user field correctly * Then creates/loads that user */ void CtdlFillSystemContext(CitContext *context, char *name) { char sysname[SIZ]; long len; memset(context, 0, sizeof(CitContext)); context->internal_pgm = 1; context->cs_pid = 0; strcpy (sysname, "SYS_"); strcat (sysname, name); len = cutuserkey(sysname); memcpy(context->curr_user, sysname, len + 1); context->client_socket = (-1); context->state = CON_SYS; context->ServiceName = name; /* internal_create_user has the side effect of loading the user regardless of wether they * already existed or needed to be created */ internal_create_user (sysname, len, &(context->user), -1) ; /* Check to see if the system user needs upgrading */ if (context->user.usernum == 0) { /* old system user with number 0, upgrade it */ context->user.usernum = get_new_user_number(); CON_syslog(LOG_INFO, "Upgrading system user \"%s\" from user number 0 to user number %ld\n", context->user.fullname, context->user.usernum); /* add user to the database */ CtdlPutUser(&(context->user)); cdb_store(CDB_USERSBYNUMBER, &(context->user.usernum), sizeof(long), context->user.fullname, strlen(context->user.fullname)+1); } } /* * Cleanup any contexts that are left lying around */ void context_cleanup(void) { CitContext *ptr = NULL; CitContext *rem = NULL; /* * Clean up the contexts. * There are no threads so no critical_section stuff is needed. */ ptr = ContextList; /* We need to update the ContextList because some modules may want to itterate it * Question is should we NULL it before iterating here or should we just keep updating it * as we remove items? * * Answer is to NULL it first to prevent modules from doing any actions on the list at all */ ContextList=NULL; while (ptr != NULL){ /* Remove the session from the active list */ rem = ptr->next; --num_sessions; CON_syslog(LOG_DEBUG, "context_cleanup(): purging session %d\n", ptr->cs_pid); RemoveContext(ptr); free (ptr); ptr = rem; } } /* * Purge all sessions which have the 'kill_me' flag set. * This function has code to prevent it from running more than once every * few seconds, because running it after every single unbind would waste a lot * of CPU time and keep the context list locked too much. To force it to run * anyway, set "force" to nonzero. */ void dead_session_purge(int force) { CitContext *ptr, *ptr2; /* general-purpose utility pointer */ CitContext *rem = NULL; /* list of sessions to be destroyed */ if (force == 0) { if ( (time(NULL) - last_purge) < 5 ) { return; /* Too soon, go away */ } } time(&last_purge); if (try_critical_section(S_SESSION_TABLE)) return; ptr = ContextList; while (ptr) { ptr2 = ptr; ptr = ptr->next; if ( (ptr2->state == CON_IDLE) && (ptr2->kill_me) ) { /* Remove the session from the active list */ if (ptr2->prev) { ptr2->prev->next = ptr2->next; } else { ContextList = ptr2->next; } if (ptr2->next) { ptr2->next->prev = ptr2->prev; } --num_sessions; /* And put it on our to-be-destroyed list */ ptr2->next = rem; rem = ptr2; } } end_critical_section(S_SESSION_TABLE); /* Now that we no longer have the session list locked, we can take * our time and destroy any sessions on the to-be-killed list, which * is allocated privately on this thread's stack. */ while (rem != NULL) { CON_syslog(LOG_DEBUG, "dead_session_purge(): purging session %d, reason=%d\n", rem->cs_pid, rem->kill_me); RemoveContext(rem); ptr = rem; rem = rem->next; free(ptr); } } /* * masterCC is the context we use when not attached to a session. This * function initializes it. */ void InitializeMasterCC(void) { memset(&masterCC, 0, sizeof(struct CitContext)); masterCC.internal_pgm = 1; masterCC.cs_pid = 0; } /* * Set the "async waiting" flag for a session, if applicable */ void set_async_waiting(struct CitContext *ccptr) { CON_syslog(LOG_DEBUG, "Setting async_waiting flag for session %d\n", ccptr->cs_pid); if (ccptr->is_async) { ccptr->async_waiting++; if (ccptr->state == CON_IDLE) { ccptr->state = CON_READY; } } } void DebugSessionEnable(const int n) { DebugSession = n; } CTDL_MODULE_INIT(session) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("session"), DebugSessionEnable, &DebugSession); } return "session"; } citadel-902/context.h000066400000000000000000000165341271512031400146350ustar00rootroot00000000000000 #ifndef CONTEXT_H #define CONTEXT_H #include #include "sysdep.h" #include "server.h" #include "sysdep_decls.h" #include "threads.h" /* * Values for CitContext.state * * A session that is doing nothing is in CON_IDLE state. When activity * is detected on the socket, it goes to CON_READY, indicating that it * needs to have a worker thread bound to it. When a thread binds to * the session, it goes to CON_EXECUTING and does its thing. When the * transaction is finished, the thread sets it back to CON_IDLE and lets * it go. */ typedef enum __CCState { CON_IDLE, /* This context is doing nothing */ CON_GREETING, /* This context needs to output its greeting */ CON_STARTING, /* This context is outputting its greeting */ CON_READY, /* This context needs attention */ CON_EXECUTING, /* This context is bound to a thread */ CON_SYS /* This is a system context and mustn't be purged */ } CCState; #ifndef __ASYNCIO__ #define __ASYNCIO__ typedef struct AsyncIO AsyncIO; /* forward declaration for event_client.h */ #endif #ifndef __CIT_CONTEXT__ #define __CIT_CONTEXT__ typedef struct CitContext CitContext; #endif /* * Here's the big one... the Citadel context structure. * * This structure keeps track of all information relating to a running * session on the server. We keep one of these for each session thread. * */ struct CitContext { CitContext *prev; /* Link to previous session in list */ CitContext *next; /* Link to next session in the list */ int cs_pid; /* session ID */ int dont_term; /* for special activities like artv so we don't get killed */ double created; /* time of birth */ time_t lastcmd; /* time of last command executed */ time_t lastidle; /* For computing idle time */ CCState state; /* thread state (see CON_ values below) */ int kill_me; /* Set to nonzero to flag for termination */ IOBuffer SendBuf, /* Our write Buffer */ RecvBuf, /* Our block buffered read buffer */ SBuf; /* Our block buffered read buffer for clients */ StrBuf *MigrateBuf; /* Our block buffered read buffer */ StrBuf *sMigrateBuf; /* Our block buffered read buffer */ int client_socket; int is_local_socket; /* set to 1 if client is on unix domain sock */ /* Redirect this session's output to a memory buffer? */ StrBuf *redirect_buffer; /* the buffer */ StrBuf *StatusMessage; #ifdef HAVE_OPENSSL SSL *ssl; int redirect_ssl; #endif char curr_user[USERNAME_SIZE]; /* name of current user */ int logged_in; /* logged in */ int internal_pgm; /* authenticated as internal program */ int nologin; /* not allowed to log in */ int curr_view; /* The view type for the current user/room */ int is_master; /* Is this session logged in using the master user? */ char net_node[32] ;/* Is the client another Citadel server? */ time_t previous_login; /* Date/time of previous login */ char lastcmdname[5]; /* name of last command executed */ unsigned cs_flags; /* miscellaneous flags */ int is_async; /* Nonzero if client accepts async msgs */ int async_waiting; /* Nonzero if there are async msgs waiting */ int input_waiting; /* Nonzero if there is client input waiting */ int can_receive_im; /* Session is capable of receiving instant messages */ /* Client information */ int cs_clientdev; /* client developer ID */ int cs_clienttyp; /* client type code */ int cs_clientver; /* client version number */ char cs_clientinfo[256];/* if its a unix domain socket, some info for logging. */ uid_t cs_UDSclientUID; /* the uid of the client when talking via UDS */ char cs_clientname[32]; /* name of client software */ char cs_host[64]; /* host logged in from */ char cs_addr[64]; /* address logged in from */ /* The Internet type of thing */ char cs_inet_email[128]; /* Return address of outbound Internet mail */ char cs_inet_other_emails[1024]; /* User's other valid Internet email addresses */ char cs_inet_fn[128]; /* Friendly-name of outbound Internet mail */ FILE *download_fp; /* Fields relating to file transfer */ size_t download_fp_total; char download_desired_section[128]; FILE *upload_fp; char upl_file[256]; char upl_path[PATH_MAX]; char upl_comment[256]; char upl_filedir[PATH_MAX]; char upl_mimetype[64]; char dl_is_net; char upload_type; struct ctdluser user; /* Database record buffers */ struct ctdlroom room; /* A linked list of all instant messages sent to us. */ struct ExpressMessage *FirstExpressMessage; int disable_exp; /* Set to 1 to disable incoming pages */ int newmail; /* Other sessions increment this */ /* Masqueraded values in the 'who is online' list */ char fake_username[USERNAME_SIZE]; char fake_hostname[64]; char fake_roomname[ROOMNAMELEN]; /* Preferred MIME formats */ char preferred_formats[256]; int msg4_dont_decode; /* Dynamically allocated session data */ void *session_specific_data; /* Used by individual protocol modules */ struct cit_ical *CIT_ICAL; /* calendaring data */ struct ma_info *ma; /* multipart/alternative data */ const char *ServiceName; /* readable purpose of this session */ long tcp_port; void *openid_data; /* Data stored by the OpenID module */ char *ldap_dn; /* DN of user when using AUTHMODE_LDAP */ void (*h_command_function) (void) ; /* service command function */ void (*h_async_function) (void) ; /* do async msgs function */ void (*h_greeting_function) (void) ; /* greeting function for session startup */ long *cached_msglist; /* results of the previous CtdlForEachMessage() */ int cached_num_msgs; char vcard_updated_by_ldap; /* !0 iff ldap changed the vcard, treat as aide update */ AsyncIO *IO; /* if this session has AsyncIO going on... */ }; #define CC MyContext() extern pthread_key_t MyConKey; /* TSD key for MyContext() */ extern int num_sessions; extern CitContext masterCC; extern CitContext *ContextList; CitContext *MyContext (void); void RemoveContext (struct CitContext *); CitContext *CreateNewContext (void); void context_cleanup(void); void kill_session (int session_to_kill); void InitializeMasterCC(void); void dead_session_purge(int force); void set_async_waiting(struct CitContext *ccptr); CitContext *CloneContext(CitContext *CloneMe); /* forcibly close and flush fd's on shutdown */ void terminate_all_sessions(void); /* Deprecated, user CtdlBumpNewMailCounter() instead */ void BumpNewMailCounter(long) __attribute__ ((deprecated)); void terminate_idle_sessions(void); int CtdlTerminateOtherSession (int session_num); /* bits returned by CtdlTerminateOtherSession */ #define TERM_FOUND 0x01 #define TERM_ALLOWED 0x02 #define TERM_KILLED 0x03 #define TERM_NOTALLOWED -1 /* * Bind a thread to a context. (It's inline merely to speed things up.) */ static INLINE void become_session(CitContext *which_con) { /* pid_t tid = syscall(SYS_gettid); */ pthread_setspecific(MyConKey, (void *)which_con ); /* syslog(LOG_DEBUG, "[%d]: Now doing %s\n", (int) tid, ((which_con != NULL) && (which_con->ServiceName != NULL)) ? which_con->ServiceName:""); */ } /* typedef void (*CtdlDbgFunction) (const int); */ extern int DebugSession; #define CONDBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (DebugSession != 0)) #define CON_syslog(LEVEL, FORMAT, ...) \ CONDBGLOG(LEVEL) syslog(LEVEL, \ "%s Context: " FORMAT, IOSTR, __VA_ARGS__) #define CONM_syslog(LEVEL, FORMAT) \ CONDBGLOG(LEVEL) syslog(LEVEL, \ "%s Context: " FORMAT, IOSTR); #endif /* CONTEXT_H */ citadel-902/contrib/000077500000000000000000000000001271512031400144275ustar00rootroot00000000000000citadel-902/contrib/getdoku.sh000077500000000000000000000027711271512031400164370ustar00rootroot00000000000000#!/bin/bash BASE_SITE=http://www.citadel.org #retrieves an index document from the citadel.org website, and filters it # 1: URL # 2: outfile where to put the filtered content at GetIndex() { cd /tmp/; wget -q "${BASE_SITE}/${1}" cat "/tmp/${1}" | \ grep /doku.php/ | \ grep -v "do=" | \ sed -e "s;.*href=\";;" \ -e "s;\" .*;;" \ -e "s;doku.php/;doku.php?id=;"| \ grep "^/doku" > \ "/tmp/$2" } rm -f /tmp/mainindex /tmp/doku.php* GetIndex "doku.php?id=faq:start" mainindex for i in `cat /tmp/mainindex`; do TMPNAME=`echo $i|sed "s;.*=;;"` echo $i $TMPNAME mkdir /tmp/$TMPNAME GetIndex "$i" "$TMPNAME/$TMPNAME" for j in `cat /tmp/$TMPNAME/$TMPNAME`; do echo "-----------$j----------------" cd /tmp/$TMPNAME/; DOCUMENT_NAME=`echo $j|sed -e "s;/doku.php?id=.*:;;"` PLAIN_NAME=`grep "$DOCUMENT_NAME" /tmp/doku*$TMPNAME |head -n1 |sed -e "s;','/doku.*;;" -e "s;.*';;"` echo "********** retrieving $DOCUMENT_NAME ************" wget -q "${BASE_SITE}/${j}&do=export_xhtmlbody" mv "/tmp/$TMPNAME/${j}&do=export_xhtmlbody" /tmp/$TMPNAME/$DOCUMENT_NAME echo "
  • $PLAIN_NAME
    • " >>collect_index echo "" >>collect_bodies cat $DOCUMENT_NAME>>collect_bodies done ( echo "$TMPNAME
      " cat "/tmp/$TMPNAME/collect_index" echo "
    " cat "/tmp/$TMPNAME/collect_bodies" echo "" ) >/tmp/`echo $TMPNAME|sed "s;:;_;g"`.html donecitadel-902/control.c000066400000000000000000000526751271512031400146320ustar00rootroot00000000000000/* * This module handles states which are global to the entire server. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include "ctdl_module.h" #include "config.h" #include "citserver.h" #include "user_ops.h" long control_highest_user = 0; /* * This is the legacy "control record" format for the message base. If found * on disk, its contents will be migrated into the system configuration. Never * change this. */ struct legacy_ctrl_format { long MMhighest; /* highest message number in file */ unsigned MMflags; /* Global system flags */ long MMnextuser; /* highest user number on system */ long MMnextroom; /* highest room number on system */ int MM_hosted_upgrade_level; /* Server-hosted upgrade level */ int MM_fulltext_wordbreaker; /* ID of wordbreaker in use */ long MMfulltext; /* highest message number indexed */ int MMdbversion; /* Version of Berkeley DB used on previous server run */ }; /* * Callback to get highest room number when rebuilding message base metadata */ void control_find_highest(struct ctdlroom *qrbuf, void *data) { struct ctdlroom room; struct cdbdata *cdbfr; long *msglist; int num_msgs=0; int c; int room_fixed = 0; int message_fixed = 0; if (qrbuf->QRnumber > CtdlGetConfigLong("MMnextroom")) { CtdlSetConfigLong("MMnextroom", qrbuf->QRnumber); room_fixed = 1; } CtdlGetRoom (&room, qrbuf->QRname); /* Load the message list */ cdbfr = cdb_fetch(CDB_MSGLISTS, &room.QRnumber, sizeof(long)); if (cdbfr != NULL) { msglist = (long *) cdbfr->ptr; num_msgs = cdbfr->len / sizeof(long); } else { return; /* No messages at all? No further action. */ } if (num_msgs>0) { for (c=0; c CtdlGetConfigLong("MMhighest")) { CtdlSetConfigLong("MMhighest", msglist[c]); message_fixed = 1; } } } cdb_free(cdbfr); if (room_fixed) { syslog(LOG_INFO, "Control record checking....Fixed room counter\n"); } if (message_fixed) { syslog(LOG_INFO, "Control record checking....Fixed message count\n"); } return; } /* * Callback to get highest user number. */ void control_find_user (struct ctdluser *EachUser, void *out_data) { int user_fixed = 0; if (EachUser->usernum > CtdlGetConfigLong("MMnextuser")) { CtdlSetConfigLong("MMnextuser", EachUser->usernum); user_fixed = 1; } if(user_fixed) syslog(LOG_INFO, "Control record checking....Fixed user count\n"); } /* * If we have a legacy format control record on disk, import it. */ void migrate_legacy_control_record(void) { FILE *fp = NULL; struct legacy_ctrl_format c; memset(&c, 0, sizeof(c)); fp = fopen(file_citadel_control, "rb+"); if (fp != NULL) { syslog(LOG_INFO, "Legacy format control record found -- importing to db"); fread(&c, sizeof(struct legacy_ctrl_format), 1, fp); CtdlSetConfigLong( "MMhighest", c.MMhighest); CtdlSetConfigInt( "MMflags", c.MMflags); CtdlSetConfigLong( "MMnextuser", c.MMnextuser); CtdlSetConfigLong( "MMnextroom", c.MMnextroom); CtdlSetConfigInt( "MM_hosted_upgrade_level", c.MM_hosted_upgrade_level); CtdlSetConfigInt( "MM_fulltext_wordbreaker", c.MM_fulltext_wordbreaker); CtdlSetConfigLong( "MMfulltext", c.MMfulltext); fclose(fp); if (unlink(file_citadel_control) != 0) { fprintf(stderr, "Unable to remove legacy control record %s after migrating it.\n", file_citadel_control); fprintf(stderr, "Exiting to prevent data corruption.\n"); exit(CTDLEXIT_CONFIG); } } } /* * check_control - check the control record has sensible values for message, user and room numbers */ void check_control(void) { syslog(LOG_INFO, "Sanity checking the recorded highest message, user, and room numbers\n"); CtdlForEachRoom(control_find_highest, NULL); ForEachUser(control_find_user, NULL); } /* * get_new_message_number() - Obtain a new, unique ID to be used for a message. */ long get_new_message_number(void) { long retval = 0L; begin_critical_section(S_CONTROL); retval = CtdlGetConfigLong("MMhighest"); ++retval; CtdlSetConfigLong("MMhighest", retval); end_critical_section(S_CONTROL); return(retval); } /* * CtdlGetCurrentMessageNumber() - Obtain the current highest message number in the system * This provides a quick way to initialise a variable that might be used to indicate * messages that should not be processed. EG. a new Sieve script will use this * to record determine that messages older than this should not be processed. * * (Why is this function here? Can't we just go straight to the config variable it fetches?) */ long CtdlGetCurrentMessageNumber(void) { return CtdlGetConfigLong("MMhighest"); } /* * get_new_user_number() - Obtain a new, unique ID to be used for a user. */ long get_new_user_number(void) { long retval = 0L; begin_critical_section(S_CONTROL); retval = CtdlGetConfigLong("MMnextuser"); ++retval; CtdlSetConfigLong("MMnextuser", retval); end_critical_section(S_CONTROL); return(retval); } /* * get_new_room_number() - Obtain a new, unique ID to be used for a room. */ long get_new_room_number(void) { long retval = 0L; begin_critical_section(S_CONTROL); retval = CtdlGetConfigLong("MMnextroom"); ++retval; CtdlSetConfigLong("MMnextroom", retval); end_critical_section(S_CONTROL); return(retval); } /* * Helper function for cmd_conf() to handle boolean values */ int confbool(char *v) { if (IsEmptyStr(v)) return(0); if (atoi(v) != 0) return(1); return(0); } /* * Get or set global configuration options * * IF YOU ADD OR CHANGE FIELDS HERE, YOU *MUST* DOCUMENT YOUR CHANGES AT: * http://www.citadel.org/doku.php/documentation:appproto:system_config * */ void cmd_conf(char *argbuf) { char cmd[16]; char buf[1024]; int a, i; long ii; char *confptr; char confname[128]; if (CtdlAccessCheck(ac_aide)) return; extract_token(cmd, argbuf, 0, '|', sizeof cmd); // CONF GET - retrieve system configuration in legacy format // This is deprecated; please do not add fields or change their order. if (!strcasecmp(cmd, "GET")) { cprintf("%d Configuration...\n", LISTING_FOLLOWS); cprintf("%s\n", CtdlGetConfigStr("c_nodename")); cprintf("%s\n", CtdlGetConfigStr("c_fqdn")); cprintf("%s\n", CtdlGetConfigStr("c_humannode")); cprintf("xxx\n"); /* placeholder -- field no longer in use */ cprintf("%d\n", CtdlGetConfigInt("c_creataide")); cprintf("%d\n", CtdlGetConfigInt("c_sleeping")); cprintf("%d\n", CtdlGetConfigInt("c_initax")); cprintf("%d\n", CtdlGetConfigInt("c_regiscall")); cprintf("%d\n", CtdlGetConfigInt("c_twitdetect")); cprintf("%s\n", CtdlGetConfigStr("c_twitroom")); cprintf("%s\n", CtdlGetConfigStr("c_moreprompt")); cprintf("%d\n", CtdlGetConfigInt("c_restrict")); cprintf("%s\n", CtdlGetConfigStr("c_site_location")); cprintf("%s\n", CtdlGetConfigStr("c_sysadm")); cprintf("%d\n", CtdlGetConfigInt("c_maxsessions")); cprintf("xxx\n"); /* placeholder -- field no longer in use */ cprintf("%d\n", CtdlGetConfigInt("c_userpurge")); cprintf("%d\n", CtdlGetConfigInt("c_roompurge")); cprintf("%s\n", CtdlGetConfigStr("c_logpages")); cprintf("%d\n", CtdlGetConfigInt("c_createax")); cprintf("%ld\n", CtdlGetConfigLong("c_maxmsglen")); cprintf("%d\n", CtdlGetConfigInt("c_min_workers")); cprintf("%d\n", CtdlGetConfigInt("c_max_workers")); cprintf("%d\n", CtdlGetConfigInt("c_pop3_port")); cprintf("%d\n", CtdlGetConfigInt("c_smtp_port")); cprintf("%d\n", CtdlGetConfigInt("c_rfc822_strict_from")); cprintf("%d\n", CtdlGetConfigInt("c_aide_zap")); cprintf("%d\n", CtdlGetConfigInt("c_imap_port")); cprintf("%ld\n", CtdlGetConfigLong("c_net_freq")); cprintf("%d\n", CtdlGetConfigInt("c_disable_newu")); cprintf("1\n"); /* niu */ cprintf("%d\n", CtdlGetConfigInt("c_purge_hour")); #ifdef HAVE_LDAP cprintf("%s\n", CtdlGetConfigStr("c_ldap_host")); cprintf("%d\n", CtdlGetConfigInt("c_ldap_port")); cprintf("%s\n", CtdlGetConfigStr("c_ldap_base_dn")); cprintf("%s\n", CtdlGetConfigStr("c_ldap_bind_dn")); cprintf("%s\n", CtdlGetConfigStr("c_ldap_bind_pw")); #else cprintf("\n"); cprintf("0\n"); cprintf("\n"); cprintf("\n"); cprintf("\n"); #endif cprintf("%s\n", CtdlGetConfigStr("c_ip_addr")); cprintf("%d\n", CtdlGetConfigInt("c_msa_port")); cprintf("%d\n", CtdlGetConfigInt("c_imaps_port")); cprintf("%d\n", CtdlGetConfigInt("c_pop3s_port")); cprintf("%d\n", CtdlGetConfigInt("c_smtps_port")); cprintf("%d\n", CtdlGetConfigInt("c_enable_fulltext")); cprintf("%d\n", CtdlGetConfigInt("c_auto_cull")); cprintf("1\n"); cprintf("%d\n", CtdlGetConfigInt("c_allow_spoofing")); cprintf("%d\n", CtdlGetConfigInt("c_journal_email")); cprintf("%d\n", CtdlGetConfigInt("c_journal_pubmsgs")); cprintf("%s\n", CtdlGetConfigStr("c_journal_dest")); cprintf("%s\n", CtdlGetConfigStr("c_default_cal_zone")); cprintf("%d\n", CtdlGetConfigInt("c_pftcpdict_port")); cprintf("%d\n", CtdlGetConfigInt("c_managesieve_port")); cprintf("%d\n", CtdlGetConfigInt("c_auth_mode")); cprintf("%s\n", CtdlGetConfigStr("c_funambol_host")); cprintf("%d\n", CtdlGetConfigInt("c_funambol_port")); cprintf("%s\n", CtdlGetConfigStr("c_funambol_source")); cprintf("%s\n", CtdlGetConfigStr("c_funambol_auth")); cprintf("%d\n", CtdlGetConfigInt("c_rbl_at_greeting")); cprintf("%s\n", CtdlGetConfigStr("c_master_user")); cprintf("%s\n", CtdlGetConfigStr("c_master_pass")); cprintf("%s\n", CtdlGetConfigStr("c_pager_program")); cprintf("%d\n", CtdlGetConfigInt("c_imap_keep_from")); cprintf("%d\n", CtdlGetConfigInt("c_xmpp_c2s_port")); cprintf("%d\n", CtdlGetConfigInt("c_xmpp_s2s_port")); cprintf("%ld\n", CtdlGetConfigLong("c_pop3_fetch")); cprintf("%ld\n", CtdlGetConfigLong("c_pop3_fastest")); cprintf("%d\n", CtdlGetConfigInt("c_spam_flag_only")); cprintf("%d\n", CtdlGetConfigInt("c_guest_logins")); cprintf("%d\n", CtdlGetConfigInt("c_port_number")); cprintf("%d\n", ctdluid); cprintf("%d\n", CtdlGetConfigInt("c_nntp_port")); cprintf("%d\n", CtdlGetConfigInt("c_nntps_port")); cprintf("000\n"); } // CONF SET - set system configuration in legacy format // This is deprecated; please do not add fields or change their order. else if (!strcasecmp(cmd, "SET")) { unbuffer_output(); cprintf("%d Send configuration...\n", SEND_LISTING); a = 0; while (client_getln(buf, sizeof buf) >= 0 && strcmp(buf, "000")) { switch (a) { case 0: CtdlSetConfigStr("c_nodename", buf); break; case 1: CtdlSetConfigStr("c_fqdn", buf); break; case 2: CtdlSetConfigStr("c_humannode", buf); break; case 3: /* placeholder -- field no longer in use */ break; case 4: CtdlSetConfigInt("c_creataide", confbool(buf)); break; case 5: CtdlSetConfigInt("c_sleeping", atoi(buf)); break; case 6: i = atoi(buf); if (i < 1) i = 1; if (i > 6) i = 6; CtdlSetConfigInt("c_initax", i); break; case 7: CtdlSetConfigInt("c_regiscall", confbool(buf)); break; case 8: CtdlSetConfigInt("c_twitdetect", confbool(buf)); break; case 9: CtdlSetConfigStr("c_twitroom", buf); break; case 10: CtdlSetConfigStr("c_moreprompt", buf); break; case 11: CtdlSetConfigInt("c_restrict", confbool(buf)); break; case 12: CtdlSetConfigStr("c_site_location", buf); break; case 13: CtdlSetConfigStr("c_sysadm", buf); break; case 14: i = atoi(buf); if (i < 0) i = 0; CtdlSetConfigInt("c_maxsessions", i); break; case 15: /* placeholder -- field no longer in use */ break; case 16: CtdlSetConfigInt("c_userpurge", atoi(buf)); break; case 17: CtdlSetConfigInt("c_roompurge", atoi(buf)); break; case 18: CtdlSetConfigStr("c_logpages", buf); break; case 19: i = atoi(buf); if (i < 1) i = 1; if (i > 6) i = 6; CtdlSetConfigInt("c_createax", i); break; case 20: ii = atol(buf); if (ii >= 8192) { CtdlSetConfigLong("c_maxmsglen", ii); } break; case 21: i = atoi(buf); if (i >= 3) { // minimum value CtdlSetConfigInt("c_min_workers", i); } break; case 22: i = atoi(buf); if (i >= CtdlGetConfigInt("c_min_workers")) { // max must be >= min CtdlSetConfigInt("c_max_workers", i); } break; case 23: CtdlSetConfigInt("c_pop3_port", atoi(buf)); break; case 24: CtdlSetConfigInt("c_smtp_port", atoi(buf)); break; case 25: CtdlSetConfigInt("c_rfc822_strict_from", atoi(buf)); break; case 26: CtdlSetConfigInt("c_aide_zap", confbool(buf)); break; case 27: CtdlSetConfigInt("c_imap_port", atoi(buf)); break; case 28: CtdlSetConfigLong("c_net_freq", atol(buf)); break; case 29: CtdlSetConfigInt("c_disable_newu", confbool(buf)); break; case 30: /* niu */ break; case 31: i = atoi(buf); if ((i >= 0) && (i <= 23)) { CtdlSetConfigInt("c_purge_hour", i); } break; case 32: CtdlSetConfigStr("c_ldap_host", buf); break; case 33: CtdlSetConfigInt("c_ldap_port", atoi(buf)); break; case 34: CtdlSetConfigStr("c_ldap_base_dn", buf); break; case 35: CtdlSetConfigStr("c_ldap_bind_dn", buf); break; case 36: CtdlSetConfigStr("c_ldap_bind_pw", buf); break; case 37: CtdlSetConfigStr("c_ip_addr", buf); break; case 38: CtdlSetConfigInt("c_msa_port", atoi(buf)); break; case 39: CtdlSetConfigInt("c_imaps_port", atoi(buf)); break; case 40: CtdlSetConfigInt("c_pop3s_port", atoi(buf)); break; case 41: CtdlSetConfigInt("c_smtps_port", atoi(buf)); break; case 42: CtdlSetConfigInt("c_enable_fulltext", confbool(buf)); break; case 43: CtdlSetConfigInt("c_auto_cull", confbool(buf)); break; case 44: /* niu */ break; case 45: CtdlSetConfigInt("c_allow_spoofing", confbool(buf)); break; case 46: CtdlSetConfigInt("c_journal_email", confbool(buf)); break; case 47: CtdlSetConfigInt("c_journal_pubmsgs", confbool(buf)); break; case 48: CtdlSetConfigStr("c_journal_dest", buf); break; case 49: CtdlSetConfigStr("c_default_cal_zone", buf); break; case 50: CtdlSetConfigInt("c_pftcpdict_port", atoi(buf)); break; case 51: CtdlSetConfigInt("c_managesieve_port", atoi(buf)); break; case 52: CtdlSetConfigInt("c_auth_mode", atoi(buf)); break; case 53: CtdlSetConfigStr("c_funambol_host", buf); break; case 54: CtdlSetConfigInt("c_funambol_port", atoi(buf)); break; case 55: CtdlSetConfigStr("c_funambol_source", buf); break; case 56: CtdlSetConfigStr("c_funambol_auth", buf); break; case 57: CtdlSetConfigInt("c_rbl_at_greeting", confbool(buf)); break; case 58: CtdlSetConfigStr("c_master_user", buf); break; case 59: CtdlSetConfigStr("c_master_pass", buf); break; case 60: CtdlSetConfigStr("c_pager_program", buf); break; case 61: CtdlSetConfigInt("c_imap_keep_from", confbool(buf)); break; case 62: CtdlSetConfigInt("c_xmpp_c2s_port", atoi(buf)); break; case 63: CtdlSetConfigInt("c_xmpp_s2s_port", atoi(buf)); break; case 64: CtdlSetConfigLong("c_pop3_fetch", atol(buf)); break; case 65: CtdlSetConfigLong("c_pop3_fastest", atol(buf)); break; case 66: CtdlSetConfigInt("c_spam_flag_only", confbool(buf)); break; case 67: CtdlSetConfigInt("c_guest_logins", confbool(buf)); break; case 68: CtdlSetConfigInt("c_port_number", atoi(buf)); break; case 69: /* niu */ break; case 70: CtdlSetConfigInt("c_nntp_port", atoi(buf)); break; case 71: CtdlSetConfigInt("c_nntps_port", atoi(buf)); break; } ++a; } snprintf(buf, sizeof buf, "The global system configuration has been edited by %s.\n", (CC->logged_in ? CC->curr_user : "an administrator") ); CtdlAideMessage(buf, "Citadel Configuration Manager Message"); if (!IsEmptyStr(CtdlGetConfigStr("c_logpages"))) CtdlCreateRoom(CtdlGetConfigStr("c_logpages"), 3, "", 0, 1, 1, VIEW_BBS); /* If full text indexing has been disabled, invalidate the * index so it doesn't try to use it later. */ if (CtdlGetConfigInt("c_enable_fulltext") == 0) { CtdlSetConfigInt("MM_fulltext_wordbreaker", 0); } } // CONF GETSYS - retrieve arbitrary system configuration stanzas stored in the message base else if (!strcasecmp(cmd, "GETSYS")) { extract_token(confname, argbuf, 1, '|', sizeof confname); confptr = CtdlGetSysConfig(confname); if (confptr != NULL) { long len; len = strlen(confptr); cprintf("%d %s\n", LISTING_FOLLOWS, confname); client_write(confptr, len); if ((len > 0) && (confptr[len - 1] != 10)) client_write("\n", 1); cprintf("000\n"); free(confptr); } else { cprintf("%d No such configuration.\n", ERROR + ILLEGAL_VALUE); } } // CONF PUTSYS - store arbitrary system configuration stanzas in the message base else if (!strcasecmp(cmd, "PUTSYS")) { extract_token(confname, argbuf, 1, '|', sizeof confname); unbuffer_output(); cprintf("%d %s\n", SEND_LISTING, confname); confptr = CtdlReadMessageBody(HKEY("000"), CtdlGetConfigLong("c_maxmsglen"), NULL, 0, 0); CtdlPutSysConfig(confname, confptr); free(confptr); } // CONF GETVAL - retrieve configuration variables from the database else if (!strcasecmp(cmd, "GETVAL")) { extract_token(confname, argbuf, 1, '|', sizeof confname); char *v = CtdlGetConfigStr(confname); if (v) { cprintf("%d %s|\n", CIT_OK, v); } else { cprintf("%d |\n", ERROR); } } // CONF PUTVAL - store configuration variables from the database else if (!strcasecmp(cmd, "PUTVAL")) { if (num_tokens(argbuf, '|') < 3) { cprintf("%d name and value required\n", ERROR); } else { extract_token(confname, argbuf, 1, '|', sizeof confname); extract_token(buf, argbuf, 2, '|', sizeof buf); CtdlSetConfigStr(confname, buf); cprintf("%d setting '%s' to '%s'\n", CIT_OK, confname, buf); } } // CONF LISTVAL - list configuration variables in the database and their values else if (!strcasecmp(cmd, "LISTVAL")) { struct cdbdata *cdbcfg; int keylen = 0; char *key = NULL; char *value = NULL; cprintf("%d all configuration variables\n", LISTING_FOLLOWS); cdb_rewind(CDB_CONFIG); while (cdbcfg = cdb_next_item(CDB_CONFIG), cdbcfg != NULL) { keylen = strlen(cdbcfg->ptr); key = cdbcfg->ptr; value = cdbcfg->ptr + keylen + 1; cprintf("%s|%s\n", key, value); cdb_free(cdbcfg); } cprintf("000\n"); } else { cprintf("%d Illegal option(s) specified.\n", ERROR + ILLEGAL_VALUE); } } typedef struct __ConfType { ConstStr Name; long Type; }ConfType; ConfType CfgNames[] = { { {HKEY("localhost") }, 0}, { {HKEY("directory") }, 0}, { {HKEY("smarthost") }, 2}, { {HKEY("fallbackhost") }, 2}, { {HKEY("rbl") }, 3}, { {HKEY("spamassassin") }, 3}, { {HKEY("masqdomain") }, 1}, { {HKEY("clamav") }, 3}, { {HKEY("notify") }, 3}, { {NULL, 0}, 0} }; HashList *CfgNameHash = NULL; void cmd_gvdn(char *argbuf) { const ConfType *pCfg; char *confptr; long min = atol(argbuf); const char *Pos = NULL; const char *PPos = NULL; const char *HKey; long HKLen; StrBuf *Line; StrBuf *Config; StrBuf *Cfg; StrBuf *CfgToken; HashList *List; HashPos *It; void *vptr; List = NewHash(1, NULL); Cfg = NewStrBufPlain(CtdlGetConfigStr("c_fqdn"), -1); Put(List, SKEY(Cfg), Cfg, HFreeStrBuf); Cfg = NULL; confptr = CtdlGetSysConfig(INTERNETCFG); Config = NewStrBufPlain(confptr, -1); free(confptr); Line = NewStrBufPlain(NULL, StrLength(Config)); CfgToken = NewStrBufPlain(NULL, StrLength(Config)); while (StrBufSipLine(Line, Config, &Pos)) { if (Cfg == NULL) Cfg = NewStrBufPlain(NULL, StrLength(Line)); PPos = NULL; StrBufExtract_NextToken(Cfg, Line, &PPos, '|'); StrBufExtract_NextToken(CfgToken, Line, &PPos, '|'); if (GetHash(CfgNameHash, SKEY(CfgToken), &vptr) && (vptr != NULL)) { pCfg = (ConfType *) vptr; if (pCfg->Type <= min) { Put(List, SKEY(Cfg), Cfg, HFreeStrBuf); Cfg = NULL; } } } cprintf("%d Valid Domains\n", LISTING_FOLLOWS); It = GetNewHashPos(List, 1); while (GetNextHashPos(List, It, &HKLen, &HKey, &vptr)) { cputbuf(vptr); cprintf("\n"); } cprintf("000\n"); DeleteHashPos(&It); DeleteHash(&List); FreeStrBuf(&Cfg); FreeStrBuf(&Line); FreeStrBuf(&CfgToken); FreeStrBuf(&Config); } /*****************************************************************************/ /* MODULE INITIALIZATION STUFF */ /*****************************************************************************/ void control_cleanup(void) { DeleteHash(&CfgNameHash); } CTDL_MODULE_INIT(control) { if (!threading) { int i; CfgNameHash = NewHash(1, NULL); for (i = 0; CfgNames[i].Name.Key != NULL; i++) Put(CfgNameHash, CKEY(CfgNames[i].Name), &CfgNames[i], reference_free_handler); CtdlRegisterProtoHook(cmd_gvdn, "GVDN", "get valid domain names"); CtdlRegisterProtoHook(cmd_conf, "CONF", "get/set system configuration"); CtdlRegisterCleanupHook(control_cleanup); } /* return our id for the Log */ return "control"; } citadel-902/control.h000066400000000000000000000012611271512031400146200ustar00rootroot00000000000000/* * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ void get_control (void); void put_control (void); void check_control(void); long int get_new_message_number (void); long int get_new_user_number (void); long int get_new_room_number (void); void migrate_legacy_control_record(void); citadel-902/database.c000066400000000000000000000570751271512031400147150ustar00rootroot00000000000000/* * This is a data store backend for the Citadel server which uses Berkeley DB. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or * modify it under the terms of the GNU General Public License version 3. * * 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. * */ /***************************************************************************** Tunable configuration parameters for the Berkeley DB back end *****************************************************************************/ /* Citadel will checkpoint the db at the end of every session, but only if * the specified number of kilobytes has been written, or if the specified * number of minutes has passed, since the last checkpoint. */ #define MAX_CHECKPOINT_KBYTES 256 #define MAX_CHECKPOINT_MINUTES 15 /*****************************************************************************/ #include "sysdep.h" #include #include #include #ifdef HAVE_DB_H #include #elif defined(HAVE_DB4_DB_H) #include #else #error Neither nor was found by configure. Install db4-devel. #endif #if DB_VERSION_MAJOR < 4 || DB_VERSION_MINOR < 1 #error Citadel requires Berkeley DB v4.1 or newer. Please upgrade. #endif #include #include "ctdl_module.h" #include "control.h" #include "citserver.h" #include "config.h" static DB *dbp[MAXCDB]; /* One DB handle for each Citadel database */ static DB_ENV *dbenv; /* The DB environment (global) */ void cdb_abort(void) { syslog(LOG_DEBUG, "citserver is stopping in order to prevent data loss. uid=%d gid=%d euid=%d egid=%d", getuid(), getgid(), geteuid(), getegid() ); cit_backtrace(); exit(CTDLEXIT_DB); } /* Verbose logging callback */ void cdb_verbose_log(const DB_ENV *dbenv, const char *msg) { if (!IsEmptyStr(msg)) { syslog(LOG_DEBUG, "DB: %s", msg); cit_backtrace(); } } /* Verbose logging callback */ void cdb_verbose_err(const DB_ENV *dbenv, const char *errpfx, const char *msg) { int *FOO = NULL; syslog(LOG_ALERT, "DB: %s", msg); cit_backtrace(); *FOO = 1; } /* just a little helper function */ static void txabort(DB_TXN * tid) { int ret; ret = tid->abort(tid); if (ret) { syslog(LOG_EMERG, "bdb(): txn_abort: %s", db_strerror(ret)); cdb_abort(); } } /* this one is even more helpful than the last. */ static void txcommit(DB_TXN * tid) { int ret; ret = tid->commit(tid, 0); if (ret) { syslog(LOG_EMERG, "bdb(): txn_commit: %s", db_strerror(ret)); cdb_abort(); } } /* are you sensing a pattern yet? */ static void txbegin(DB_TXN ** tid) { int ret; ret = dbenv->txn_begin(dbenv, NULL, tid, 0); if (ret) { syslog(LOG_EMERG, "bdb(): txn_begin: %s", db_strerror(ret)); cdb_abort(); } } static void dbpanic(DB_ENV * env, int errval) { syslog(LOG_EMERG, "bdb(): PANIC: %s", db_strerror(errval)); cit_backtrace(); } static void cclose(DBC * cursor) { int ret; if ((ret = cursor->c_close(cursor))) { syslog(LOG_EMERG, "bdb(): c_close: %s", db_strerror(ret)); cdb_abort(); } } static void bailIfCursor(DBC ** cursors, const char *msg) { int i; for (i = 0; i < MAXCDB; i++) if (cursors[i] != NULL) { syslog(LOG_EMERG, "bdb(): cursor still in progress on cdb %02x: %s", i, msg); cdb_abort(); } } void cdb_check_handles(void) { bailIfCursor(TSD->cursors, "in check_handles"); if (TSD->tid != NULL) { syslog(LOG_EMERG, "bdb(): transaction still in progress!"); cdb_abort(); } } /* * Cull the database logs */ void cdb_cull_logs(void) { u_int32_t flags; int ret; char **file, **list; char errmsg[SIZ]; flags = DB_ARCH_ABS; /* Get the list of names. */ if ((ret = dbenv->log_archive(dbenv, &list, flags)) != 0) { syslog(LOG_ERR, "cdb_cull_logs: %s", db_strerror(ret)); return; } /* Print the list of names. */ if (list != NULL) { for (file = list; *file != NULL; ++file) { syslog(LOG_DEBUG, "Deleting log: %s", *file); ret = unlink(*file); if (ret != 0) { snprintf(errmsg, sizeof(errmsg), " ** ERROR **\n \n \n " "Citadel was unable to delete the " "database log file '%s' because of the " "following error:\n \n %s\n \n" " This log file is no longer in use " "and may be safely deleted.\n", *file, strerror(errno)); CtdlAideMessage(errmsg, "Database Warning Message"); } } free(list); } } /* * Request a checkpoint of the database. Called once per minute by the thread manager. */ void cdb_checkpoint(void) { int ret; MARKM_syslog(LOG_DEBUG, "-- db checkpoint --"); ret = dbenv->txn_checkpoint(dbenv, MAX_CHECKPOINT_KBYTES, MAX_CHECKPOINT_MINUTES, 0); if (ret != 0) { syslog(LOG_EMERG, "cdb_checkpoint: txn_checkpoint: %s", db_strerror(ret)); cdb_abort(); } /* After a successful checkpoint, we can cull the unused logs */ if (CtdlGetConfigInt("c_auto_cull")) { cdb_cull_logs(); } } /* * Open the various databases we'll be using. Any database which * does not exist should be created. Note that we don't need a * critical section here, because there aren't any active threads * manipulating the database yet. */ void open_databases(void) { int ret; int i; char dbfilename[32]; u_int32_t flags = 0; int dbversion_major, dbversion_minor, dbversion_patch; syslog(LOG_DEBUG, "bdb(): open_databases() starting"); syslog(LOG_DEBUG, "Compiled db: %s", DB_VERSION_STRING); syslog(LOG_INFO, " Linked db: %s", db_version(&dbversion_major, &dbversion_minor, &dbversion_patch)); syslog(LOG_INFO, "Linked zlib: %s\n", zlibVersion()); /* * Silently try to create the database subdirectory. If it's * already there, no problem. */ if ((mkdir(ctdl_data_dir, 0700) != 0) && (errno != EEXIST)){ syslog(LOG_EMERG, "unable to create database directory [%s]: %s", ctdl_data_dir, strerror(errno)); } if (chmod(ctdl_data_dir, 0700) != 0){ syslog(LOG_EMERG, "unable to set database directory accessrights [%s]: %s", ctdl_data_dir, strerror(errno)); } if (chown(ctdl_data_dir, CTDLUID, (-1)) != 0){ syslog(LOG_EMERG, "unable to set the owner for [%s]: %s", ctdl_data_dir, strerror(errno)); } syslog(LOG_DEBUG, "bdb(): Setting up DB environment\n"); /* db_env_set_func_yield((int (*)(u_long, u_long))sched_yield); */ ret = db_env_create(&dbenv, 0); if (ret) { syslog(LOG_EMERG, "bdb(): db_env_create: %s\n", db_strerror(ret)); syslog(LOG_EMERG, "exit code %d\n", ret); exit(CTDLEXIT_DB); } dbenv->set_errpfx(dbenv, "citserver"); dbenv->set_paniccall(dbenv, dbpanic); dbenv->set_errcall(dbenv, cdb_verbose_err); dbenv->set_errpfx(dbenv, "ctdl"); #if (DB_VERSION_MAJOR > 4) || ( (DB_VERSION_MAJOR == 4) && (DB_VERSION_MINOR >= 3) ) dbenv->set_msgcall(dbenv, cdb_verbose_log); #endif dbenv->set_verbose(dbenv, DB_VERB_DEADLOCK, 1); dbenv->set_verbose(dbenv, DB_VERB_RECOVERY, 1); /* * We want to specify the shared memory buffer pool cachesize, * but everything else is the default. */ ret = dbenv->set_cachesize(dbenv, 0, 64 * 1024, 0); if (ret) { syslog(LOG_EMERG, "bdb(): set_cachesize: %s\n", db_strerror(ret)); dbenv->close(dbenv, 0); syslog(LOG_EMERG, "exit code %d\n", ret); exit(CTDLEXIT_DB); } if ((ret = dbenv->set_lk_detect(dbenv, DB_LOCK_DEFAULT))) { syslog(LOG_EMERG, "bdb(): set_lk_detect: %s\n", db_strerror(ret)); dbenv->close(dbenv, 0); syslog(LOG_EMERG, "exit code %d\n", ret); exit(CTDLEXIT_DB); } flags = DB_CREATE | DB_INIT_MPOOL | DB_PRIVATE | DB_INIT_TXN | DB_INIT_LOCK | DB_THREAD | DB_RECOVER; syslog(LOG_DEBUG, "dbenv->open(dbenv, %s, %d, 0)\n", ctdl_data_dir, flags); ret = dbenv->open(dbenv, ctdl_data_dir, flags, 0); if (ret == DB_RUNRECOVERY) { syslog(LOG_ALERT, "dbenv->open: %s\n", db_strerror(ret)); syslog(LOG_ALERT, "Attempting recovery...\n"); flags |= DB_RECOVER; ret = dbenv->open(dbenv, ctdl_data_dir, flags, 0); } if (ret == DB_RUNRECOVERY) { syslog(LOG_ALERT, "dbenv->open: %s\n", db_strerror(ret)); syslog(LOG_ALERT, "Attempting catastrophic recovery...\n"); flags &= ~DB_RECOVER; flags |= DB_RECOVER_FATAL; ret = dbenv->open(dbenv, ctdl_data_dir, flags, 0); } if (ret) { syslog(LOG_EMERG, "dbenv->open: %s\n", db_strerror(ret)); dbenv->close(dbenv, 0); syslog(LOG_EMERG, "exit code %d\n", ret); exit(CTDLEXIT_DB); } syslog(LOG_INFO, "Starting up DB\n"); for (i = 0; i < MAXCDB; ++i) { /* Create a database handle */ ret = db_create(&dbp[i], dbenv, 0); if (ret) { syslog(LOG_EMERG, "db_create: %s\n", db_strerror(ret)); syslog(LOG_EMERG, "exit code %d\n", ret); exit(CTDLEXIT_DB); } /* Arbitrary names for our tables -- we reference them by * number, so we don't have string names for them. */ snprintf(dbfilename, sizeof dbfilename, "cdb.%02x", i); ret = dbp[i]->open(dbp[i], NULL, dbfilename, NULL, DB_BTREE, DB_CREATE | DB_AUTO_COMMIT | DB_THREAD, 0600 ); if (ret) { syslog(LOG_EMERG, "db_open[%02x]: %s\n", i, db_strerror(ret)); if (ret == ENOMEM) { syslog(LOG_EMERG, "You may need to tune your database; please read http://www.citadel.org/doku.php?id=faq:troubleshooting:out_of_lock_entries for more information."); } syslog(LOG_EMERG, "exit code %d\n", ret); exit(CTDLEXIT_DB); } } } /* Make sure we own all the files, because in a few milliseconds * we're going to drop root privs. */ void cdb_chmod_data(void) { DIR *dp; struct dirent *d; char filename[PATH_MAX]; dp = opendir(ctdl_data_dir); if (dp != NULL) { while (d = readdir(dp), d != NULL) { if (d->d_name[0] != '.') { snprintf(filename, sizeof filename, "%s/%s", ctdl_data_dir, d->d_name); syslog(LOG_DEBUG, "chmod(%s, 0600) returned %d\n", filename, chmod(filename, 0600) ); syslog(LOG_DEBUG, "chown(%s, CTDLUID, -1) returned %d\n", filename, chown(filename, CTDLUID, (-1)) ); } } closedir(dp); } syslog(LOG_DEBUG, "open_databases() finished\n"); } /* * Close all of the db database files we've opened. This can be done * in a loop, since it's just a bunch of closes. */ void close_databases(void) { int a; int ret; if ((ret = dbenv->txn_checkpoint(dbenv, 0, 0, 0))) { syslog(LOG_EMERG, "txn_checkpoint: %s\n", db_strerror(ret)); } /* print some statistics... */ #ifdef DB_STAT_ALL dbenv->lock_stat_print(dbenv, DB_STAT_ALL); #endif /* close the tables */ for (a = 0; a < MAXCDB; ++a) { syslog(LOG_INFO, "Closing database %02x\n", a); ret = dbp[a]->close(dbp[a], 0); if (ret) { syslog(LOG_EMERG, "db_close: %s\n", db_strerror(ret)); } } /* Close the handle. */ ret = dbenv->close(dbenv, 0); if (ret) { syslog(LOG_EMERG, "DBENV->close: %s\n", db_strerror(ret)); } } /* * Decompress a database item if it was compressed on disk */ void cdb_decompress_if_necessary(struct cdbdata *cdb) { static int magic = COMPRESS_MAGIC; if ((cdb == NULL) || (cdb->ptr == NULL) || (cdb->len < sizeof(magic)) || (memcmp(cdb->ptr, &magic, sizeof(magic)))) return; /* At this point we know we're looking at a compressed item. */ struct CtdlCompressHeader zheader; char *uncompressed_data; char *compressed_data; uLongf destLen, sourceLen; size_t cplen; memset(&zheader, 0, sizeof(struct CtdlCompressHeader)); cplen = sizeof(struct CtdlCompressHeader); if (sizeof(struct CtdlCompressHeader) > cdb->len) cplen = cdb->len; memcpy(&zheader, cdb->ptr, cplen); compressed_data = cdb->ptr; compressed_data += sizeof(struct CtdlCompressHeader); sourceLen = (uLongf) zheader.compressed_len; destLen = (uLongf) zheader.uncompressed_len; uncompressed_data = malloc(zheader.uncompressed_len); if (uncompress((Bytef *) uncompressed_data, (uLongf *) & destLen, (const Bytef *) compressed_data, (uLong) sourceLen) != Z_OK) { syslog(LOG_EMERG, "uncompress() error\n"); cdb_abort(); } free(cdb->ptr); cdb->len = (size_t) destLen; cdb->ptr = uncompressed_data; } /* * Store a piece of data. Returns 0 if the operation was successful. If a * key already exists it should be overwritten. */ int cdb_store(int cdb, const void *ckey, int ckeylen, void *cdata, int cdatalen) { DBT dkey, ddata; DB_TXN *tid; int ret = 0; struct CtdlCompressHeader zheader; char *compressed_data = NULL; int compressing = 0; size_t buffer_len = 0; uLongf destLen = 0; memset(&dkey, 0, sizeof(DBT)); memset(&ddata, 0, sizeof(DBT)); dkey.size = ckeylen; /* no, we don't care for this error. */ dkey.data = ckey; ddata.size = cdatalen; ddata.data = cdata; /* Only compress Visit records. Everything else is uncompressed. */ if (cdb == CDB_VISIT) { compressing = 1; zheader.magic = COMPRESS_MAGIC; zheader.uncompressed_len = cdatalen; buffer_len = ((cdatalen * 101) / 100) + 100 + sizeof(struct CtdlCompressHeader); destLen = (uLongf) buffer_len; compressed_data = malloc(buffer_len); if (compress2((Bytef *) (compressed_data + sizeof(struct CtdlCompressHeader)), &destLen, (Bytef *) cdata, (uLongf) cdatalen, 1) != Z_OK) { syslog(LOG_EMERG, "compress2() error\n"); cdb_abort(); } zheader.compressed_len = (size_t) destLen; memcpy(compressed_data, &zheader, sizeof(struct CtdlCompressHeader)); ddata.size = (size_t) (sizeof(struct CtdlCompressHeader) + zheader.compressed_len); ddata.data = compressed_data; } if (TSD->tid != NULL) { ret = dbp[cdb]->put(dbp[cdb], /* db */ TSD->tid, /* transaction ID */ &dkey, /* key */ &ddata, /* data */ 0); /* flags */ if (ret) { syslog(LOG_EMERG, "cdb_store(%d): %s", cdb, db_strerror(ret)); cdb_abort(); } if (compressing) free(compressed_data); return ret; } else { bailIfCursor(TSD->cursors, "attempt to write during r/o cursor"); retry: txbegin(&tid); if ((ret = dbp[cdb]->put(dbp[cdb], /* db */ tid, /* transaction ID */ &dkey, /* key */ &ddata, /* data */ 0))) { /* flags */ if (ret == DB_LOCK_DEADLOCK) { txabort(tid); goto retry; } else { syslog(LOG_EMERG, "cdb_store(%d): %s", cdb, db_strerror(ret)); cdb_abort(); } } else { txcommit(tid); if (compressing) { free(compressed_data); } return ret; } } return ret; } /* * Delete a piece of data. Returns 0 if the operation was successful. */ int cdb_delete(int cdb, void *key, int keylen) { DBT dkey; DB_TXN *tid; int ret; memset(&dkey, 0, sizeof dkey); dkey.size = keylen; dkey.data = key; if (TSD->tid != NULL) { ret = dbp[cdb]->del(dbp[cdb], TSD->tid, &dkey, 0); if (ret) { syslog(LOG_EMERG, "cdb_delete(%d): %s\n", cdb, db_strerror(ret)); if (ret != DB_NOTFOUND) { cdb_abort(); } } } else { bailIfCursor(TSD->cursors, "attempt to delete during r/o cursor"); retry: txbegin(&tid); if ((ret = dbp[cdb]->del(dbp[cdb], tid, &dkey, 0)) && ret != DB_NOTFOUND) { if (ret == DB_LOCK_DEADLOCK) { txabort(tid); goto retry; } else { syslog(LOG_EMERG, "cdb_delete(%d): %s\n", cdb, db_strerror(ret)); cdb_abort(); } } else { txcommit(tid); } } return ret; } static DBC *localcursor(int cdb) { int ret; DBC *curs; if (TSD->cursors[cdb] == NULL) ret = dbp[cdb]->cursor(dbp[cdb], TSD->tid, &curs, 0); else ret = TSD->cursors[cdb]->c_dup(TSD->cursors[cdb], &curs, DB_POSITION); if (ret) { syslog(LOG_EMERG, "localcursor: %s\n", db_strerror(ret)); cdb_abort(); } return curs; } /* * Fetch a piece of data. If not found, returns NULL. Otherwise, it returns * a struct cdbdata which it is the caller's responsibility to free later on * using the cdb_free() routine. */ struct cdbdata *cdb_fetch(int cdb, const void *key, int keylen) { struct cdbdata *tempcdb; DBT dkey, dret; int ret; memset(&dkey, 0, sizeof(DBT)); dkey.size = keylen; /* no we don't care about this error. */ dkey.data = key; if (TSD->tid != NULL) { memset(&dret, 0, sizeof(DBT)); dret.flags = DB_DBT_MALLOC; ret = dbp[cdb]->get(dbp[cdb], TSD->tid, &dkey, &dret, 0); } else { DBC *curs; do { memset(&dret, 0, sizeof(DBT)); dret.flags = DB_DBT_MALLOC; curs = localcursor(cdb); ret = curs->c_get(curs, &dkey, &dret, DB_SET); cclose(curs); } while (ret == DB_LOCK_DEADLOCK); } if ((ret != 0) && (ret != DB_NOTFOUND)) { syslog(LOG_EMERG, "cdb_fetch(%d): %s\n", cdb, db_strerror(ret)); cdb_abort(); } if (ret != 0) return NULL; tempcdb = (struct cdbdata *) malloc(sizeof(struct cdbdata)); if (tempcdb == NULL) { syslog(LOG_EMERG, "cdb_fetch: Cannot allocate memory for tempcdb\n"); cdb_abort(); return NULL; /* make it easier for static analysis... */ } else { tempcdb->len = dret.size; tempcdb->ptr = dret.data; cdb_decompress_if_necessary(tempcdb); return (tempcdb); } } /* * Free a cdbdata item. * * Note that we only free the 'ptr' portion if it is not NULL. This allows * other code to assume ownership of that memory simply by storing the * pointer elsewhere and then setting 'ptr' to NULL. cdb_free() will then * avoid freeing it. */ void cdb_free(struct cdbdata *cdb) { if (cdb->ptr) { free(cdb->ptr); } free(cdb); } void cdb_close_cursor(int cdb) { if (TSD->cursors[cdb] != NULL) { cclose(TSD->cursors[cdb]); } TSD->cursors[cdb] = NULL; } /* * Prepare for a sequential search of an entire database. * (There is guaranteed to be no more than one traversal in * progress per thread at any given time.) */ void cdb_rewind(int cdb) { int ret = 0; if (TSD->cursors[cdb] != NULL) { syslog(LOG_EMERG, "cdb_rewind: must close cursor on database %d before reopening.\n", cdb); cdb_abort(); /* cclose(TSD->cursors[cdb]); */ } /* * Now initialize the cursor */ ret = dbp[cdb]->cursor(dbp[cdb], TSD->tid, &TSD->cursors[cdb], 0); if (ret) { syslog(LOG_EMERG, "cdb_rewind: db_cursor: %s\n", db_strerror(ret)); cdb_abort(); } } /* * Fetch the next item in a sequential search. Returns a pointer to a * cdbdata structure, or NULL if we've hit the end. */ struct cdbdata *cdb_next_item(int cdb) { DBT key, data; struct cdbdata *cdbret; int ret = 0; /* Initialize the key/data pair so the flags aren't set. */ memset(&key, 0, sizeof(key)); memset(&data, 0, sizeof(data)); data.flags = DB_DBT_MALLOC; ret = TSD->cursors[cdb]->c_get(TSD->cursors[cdb], &key, &data, DB_NEXT); if (ret) { if (ret != DB_NOTFOUND) { syslog(LOG_EMERG, "cdb_next_item(%d): %s\n", cdb, db_strerror(ret)); cdb_abort(); } cdb_close_cursor(cdb); return NULL; /* presumably, end of file */ } cdbret = (struct cdbdata *) malloc(sizeof(struct cdbdata)); cdbret->len = data.size; cdbret->ptr = data.data; cdb_decompress_if_necessary(cdbret); return (cdbret); } /* * Transaction-based stuff. I'm writing this as I bake cookies... */ void cdb_begin_transaction(void) { bailIfCursor(TSD->cursors, "can't begin transaction during r/o cursor"); if (TSD->tid != NULL) { syslog(LOG_EMERG, "cdb_begin_transaction: ERROR: nested transaction\n"); cdb_abort(); } txbegin(&TSD->tid); } void cdb_end_transaction(void) { int i; for (i = 0; i < MAXCDB; i++) if (TSD->cursors[i] != NULL) { syslog(LOG_WARNING, "cdb_end_transaction: WARNING: cursor %d still open at transaction end\n", i); cclose(TSD->cursors[i]); TSD->cursors[i] = NULL; } if (TSD->tid == NULL) { syslog(LOG_EMERG, "cdb_end_transaction: ERROR: txcommit(NULL) !!\n"); cdb_abort(); } else { txcommit(TSD->tid); } TSD->tid = NULL; } /* * Truncate (delete every record) */ void cdb_trunc(int cdb) { /* DB_TXN *tid; */ int ret; u_int32_t count; if (TSD->tid != NULL) { syslog(LOG_EMERG, "cdb_trunc must not be called in a transaction."); cdb_abort(); } else { bailIfCursor(TSD->cursors, "attempt to write during r/o cursor"); retry: /* txbegin(&tid); */ if ((ret = dbp[cdb]->truncate(dbp[cdb], /* db */ NULL, /* transaction ID */ &count, /* #rows deleted */ 0))) { /* flags */ if (ret == DB_LOCK_DEADLOCK) { /* txabort(tid); */ goto retry; } else { syslog(LOG_EMERG, "cdb_truncate(%d): %s\n", cdb, db_strerror(ret)); if (ret == ENOMEM) { syslog(LOG_EMERG, "You may need to tune your database; please read http://www.citadel.org/doku.php?id=faq:troubleshooting:out_of_lock_entries for more information."); } exit(CTDLEXIT_DB); } } else { /* txcommit(tid); */ } } } int SeentDebugEnabled = 0; #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (SeentDebugEnabled != 0)) #define SEENM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%ld] SEEN[%s][%d] " FORMAT, \ IOSTR, ioid, ccid, Facility, cType) #define SEEN_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%ld] SEEN[%s][%d] " FORMAT, \ IOSTR, ioid, ccid, Facility, cType, \ __VA_ARGS__) time_t CheckIfAlreadySeen(const char *Facility, StrBuf *guid, time_t now, time_t antiexpire, eCheckType cType, long ccid, long ioid) { time_t InDBTimeStamp = 0; struct UseTable ut; struct cdbdata *cdbut; if (cType != eWrite) { SEEN_syslog(LOG_DEBUG, "Loading [%s]", ChrPtr(guid)); cdbut = cdb_fetch(CDB_USETABLE, SKEY(guid)); if ((cdbut != NULL) && (cdbut->ptr != NULL)) { memcpy(&ut, cdbut->ptr, ((cdbut->len > sizeof(struct UseTable)) ? sizeof(struct UseTable) : cdbut->len)); InDBTimeStamp = now - ut.ut_timestamp; if (InDBTimeStamp < antiexpire) { SEEN_syslog(LOG_DEBUG, "Found - Not expired %ld < %ld", InDBTimeStamp, antiexpire); cdb_free(cdbut); return InDBTimeStamp; } else { SEEN_syslog(LOG_DEBUG, "Found - Expired. %ld >= %ld", InDBTimeStamp, antiexpire); cdb_free(cdbut); } } else { if (cdbut) cdb_free(cdbut); SEENM_syslog(LOG_DEBUG, "not Found"); if (cType == eCheckUpdate) return 0; } if (cType == eCheckExist) return InDBTimeStamp; } memcpy(ut.ut_msgid, SKEY(guid)); ut.ut_timestamp = now; SEENM_syslog(LOG_DEBUG, "Saving new Timestamp"); /* rewrite the record anyway, to update the timestamp */ cdb_store(CDB_USETABLE, SKEY(guid), &ut, sizeof(struct UseTable) ); SEENM_syslog(LOG_DEBUG, "Done Saving"); return InDBTimeStamp; } void cmd_rsen(char *argbuf) { char Token[SIZ]; long TLen; char Time[SIZ]; struct UseTable ut; struct cdbdata *cdbut; if (CtdlAccessCheck(ac_aide)) return; TLen = extract_token(Token, argbuf, 1, '|', sizeof Token); if (strncmp(argbuf, "GET", 3) == 0) { cdbut = cdb_fetch(CDB_USETABLE, Token, TLen); if (cdbut != NULL) { memcpy(&ut, cdbut->ptr, ((cdbut->len > sizeof(struct UseTable)) ? sizeof(struct UseTable) : cdbut->len)); cprintf("%d %ld\n", CIT_OK, ut.ut_timestamp); } else { cprintf("%d not found\n", ERROR + NOT_HERE); } } else if (strncmp(argbuf, "SET", 3) == 0) { memcpy(ut.ut_msgid, Token, TLen); extract_token(Time, argbuf, 2, '|', sizeof Time); ut.ut_timestamp = atol(Time); cdb_store(CDB_USETABLE, Token, TLen, &ut, sizeof(struct UseTable) ); cprintf("%d token updated\n", CIT_OK); } else if (strncmp(argbuf, "DEL", 3) == 0) { if (cdb_delete(CDB_USETABLE, Token, TLen)) cprintf("%d not found\n", ERROR + NOT_HERE); else cprintf("%d deleted.\n", CIT_OK); } else { cprintf("%d Usage: [GET|SET|DEL]|Token|timestamp\n", ERROR); } } void LogDebugEnableSeenEnable(const int n) { SeentDebugEnabled = n; } CTDL_MODULE_INIT(database) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("SeenDebug"), LogDebugEnableSeenEnable, &SeentDebugEnabled); CtdlRegisterProtoHook(cmd_rsen, "RSEN", "manipulate Aggregators seen database"); } /* return our module id for the log */ return "database"; } citadel-902/database.h000066400000000000000000000044431271512031400147110ustar00rootroot00000000000000/* * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #ifndef DATABASE_H #define DATABASE_H void open_databases (void); void close_databases (void); int cdb_store (int cdb, const void *key, int keylen, void *data, int datalen); int cdb_delete (int cdb, void *key, int keylen); struct cdbdata *cdb_fetch (int cdb, const void *key, int keylen); void cdb_free (struct cdbdata *cdb); void cdb_rewind (int cdb); struct cdbdata *cdb_next_item (int cdb); void cdb_close_cursor(int cdb); void cdb_begin_transaction(void); void cdb_end_transaction(void); void cdb_allocate_tsd(void); void cdb_free_tsd(void); void cdb_check_handles(void); void cdb_trunc(int cdb); void *checkpoint_thread(void *arg); void cdb_chmod_data(void); void cdb_checkpoint(void); void check_handles(void *arg); void cdb_cull_logs(void); /* * Database records beginning with this magic number are assumed to * be compressed. In the event that a database record actually begins with * this magic number, we *must* compress it whether we want to or not, * because the fetch function will try to uncompress it anyway. * * (No need to #ifdef this stuff; it compiles ok even if zlib is not present * and doesn't declare anything so it won't bloat the code) */ #define COMPRESS_MAGIC 0xc0ffeeee struct CtdlCompressHeader { int magic; size_t uncompressed_len; size_t compressed_len; }; typedef enum __eCheckType { eCheckExist, /* look up the item, return the timestamp if its there, 0 if not. */ eCheckUpdate, /* if it exists, refresh in db timestamp. return the timstamp if its there, 0 if not. */ eUpdate, /* insert/update the new value, return the old if its there, 0 if not. */ eWrite /* write this to DB, unconditional. */ }eCheckType; time_t CheckIfAlreadySeen(const char *Facility, StrBuf *guid, time_t now, time_t antiexpire, eCheckType cType, long ccid, long ioid); #endif /* DATABASE_H */ citadel-902/database_cleanup.sh.in000077500000000000000000000061241271512031400172110ustar00rootroot00000000000000#!/bin/bash die () { echo Exiting. exit 1 } # data dir from autoconf? DATA_DIR="@MAKE_DATA_DIR@" if test -z "$DATA_DIR" ; then DATA_DIR="/usr/local/citadel" fi DATA_DIR=$DATA_DIR/data # If we're on an Easy Install system, use our own db_ tools. # if [ -x /usr/local/ctdlsupport/bin/db_dump ] ; then export PATH=/usr/local/ctdlsupport/bin:$PATH RECOVER=/usr/local/ctdlsupport/bin/db_recover DUMP=/usr/local/ctdlsupport/bin/db_dump LOAD=/usr/local/ctdlsupport/bin/db_load else # ok usual install? if test -f /usr/bin/db_dump; then RECOVER=/usr/bin/db_recover DUMP=/usr/bin/db_dump LOAD=/usr/bin/db_load else if test -n "`ls /usr/bin/db?*recover`"; then # seems we have something debian alike thats adding version in the filename if test "`ls /usr/bin/db*recover |wc -l`" -gt "1"; then echo "Warning: you have more than one version of the Berkeley DB utilities installed." 1>&2 echo "Using the latest one." 1>&2 RECOVER=`ls /usr/bin/db*recover |sort |tail -n 1` DUMP=`ls /usr/bin/db*dump |sort |tail -n 1` LOAD=`ls /usr/bin/db*load |sort |tail -n 1` else RECOVER=`ls /usr/bin/db*recover` DUMP=`ls /usr/bin/db*dump` LOAD=`ls /usr/bin/db*load` fi else echo "database_cleanup.sh cannot find the Berkeley DB utilities. Exiting." 1>&2 die fi fi fi # Ok, let's begin. # clear cat </tmp/CitaDump.$x || die rm -f $DATA_DIR/$filename done echo Removing old databases rm -f ./data/* for x in 00 01 02 03 04 05 06 07 08 09 0a 0b 0c do filename=cdb.$x echo Loading $filename $LOAD -h $DATA_DIR $filename -API. The current list: - DB maintenance; flush redo logs etc. - fulltext index (this one is a little problematic here, since it may be long running and block other housekeeping tasks for a while) - Networking-Queue - Citadel Networking Queue aggregator (Blocks NTT) - Citadel Inbound Queue operator (Blocks NTT) - Citadel Networking Queue - SMTP-Client-Queue - RSS-Aggregator scheduling - HTTP-Message Notification Queue (Extnotify) - POP3Client Queue The queues operate over their respective queue; which may be implemented with a private room (smtp-Queue, Extnotify Client), per room configs (RSS-Client; POP3Client), or an aggregate of Rooms/Queue/Roomconfigs (Citadel Networker). ==== Networking Queue ==== The networking queue opperats over an aggregate of per room network configs and messages in rooms that are newer than a remembered whatermark (netconfigs.txt#lastsent). All messages Newer than the watermark are then processed: - for all mailinglist recipients an entry is added to the mailqueue - for all mailinglist digest recipients a digest file is written, or once per day scheduled to - for all Citadel networking nodes a spool file is written for later evaluation. ==== Citadel Networking Queue aggregator ==== The aggregator iterates over the spool directory, and combines all per message spool files to one big file which is to be sent by the Citadel Networking Queue later. It blocks the NTT-List for the remote party while doing so; if the NTT-List is blocked the file is skipped for next operation. Once all files are successfully processed, all files not associated with a networking config are flushed. ==== Citadel Inbound Queue operator ==== The inbound queue operator scans for new inbound spool files, processes them, splits them into messages which are then posted into their respective rooms. ==== other Queues ==== Once these Queue-operators have identified a job to be performed like - talking to another Citadel Node to transfer spool files back and forth - sending mails via SMTP - polling remote POP3-Servers for new mails - fetching RSS-Feeds via HTTP - Notifying external facilities for new messages in inboxes via HTTP They create a Context for that Job (AsyncIO struct) plus their own Private data, plus a CitContext which is run under the privileges of a SYS_* user. HTTP Jobs just schedule the HTTP-Job, and are then called back on their previously registered hook once the HTTP-Request is done. All other have to implement their own IO controled business logic. ===== IO-Thread ===== The IO-Event-queue lives in this thread. Code running in this thread has to obey several rules. - it mustn't do blocking operations (like disk IO or nameserver lookups other than the c-ares facilities) - it mustn't use blocking Sockets - other threads mustn't access memory belonging to an IO job - New IO contexts have to be registered via QueueEventContext() from other threads; Its callback are then called from whithin the event queue to start its logic. - New HTTP-IO contexts have to be registered via QueueCurlContext() - once you've registered a context, you must not access its memory anymore to avoid race conditions. ==== Logic in event_client ==== InitIOStruct() which prepares an AsyncIO struct for later use before using QueueEventContext() to activate it. Here we offer the basics for I/O; Hostname lookus, connecting remote parties, basic read and write operation control flows. This logic communicates with the next layer via callback hooks. Before running hooks or logging CC is set from AsyncIO->CitContext Most clients are stacked that way: --- -- -- === event base === While the event base is responsible for reading and writing, it just does so without the understanding of the protocol it speaks. It at most knows about chunksises to send/read, or when a line is sent / received. === IO grammer logic === The IO grammer logic is implemented for each client. It understands the grammer of the protocol spoken; i.e. the SMTP implementation knows that it has to read status lines as long as there are 3 digits followed by a dash (i.e. in the ehlo reply). Once the grammer logic has decided a communication state is completed, it calls the next layer. === state machine dispatcher === The state machine dispatcher knows which part of the application logic is currently operated. Once its called, it dispatches to the right read/write hook. Read/write hooks may in term call the dispatcher again, if they want to divert to another part of the logic. === state hooks === The state hooks or handlers actualy PARSE the IO-Buffer and evaluate what next action should be taken; There could be an error from the remote side so the action has to be aborted, or usually simply the next state can be reached. === surrounding businesslogic === Depending on the protocol there has to be surrounding business logic, which handles i.e. nameserver lookups, which ips to connect, what to do on a connection timeout, or doing local database IO. ===== DB-IO-Thread ===== Since lookups / writes to the database may take time, this mustn't be done inside of the IO-Eventloop. Therefore this other thread & event queue is around. Usually a context should respect that there may be others around also wanting to do DB IO, so it shouldn't do endless numbers of requests. While its ok to do _some_ requests in a row (like deleting some messages, updating messages, etc.), loops over unknown numbers of queries should be unrolled and be done one query at a time (i.e. looking up messages in the 'already known table') === Transitioning back & forth === If the application logic has found that a transition is to be made from the event IO to the DB IO thread. Do so by calling DBQueueEventContext() (DB -> IO) EventQueueDBOperation() (IO->DB) and pass its return value up the row to enable the controll logic to do the actual transition for you. citadel-902/docs/citadelapi.txt000066400000000000000000000304301271512031400165570ustar00rootroot00000000000000 Citadel Server Extension API Documentation --------------------------------------------- This is a VERY INCOMPLETE documentation of the API for extending the Citadel server using dynamically loaded modules. It really isn't an API at all, but rather a list of some of the functions available in the server which are likely to be of use to module writers. The current trend is to move as much stuff as possible out of the server proper and into loadable modules. This makes the code much easier to read and understand. Expect this document to become more complete over time, as both the API and the person documenting it have a chance to mature a bit. :) USER RELATED FUNCTIONS ---------------------- The fundamental user data is stored in "struct ctdluser" which is defined in citadel.h. The following functions are available: int getuser(struct ctdluser *usbuf, char name[]) Given the name of a requested user and a buffer to store the user record in, getuser() will search the userlog for the named user and load its data into the buffer. getuser() returns 0 upon success or a nonzero error code if the requested operation could not be performed. void putuser(struct ctdluser *usbuf, char *name) After reading in a user record with getuser() and perhaps modifying the data in some way, a program may use putuser() to write it back to disk. int lgetuser(struct ctdluser *usbuf, char *name) void lputuser(struct ctdluser *usbuf, char *name) If critical-section operation is required, this pair of calls may be used. They function the same as getuser() and putuser(), except that lgetuser() locks the user file immediately after retrieving the record and lputuser() unlocks it. This will guarantee that no other threads manipulate the same user record at the same time. NOTE: do NOT attempt to combine the locking lgetuser/lputuser calls with any other locking calls in this API. Attempting to obtain concurrent locks on multiple files may result in a deadlock condition which would freeze the entire server. void ForEachUser(void (*CallBack)(struct ctdluser *EachUser)) This allows a user-supplied function to be called once for each user on the system. The user-supplied function will be called with a pointer to a user structure as its only argument. int getuserbynumber(struct ctdluser *usbuf, long int number) getuserbynumber() functions similarly to getuser(), except that it is supplied with a user number rather than a name. Calling this function results in a sequential search of the user file, so use it sparingly if at all. int purge_user(char *pname) This function deletes the named user off the system and erases all related objects: bio, photo, etc. It returns 0 upon success or a nonzero error code if the requested operation could not be performed. HOW TO REGISTER FUNCTION HOOKS ------------------------------ The truly powerful part of the Citadel API is the ability for extensions to register "hooks" -- user-supplied functions will be called while the server is performing various tasks. Here are the API calls to register hooks: void CtdlRegisterProtoHook(void (*handler)(char *), char *cmd, char *desc) void CtdlUnregisterProtoHook(void (*handler)(char *), char *cmd) CtdlRegisterProtoHook() adds a new server command to the system. The handler function should accept a single string parameter, which will be set to a string containing any parameters the client software sent along with the server command. "cmd" should be the four-character mnemonic the server command is known by, and "desc" is a description of the new command. CtdlUnregisterProtoHook() removes a server command from the system. It must be called with the same handler and cmd which were previously registered. void CtdlRegisterCleanupHook(void *fcn_ptr) void CtdlUnregisterCleanupHook(void *fcn_ptr) CtdlRegisterCleanupHook() registers a new function to be called whenever the server is shutting down. Cleanup functions accept no parameters. CtdlUnregsiterCleanupHook() removes a cleanup function from the system. It must be called with the same fcn_ptr which was previously registered. void CtdlRegisterSessionHook(void *fcn_ptr, int EventType) void CtdlUnregisterSessionHook(void *fcn_ptr, int EventType) CtdlRegisterSessionHook() registers a session hook. Session hooks accept no parameters. There are multiple types of session hooks; the server extension registers which one it is interested in by setting the value of EventType. The available session hook types are: #define EVT_STOP 0 /* Session is terminating */ #define EVT_START 1 /* Session is starting */ #define EVT_LOGIN 2 /* A user is logging in */ #define EVT_NEWROOM 3 /* Changing rooms */ #define EVT_LOGOUT 4 /* A user is logging out */ #define EVT_SETPASS 5 /* Setting or changing password */ #define EVT_CMD 6 /* Called after each server command */ #define EVT_RWHO 7 /* An RWHO command is being executed */ #define EVT_ASYNC 8 /* Doing asynchronous message */ #define EVT_TIMER 50 /* Timer events are called once per minute */ #define EVT_HOUSE 51 /* Housekeeping event */ CtdlUnregisterSessionHook() removes a session hook. It must be called with the same fcn_ptr and EventTYpe which were previously registered. void CtdlRegisterUserHook(void *fcn_ptr, int EventType) void CtdlUnregisterUserHook(void *fcn_ptr, int EventType) CtdlRegisterUserHook() registers a user hook. User hooks accept two parameters: a string pointer containing the user name, and a long which *may* contain a user number (only applicable for certain types of hooks). The available user hook types are: #define EVT_PURGEUSER 100 /* Deleting a user */ #define EVT_OUTPUTMSG 101 /* Outputting a message */ CtdlUnregisterUserHook() removes a user hook from the system. It must be called with the same fcn_ptr and EventType which were previously registered. void CtdlRegisterLogHook(void (*fcn_ptr) (char *), int loglevel) void CtdlUnregisterLogHook(void (*fcn_ptr) (char *), int loglevel) CtdlRegisterLogHook() adds a new logging function to the system. The handler function should accept a single string as a parameter. Logging functions can be used to implement additional logging facilities in addition to the Citadel trace file, which is output on stderr, or redirected to a file with the -t command line option. The handler function will be called if the loglevel is greater than or equal to loglevel. Security considerations: Logs may contain plain text passwords and other sensitive information. It is your responsibility to ensure that your logs have appropriate access protection. The Citadel trace file is readable only by the superuser when the -t option is used. CtdlUnregisterLogHook() removes a logging function from the system. It must be called with the same fcn_ptr and loglevel which were previously registered. void CtdlRegisterMessageHook(int (*handler) (struct CtdlMessage *), int EventType) void CtdlUnregisterMessageHook(int (*handler) (struct CtdlMessage *), int EventType) CtdlRegisterMessageHook() registers a function with the message handling subsystem. This function will be called with one parameter, a pointer to a CtdlMessage structure, when the message triggers an event of type EventType. The registered function should return non zero if it has handled the event to prevent other hook functions from also processing the event. CtdlUnregisterMessageHook() removes a function from the list of registered message handlers. To successfully remove a function registered with CtdlRegisterMessageHook() CtdlUnregisterMessageHook() must be called with the same parameters. Possible values for EventType are: EVT_BEFOREREAD Called after a message is loaded from disk but before it is presented for reading. EVT_BEFORESAVE Called before the message is saved to disk. returning non zero for this event will prevent the message being saved to disk in the normal manner. EVT_AFTERSAVE Called after the message is saved to disk but before any IGnet spooling is carried out. EVT_SMTPSCAN Called during the SMTP reception of a message after the message is received and before the response is sent to the sender. This is intended for spam filters and virus checkers. A positive return code will cause the message to be rejected by the SMTP server. void CtdlRegisterRoomHook(int (*fcn_ptr) (char *)) void CtdlUnregisterRoomHook(int (*fcn_ptr) (char *)) Register or remove a function with the room processing system. Registered functions are called in the order they are registered when a message is added to a room. This allows modules such as Sieve to process new messages appearing in a room. void CtdlRegisterXmsgHook(int (*fcn_ptr) (char *, char *, char *), int order) void CtdlUnregisterXmsgHook(int (*fcn_ptr) (char *, char *, char *), int order) Please write documentation for me! void CtdlRegisterServiceHook(int tcp_port, char *sockpath, void (*h_greeting_function) (void), void (*h_command_function) (void)) void CtdlUnregisterServiceHook(int tcp_port, char *sockpath, void (*h_greeting_function) (void), void (*h_command_function) (void)) Please write documentation for me! FUNCTIONS WHICH MANIPULATE USER/ROOM RELATIONSHIPS void CtdlGetRelationship(struct visit *vbuf, struct ctdluser *rel_user, struct ctdlroom *rel_room); void CtdlSetRelationship(struct visit *newvisit, struct ctdluser *rel_user, struct ctdlroom *rel_room); These functions get/set a "struct visit" structure which may contain information about the relationship between a user and a room. Specifically: struct visit { char v_roomname[20]; long v_generation; long v_lastseen; unsigned int v_flags; }; #define V_FORGET 1 /* User has zapped this room */ #define V_LOCKOUT 2 /* User is locked out of this room */ #define V_ACCESS 4 /* Access is granted to this room */ Don't change v_roomname or v_generation; they're used to identify the room being referred to. A room is unique to the system by its combination of room name and generation number. If a new room is created with the same name as a recently deleted room, it will have a new generation number, and therefore stale "visit" records will not be applied (and will eventually be purged). v_lastseen contains the number of the newest message the user has read in this room. Any existing messages higher than this number can be considered as "new messages." v_flags contains information regarding access to the room. int CtdlRoomAccess(struct ctdlroom *roombuf, struct ctdluser *userbuf) This is a convenience function which uses CtdlGetRelationship() to determine whether a user has access to a room. It returns a bucket of bits which may contain: #define UA_INUSE 1 /* Room exists */ #define UA_KNOWN 2 /* Room is in user's Known list */ #define UA_GOTOALLOWED 4 /* User may <.G>oto this room */ #define UA_HASNEWMSGS 8 /* Room contains new messages */ #define UA_ZAPPED 16 /* User has forgotten this room */ ROOM RELATED FUNCTIONS ---------------------- unsigned create_room(char *new_room_name, int new_room_type, char *new_room_pass, int new_room_floor, int really_create) This function is used to create a new room. new_room_name should be set to the desired name for the new room. new_room_type should be set to one of the following values: 0 = public room 1 = guess-name room 2 = passworded room 3 = invitation-only room 4 = personal (mailbox) room 5 = personal (mailbox) room, and new_room_name already contains the namespace prefix (use with caution!) new_room_pass should be set to the desired password for the room (obviously this is only valid for passworded rooms). If the room is really to be created, set really_create to 1. Otherwise, the caller may merely check to see if it's possible to create the room without actually creating it by setting really_create to 0. create_room() returns the flags associated with the new room (as in the data structure item room.QRflags). If the room cannot be created (for example, a room with the name already exists), it returns 0. citadel-902/docs/databaselayout.md000066400000000000000000000642261271512031400172550ustar00rootroot00000000000000The totally incomplete guide to Citadel internals ----------------------------------------------------- ----------------------------------------------------- Citadel has evolved quite a bit since its early days, and the data structures have evolved with it. This document provides a rough overview of how the system works internally. For details you're going to have to dig through the code, but this'll get you started. DATABASE TABLES --------------- As you probably already know by now, Citadel uses a group of tables stored with a record manager (usually Berkeley DB). Since we're using a record manager rather than a relational database, all record structures are managed by Citadel. Here are some of the tables we keep on disk: USER RECORDS ------------ This table contains all user records. It's indexed by user name (translated to lower case for indexing purposes). The records in this file look something like this: struct ctdluser { /* User record */ int version; /* Cit vers. which created this rec */ uid_t uid; /* Associate with a unix account? */ char password[32]; /* password (for Citadel-only users)*/ unsigned flags; /* See US_ flags below */ long timescalled; /* Total number of logins */ long posted; /* Number of messages posted (ever) */ CIT_UBYTE axlevel; /* Access level */ long usernum; /* User number (never recycled) */ time_t lastcall; /* Last time the user called */ int USuserpurge; /* Purge time (in days) for user */ char fullname[64]; /* Name for Citadel messages & mail */ }; Most fields here should be fairly self-explanatory. The ones that might deserve some attention are: - *uid* -- if uid is not the same as the *unix uid* Citadel is running as, then the account is assumed to belong to the user on the underlying Unix system with that uid. This allows us to require the user's OS password instead of having a separate Citadel password. - *usernum* -- these are assigned sequentially, and **NEVER REUSED**. This is important because it allows us to use this number in other data structures without having to worry about users being added/removed later on, as you'll see later in this document. ROOM RECORDS ------------ These are room records. There is a room record for every room on the system, public or private or mailbox. It's indexed by room name (also in lower case for easy indexing) and it contains records which look like this: struct ctdlroom { char QRname[ROOMNAMELEN]; /* Name of room */ char QRpasswd[10]; /* Only valid if it's a private rm */ long QRroomaide; /* User number of room aide */ long QRhighest; /* Highest message NUMBER in room */ time_t QRgen; /* Generation number of room */ unsigned QRflags; /* See flag values below */ char QRdirname[15]; /* Directory name, if applicable */ long QRinfo; /* Info file update relative to msgs*/ char QRfloor; /* Which floor this room is on */ time_t QRmtime; /* Date/time of last post */ struct ExpirePolicy QRep; /* Message expiration policy */ long QRnumber; /* Globally unique room number */ char QRorder; /* Sort key for room listing order */ unsigned QRflags2; /* Additional flags */ int QRdefaultview; /* How to display the contents */ }; Again, mostly self-explanatory. Here are the interesting ones: *QRnumber* is a globally unique room ID, while QRgen is the "generation number" of the room (it's actually a timestamp). The two combined produce a unique value which identifies the room. The reason for two separate fields will be explained below when we discuss the visit table. For now just remember that *QRnumber* remains the same for the duration of the room's existence, and QRgen is timestamped once during room creation but may be restamped later on when certain circumstances exist. FLOORTAB -------- Floors. This is so simplistic it's not worth going into detail about, except to note that we keep a reference count of the number of rooms on each floor. MSGLISTS -------- Each record in this table consists of a bunch of message numbers which represent the contents of a room. A message can exist in more than one room (for example, a mail message with multiple recipients -- 'single instance store'). This table is never, ever traversed in its entirety. When you do any type of read operation, it fetches the msglist for the room you're in (using the room's ID as the index key) and then you can go ahead and read those messages one by one. Each room is basically just a list of message numbers. Each time we enter a new message in a room, its message number is appended to the end of the list. If an old message is to be expired, we must delete it from the message base. Reading a room is just a matter of looking up the messages one by one and sending them to the client for display, printing, or whatever. VISIT ----- This is the tough one. Put on your thinking cap and grab a fresh cup of coffee before attempting to grok the visit table. This table contains records which establish the relationship between users and rooms. Its index is a hash of the user and room combination in question. When looking for such a relationship, the record in this table can tell the server things like "this user has zapped this room," "this user has access to this private room," etc. It's also where we keep track of which messages the user has marked as "old" and which are "new" (which are not necessarily contiguous; contrast with older Citadel implementations which simply kept a "last read" pointer). Here's what the records look like: struct visit { long v_roomnum; long v_roomgen; long v_usernum; long v_lastseen; unsigned int v_flags; char v_seen[SIZ]; int v_view; }; #define V_FORGET 1 /* User has zapped this room */ #define V_LOCKOUT 2 /* User is locked out of this room */ #define V_ACCESS 4 /* Access is granted to this room */ This table is indexed by a concatenation of the first three fields. Whenever we want to learn the relationship between a user and a room, we feed that data to a function which looks up the corresponding record. The record is designed in such a way that an "all zeroes" record (which is what you get if the record isn't found) represents the default relationship. With this data, we now know which private rooms we're allowed to visit: if the *V_ACCESS* bit is set, the room is one which the user knows, and it may appear in his/her known rooms list. Conversely, we also know which rooms the user has zapped: if the *V_FORGET* flag is set, we relegate the room to the zapped list and don't bring it up during new message searches. It's also worth noting that the *V_LOCKOUT* flag works in a similar way to administratively lock users out of rooms. Implementing the "cause all users to forget room" command, then, becomes very simple: we simply change the generation number of the room by putting a new timestamp in the *QRgen* field. This causes all relevant visit records to become irrelevant, because they appear to point to a different room. At the same time, we don't lose the messages in the room, because the msglists table is indexed by the room number (*QRnumber*), which never changes. *v_seen* contains a string which represents the set of messages in this room which the user has read (marked as 'seen' or 'old'). It follows the same syntax used by IMAP and NNTP. When we search for new messages, we simply return any messages that are in the room that are **not** represented by this set. Naturally, when we do want to mark more messages as seen (or unmark them), we change this string. Citadel BBS client implementations are naive and think linearly in terms of "everything is old up to this point," but IMAP clients want to have more granularity. DIRECTORY --------- This table simply maps Internet e-mail addresses to Citadel network addresses for quick lookup. It is generated from data in the Global Address Book room. USETABLE -------- This table keeps track of message ID's of messages arriving over a network, to prevent duplicates from being posted if someone misconfigures the network and a loop is created. This table goes unused on a non-networked Citadel. THE MESSAGE STORE ----------------- This is where all message text is stored. It's indexed by message number: give it a number, get back a message. Messages are numbered sequentially, and the message numbers are never reused. We also keep a "metadata" record for each message. This record is also stored in the msgmain table, using the index (0 - msgnum). We keep in the metadata record, among other things, a reference count for each message. Since a message may exist in more than one room, it's important to keep this reference count up to date, and to delete the message from disk when the reference count reaches zero. #Here's the format for the message itself: - Each message begins with an 0xFF 'start of message' byte. - The next byte denotes whether this is an anonymous message. The codes available are *MES_NORMAL*, *MES_ANON*, or *MES_AN2* (defined in citadel.h). - The third byte is a "message type" code. The following codes are defined: - 0 - "Traditional" Citadel format. Message is to be displayed "formatted." - 1 - Plain pre-formatted ASCII text (otherwise known as text/plain) - 4 - MIME formatted message. The text of the message which follows is expected to begin with a "Content-type:" header. - After these three opening bytes, the remainder of the message consists of a sequence of character strings. Each string begins with a type byte indicating the meaning of the string and is ended with a null. All strings are printable ASCII: in particular, all numbers are in ASCII rather than binary. This is for simplicity, both in implementing the system and in implementing other code to work with the system. For instance, a database driven off Citadel archives can do wildcard matching without worrying about unpacking binary data such as message ID's first. To provide later downward compatability all software should be written to IGNORE fields not currently defined. #The type bytes currently defined are: | BYTE | Enum | NW | Mnemonic | Enum / Comments |-------|-------------------|------|----------------|--------------------------------------------------------- | A | eAuthor | from | Author | *eAuthor* | | | | | Name of originator of message. | B | eBig\_message | | Big message | *eBig\_message* | | | | | This is a flag which indicates that the message is | | | | | big, and Citadel is storing the body in a separate | | | | | record. You will never see this field because the | | | | | internal API handles it. | C | eRemoteRoom | | RemoteRoom | *eRemoteRoom* | | | | | when sent via Citadel Networking, this is the room | | | | | its going to be put on the remote site. | D | eDestination | | Destination | *eDestination* | | | | | Contains name of the system this message should | | | | | be sent to, for mail routing (private mail only). | E | eExclusiveID | exti | Exclusive ID | *eExclusiveID* | | | | | A persistent alphanumeric Message ID used for | | | | | network replication. When a message arrives that | | | | | contains an Exclusive ID, any existing messages which | | | | | contain the same Exclusive ID and are *older* than this | | | | | message should be deleted. If there exist any messages | | | | | with the same Exclusive ID that are *newer*, then this | | | | | message should be dropped. | F | erFc822Addr | rfca | rFc822 address | *erFc822Addr* | | | | | For Internet mail, this is the delivery address of the | | | | | message author. | H | eHumanNode | hnod | Human node name| *eHumanNode* | | | | | Human-readable name of system message originated on. | I | emessageId | msgn | Message ID | *emessageId* | | | | | An RFC822-compatible message ID for this message. | J | eJournal | jrnl | Journal | *eJournal* | | | | | The presence of this field indicates that the message | | | | | is disqualified from being journaled, perhaps because | | | | | it is itself a journalized message and we wish to | | | | | avoid double journaling. | K | eReplyTo | rep2 | Reply-To | *eReplyTo* | | | | | the Reply-To header for mailinglist outbound messages | L | eListID | list | List-ID | *eListID* | | | | | Mailing list identification, as per RFC 2919 | M | eMesageText | text | Message Text | *eMesageText* | | | | | Normal ASCII, newlines seperated by CR's or LF's, | | | | | null terminated as always. | N | eNodeName | node | Nodename | *eNodeName* | | | | | Contains node name of system message originated on. | O | eOriginalRoom | room | Room | *eOriginalRoom* - Room of origin. | P | eMessagePath | path | Path | *eMessagePath* | | | | | Complete path of message, as in the UseNet news | | | | | standard. A user should be able to send Internet mail | | | | | to this path. (Note that your system name will not be | | | | | tacked onto this until you're sending the message to | | | | | someone else) | R | eRecipient | rcpt | Recipient | *eRecipient* - Only present in Mail messages. | S | eSpecialField | spec | Special field | *eSpecialField* | | | | | Only meaningful for messages being spooled over a | | | | | network. Usually means that the message isn't really | | | | | a message, but rather some other network function: | | | | | -> "S" followed by "FILE" (followed by a null, of | | | | | course) means that the message text is actually an | | | | | IGnet/Open file transfer. (OBSOLETE) | | | | | -> "S" followed by "CANCEL" means that this message | | | | | should be deleted from the local message base once | | | | | it has been replicated to all network systems. | T | eTimestamp | time | date/Time | *eTimestamp* | | | | | Unix timestamp containing the creation date/time of | | | | | the message. | U | eMsgSubject | subj | sUbject | *eMsgSubject* - Optional. | | | | | Developers may choose whether they wish to | | | | | generate or display subject fields. | V | eenVelopeTo | nvto | enVelope-to | *eenVelopeTo* | | | | | The recipient specified in incoming SMTP messages. | W | eWeferences | wefw | Wefewences | *eWeferences* | | | | | Previous message ID's for conversation threading. When | | | | | converting from RFC822 we use References: if present, or | | | | | In-Reply-To: otherwise. | | | | | (Who in extnotify spool messages which don't need to know | | | | | other message ids) | Y | eCarbonCopY | cccc | carbon copY | *eCarbonCopY* | | | | | Optional, and only in Mail messages. | % | eHeaderOnly | nhdr | oNlyHeader | we will just be sending headers. for the Wire protocol only. | % | eFormatType | type | type | type of citadel message: (Wire protocol only) | | | | | FMT\_CITADEL 0 Citadel vari-format (proprietary) | | | | | FMT\_FIXED 1 Fixed format (proprietary) | | | | | FMT\_RFC822 4 Standard (headers are in M field) | % | eMessagePart | part | emessagePart | *eMessagePart* is the id of this part in the mime hierachy | % | eSubFolder | suff | eSubFolder | descend into a mime sub container | % | ePevious | pref | ePevious | exit a mime sub container | 0 | eErrorMsg | | Error | *eErrorMsg* | | | | | This field is typically never found in a message on | | | | | disk or in transit. Message scanning modules are | | | | | expected to fill in this field when rejecting a message | | | | | with an explanation as to what happened (virus found, | | | | | message looks like spam, etc.) | 1 | eSuppressIdx | | suppress index | *eSuppressIdx* | | | | | The presence of this field indicates that the message is | | | | | disqualified from being added to the full text index. | 2 | eExtnotify | | extnotify | *eExtnotify* - Used internally by the serv_extnotify module. | 3 | eVltMsgNum | | msgnum | *eVltMsgNum* | | | | | Used internally to pass the local message number in the | | | | | database to after-save hooks. Discarded afterwards. EXAMPLE ------- Let ** be a *0xFF* byte, and *<0>* be a null *(0x00)* byte. Then a message which prints as... Apr 12, 1988 23:16 From Test User In Network Test> @lifesys (Life Central) Have a nice day! might be stored as... <40><0>I12345<0>Pneighbor!lifesys!test_user<0>T576918988<0> (continued) -----------|Mesg ID#|--Message Path---------------|--Date------ AThe Test User<0>ONetwork Test<0>Nlifesys<0>HLife Central<0>MHave a nice day!<0> |-----Author-----|-Room name-----|-nodename-|Human Name-|--Message text----- Weird things can happen if fields are missing, especially if you use the networker. But basically, the date, author, room, and nodename may be in any order. But the leading fields and the message text must remain in the same place. The H field looks better when it is placed immediately after the N field. EUID (EXCLUSIVE MESSAGE ID'S) ----------------------------- This is where the groupware magic happens. Any message in any room may have a field called the Exclusive message *ID*, or *EUID*. We keep an index in the table *CDB_EUIDINDEX* which knows the message number of any item that has an *EUID*. This allows us to do two things: - If a subsequent message arrives with the same *EUID*, it automatically *deletes* the existing one, because the new one is considered a replacement for the existing one. - If we know the *EUID* of the item we're looking for, we can fetch it by *EUID* and get the most up-to-date version, even if it's been updated several times. This functionality is made more useful by server-side hooks. For example, when we save a vCard to an address book room, or an iCalendar item to a calendar room, our server modules detect this condition, and automatically set the *EUID* of the message to the *UUID* of the *vCard* or *iCalendar* item. Therefore when you save an updated version of an address book entry or a calendar item, the old one is automatically deleted. NETWORKING (REPLICATION) ------------------------ Citadel nodes network by sharing one or more rooms. Any Citadel node can choose to share messages with any other Citadel node, through the sending of spool files. The sending system takes all messages it hasn't sent yet, and spools them to the recieving system, which posts them in the rooms. The *EUID* discussion above is extremely relevant, because *EUID* is carried over the network as well, and the replacement rules are followed over the network as well. Therefore, when a message containing an *EUID* is saved in a networked room, it replaces any existing message with the same *EUID* *on every node in the network*. Complexities arise primarily from the possibility of densely connected networks: one does not wish to accumulate multiple copies of a given message, which can easily happen. Nor does one want to see old messages percolating indefinitely through the system. This problem is handled by keeping track of the path a message has taken over the network, like the UseNet news system does. When a system sends out a message, it adds its own name to the bang-path in the *

    * field of the message. If no path field is present, it generates one. With the path present, all the networker has to do to assure that it doesn't send another system a message it's already received is check the

    ath field for that system's name somewhere in the bang path. If it's present, the system has already seen the message, so we don't send it. We also keep a small database, called the "use table," containing the ID's of all messages we've seen recently. If the same message arrives a second or subsequent time, we will find its ID in the use table, indicating that we already have a copy of that message. It will therefore be discarded. The above discussion should make the function of the fields reasonably clear: o Travelling messages need to carry original message-id, system of origin, date of origin, author, and path with them, to keep reproduction and cycling under control. (Uncoincidentally) the format used to transmit messages for networking purposes is precisely that used on disk, serialized. The current distribution includes serv_network.c, which is basically a database replicator; please see network.txt on its operation and functionality (if any). PORTABILITY ISSUES ------------------ Citadel is 64-bit clean, architecture-independent, and Year 2000 compliant. The software should compile on any POSIX compliant system with a full pthreads implementation and TCP/IP support. In the future we may try to port it to non-POSIX systems as well. On the client side, it's also POSIX compliant. The client even seems to build ok on non-POSIX systems with porting libraries (such as Cygwin). SUPPORTING PRIVATE MAIL ----------------------- Can one have an elegant kludge? This must come pretty close. Private mail is sent and recieved in the *Mail>* room, which otherwise behaves pretty much as any other room. To make this work, we have a separate Mail> room for each user behind the scenes. The actual room name in the database looks like *"0000001234.Mail"* (where *'1234'* is the user number) and it's flagged with the *QR_MAILBOX* flag. The user number is stripped off by the server before the name is presented to the client. This provides the ability to give each user a separate namespace for mailboxes and personal rooms. This requires a little fiddling to get things just right. For example, *make_message()* has to be kludged to ask for the name of the recipient of the message whenever a message is entered in *Mail>*. But basically it works pretty well, keeping the code and user interface simple and regular. PASSWORDS AND NAME VALIDATION ----------------------------- This has changed a couple of times over the course of Citadel's history. At this point it's very simple, again due to the fact that record managers are used for everything. The user file (user) is indexed using the user's name, converted to all lower-case. Searching for a user, then, is easy. We just lowercase the name we're looking for and query the database. If no match is found, it is assumed that the user does not exist. This makes it difficult to forge messages from an existing user. (Fine point: nonprinting characters are converted to printing characters, and leading, trailing, and double blanks are deleted.) citadel-902/docs/delivery-list.txt000066400000000000000000000077531271512031400172700ustar00rootroot00000000000000Description of the custom MIME type "application/x-citadel-delivery-list" This MIME type may be found in the outbound queue room on Citadel systems, which is typically called "__CitadelSMTPspoolout__". The room is flagged as a "system" room, which means that it's completely hidden to everyone, although an Admin can get to it if the full name is specified (but unlike a normal hidden room, it does not appear in the known rooms list on subsequent visits). Messages in this format contain delivery instructions. Therefore, for each message in the queue to be delivered to one or more recipients, there will be *two* messages in the room: one containing the actual message, and the other containing delivery instructions. It is expected that the instructions message may be replaced at any time (using an Exclusive ID field) if delivery to only some of the recipients has been accomplished. Citadel keeps reference counts of each message on disk. Therefore if a message contains a mixture of local and remote recipients, there may be two or more references to the message itself, one of them being the one in the queue. A delivery list contains one or more lines of text, each line containing a single instruction (usually a recipient). Fields are separated by the vertical bar character ("|") and there will always be at least one field on each line. -- Once per Queue-Item -- INSTRUCTION: msgid SYNTAX: msgid|0000000 DESCRIPTION: Defines the actual message for which we are providing delivery instructions. This instruction must precede all the others. When all deliveries have either succeeded or failed, both the instructions and the copy of the message itself in the queue room should be deleted. The second parameter specifies the message ID in the local database. INSTRUCTION: submitted SYNTAX: submitted|999999999 DESCRIPTION: Contains a timestamp designating when this message was first entered into the system. INSTRUCTION: attempted SYNTAX: attempted|999999999 DESCRIPTION: Contains a timestamp designating the date/time of the last delivery attempt. INSTRUCTION: retry SYNTAX: retry|9999999 DESCRIPTION: Citadel does not retry SMTP delivery at a fixed interval. Instead, it starts at a nominal interval (15 minutes by default) and then doubles the interval after each failed attempt. This instruction contains the interval which should currently be followed (and doubled again, if the next delivery fails). INSTRUCTION: bounceto SYNTAX: bounceto|Big Bad Sender[@host] DESCRIPTION: Where to send "bounce" messages (delivery status notifications). The contents of the second field are supplied as the "recipient" field to CtdlSaveMsg(), and therefore may be a local username, a user on another Citadel, or an Internet e-mail address. INSTRUCTION: envelope_from SYNTAX: envelope_from|blurdybloop@example.com DESCRIPTION: Sets a value to be used as the envelope sender during the 'MAIL FROM:' phase of the SMTP transaction. If an envelope sender is not supplied, one is extracted from the message body. INSTRUCTION: source_room SYNTAX: source_room|Citadel Support DESCRIPTION: when sending mailinglist rooms this contains the source room for displaying and messaging purposes. -- Once per Remote-part per Queue-Item -- INSTRUCTION: remote SYNTAX: remote|friko@mumjiboolean.com|0|delivery status message DESCRIPTION: Names a recipient on a remote system to which the message should be delivered. The third parameter may contain any of the following values: 0 = No delivery has yet been attempted 2 = Delivery was successful 3 = transient error state; like connection failure or DNS lookup failure 4 = A transient error was experienced ... try again later 5 = Delivery to this address failed permanently. The error message should be placed in the fourth field so that a bounce message may be generated. citadel-902/docs/developers.txt000066400000000000000000000037101271512031400166310ustar00rootroot00000000000000Every client for the Citadel system is capable of identifying itself with a developer code, client code, and client version. Here are the known values for these fields. Developer codes (and where known, client codes) 0 The Citadel core development team (See copyright.txt for the list of people involved in the project) Here are the client ID's we've used: Client Name Status Description 0 Citadel deployed Citadel text based client 1 lcit dead Curses-based text client 2 WinCit legacy Visual Basic client for Win16 4 WebCit deployed Web-based access to Citadel 5 Shaggy dead Java-powered client 6 Daphne dead wx multiplatform "fat" client 7 Shaggy (new) unknown Java-powered client 8 ctdlphp deployed PHP interface to Citadel 9 z-push in development Citadel backend for Z-Push 1 Brian Ledbetter Client Name Status Description 0 libCxClient deployed Client-side API library 1 Infusion deployed Groupware for Citadel 2 OST Systems, Inc. Matthew Scott Client Name Status Description 0 CivisLink development Python Citadel protocol library 3 Jesse Vincent 4 Brian Costello 5 Robert Abatecola 6 Bastille 7 Walden Leverich 8 Michael Hampton Client Name Status Description 0 libcitadel in development Client-side API library 1 D.O.C. dead Dave's Own Citadel look-alike 8 stress deployed Citadel server stress tester 16 Courier in development GTK+ Unix/Win32 Client 31 Stuart Cianos 69 Anticlimactic Teleservices Don Kimberlin (err head) 71 Robert Barta 177 Kevin Fisher 226 David Given citadel-902/docs/logging.txt000066400000000000000000000147071271512031400161170ustar00rootroot00000000000000=====Logging ===== Note: the logging scheme is not yet persistant all over the citserver. citadel server has several components that emmit different log strings. Its designed so you can filter for specific sessions. Since there are several sources for numbering schemes, several numbers need to be employed to make one job / session completely traceable. The syntax is in general like CC[%d] === CC - Citadel Context === All contexts that are visible to the RWHO command have a citadel context. The ID of such a context is generated from a source that can grow and shrink again. Thus CC may not be uniq to one session. Citadel may have several kind of sessions: - sessions generated by external connections; they have a CC. - sessions spawned by repetive tasks; they at first may have their own id-range, then later on an IO (AsyncIO) and CC (Citadel Context) === Identifieing running sessions === The RWHO command will list you the currently active CCs: # sendcommand RWHO sendcommand: started (pid=14528) connecting to Citadel server at /var/run/citadel/citadel-admin.socket 200 potzblitz Citadel server ADMIN CONNECTION ready. RWHO 100 576|SYS_rssclient||http://xkcd.org/rss.xml||0||.||||0 1965|willi|Mail|PotzBlitz|IMAP session|1346695500| |.||||1 sendcommand: processing ended. 576 is the CC connected to this client. with grep 'CC\[576\]' /var/log/syslog will show you the loglines from all contexts that had the ID 576; the one named above is an RSS aggregator: Jul 3 09:07:01 PotzBlitz citserver[1435]: EVCURL:IO[576]CC[576] error description: The requested URL returned error: 404 Jul 3 09:07:01 PotzBlitz citserver[1435]: EVCURL:IO[576]CC[576] error performing request: HTTP response code said error Jul 3 09:07:01 PotzBlitz citserver[1435]: IO[576]CC[576][29]RSSPneed a 200, got a 404 ! grep 'CC\[1965\]' /var/log/syslog will show you the loglines from all contexts that had the ID 1965; the one named above is an inbound IMAP Connection: Jul 3 09:05:01 PotzBlitz citserver[12826]: IMAPCC[1965] Jul 3 09:05:01 PotzBlitz citserver[12826]: CC[1965] 144 new of 144 total messages Jul 3 09:05:02 PotzBlitz citserver[12826]: CC[1965]<0000000010.Mail> 1 new of 17 total messages === Numbering and prefixes === While external sessions will constantly show the same CC (or maybe add their own name space as above with IMAPCC) Its important to understand that not all numbers are available in all situations with sessions from repetive tasks; thus you may need several filters to gather all logmessages belonging to one job. Generaly once per minute one worker becomes an housekeeping thread; This housekeeper scans the whole system for jobs to start. Once a job is identified, its detection is logged; neither a CC nor IO are already assigned to this job yet; but it already has its uniq number assigned to it which is specific to the type of task. After the preanalysis of this job is done, it may become an AsyncIO job with a Citadel Context. The job now lives in one of the eventqueues, waiting for external file IO or Database IO or performing some calculation of a new state. Some basic IO debug logging may not facilitate the CC or the Job-ID; especialy during HTTP or DNS requests. === Debug logging === By default citserver will only log information about errors or traffic analysis related errors. If you want to track all a job does, you can enable more logging: sendcommand LOGP (LOG Print; show status of logs; the following list may increase over time) : sendcommand: started (pid=19897) connecting to Citadel server at /var/run/citadel/citadel-admin.socket 200 potzblitz Citadel server ADMIN CONNECTION ready. LOGP 100 Log modules enabled: modules|0 <- module loading; unloading etc. rssclient|0 <- RSS aggregator client debugging; on message level RSSAtomParser|0 <- debugging the parsing of ATOM / RSS feeds; once a message is isolated, the above logging comes into place again. curl|0 <- HTTP request logging; i.e. querieing the external RSS resources by http is logged with this. networkqueue|0 <- working through rooms, finding jobs to schedule; reading network spool files, writing them; etc. networktalkingto|0 <- locked list of network interconnections to circumvent race conditions by simultaneous spooling / sending / receiving networkclient|0 <- outbound networking connections; this has an IO context. cares|0 <- asynchroneous nameserver lookup eventloop|0 <- adding jobs; connecting; timeouts; etc. eventloopbacktrace|0 <- add stacktraces in certain places; very noisy. sieve|0 <- sieve filtering of mailboxes messages|0 <- message processing; loading / printing / saving imapsrv|0 <- Imap connections serv_xmpp|0 <- XMPP connections pop3client|0 <- pop3 aggregators smtpeventclient|0 <- outbound SMTP connections sendcommand: processing ended. If the second column is 1, that debug log is enabled. You can enable the logging by 3 ways: - sendcommand 'LOGS cares|1' (live) - via webcit->aide->Enable/Disable logging of the server components; in an interactive manner - via environment variable 'CITADEL_LOGDEBUG' as a coma separated list of facilities to enable; before starting citserver - via commandline parameter '-x' as a coma separated list of facilities to enable; please note that this switch used to set the loglevel previously. eventloop,eventloopbacktrace,cares - IO the AsyncIO ID - IOQ (Queueing of events into eventqueues) modules: - modules - module init / registering specific stuff smtpeventclient - S[QueueID][N] where the Queue-ID is the number of the Message to be sent, and N the SMTP-job-ID - SMTPCQ infrastructure logging when the housekeeper is checking for SMTP-Delivery jobs to spawn imapsrv - IMAPCC: imap client contexts; commands sent to us from Imap-Clients networkqueue - CC - networkclient - CC, IO - the context - NW[nodename][networkerid] the name of the node we're trying to talk to; the networker connection counter uniq per attempt curl - CURL - logging where we don't have a context - CC, IO - the context RSSClient - IO, CC, N, 'RSS'; IO & CC not always available. - 'RSSP' - the rss and atom parser pop3client - POP3 IO, CC, N - N the number of that connection sieve - sieve doesn't have CC or IOs, its just ran one at a time serverwide. xmpp - XMPP - whether CC could & should be logged has to be researched and added. Context - 'Context:' context related logging - server infrastructure, cleanup of contexts etc. messages - MSG - CC - the context that is manipulating this message. citadel-902/docs/netconfigs.txt000066400000000000000000000106201271512031400166160ustar00rootroot00000000000000 Description of the files in the "netconfigs" directory These files contain a set of network configurations for a room. They are stored in the directory $CTDLDIR/netconfigs and are named according to each room's internal ID number. When a room is deleted, its network configuration file is deleted as well. The configuration file contains one or more lines of text, each line containing a configuration option. These lines may specify message pointers, room sharing instructions, mailing list recipients, etc. Fields are separated by the vertical bar character ("|") and there will always be at least one field on each line. INSTRUCTION: lastsent SYNTAX: lastsent|0000000 DESCRIPTION: Defines the *local* message number of the last message in this room which we have performed outbound network processing on. Any batch job which sends out messages should do stuff. INSTRUCTION: listrecp SYNTAX: listrecp|friko@mumjiboolean.com DESCRIPTION: Defines a recipient to whom all messages in this room should be sent. This is used for "list serve" applications. INSTRUCTION: digestrecp SYNTAX: digestrecp|friko@mumjiboolean.com DESCRIPTION: Defines a recipient to whom all messages in this room should be sent. This is used for "list serve" applications. The difference between listrecps and digestrecps is that the latter will have messages embedded inside a message sent by the listserver. The message will appear to be sent by the room's e-mail address instead of the sender's e-mail address. INSTRUCTION: ignet_push_share SYNTAX: ignet_push_share|uncnsrd (or) ignet_push_share|uncnsrd|Foo Bar Baz DESCRIPTION: Specifies that the second argument is the name of a neighboring node on an IGnet (Citadel networking) network, to which this room should be pushed (spooled). Conceptually, this node will have a corresponding record pushing data in the other direction. If the third argument is present, it is the name of the corresponding room on the remote node. This allows a room to be shared even when the room name is different on each node. Such a configuration *must* be configured mutually: each node must know the name of the room on the other. INSTRUCTION: subpending SYNTAX: subpending|friko@mumjiboolean.com|listrecp|A234Z|1234567890|http://foo.com/lists "Subscription pending" for the specified address. This means that someone has requested to subscribe an e-mail address (in this case, friko@mumjiboolean.com) to the list. The third parameter is either "list" or "digest" to specify a normal subscription or a digest subscription. The fourth parameter is an authentication token which is generated by the server and e-mailed to the specified address. When the user comes back and supplies this token, the subscription is complete. The fifth parameter is a simple timestamp, so that we may purge old records which were never confirmed. The sixth field is the URL of the web page used to enter the subscription request, minus any parameters. INSTRUCTION: unsubpending SYNTAX: unsubpending|friko@mumjiboolean.com|A234Z|1234567890|http://foo.com/lists Similar to the 'subpending' command, except this one is for unsubscribe requests. The same rules apply with regard to the token and the web page. INSTRUCTION: participate SYNTAX: participate|list-addr@example.com This allows a room to be a *subscriber* to an external mailing list somewhere. The room's email address should be subscribed to the list, and the external listserv should be told "do not send me my own messages." Any messages which originated on Citadel (as opposed to messages which arrived via email, such as those from the list) will be sent to the list, with the display name of the author kept intact, but the email address changed to the address of the room. This is somewhat finicky, which is why it is not officially supported, and why there are no facilities in the user interface to configure it. If you want to use this option you are on your own. INSTRUCTION: pop3client SYNTAX: pop3client|hostname|username|password|keep|interval Periodically fetch messages from a remote POP3 account and store them in this room. Messages will be deleted from the remote account once successfully stored. if Keep is set, messages won't be erased on the remote host. Interval can specify a bigger value than the system configs value. citadel-902/docs/package-setup.txt000066400000000000000000000022551271512031400172150ustar00rootroot00000000000000 Package builders: you can set the following environment variables before running setup in quiet mode (setup -q) in order to keep it quiet but still do setup. First, please set CITADEL_INSTALLER to "yes" Then set: CITADEL Directory in which Citadel is installed SLAPD_BINARY Location of slapd (optional) LDAP_CONFIG Location of slapd.conf (optional) SUPPORT Location of libraries, etc. (optional) (i.e. /usr/local/ctdlsupport) CTDL_DIALOG Location of the 'dialog' program (optional) ACT_AS_MTA When other MTA's (Postfix, etc.) are found, setup will offer to disable them in order to keep them from interfering with Citadel. Set this variable to "yes" to always disable the other MTA without asking, or to "no" to never disable the other MTA. CREATE_INITTAB_ENTRY Set to "yes" to automatically create an entry in /etc/inittab to start the Citadel server, if needed. CREATE_XINETD_ENTRY Set to "yes" to automatically configure xinetd to route telnet connections into a Citadel client, if needed. SYSADMIN_NAME Name of system administrator. NO_INIT_SCRIPTS Set to non-null to suppress the creation of init scripts when running on a SysV-init based host. citadel-902/docs/smtpclient.txt000066400000000000000000000057401271512031400166500ustar00rootroot00000000000000====== SMTP Client ====== ===== source files involved: ===== event_client.h - AsyncIO structure, interfaces to event Queue modules/smtp/smtp_clienthandlers.h - SMTP-Client Context struct & functions. modules/smtp/smtpqueue.h - parsing of Queue mails & respective structures modules/smtp/serv_smtpqueue.c - queue handling executed by housekeeping thread; de/serialization of Queue-control-messages modules/smtp/serv_smtpeventclient.c - business logic modules/smtp/smtp_clienthandlers.c - Protocoll logic msgbase.c - writes spool messages + spoolcontrol files event_client.c - base event functions modules/eventclient/serv_eventclient.c - the event queue modules/c-ares-dns/serv_c-ares-dns.c - nameserver lookup ===== Spool Controll ===== Citadel stores two messages for mail deliveries; the spool control message format is described in delivery-list.txt; its generated in msgbase.c, and de/serialized in serv_smtpqueue.c. The for Spool-control structures are kept in memory as OneQueItem per Spool-Control-File, and MailQEntry per Recipient of the message. For each MailQEntry which is still to be delivered, one SmtpOutMsg (containing the AsyncIO context) is spawned. The Jobs are processed in paralell, each job finished triggers an update of the spool control message, so we don't accidently deliver a message twice to one recipient. If the last recipient has succeeded, or permanently failed, the spool-file and the mail-file are removed from the spool room. ===== Business Logic for one SMTP Connection ===== For each SMTP client one SmtpOutMsg is created as Context; we now live inside the IO-Eventloop. SMTP requires to attempt to connect different servers in different situations; not all errors from remote sides are permanent, or fatal for one delivery attempt. One delivery attempt may involve talking to several SMTP-Servers; maybe the first isn't active or currently not accepting messages. If citadel runs in relay mode, only the relays are connected; no MX lookup is done. - MX nameserver lookup; may give several mailservers; IPv4 and IPv6 addresses may be there. If no MX is found, the server is contacted directly. - Now we have a number of Mailservers we have to iterate over; This is the entry for all subsequent tries for delivery; FailOneAttempt() will decide what to do next. - one server has to be resolved; A or AAAA record in case of IPv4 or IPv6 - we try to connect the server nonblocking; if we fail to connect in a given time range, the next server has to be tried. - we now have to wait for the server greeting; we musn't say anything before the server sent a complete line. A timeout may occur, the next server has to be tried, if. - Now the handlers start to control the logic. A timeout may occur between each of them; Servers may reply with fatal or non fatal or temporary error codes; depending on them - we fail the conversation with this server, and try the next - we fail this delivery attempt, and retry later in the next queue run. - we succeed the delivery of this message. citadel-902/docs/test_suite.txt000066400000000000000000000030571271512031400166550ustar00rootroot00000000000000SYSTEM TESTING PROPOSAL This document is intended as a discussion of possible automated tests. It does not describe any existing tests. --- First we should create a client that leverages expect (or something similar) to perform automated testing of the client interface. Tests can be written as expect scripts. Each system being tested will need to create an aide level user for the test client to connect as. The test client will create another user to carry out the tests. This allows the aide level user to vary the level of the test user and check the access level code. ---- For a first step each test site should create a test user that can send internet mail. This test user needs some sieve rules to forward mail around (eventually this will be created automatically by the test client). These rules will forward mail to other test users at other sites participating in the test system and to a networked room. Each system participating in the test should share some rooms. The idea is: 1. A test site posts a message to its test user using citmail or some other email prog. 2. The sieve rules forward the message to each of the other test users at the other sites. 3. The sieve rules for the other test users detect that the message was forwarded to them and they file it into a networked room 4. By virtue of the networked room the message returns to the originating system where the administrator can see it. Once I (davew) have written my module to alter the message body we can have it add text to the message to indicate the full path of the message. citadel-902/docs/views.txt000066400000000000000000000031031271512031400156120ustar00rootroot00000000000000How "views" work in Citadel --------------------------- There's no need to be rigid and stupid about how different rooms are presented in a Citadel client. And we don't enforce things either. But there's a need to make things look the way the user wants to see them. For example, we might always choose to see a room full of private mail as a summary (one line per message) rather than always dumping out the entire contents like we do on a typical message room. An address book room might look better as a tabbed view or something, rather than as a bunch of messages with vCards attached to them. This is why we define "views" for a room. It gives the client software a hint as to how to display the contents of a room. This is kept on a per-user basis by storing it in the 'visit' record for a particular room/user combination. It is visit.v_view and is an integer. Naturally, there also needs to be a default, for users who have never visited the room before. This is in the room record as room.QRdefaultview (and is also an integer). In recent versions of Citadel, the view for a room also defines when and how it is indexed. For example, mailboxes and bulletin boards don't need to have an euid index, but address books and calendars do. The values currently defined are: #define VIEW_BBS 0 /* Bulletin board view */ #define VIEW_MAILBOX 1 /* Mailbox summary */ #define VIEW_ADDRESSBOOK 2 /* Address book view */ #define VIEW_CALENDAR 3 /* Calendar view */ #define VIEW_TASKS 4 /* Tasks view */ #define VIEW_NOTES 5 /* Notes view */ #define VIEW_WIKI 6 /* Wiki view */ citadel-902/docs/welcomemail.html000066400000000000000000000055221271512031400171070ustar00rootroot00000000000000 Welcome to your new Citadel installation

    Welcome to your new Citadel installation!

    Congratulations! You've now completed your Citadel Installation.
    Your Citadel system provides you with the following Protocols to communicate with your Client Software:
    • Webmail via http and https. Any remaining configuration Tasks, are most likely able to be completed in Webcit
    • IMAP Directory Services. Access your Inbox and other Rooms easily via IMAP.
    • POP3 Mail Delivery. If you'd like to poll mails over to your Client, use Pop3.
    • GroupDAV Calendaring and Address book Access. Connect your Calendaring Client to a central Storage, and share calendars with others.
    • ICal Access to your personal Calendar.
    • SMTP / MSA access with TLS support. Receive mails from others or relay your own Client via your Citadel.

    For advice regarding how to configure your favorite Mail client to interact with Citadel, please see the Client Matrix . If you don't find your client there, please sign into Uncensored! and tell us about it in the Citadel Documentation Room! And if you would like to provide screenshots on how you did the configuration for documentation purposes, we'll appreciate them.

    Please see the FAQ for more general questions, or the Citadel Administration Manual for more involved situations. Or, join us at Uncensored!, post your message into the Citadel Support Room and you will get help there. You may also join us on IRC (irc.citadel.org, or freenode network) in #Citadel.

    If Webcit does not yet speak your language, please tell us at Uncensored! in the Citadel Development Room, where you will be welcomed and encouraged to add a translation Working contributions in various forms are always welcome, in fact, so feel free to join us in improving the Citadel system!
    Enjoying Citadel? Please let us know. Just log into Uncensored! and drop us a note!

    Your Citadel Development Team

    Read more about Citadel on Wikipedia citadel-902/docs/welcomemail.txt000066400000000000000000000050121271512031400167540ustar00rootroot00000000000000 Welcome to your new Citadel installation! Congratulations! You've now completed your Citadel Installation. Your Citadel system provides you with the following Protocols to communicate with your Client Software: * Webmail via http and https. Any remaining configuration Tasks, are most likely able to be completed in Webcit * IMAP Directory Services. Access your Inbox and other Rooms easily via IMAP. * POP3 Mail Delivery. If you'd like to poll mails over to your Client, use POP3. * [1]GroupDAV Calendaring and Address book Access. Connect your Calendaring Client to a central Storage, and share calendars with others. * iCalendar-over-WebDAV ("Webcal") Access to your personal Calendar. * SMTP / MSA access with TLS support. Receive mails from others or relay your own Client via your Citadel. For advice regarding how to configure your favorite Mail client to interact with Citadel, please see the [2]Client Matrix . If you don't find your client there, please sign into [3]Uncensored! and tell us about it in the Citadel Documentation Room! And if you would like to provide screenshots on how you did the configuration for documentation purposes, we'll appreciate them. Please see the [4]FAQ for more general questions, or the [5]Citadel Administration Manual for more involved situations. Or, join us at [6]Uncensored!, post your message into the Citadel Support Room and you will get help there. You may also join us on [7]IRC (irc.citadel.org, or freenode network) in #Citadel. If Webcit does not yet speak your language, please tell us at [8]Uncensored! in the Citadel Development Room, where you will be welcomed and encouraged to add a translation Working contributions in various forms are always welcome, in fact, so feel free to join us in improving the Citadel system! Enjoying Citadel? Please let us know. Just log into [9]Uncensored! and drop us a note! Your Citadel Development Team Read more about [10]Citadel on Wikipedia References Visible links 1. http://www.groupdav.org/ 2. http://www.citadel.org/clientmatrix 3. http://uncensored.citadel.org/ 4. http://citadel.org/index.php?option=com_content&task=section&id=3&Itemid=38 5. http://easyinstall.citadel.org/citadel/docs/citadel.html 6. http://uncensored.citadel.org/ 7. irc://irc.citadel.org/#citadel 8. http://uncensored.citadel.org/ 9. http://uncensored.citadel.org/ 10. http://en.wikipedia.org/wiki/Citadel/UX citadel-902/domain.c000066400000000000000000000114331271512031400144040ustar00rootroot00000000000000/* * DNS lookup for SMTP sender * * Copyright (c) 1987-2011 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include "sysdep.h" #include #include #ifdef HAVE_RESOLV_H #include #ifdef HAVE_ARPA_NAMESER_COMPAT_H #include #endif #include #endif #include #include "sysdep_decls.h" #include "citadel.h" #include "domain.h" #include "internet_addressing.h" /* * get_hosts() checks the Internet configuration for various types of * entries and returns them in the same format as getmx() does -- fill the * buffer with a delimited list of hosts and return the number of hosts. * * This is used to fetch MX smarthosts, SpamAssassin hosts, etc. */ int get_hosts(char *mxbuf, char *rectype) { int config_lines; int i; char buf[256]; char host[256], type[256]; int total_smarthosts = 0; if (inetcfg == NULL) return(0); strcpy(mxbuf, ""); config_lines = num_tokens(inetcfg, '\n'); for (i=0; ipref; pref2 = ((const struct mx *)mx2)->pref; if (pref1 > pref2) { return(1); } else if (pref1 < pref2) { return(0); } else { return(rand() % 2); } } /* * getmx() * * Return one or more MX's for a mail destination. * * Upon success, it fills 'mxbuf' with one or more MX hosts, separated by * vertical bar characters, and returns the number of hosts as its return * value. If no MX's are found, it returns 0. * */ int getmx(char *mxbuf, char *dest) { #ifdef HAVE_RESOLV_H union { u_char bytes[1024]; HEADER header; } answer; #endif int ret; unsigned char *startptr, *endptr, *ptr; char expanded_buf[1024]; unsigned short pref, type; int n = 0; int qdcount; struct mx *mxrecs = NULL; int num_mxrecs = 0; /* If we're configured to send all mail to a smart-host, then our * job here is really easy. */ n = get_hosts(mxbuf, "smarthost"); if (n > 0) return(n); /* * No smart-host? Look up the best MX for a site. * Make a call to the resolver library. */ ret = res_query( dest, C_IN, T_MX, (unsigned char *)answer.bytes, sizeof(answer) ); if (ret < 0) { mxrecs = malloc(sizeof(struct mx)); mxrecs[0].pref = 0; strcpy(mxrecs[0].host, dest); num_mxrecs = 1; } else { /* If we had to truncate, shrink the number to avoid fireworks */ if (ret > sizeof(answer)) ret = sizeof(answer); startptr = &answer.bytes[0]; /* start and end of buffer */ endptr = &answer.bytes[ret]; ptr = startptr + HFIXEDSZ; /* advance past header */ for (qdcount = ntohs(answer.header.qdcount); qdcount--; ptr += ret + QFIXEDSZ) { if ((ret = dn_skipname(ptr, endptr)) < 0) { syslog(LOG_DEBUG, "dn_skipname error\n"); return(0); } } while(1) { memset(expanded_buf, 0, sizeof(expanded_buf)); ret = dn_expand(startptr, endptr, ptr, expanded_buf, sizeof(expanded_buf) ); if (ret < 0) break; ptr += ret; GETSHORT(type, ptr); ptr += INT16SZ + INT32SZ; GETSHORT(n, ptr); if (type != T_MX) { ptr += n; } else { GETSHORT(pref, ptr); ret = dn_expand(startptr, endptr, ptr, expanded_buf, sizeof(expanded_buf) ); ptr += ret; ++num_mxrecs; if (mxrecs == NULL) { mxrecs = malloc(sizeof(struct mx)); } else { mxrecs = realloc(mxrecs, (sizeof(struct mx) * num_mxrecs) ); } mxrecs[num_mxrecs - 1].pref = pref; strcpy(mxrecs[num_mxrecs - 1].host, expanded_buf); } } } /* Sort the MX records by preference */ if (num_mxrecs > 1) { qsort(mxrecs, num_mxrecs, sizeof(struct mx), mx_compare_pref); } strcpy(mxbuf, ""); for (n=0; n #include #include #include #include #include #include #include #include #include #include #include "server.h" #include "sysdep_decls.h" #include "support.h" #include "config.h" #include "citserver.h" #include "ecrash.h" #define NIY() printf("function not implemented yet!\n"); #ifdef HAVE_BACKTRACE #include static eCrashParameters gbl_params; static int gbl_backtraceEntries; static void **gbl_backtraceBuffer; static char **gbl_backtraceSymbols; static int gbl_backtraceDoneFlag = 0; static void *stack_frames[50]; static size_t size, NThread; static char **strings; /* * Private structures for our thread list */ typedef struct thread_list_node{ char *threadName; pthread_t thread; int backtraceSignal; sighandler_t oldHandler; struct thread_list_node *Next; } ThreadListNode; static pthread_mutex_t ThreadListMutex = PTHREAD_MUTEX_INITIALIZER; static ThreadListNode *ThreadList = NULL; /********************************************************************* ********************************************************************* ** P R I V A T E F U N C T I O N S ********************************************************************* ********************************************************************/ /*! * Insert a node into our threadList * * @param name Text string indicating our thread * @param thread Our Thread Id * @param signo Signal to create backtrace with * @param old_handler Our old handler for signo * * @returns zero on success */ static int addThreadToList(char *name, pthread_t thread,int signo, sighandler_t old_handler) { ThreadListNode *node; node = malloc(sizeof(ThreadListNode)); if (!node) return -1; DPRINTF(ECRASH_DEBUG_VERBOSE, "Adding thread 0x%08x (%s)\n", (unsigned int)thread, name); node->threadName = strdup(name); node->thread = thread; node->backtraceSignal = signo; node->oldHandler = old_handler; /* And, add it to the list */ pthread_mutex_lock(&ThreadListMutex); node->Next = ThreadList; ThreadList = node; pthread_mutex_unlock(&ThreadListMutex); return 0; } // addThreadToList /*! * Remove a node from our threadList * * @param thread Our Thread Id * * @returns zero on success */ static int removeThreadFromList(pthread_t thread) { ThreadListNode *Probe, *Prev=NULL; ThreadListNode *Removed = NULL; DPRINTF(ECRASH_DEBUG_VERBOSE, "Removing thread 0x%08x from list . . .\n", (unsigned int)thread); pthread_mutex_lock(&ThreadListMutex); for (Probe=ThreadList;Probe != NULL; Probe = Probe->Next) { if (Probe->thread == thread) { // We found it! Unlink it and move on! Removed = Probe; if (Prev == NULL) { // head of list ThreadList = Probe->Next; } else { // Prev != null, so we need to link around ourselves. Prev->Next = Probe->Next; } Removed->Next = NULL; break; } Prev = Probe; } pthread_mutex_unlock(&ThreadListMutex); // Now, if something is in Removed, free it, and return success if (Removed) { DPRINTF(ECRASH_DEBUG_VERBOSE, " Found %s -- removing\n", Removed->threadName); // Reset the signal handler signal(Removed->backtraceSignal, Removed->oldHandler); // And free the allocated memory free (Removed->threadName); free (Removed); return 0; } else { DPRINTF(ECRASH_DEBUG_VERBOSE, " Not Found\n"); return -1; // Not Found } } // removeThreadFromList /*! * Print out a line of output to all our destinations * * One by one, output a line of text to all of our output destinations. * * Return failure if we fail to output to any of them. * * @param format Normal printf style vararg format * * @returns nothing// bytes written, or error on failure. */ static void outputPrintf(char *format, ...) { va_list ap; va_start(ap, format); vsyslog(LOG_CRIT|LOG_NDELAY|LOG_MAIL, format, ap); } // outputPrintf /*! * Dump our backtrace into a global location * * This function will dump out our backtrace into our * global holding area. * */ static void createGlobalBacktrace( void ) { size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); for (NThread = 0; NThread < size; NThread++) { syslog(LOG_CRIT|LOG_NDELAY|LOG_MAIL, "RAW: %p ", stack_frames[NThread]); } strings = backtrace_symbols(stack_frames, size); for (NThread = 0; NThread < size; NThread++) { if (strings != NULL) { syslog(LOG_CRIT|LOG_NDELAY|LOG_MAIL, "RAW: %p ", strings[NThread]); } } } /* createGlobalBacktrace */ static void outputRawtrace( void ) { size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); for (NThread = 0; NThread < size; NThread++) { syslog(LOG_CRIT|LOG_NDELAY|LOG_MAIL, "RAW: %p ", stack_frames[NThread]); } } /* createGlobalBacktrace */ /*! * Print out (to all the fds, etc), or global backtrace */ static void outputGlobalBacktrace ( void ) { int i; for (i=0; i < gbl_backtraceEntries; i++) { if (gbl_backtraceSymbols != FALSE) { outputPrintf("* Frame %02x: %s\n", i, gbl_backtraceSymbols[i]); } else { outputPrintf("* Frame %02x: %p\n", i, gbl_backtraceBuffer[i]); } } } // outputGlobalBacktrace /*! * Output our current stack's backtrace */ static void outputBacktrace( void ) { createGlobalBacktrace(); outputGlobalBacktrace(); } /* outputBacktrace */ static void outputBacktraceThreads( void ) { ThreadListNode *probe; int i; // When we're backtracing, don't worry about the mutex . . hopefully // we're in a safe place. for (probe=ThreadList; probe; probe=probe->Next) { gbl_backtraceDoneFlag = 0; pthread_kill(probe->thread, probe->backtraceSignal); for (i=0; i < gbl_params.threadWaitTime; i++) { if (gbl_backtraceDoneFlag) break; sleep(1); } if (gbl_backtraceDoneFlag) { outputPrintf("* Backtrace of \"%s\" (0x%08x)\n", probe->threadName, (unsigned int)probe->thread); outputGlobalBacktrace(); } else { outputPrintf("* Error: unable to get backtrace of \"%s\" (0x%08x)\n", probe->threadName, (unsigned int)probe->thread); } outputPrintf("*\n"); } } // outputBacktraceThreads /*! * Handle signals (crash signals) * * This function will catch all crash signals, and will output the * crash dump. * * It will physically write (and sync) the current thread's information * before it attempts to send signals to other threads. * * @param signum Signal received. */ static void crash_handler(int signo) { outputRawtrace(); outputPrintf("*********************************************************\n"); outputPrintf("* eCrash Crash Handler\n"); outputPrintf("*********************************************************\n"); outputPrintf("*\n"); outputPrintf("* Got a crash! signo=%d\n", signo); outputPrintf("*\n"); outputPrintf("* Offending Thread's Backtrace:\n"); outputPrintf("*\n"); outputBacktrace(); outputPrintf("*\n"); if (gbl_params.dumpAllThreads != FALSE) { outputBacktraceThreads(); } outputPrintf("*\n"); outputPrintf("*********************************************************\n"); outputPrintf("* eCrash Crash Handler\n"); outputPrintf("*********************************************************\n"); exit(signo); } // crash_handler /*! * Handle signals (bt signals) * * This function shoudl be called to generate a crashdump into our * global area. Once the dump has been completed, this function will * return after tickling a global. Since mutexes are not async * signal safe, the main thread, after signaling us to generate our * own backtrace, will sleep for a few seconds waiting for us to complete. * * @param signum Signal received. */ static void bt_handler(int signo) { createGlobalBacktrace(); gbl_backtraceDoneFlag=1; } // bt_handler /*! * Validate a passed-in symbol table * * For now, just print it out (if verbose), and make sure it's * sorted and none of the pointers are zero. */ static int ValidateSymbolTable( void ) { int i; int rc=0; unsigned long lastAddress =0; // Get out of here if the table is empty if (!gbl_params.symbolTable) return 0; // Dump it in verbose mode DPRINTF(ECRASH_DEBUG_VERBOSE, "Symbol Table Provided with %d symbols\n", gbl_params.symbolTable->numSymbols); for (i=0; i < gbl_params.symbolTable->numSymbols; i++){ // Dump it in verbose mode DPRINTF(ECRASH_DEBUG_VERBOSE, "%-30s %p\n", gbl_params.symbolTable->symbols[i].function, gbl_params.symbolTable->symbols[i].address); if (lastAddress > (unsigned long)gbl_params.symbolTable->symbols[i].address) { DPRINTF(ECRASH_DEBUG_ERROR, "Error: symbol table is not sorted (last=%p, current=%p)\n", (void *)lastAddress, gbl_params.symbolTable->symbols[i].address); rc = -1; } } // for return rc; } // ValidateSymbolTable /********************************************************************* ********************************************************************* ** P U B L I C F U N C T I O N S ********************************************************************* ********************************************************************/ /*! * Initialize eCrash. * * This function must be called before calling any other eCrash * functions. It sets up the global behavior of the system, and * registers the calling thread for crash dumps. * * @param params Our input parameters. The passed in structure will be copied. * * @return Zero on success. */ int eCrash_Init(eCrashParameters *params) { int sigIndex; int ret = 0; #ifdef DO_SIGNALS_RIGHT sigset_t blocked; struct sigaction act; #endif DPRINTF(ECRASH_DEBUG_VERY_VERBOSE,"Init Starting params = %p\n", params); if (params == NULL) return -1; // Allocate our backtrace area gbl_backtraceBuffer = malloc(sizeof(void *) * (params->maxStackDepth+5)); #ifdef DO_SIGNALS_RIGHT sigemptyset(&blocked); act.sa_sigaction = crash_handler; act.sa_mask = blocked; act.sa_flags = SA_SIGINFO; #endif if (params != NULL) { // Make ourselves a global copy of params. gbl_params = *params; gbl_params.filename = strdup(params->filename); // Set our defaults, if they weren't specified if (gbl_params.maxStackDepth == 0 ) gbl_params.maxStackDepth = ECRASH_DEFAULT_STACK_DEPTH; if (gbl_params.defaultBacktraceSignal == 0 ) gbl_params.defaultBacktraceSignal = ECRASH_DEFAULT_BACKTRACE_SIGNAL; if (gbl_params.threadWaitTime == 0 ) gbl_params.threadWaitTime = ECRASH_DEFAULT_THREAD_WAIT_TIME; if (gbl_params.debugLevel == 0 ) gbl_params.debugLevel = ECRASH_DEBUG_DEFAULT; // Copy our symbol table if (gbl_params.symbolTable) { DPRINTF(ECRASH_DEBUG_VERBOSE, "symbolTable @ %p -- %d symbols\n", gbl_params.symbolTable, gbl_params.symbolTable->numSymbols); // Make a copy of our symbol table gbl_params.symbolTable = malloc(sizeof(eCrashSymbolTable)); memcpy(gbl_params.symbolTable, params->symbolTable, sizeof(eCrashSymbolTable)); // Now allocate / copy the actual table. gbl_params.symbolTable->symbols = malloc(sizeof(eCrashSymbol) * gbl_params.symbolTable->numSymbols); memcpy(gbl_params.symbolTable->symbols, params->symbolTable->symbols, sizeof(eCrashSymbol) * gbl_params.symbolTable->numSymbols); ValidateSymbolTable(); } // And, finally, register for our signals for (sigIndex=0; gbl_params.signals[sigIndex] != 0; sigIndex++) { DPRINTF(ECRASH_DEBUG_VERY_VERBOSE, " Catching signal[%d] %d\n", sigIndex, gbl_params.signals[sigIndex]); // I know there's a better way to catch signals with pthreads. // I'll do it later TODO signal(gbl_params.signals[sigIndex], crash_handler); } } else { DPRINTF(ECRASH_DEBUG_ERROR, " Error: Null Params!\n"); ret = -1; } DPRINTF(ECRASH_DEBUG_VERY_VERBOSE, "Init Complete ret=%d\n", ret); return ret; } /* eCrash_Init */ /*! * UnInitialize eCrash. * * This function may be called to de-activate eCrash, release the * signal handlers, and free any memory allocated by eCrash. * * @return Zero on success. */ int eCrash_Uninit( void ) { NIY(); return 0; } /* eCrash_Uninit */ /*! * Register a thread for backtracing on crash. * * This function must be called by any thread wanting it's stack * dumped in the event of a crash. The thread my specify what * signal should be used, or the default, SIGUSR1 will be used. * * @param signo Signal to use to generate dump (default: SIGUSR1) * * @return Zero on success. */ int eCrash_RegisterThread(char *name, int signo) { sighandler_t old_handler; // Register for our signal if (signo == 0) { signo = gbl_params.defaultBacktraceSignal; } old_handler = signal(signo, bt_handler); return addThreadToList(name, pthread_self(), signo, old_handler); } /* eCrash_RegisterThread */ /*! * Un-register a thread for stack dumps. * * This function may be called to un-register any previously * registered thread. * * @return Zero on success. */ int eCrash_UnregisterThread( void ) { return removeThreadFromList(pthread_self()); } /* eCrash_UnregisterThread */ #endif citadel-902/ecrash.h000066400000000000000000000107441271512031400144130ustar00rootroot00000000000000/* * eCrash.h * David Frascone * * eCrash types and prototypes. * * vim: ts=4 */ #ifndef _ECRASH_H_ #define _ECRASH_H_ #include #include typedef void (*sighandler_t)(int); typedef long BOOL; #define MAX_LINE_LEN 256 #ifndef TRUE #define TRUE 1 #define FALSE 0 #define BOOL int #endif #define ECRASH_DEFAULT_STACK_DEPTH 10 #define ECRASH_DEFAULT_BACKTRACE_SIGNAL SIGUSR2 #define ECRASH_DEFAULT_THREAD_WAIT_TIME 10 #define ECRASH_MAX_NUM_SIGNALS 30 /** \struct eCrashSymbol * \brief Function Name / Address pair * * This is used in conjunction with eCrashSymbolTable to * provide an alternative to backtrace_symbols. */ typedef struct { char *function; void *address; } eCrashSymbol; /** \struct eCrashSymbolTable * \brief Symbol table used to avoid backtrace_symbols() * * This structure is used to provide a alternative to * backtrace_symbols which is not async signal safe. * * The symbol table should be sorted by address (it will * be either binary or linearly searched) */ typedef struct { int numSymbols; eCrashSymbol *symbols; } eCrashSymbolTable; #define ECRASH_DEBUG_ENABLE /* undef to turn off debug */ #ifdef ECRASH_DEBUG_ENABLE # define ECRASH_DEBUG_VERY_VERBOSE 1 # define ECRASH_DEBUG_VERBOSE 2 # define ECRASH_DEBUG_INFO 3 # define ECRASH_DEBUG_WARN 4 # define ECRASH_DEBUG_ERROR 5 # define ECRASH_DEBUG_OFF 6 # define ECRASH_DEBUG_DEFAULT (ECRASH_DEBUG_ERROR) # define DPRINTF(level, fmt...) \ if (level >= gbl_params.debugLevel) { printf(fmt); fflush(stdout); } #else /* ECRASH_DEBUG_ENABLE */ # define DPRINTF(level, fmt...) #endif /* ECRASH_DEBUG_ENABLE */ /** \struct eCrashParameters * \brief eCrash Initialization Parameters * * This structure contains all the global initialization functions * for eCrash. * * @see eCrash_Init */ typedef struct { /* OUTPUT OPTIONS */ /** Filename to output to, or NULL */ char *filename; /** FILE * to output to or NULL */ FILE *filep; /** fd to output to or -1 */ int fd; int debugLevel; /** If true, all registered threads will * be dumped */ BOOL dumpAllThreads; /** How far to backtrace each stack */ unsigned int maxStackDepth; /** Default signal to use to tell a thread to drop it's * stack. */ int defaultBacktraceSignal; /** How long to wait for a threads * dump */ unsigned int threadWaitTime; /** If this is non-zero, the dangerous function, backtrace_symbols * will be used. That function does a malloc(), so is not async * signal safe, and could cause deadlocks. */ BOOL useBacktraceSymbols; /** To avoid the issues with backtrace_symbols (see comments above) * the caller can supply it's own symbol table, containing function * names and start addresses. This table can be created using * a script, or a static table. * * If this variable is not null, it will be used, instead of * backtrace_symbols, reguardless of the setting * of useBacktraceSymbols. */ eCrashSymbolTable *symbolTable; /** Array of crash signals to catch, * ending in 0 I would have left it a [] array, but I * do a static copy, so I needed a set size. */ int signals[ECRASH_MAX_NUM_SIGNALS]; } eCrashParameters; /*! * Initialize eCrash. * * This function must be called before calling any other eCrash * functions. It sets up the global behavior of the system. * * @param params Our input parameters. The passed in structure will be copied. * * @return Zero on success. */ int eCrash_Init(eCrashParameters *params); /*! * UnInitialize eCrash. * * This function may be called to de-activate eCrash, release the * signal handlers, and free any memory allocated by eCrash. * * @return Zero on success. */ int eCrash_Uninit( void ); /*! * Register a thread for backtracing on crash. * * This function must be called by any thread wanting it's stack * dumped in the event of a crash. The thread my specify what * signal should be used, or the default, SIGUSR1 will be used. * * @param name String used to refer to us in crash dumps * @param signo Signal to use to generate dump (default: SIGUSR1) * * @return Zero on success. */ int eCrash_RegisterThread(char *name, int signo); /*! * Un-register a thread for stack dumps. * * This function may be called to un-register any previously * registered thread. * * @return Zero on success. */ int eCrash_UnregisterThread( void ); #endif /* _E_CRASH_H_ */ citadel-902/euidindex.c000066400000000000000000000126671271512031400151250ustar00rootroot00000000000000/* * Index messages by EUID per room. */ #include "sysdep.h" #include #include #include "citserver.h" #include "room_ops.h" /* * The structure of an euidindex record *key* is: * * |----room_number----|----------EUID-------------| * (sizeof long) (actual length of euid) * * * The structure of an euidindex record *value* is: * * |-----msg_number----|----room_number----|----------EUID-------------| * (sizeof long) (sizeof long) (actual length of euid) * */ /* * Return nonzero if the supplied room is one which should have * an EUID index. */ int DoesThisRoomNeedEuidIndexing(struct ctdlroom *qrbuf) { switch(qrbuf->QRdefaultview) { case VIEW_BBS: return(0); case VIEW_MAILBOX: return(0); case VIEW_ADDRESSBOOK: return(1); case VIEW_DRAFTS: return(0); case VIEW_CALENDAR: return(1); case VIEW_TASKS: return(1); case VIEW_NOTES: return(1); case VIEW_WIKI: return(1); case VIEW_WIKIMD: return(1); case VIEW_BLOG: return(1); } return(0); } /* * Locate a message in a given room with a given euid, and return * its message number. */ long locate_message_by_euid(char *euid, struct ctdlroom *qrbuf) { return CtdlLocateMessageByEuid (euid, qrbuf); } long CtdlLocateMessageByEuid(char *euid, struct ctdlroom *qrbuf) { char *key; int key_len; struct cdbdata *cdb_euid; long msgnum = (-1L); syslog(LOG_DEBUG, "Searching for EUID <%s> in <%s>\n", euid, qrbuf->QRname); key_len = strlen(euid) + sizeof(long) + 1; key = malloc(key_len); memcpy(key, &qrbuf->QRnumber, sizeof(long)); strcpy(&key[sizeof(long)], euid); cdb_euid = cdb_fetch(CDB_EUIDINDEX, key, key_len); free(key); if (cdb_euid == NULL) { msgnum = (-1L); } else { /* The first (sizeof long) of the record is what we're * looking for. Throw away the rest. */ memcpy(&msgnum, cdb_euid->ptr, sizeof(long)); cdb_free(cdb_euid); } syslog(LOG_DEBUG, "returning msgnum = %ld\n", msgnum); return(msgnum); } /* * Store the euid index for a message, which has presumably just been * stored in this room by the caller. */ void index_message_by_euid(char *euid, struct ctdlroom *qrbuf, long msgnum) { char *key; int key_len; char *data; int data_len; syslog(LOG_DEBUG, "Indexing message #%ld <%s> in <%s>\n", msgnum, euid, qrbuf->QRname); key_len = strlen(euid) + sizeof(long) + 1; key = malloc(key_len); memcpy(key, &qrbuf->QRnumber, sizeof(long)); strcpy(&key[sizeof(long)], euid); data_len = sizeof(long) + key_len; data = malloc(data_len); memcpy(data, &msgnum, sizeof(long)); memcpy(&data[sizeof(long)], key, key_len); cdb_store(CDB_EUIDINDEX, key, key_len, data, data_len); free(key); free(data); } /* * Called by rebuild_euid_index_for_room() to index one message. */ void rebuild_euid_index_for_msg(long msgnum, void *userdata) { struct CtdlMessage *msg = NULL; msg = CtdlFetchMessage(msgnum, 0, 1); if (msg == NULL) return; if (!CM_IsEmpty(msg, eExclusiveID)) { index_message_by_euid(msg->cm_fields[eExclusiveID], &CC->room, msgnum); } CM_Free(msg); } void rebuild_euid_index_for_room(struct ctdlroom *qrbuf, void *data) { static struct RoomProcList *rplist = NULL; struct RoomProcList *ptr; struct ctdlroom qr; /* Lazy programming here. Call this function as a CtdlForEachRoom backend * in order to queue up the room names, or call it with a null room * to make it do the processing. */ if (qrbuf != NULL) { ptr = (struct RoomProcList *) malloc(sizeof (struct RoomProcList)); if (ptr == NULL) return; safestrncpy(ptr->name, qrbuf->QRname, sizeof ptr->name); ptr->next = rplist; rplist = ptr; return; } while (rplist != NULL) { if (CtdlGetRoom(&qr, rplist->name) == 0) { if (DoesThisRoomNeedEuidIndexing(&qr)) { syslog(LOG_DEBUG, "Rebuilding EUID index for <%s>\n", rplist->name); CtdlUserGoto(rplist->name, 0, 0, NULL, NULL, NULL, NULL); CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, rebuild_euid_index_for_msg, NULL); } } ptr = rplist; rplist = rplist->next; free(ptr); } } /* * Globally rebuild the EUID indices in every room. */ void rebuild_euid_index(void) { cdb_trunc(CDB_EUIDINDEX); /* delete the old indices */ CtdlForEachRoom(rebuild_euid_index_for_room, NULL); /* enumerate rm names */ rebuild_euid_index_for_room(NULL, NULL); /* and index them */ } /* * Server command to fetch a message number given an euid. */ void cmd_euid(char *cmdbuf) { char euid[256]; long msgnum; struct cdbdata *cdbfr; long *msglist = NULL; int num_msgs = 0; int i; if (CtdlAccessCheck(ac_logged_in_or_guest)) return; extract_token(euid, cmdbuf, 0, '|', sizeof euid); msgnum = CtdlLocateMessageByEuid(euid, &CC->room); if (msgnum <= 0L) { cprintf("%d not found\n", ERROR + MESSAGE_NOT_FOUND); return; } cdbfr = cdb_fetch(CDB_MSGLISTS, &CC->room.QRnumber, sizeof(long)); if (cdbfr != NULL) { num_msgs = cdbfr->len / sizeof(long); msglist = (long *) cdbfr->ptr; for (i = 0; i < num_msgs; ++i) { if (msglist[i] == msgnum) { cdb_free(cdbfr); cprintf("%d %ld\n", CIT_OK, msgnum); return; } } cdb_free(cdbfr); } cprintf("%d not found\n", ERROR + MESSAGE_NOT_FOUND); } CTDL_MODULE_INIT(euidindex) { if (!threading) { CtdlRegisterProtoHook(cmd_euid, "EUID", "Perform operations on Extended IDs for messages"); } /* return our Subversion id for the Log */ return "euidindex"; } citadel-902/euidindex.h000066400000000000000000000006001271512031400151120ustar00rootroot00000000000000/* * Index messages by EUID per room. */ int DoesThisRoomNeedEuidIndexing(struct ctdlroom *qrbuf); /* locate_message_by_euid is deprecated. Use CtdlLocateMessageByEuid instead */ long locate_message_by_euid(char *euid, struct ctdlroom *qrbuf) __attribute__ ((deprecated)); void index_message_by_euid(char *euid, struct ctdlroom *qrbuf, long msgnum); void rebuild_euid_index(void); citadel-902/event_client.c000066400000000000000000000735331271512031400156250ustar00rootroot00000000000000/* * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #if HAVE_BACKTRACE #include #endif #include #include "ctdl_module.h" #include "event_client.h" #include "citserver.h" #include "config.h" ConstStr IOStates[] = { {HKEY("DB Queue")}, {HKEY("DB Q Next")}, {HKEY("DB Attach")}, {HKEY("DB Next")}, {HKEY("DB Stop")}, {HKEY("DB Exit")}, {HKEY("DB Terminate")}, {HKEY("IO Queue")}, {HKEY("IO Attach")}, {HKEY("IO Connect Socket")}, {HKEY("IO Abort")}, {HKEY("IO Timeout")}, {HKEY("IO ConnFail")}, {HKEY("IO ConnFail Now")}, {HKEY("IO Conn Now")}, {HKEY("IO Conn Wait")}, {HKEY("Curl Q")}, {HKEY("Curl Start")}, {HKEY("Curl Shotdown")}, {HKEY("Curl More IO")}, {HKEY("Curl Got IO")}, {HKEY("Curl Got Data")}, {HKEY("Curl Got Status")}, {HKEY("C-Ares Start")}, {HKEY("C-Ares IO Done")}, {HKEY("C-Ares Finished")}, {HKEY("C-Ares exit")}, {HKEY("Killing")}, {HKEY("Exit")} }; void SetEVState(AsyncIO *IO, eIOState State) { CitContext* CCC = IO->CitContext; if (CCC != NULL) memcpy(CCC->lastcmdname, IOStates[State].Key, IOStates[State].len + 1); } eNextState QueueAnEventContext(AsyncIO *IO); static void IO_Timeout_callback(struct ev_loop *loop, ev_timer *watcher, int revents); static void IO_abort_shutdown_callback(struct ev_loop *loop, ev_cleanup *watcher, int revents); /*------------------------------------------------------------------------------ * Server DB IO *----------------------------------------------------------------------------*/ extern int evdb_count; extern pthread_mutex_t DBEventQueueMutex; extern pthread_mutex_t DBEventExitQueueMutex; extern HashList *DBInboundEventQueue; extern struct ev_loop *event_db; extern ev_async DBAddJob; extern ev_async DBExitEventLoop; eNextState QueueAnDBOperation(AsyncIO *IO) { IOAddHandler *h; int i; SetEVState(IO, eDBQ); h = (IOAddHandler*)malloc(sizeof(IOAddHandler)); h->IO = IO; assert(IO->ReAttachCB != NULL); h->EvAttch = IO->ReAttachCB; ev_cleanup_init(&IO->db_abort_by_shutdown, IO_abort_shutdown_callback); IO->db_abort_by_shutdown.data = IO; pthread_mutex_lock(&DBEventQueueMutex); if (DBInboundEventQueue == NULL) { /* shutting down... */ free(h); EVM_syslog(LOG_DEBUG, "DBEVENT Q exiting.\n"); pthread_mutex_unlock(&DBEventQueueMutex); return eAbort; } EVM_syslog(LOG_DEBUG, "DBEVENT Q\n"); i = ++evdb_count ; Put(DBInboundEventQueue, IKEY(i), h, NULL); pthread_mutex_unlock(&DBEventQueueMutex); pthread_mutex_lock(&DBEventExitQueueMutex); if (event_db == NULL) { pthread_mutex_unlock(&DBEventExitQueueMutex); return eAbort; } ev_async_send (event_db, &DBAddJob); pthread_mutex_unlock(&DBEventExitQueueMutex); EVQM_syslog(LOG_DEBUG, "DBEVENT Q Done.\n"); return eDBQuery; } void StopDBWatchers(AsyncIO *IO) { SetEVState(IO, eDBStop); ev_cleanup_stop(event_db, &IO->db_abort_by_shutdown); ev_idle_stop(event_db, &IO->db_unwind_stack); } void ShutDownDBCLient(AsyncIO *IO) { CitContext *Ctx =IO->CitContext; become_session(Ctx); SetEVState(IO, eDBTerm); EVM_syslog(LOG_DEBUG, "DBEVENT Terminating.\n"); StopDBWatchers(IO); assert(IO->DBTerminate); IO->DBTerminate(IO); } void DB_PerformNext(struct ev_loop *loop, ev_idle *watcher, int revents) { AsyncIO *IO = watcher->data; SetEVState(IO, eDBNext); SET_EV_TIME(IO, event_db); EV_syslog(LOG_DEBUG, "%s()", __FUNCTION__); become_session(IO->CitContext); ev_idle_stop(event_db, &IO->db_unwind_stack); assert(IO->NextDBOperation); switch (IO->NextDBOperation(IO)) { case eSendReply: ev_cleanup_stop(loop, &IO->db_abort_by_shutdown); QueueAnEventContext(IO); break; case eDBQuery: break; case eSendDNSQuery: case eReadDNSReply: case eConnect: case eSendMore: case eSendFile: case eReadMessage: case eReadMore: case eReadPayload: case eReadFile: ev_cleanup_stop(loop, &IO->db_abort_by_shutdown); break; case eTerminateConnection: case eAbort: ev_idle_stop(event_db, &IO->db_unwind_stack); ev_cleanup_stop(loop, &IO->db_abort_by_shutdown); ShutDownDBCLient(IO); } } eNextState NextDBOperation(AsyncIO *IO, IO_CallBack CB) { SetEVState(IO, eQDBNext); IO->NextDBOperation = CB; ev_idle_init(&IO->db_unwind_stack, DB_PerformNext); IO->db_unwind_stack.data = IO; ev_idle_start(event_db, &IO->db_unwind_stack); return eDBQuery; } /*------------------------------------------------------------------------------ * Client IO *----------------------------------------------------------------------------*/ extern int evbase_count; extern pthread_mutex_t EventQueueMutex; extern pthread_mutex_t EventExitQueueMutex; extern HashList *InboundEventQueue; extern struct ev_loop *event_base; extern ev_async AddJob; extern ev_async ExitEventLoop; static void IO_abort_shutdown_callback(struct ev_loop *loop, ev_cleanup *watcher, int revents) { AsyncIO *IO = watcher->data; SetEVState(IO, eIOAbort); EV_syslog(LOG_DEBUG, "EVENT Q: %s\n", __FUNCTION__); SET_EV_TIME(IO, event_base); assert(IO->ShutdownAbort); IO->ShutdownAbort(IO); } eNextState QueueAnEventContext(AsyncIO *IO) { IOAddHandler *h; int i; SetEVState(IO, eIOQ); h = (IOAddHandler*)malloc(sizeof(IOAddHandler)); h->IO = IO; assert(IO->ReAttachCB != NULL); h->EvAttch = IO->ReAttachCB; ev_cleanup_init(&IO->abort_by_shutdown, IO_abort_shutdown_callback); IO->abort_by_shutdown.data = IO; pthread_mutex_lock(&EventQueueMutex); if (InboundEventQueue == NULL) { free(h); /* shutting down... */ EVM_syslog(LOG_DEBUG, "EVENT Q exiting.\n"); pthread_mutex_unlock(&EventQueueMutex); return eAbort; } EVM_syslog(LOG_DEBUG, "EVENT Q\n"); i = ++evbase_count; Put(InboundEventQueue, IKEY(i), h, NULL); pthread_mutex_unlock(&EventQueueMutex); pthread_mutex_lock(&EventExitQueueMutex); if (event_base == NULL) { pthread_mutex_unlock(&EventExitQueueMutex); return eAbort; } ev_async_send (event_base, &AddJob); pthread_mutex_unlock(&EventExitQueueMutex); EVM_syslog(LOG_DEBUG, "EVENT Q Done.\n"); return eSendReply; } eNextState EventQueueDBOperation(AsyncIO *IO, IO_CallBack CB, int CloseFDs) { StopClientWatchers(IO, CloseFDs); IO->ReAttachCB = CB; return eDBQuery; } eNextState DBQueueEventContext(AsyncIO *IO, IO_CallBack CB) { StopDBWatchers(IO); IO->ReAttachCB = CB; return eSendReply; } eNextState QueueEventContext(AsyncIO *IO, IO_CallBack CB) { IO->ReAttachCB = CB; return QueueAnEventContext(IO); } extern eNextState evcurl_handle_start(AsyncIO *IO); eNextState QueueCurlContext(AsyncIO *IO) { IOAddHandler *h; int i; SetEVState(IO, eCurlQ); h = (IOAddHandler*)malloc(sizeof(IOAddHandler)); h->IO = IO; h->EvAttch = evcurl_handle_start; pthread_mutex_lock(&EventQueueMutex); if (InboundEventQueue == NULL) { /* shutting down... */ free(h); EVM_syslog(LOG_DEBUG, "EVENT Q exiting.\n"); pthread_mutex_unlock(&EventQueueMutex); return eAbort; } EVM_syslog(LOG_DEBUG, "EVENT Q\n"); i = ++evbase_count; Put(InboundEventQueue, IKEY(i), h, NULL); pthread_mutex_unlock(&EventQueueMutex); pthread_mutex_lock(&EventExitQueueMutex); if (event_base == NULL) { pthread_mutex_unlock(&EventExitQueueMutex); return eAbort; } ev_async_send (event_base, &AddJob); pthread_mutex_unlock(&EventExitQueueMutex); EVM_syslog(LOG_DEBUG, "EVENT Q Done.\n"); return eSendReply; } eNextState CurlQueueDBOperation(AsyncIO *IO, IO_CallBack CB) { StopCurlWatchers(IO); IO->ReAttachCB = CB; return eDBQuery; } void FreeAsyncIOContents(AsyncIO *IO) { CitContext *Ctx = IO->CitContext; FreeStrBuf(&IO->IOBuf); FreeStrBuf(&IO->SendBuf.Buf); FreeStrBuf(&IO->RecvBuf.Buf); FreeURL(&IO->ConnectMe); FreeStrBuf(&IO->HttpReq.ReplyData); if (Ctx) { Ctx->state = CON_IDLE; Ctx->kill_me = 1; IO->CitContext = NULL; } } void DestructCAres(AsyncIO *IO); void StopClientWatchers(AsyncIO *IO, int CloseFD) { EVM_syslog(LOG_DEBUG, "EVENT StopClientWatchers"); DestructCAres(IO); ev_timer_stop (event_base, &IO->rw_timeout); ev_timer_stop(event_base, &IO->conn_fail); ev_idle_stop(event_base, &IO->unwind_stack); ev_cleanup_stop(event_base, &IO->abort_by_shutdown); ev_io_stop(event_base, &IO->conn_event); ev_io_stop(event_base, &IO->send_event); ev_io_stop(event_base, &IO->recv_event); if (CloseFD && (IO->SendBuf.fd > 0)) { close(IO->SendBuf.fd); IO->SendBuf.fd = 0; IO->RecvBuf.fd = 0; } } void StopCurlWatchers(AsyncIO *IO) { EVM_syslog(LOG_DEBUG, "EVENT StopCurlWatchers \n"); ev_timer_stop (event_base, &IO->rw_timeout); ev_timer_stop(event_base, &IO->conn_fail); ev_idle_stop(event_base, &IO->unwind_stack); ev_cleanup_stop(event_base, &IO->abort_by_shutdown); ev_io_stop(event_base, &IO->conn_event); ev_io_stop(event_base, &IO->send_event); ev_io_stop(event_base, &IO->recv_event); curl_easy_cleanup(IO->HttpReq.chnd); IO->HttpReq.chnd = NULL; if (IO->SendBuf.fd != 0) { close(IO->SendBuf.fd); } IO->SendBuf.fd = 0; IO->RecvBuf.fd = 0; } eNextState ShutDownCLient(AsyncIO *IO) { CitContext *Ctx =IO->CitContext; SetEVState(IO, eExit); become_session(Ctx); EVM_syslog(LOG_DEBUG, "EVENT Terminating \n"); StopClientWatchers(IO, 1); if (IO->DNS.Channel != NULL) { ares_destroy(IO->DNS.Channel); EV_DNS_LOG_STOP(DNS.recv_event); EV_DNS_LOG_STOP(DNS.send_event); ev_io_stop(event_base, &IO->DNS.recv_event); ev_io_stop(event_base, &IO->DNS.send_event); IO->DNS.Channel = NULL; } assert(IO->Terminate); return IO->Terminate(IO); } void PostInbound(AsyncIO *IO) { switch (IO->NextState) { case eSendFile: ev_io_start(event_base, &IO->send_event); break; case eSendReply: case eSendMore: assert(IO->SendDone); IO->NextState = IO->SendDone(IO); switch (IO->NextState) { case eSendFile: case eSendReply: case eSendMore: case eReadMessage: case eReadPayload: case eReadMore: case eReadFile: ev_io_start(event_base, &IO->send_event); break; case eDBQuery: StopClientWatchers(IO, 0); QueueAnDBOperation(IO); default: break; } break; case eReadPayload: case eReadMore: case eReadFile: ev_io_start(event_base, &IO->recv_event); break; case eTerminateConnection: case eAbort: if (ShutDownCLient(IO) == eDBQuery) { QueueAnDBOperation(IO); } break; case eSendDNSQuery: case eReadDNSReply: case eConnect: case eReadMessage: break; case eDBQuery: QueueAnDBOperation(IO); } } eReadState HandleInbound(AsyncIO *IO) { const char *Err = NULL; eReadState Finished = eBufferNotEmpty; become_session(IO->CitContext); while ((Finished == eBufferNotEmpty) && ((IO->NextState == eReadMessage)|| (IO->NextState == eReadMore)|| (IO->NextState == eReadFile)|| (IO->NextState == eReadPayload))) { /* Reading lines... * lex line reply in callback, * or do it ourselves. * i.e. as nnn-blabla means continue reading in SMTP */ if ((IO->NextState == eReadFile) && (Finished == eBufferNotEmpty)) { Finished = WriteIOBAlreadyRead(&IO->IOB, &Err); if (Finished == eReadSuccess) { IO->NextState = eSendReply; } } else if (IO->LineReader) Finished = IO->LineReader(IO); else Finished = StrBufChunkSipLine(IO->IOBuf, &IO->RecvBuf); switch (Finished) { case eMustReadMore: /// read new from socket... break; case eBufferNotEmpty: /* shouldn't happen... */ case eReadSuccess: /// done for now... break; case eReadFail: /// WHUT? ///todo: shut down! break; } if (Finished != eMustReadMore) { ev_io_stop(event_base, &IO->recv_event); IO->NextState = IO->ReadDone(IO); if (IO->NextState == eDBQuery) { if (QueueAnDBOperation(IO) == eAbort) return eReadFail; else return eReadSuccess; } else { Finished = StrBufCheckBuffer(&IO->RecvBuf); } } } PostInbound(IO); return Finished; } static void IO_send_callback(struct ev_loop *loop, ev_io *watcher, int revents) { int rc; AsyncIO *IO = watcher->data; const char *errmsg = NULL; SET_EV_TIME(IO, event_base); become_session(IO->CitContext); #ifdef BIGBAD_IODBG { int rv = 0; char fn [SIZ]; FILE *fd; const char *pch = ChrPtr(IO->SendBuf.Buf); const char *pchh = IO->SendBuf.ReadWritePointer; long nbytes; if (pchh == NULL) pchh = pch; nbytes = StrLength(IO->SendBuf.Buf) - (pchh - pch); snprintf(fn, SIZ, "/tmp/foolog_ev_%s.%d", ((CitContext*)(IO->CitContext))->ServiceName, IO->SendBuf.fd); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Send: BufSize: %ld BufContent: [", nbytes); rv = fwrite(pchh, nbytes, 1, fd); if (!rv) printf("failed to write debug to %s!\n", fn); fprintf(fd, "]\n"); #endif switch (IO->NextState) { case eSendFile: rc = FileSendChunked(&IO->IOB, &errmsg); if (rc < 0) StrBufPlain(IO->ErrMsg, errmsg, -1); break; default: rc = StrBuf_write_one_chunk_callback(IO->SendBuf.fd, 0, &IO->SendBuf); } #ifdef BIGBAD_IODBG fprintf(fd, "Sent: BufSize: %d bytes.\n", rc); fclose(fd); } #endif if (rc == 0) { ev_io_stop(event_base, &IO->send_event); switch (IO->NextState) { case eSendMore: assert(IO->SendDone); IO->NextState = IO->SendDone(IO); if ((IO->NextState == eTerminateConnection) || (IO->NextState == eAbort) ) ShutDownCLient(IO); else { ev_io_start(event_base, &IO->send_event); } break; case eSendFile: if (IO->IOB.ChunkSendRemain > 0) { ev_io_start(event_base, &IO->recv_event); SetNextTimeout(IO, 100.0); } else { assert(IO->ReadDone); IO->NextState = IO->ReadDone(IO); switch(IO->NextState) { case eSendDNSQuery: case eReadDNSReply: case eDBQuery: case eConnect: break; case eSendReply: case eSendMore: case eSendFile: ev_io_start(event_base, &IO->send_event); break; case eReadMessage: case eReadMore: case eReadPayload: case eReadFile: break; case eTerminateConnection: case eAbort: break; } } break; case eSendReply: if (StrBufCheckBuffer(&IO->SendBuf) != eReadSuccess) break; IO->NextState = eReadMore; case eReadMore: case eReadMessage: case eReadPayload: case eReadFile: if (StrBufCheckBuffer(&IO->RecvBuf) == eBufferNotEmpty) { HandleInbound(IO); } else { ev_io_start(event_base, &IO->recv_event); } break; case eDBQuery: /* * we now live in another queue, * so we have to unregister. */ ev_cleanup_stop(loop, &IO->abort_by_shutdown); break; case eSendDNSQuery: case eReadDNSReply: case eConnect: case eTerminateConnection: case eAbort: break; } } else if (rc < 0) { if (errno != EAGAIN) { StopClientWatchers(IO, 1); EV_syslog(LOG_DEBUG, "IO_send_callback(): Socket Invalid! [%d] [%s] [%d]\n", errno, strerror(errno), IO->SendBuf.fd); StrBufPrintf(IO->ErrMsg, "Socket Invalid! [%s]", strerror(errno)); SetNextTimeout(IO, 0.01); } } /* else : must write more. */ } static void set_start_callback(struct ev_loop *loop, AsyncIO *IO, int revents) { ev_timer_stop(event_base, &IO->conn_fail); ev_timer_start(event_base, &IO->rw_timeout); switch(IO->NextState) { case eReadMore: case eReadMessage: case eReadFile: StrBufAppendBufPlain(IO->ErrMsg, HKEY("[while waiting for greeting]"), 0); ev_io_start(event_base, &IO->recv_event); break; case eSendReply: case eSendMore: case eReadPayload: case eSendFile: become_session(IO->CitContext); IO_send_callback(loop, &IO->send_event, revents); break; case eDBQuery: case eSendDNSQuery: case eReadDNSReply: case eConnect: case eTerminateConnection: case eAbort: /// TODO: WHUT? break; } } static void IO_Timeout_callback(struct ev_loop *loop, ev_timer *watcher, int revents) { AsyncIO *IO = watcher->data; SetEVState(IO, eIOTimeout); SET_EV_TIME(IO, event_base); ev_timer_stop (event_base, &IO->rw_timeout); become_session(IO->CitContext); if (IO->SendBuf.fd != 0) { ev_io_stop(event_base, &IO->send_event); ev_io_stop(event_base, &IO->recv_event); ev_timer_stop (event_base, &IO->rw_timeout); close(IO->SendBuf.fd); IO->SendBuf.fd = IO->RecvBuf.fd = 0; } assert(IO->Timeout); switch (IO->Timeout(IO)) { case eAbort: ShutDownCLient(IO); default: break; } } static void IO_connfail_callback(struct ev_loop *loop, ev_timer *watcher, int revents) { AsyncIO *IO = watcher->data; SetEVState(IO, eIOConnfail); SET_EV_TIME(IO, event_base); ev_timer_stop (event_base, &IO->conn_fail); if (IO->SendBuf.fd != 0) { ev_io_stop(loop, &IO->conn_event); ev_io_stop(event_base, &IO->send_event); ev_io_stop(event_base, &IO->recv_event); ev_timer_stop (event_base, &IO->rw_timeout); close(IO->SendBuf.fd); IO->SendBuf.fd = IO->RecvBuf.fd = 0; } become_session(IO->CitContext); assert(IO->ConnFail); switch (IO->ConnFail(IO)) { case eAbort: ShutDownCLient(IO); default: break; } } static void IO_connfailimmediate_callback(struct ev_loop *loop, ev_idle *watcher, int revents) { AsyncIO *IO = watcher->data; SetEVState(IO, eIOConnfailNow); SET_EV_TIME(IO, event_base); ev_idle_stop (event_base, &IO->conn_fail_immediate); if (IO->SendBuf.fd != 0) { close(IO->SendBuf.fd); IO->SendBuf.fd = IO->RecvBuf.fd = 0; } become_session(IO->CitContext); assert(IO->ConnFail); switch (IO->ConnFail(IO)) { case eAbort: ShutDownCLient(IO); default: break; } } static void IO_connestd_callback(struct ev_loop *loop, ev_io *watcher, int revents) { AsyncIO *IO = watcher->data; int so_err = 0; socklen_t lon = sizeof(so_err); int err; SetEVState(IO, eIOConnNow); SET_EV_TIME(IO, event_base); EVM_syslog(LOG_DEBUG, "connect() succeeded.\n"); ev_io_stop(loop, &IO->conn_event); ev_timer_stop(event_base, &IO->conn_fail); err = getsockopt(IO->SendBuf.fd, SOL_SOCKET, SO_ERROR, (void*)&so_err, &lon); if ((err == 0) && (so_err != 0)) { EV_syslog(LOG_DEBUG, "connect() failed [%d][%s]\n", so_err, strerror(so_err)); IO_connfail_callback(loop, &IO->conn_fail, revents); } else { EVM_syslog(LOG_DEBUG, "connect() succeeded\n"); set_start_callback(loop, IO, revents); } } static void IO_recv_callback(struct ev_loop *loop, ev_io *watcher, int revents) { const char *errmsg; ssize_t nbytes; AsyncIO *IO = watcher->data; SET_EV_TIME(IO, event_base); switch (IO->NextState) { case eReadFile: nbytes = FileRecvChunked(&IO->IOB, &errmsg); if (nbytes < 0) StrBufPlain(IO->ErrMsg, errmsg, -1); else { if (IO->IOB.ChunkSendRemain == 0) { IO->NextState = eSendReply; assert(IO->ReadDone); ev_io_stop(event_base, &IO->recv_event); PostInbound(IO); return; } else return; } break; default: nbytes = StrBuf_read_one_chunk_callback(IO->RecvBuf.fd, 0, &IO->RecvBuf); break; } #ifdef BIGBAD_IODBG { long nbytes; int rv = 0; char fn [SIZ]; FILE *fd; const char *pch = ChrPtr(IO->RecvBuf.Buf); const char *pchh = IO->RecvBuf.ReadWritePointer; if (pchh == NULL) pchh = pch; nbytes = StrLength(IO->RecvBuf.Buf) - (pchh - pch); snprintf(fn, SIZ, "/tmp/foolog_ev_%s.%d", ((CitContext*)(IO->CitContext))->ServiceName, IO->SendBuf.fd); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Read: BufSize: %ld BufContent: [", nbytes); rv = fwrite(pchh, nbytes, 1, fd); if (!rv) printf("failed to write debug to %s!\n", fn); fprintf(fd, "]\n"); fclose(fd); } #endif if (nbytes > 0) { HandleInbound(IO); } else if (nbytes == 0) { StopClientWatchers(IO, 1); SetNextTimeout(IO, 0.01); return; } else if (nbytes == -1) { if (errno != EAGAIN) { // FD is gone. kick it. StopClientWatchers(IO, 1); EV_syslog(LOG_DEBUG, "IO_recv_callback(): Socket Invalid! [%d] [%s] [%d]\n", errno, strerror(errno), IO->SendBuf.fd); StrBufPrintf(IO->ErrMsg, "Socket Invalid! [%s]", strerror(errno)); SetNextTimeout(IO, 0.01); } return; } } void IO_postdns_callback(struct ev_loop *loop, ev_idle *watcher, int revents) { AsyncIO *IO = watcher->data; SetEVState(IO, eCaresFinished); SET_EV_TIME(IO, event_base); EV_syslog(LOG_DEBUG, "event: %s\n", __FUNCTION__); become_session(IO->CitContext); assert(IO->DNS.Query->PostDNS); switch (IO->DNS.Query->PostDNS(IO)) { case eAbort: assert(IO->DNS.Fail); switch (IO->DNS.Fail(IO)) { case eAbort: //// StopClientWatchers(IO); ShutDownCLient(IO); break; case eDBQuery: StopClientWatchers(IO, 0); QueueAnDBOperation(IO); break; default: break; } case eDBQuery: StopClientWatchers(IO, 0); QueueAnDBOperation(IO); break; default: break; } } eNextState EvConnectSock(AsyncIO *IO, double conn_timeout, double first_rw_timeout, int ReadFirst) { struct sockaddr_in egress_sin; int fdflags; int rc = -1; SetEVState(IO, eIOConnectSock); become_session(IO->CitContext); if (ReadFirst) { IO->NextState = eReadMessage; } else { IO->NextState = eSendReply; } IO->SendBuf.fd = IO->RecvBuf.fd = socket( (IO->ConnectMe->IPv6)?PF_INET6:PF_INET, SOCK_STREAM, IPPROTO_TCP); if (IO->SendBuf.fd < 0) { EV_syslog(LOG_ERR, "EVENT: socket() failed: %s\n", strerror(errno)); StrBufPrintf(IO->ErrMsg, "Failed to create socket: %s", strerror(errno)); IO->SendBuf.fd = IO->RecvBuf.fd = 0; return eAbort; } fdflags = fcntl(IO->SendBuf.fd, F_GETFL); if (fdflags < 0) { EV_syslog(LOG_ERR, "EVENT: unable to get socket %d flags! %s \n", IO->SendBuf.fd, strerror(errno)); StrBufPrintf(IO->ErrMsg, "Failed to get socket %d flags: %s", IO->SendBuf.fd, strerror(errno)); close(IO->SendBuf.fd); IO->SendBuf.fd = IO->RecvBuf.fd = 0; return eAbort; } fdflags = fdflags | O_NONBLOCK; if (fcntl(IO->SendBuf.fd, F_SETFL, fdflags) < 0) { EV_syslog( LOG_ERR, "EVENT: unable to set socket %d nonblocking flags! %s \n", IO->SendBuf.fd, strerror(errno)); StrBufPrintf(IO->ErrMsg, "Failed to set socket flags: %s", strerror(errno)); close(IO->SendBuf.fd); IO->SendBuf.fd = IO->RecvBuf.fd = 0; return eAbort; } /* TODO: maye we could use offsetof() to calc the position of data... * http://doc.dvgu.ru/devel/ev.html#associating_custom_data_with_a_watcher */ ev_io_init(&IO->recv_event, IO_recv_callback, IO->RecvBuf.fd, EV_READ); IO->recv_event.data = IO; ev_io_init(&IO->send_event, IO_send_callback, IO->SendBuf.fd, EV_WRITE); IO->send_event.data = IO; ev_timer_init(&IO->conn_fail, IO_connfail_callback, conn_timeout, 0); IO->conn_fail.data = IO; ev_timer_init(&IO->rw_timeout, IO_Timeout_callback, first_rw_timeout,0); IO->rw_timeout.data = IO; /* for debugging you may bypass it like this: * IO->Addr.sin_addr.s_addr = inet_addr("127.0.0.1"); * ((struct sockaddr_in)IO->ConnectMe->Addr).sin_addr.s_addr = * inet_addr("127.0.0.1"); */ if (IO->ConnectMe->IPv6) { rc = connect(IO->SendBuf.fd, &IO->ConnectMe->Addr, sizeof(struct sockaddr_in6)); } else { /* If citserver is bound to a specific IP address on the host, make * sure we use that address for outbound connections. */ memset(&egress_sin, 0, sizeof(egress_sin)); egress_sin.sin_family = AF_INET; if (!IsEmptyStr(CtdlGetConfigStr("c_ip_addr"))) { egress_sin.sin_addr.s_addr = inet_addr(CtdlGetConfigStr("c_ip_addr")); if (egress_sin.sin_addr.s_addr == !INADDR_ANY) { egress_sin.sin_addr.s_addr = INADDR_ANY; } /* If this bind fails, no problem; we can still use INADDR_ANY */ bind(IO->SendBuf.fd, (struct sockaddr *)&egress_sin, sizeof(egress_sin)); } rc = connect(IO->SendBuf.fd, (struct sockaddr_in *)&IO->ConnectMe->Addr, sizeof(struct sockaddr_in)); } if (rc >= 0){ SetEVState(IO, eIOConnNow); EV_syslog(LOG_DEBUG, "connect() = %d immediate success.\n", IO->SendBuf.fd); set_start_callback(event_base, IO, 0); return IO->NextState; } else if (errno == EINPROGRESS) { SetEVState(IO, eIOConnWait); EV_syslog(LOG_DEBUG, "connect() = %d have to wait now.\n", IO->SendBuf.fd); ev_io_init(&IO->conn_event, IO_connestd_callback, IO->SendBuf.fd, EV_READ|EV_WRITE); IO->conn_event.data = IO; ev_io_start(event_base, &IO->conn_event); ev_timer_start(event_base, &IO->conn_fail); return IO->NextState; } else { SetEVState(IO, eIOConnfail); ev_idle_init(&IO->conn_fail_immediate, IO_connfailimmediate_callback); IO->conn_fail_immediate.data = IO; ev_idle_start(event_base, &IO->conn_fail_immediate); EV_syslog(LOG_ERR, "connect() = %d failed: %s\n", IO->SendBuf.fd, strerror(errno)); StrBufPrintf(IO->ErrMsg, "Failed to connect: %s", strerror(errno)); return IO->NextState; } return IO->NextState; } void SetNextTimeout(AsyncIO *IO, double timeout) { IO->rw_timeout.repeat = timeout; ev_timer_again (event_base, &IO->rw_timeout); } eNextState ReAttachIO(AsyncIO *IO, void *pData, int ReadFirst) { SetEVState(IO, eIOAttach); IO->Data = pData; become_session(IO->CitContext); ev_cleanup_start(event_base, &IO->abort_by_shutdown); if (ReadFirst) { IO->NextState = eReadMessage; } else { IO->NextState = eSendReply; } set_start_callback(event_base, IO, 0); return IO->NextState; } void InitIOStruct(AsyncIO *IO, void *Data, eNextState NextState, IO_LineReaderCallback LineReader, IO_CallBack DNS_Fail, IO_CallBack SendDone, IO_CallBack ReadDone, IO_CallBack Terminate, IO_CallBack DBTerminate, IO_CallBack ConnFail, IO_CallBack Timeout, IO_CallBack ShutdownAbort) { IO->Data = Data; IO->CitContext = CloneContext(CC); IO->CitContext->session_specific_data = Data; IO->CitContext->IO = IO; IO->NextState = NextState; IO->SendDone = SendDone; IO->ReadDone = ReadDone; IO->Terminate = Terminate; IO->DBTerminate = DBTerminate; IO->LineReader = LineReader; IO->ConnFail = ConnFail; IO->Timeout = Timeout; IO->ShutdownAbort = ShutdownAbort; IO->DNS.Fail = DNS_Fail; IO->SendBuf.Buf = NewStrBufPlain(NULL, 1024); IO->RecvBuf.Buf = NewStrBufPlain(NULL, 1024); IO->IOBuf = NewStrBuf(); EV_syslog(LOG_DEBUG, "EVENT: Session lives at %p IO at %p \n", Data, IO); } extern int evcurl_init(AsyncIO *IO); int InitcURLIOStruct(AsyncIO *IO, void *Data, const char* Desc, IO_CallBack SendDone, IO_CallBack Terminate, IO_CallBack DBTerminate, IO_CallBack ShutdownAbort) { IO->Data = Data; IO->CitContext = CloneContext(CC); IO->CitContext->session_specific_data = Data; IO->CitContext->IO = IO; IO->SendDone = SendDone; IO->Terminate = Terminate; IO->DBTerminate = DBTerminate; IO->ShutdownAbort = ShutdownAbort; strcpy(IO->HttpReq.errdesc, Desc); return evcurl_init(IO); } typedef struct KillOtherSessionContext { AsyncIO IO; AsyncIO *OtherOne; }KillOtherSessionContext; eNextState KillTerminate(AsyncIO *IO) { long id; KillOtherSessionContext *Ctx = (KillOtherSessionContext*)IO->Data; EV_syslog(LOG_DEBUG, "%s Exit\n", __FUNCTION__); id = IO->ID; FreeAsyncIOContents(IO); memset(Ctx, 0, sizeof(KillOtherSessionContext)); IO->ID = id; /* just for the case we want to analyze it in a coredump */ free(Ctx); return eAbort; } eNextState KillShutdown(AsyncIO *IO) { return eTerminateConnection; } eNextState KillOtherContextNow(AsyncIO *IO) { KillOtherSessionContext *Ctx = IO->Data; SetEVState(IO, eKill); if (Ctx->OtherOne->ShutdownAbort != NULL) { Ctx->OtherOne->NextState = eAbort; if (Ctx->OtherOne->ShutdownAbort(Ctx->OtherOne) == eDBQuery) { StopClientWatchers(Ctx->OtherOne, 0); QueueAnDBOperation(Ctx->OtherOne); } } return eTerminateConnection; } void KillAsyncIOContext(AsyncIO *IO) { KillOtherSessionContext *Ctx; Ctx = (KillOtherSessionContext*) malloc(sizeof(KillOtherSessionContext)); memset(Ctx, 0, sizeof(KillOtherSessionContext)); InitIOStruct(&Ctx->IO, Ctx, eReadMessage, NULL, NULL, NULL, NULL, KillTerminate, NULL, NULL, NULL, KillShutdown); Ctx->OtherOne = IO; switch(IO->NextState) { case eSendDNSQuery: case eReadDNSReply: case eConnect: case eSendReply: case eSendMore: case eSendFile: case eReadMessage: case eReadMore: case eReadPayload: case eReadFile: Ctx->IO.ReAttachCB = KillOtherContextNow; QueueAnEventContext(&Ctx->IO); break; case eDBQuery: Ctx->IO.ReAttachCB = KillOtherContextNow; QueueAnDBOperation(&Ctx->IO); break; case eTerminateConnection: case eAbort: /*hm, its already dying, dunno which Queue its in... */ free(Ctx); } } extern int DebugEventLoopBacktrace; void EV_backtrace(AsyncIO *IO) { #ifdef HAVE_BACKTRACE void *stack_frames[50]; size_t size, i; char **strings; if ((IO == NULL) || (DebugEventLoopBacktrace == 0)) return; size = backtrace(stack_frames, sizeof(stack_frames) / sizeof(void*)); strings = backtrace_symbols(stack_frames, size); for (i = 0; i < size; i++) { if (strings != NULL) { EV_syslog(LOG_ALERT, " BT %s\n", strings[i]); } else { EV_syslog(LOG_ALERT, " BT %p\n", stack_frames[i]); } } free(strings); #endif } ev_tstamp ctdl_ev_now (void) { return ev_now(event_base); } citadel-902/event_client.h000066400000000000000000000232721271512031400156250ustar00rootroot00000000000000/* * * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #ifndef __EVENT_CLIENT_H__ #define __EVENT_CLIENT_H__ #define EV_COMPAT3 0 #include "sysconfig.h" #include #include #include #include #include #include #include #ifndef __ASYNCIO__ #define __ASYNCIO__ typedef struct AsyncIO AsyncIO; #endif #ifndef __CIT_CONTEXT__ #define __CIT_CONTEXT__ typedef struct CitContext CitContext; #endif extern pthread_key_t evConKey; typedef enum __eIOState { eDBQ, eQDBNext, eDBAttach, eDBNext, eDBStop, eDBX, eDBTerm, eIOQ, eIOAttach, eIOConnectSock, eIOAbort, eIOTimeout, eIOConnfail, eIOConnfailNow, eIOConnNow, eIOConnWait, eCurlQ, eCurlStart, eCurlShutdown, eCurlNewIO, eCurlGotIO, eCurlGotData, eCurlGotStatus, eCaresStart, eCaresDoneIO, eCaresFinished, eCaresX, eKill, eExit }eIOState; typedef enum _eNextState { eSendDNSQuery, eReadDNSReply, eDBQuery, eConnect, eSendReply, eSendMore, eSendFile, eReadMessage, eReadMore, eReadPayload, eReadFile, eTerminateConnection, eAbort }eNextState; void SetEVState(AsyncIO *IO, eIOState State); typedef eNextState (*IO_CallBack)(AsyncIO *IO); typedef eReadState (*IO_LineReaderCallback)(AsyncIO *IO); typedef void (*ParseDNSAnswerCb)(AsyncIO*, unsigned char*, int); typedef void (*FreeDNSReply)(void *DNSData); typedef struct __ReadAsyncMsg { StrBuf *MsgBuf; size_t maxlen; /* maximum message length */ const char *terminator; /* token signalling EOT */ long tlen; int dodot; int flushing; /* if we read maxlen, read until nothing more arives and ignore this. */ int crlf; /* CRLF newlines instead of LF */ } ReadAsyncMsg; typedef struct _DNSQueryParts { ParseDNSAnswerCb DNS_CB; IO_CallBack PostDNS; const char *QueryTYPE; const char *QStr; int DNSStatus; void *VParsedDNSReply; FreeDNSReply DNSReplyFree; void *Data; } DNSQueryParts; typedef struct _evcurl_request_data { CURL *chnd; struct curl_slist *headers; char errdesc[CURL_ERROR_SIZE]; const char *CurlError; int attached; char *PlainPostData; long PlainPostDataLen; StrBuf *PostData; StrBuf *ReplyData; long httpcode; } evcurl_request_data; /* DNS Related */ typedef struct __evcares_data { ev_tstamp Start; ev_io recv_event, send_event; ev_timer timeout; /* timeout while requesting ips */ short int SourcePort; struct ares_options Options; ares_channel Channel; DNSQueryParts *Query; IO_CallBack Fail; /* the dns lookup didn't work out. */ } evcares_data; struct AsyncIO { long ID; ev_tstamp Now; ev_tstamp StartIO; ev_tstamp StartDB; eNextState NextState; /* connection related */ ParsedURL *ConnectMe; /* read/send related... */ StrBuf *IOBuf; IOBuffer SendBuf, RecvBuf; FDIOBuffer IOB; /* when sending from / reading into files, this is used. */ /* our events... */ ev_cleanup abort_by_shutdown, /* server wants to go down... */ db_abort_by_shutdown; /* server wants to go down... */ ev_timer conn_fail, /* connection establishing timed out */ rw_timeout; /* timeout while sending data */ ev_idle unwind_stack, /* get c-ares out of the stack */ db_unwind_stack, /* wait for next db operation... */ conn_fail_immediate; /* unwind stack, but fail immediately. */ ev_io recv_event, /* receive data from the client */ send_event, /* send more data to the client */ conn_event; /* Connection successfully established */ StrBuf *ErrMsg; /* if we fail to connect, or lookup, error goes here. */ /* Citadel application callbacks... */ IO_CallBack ReadDone, /* Theres new data to read... */ SendDone, /* we may send more data */ Terminate, /* shutting down... */ DBTerminate, /* shutting down... */ Timeout, /* Timeout handler;may also be conn. timeout */ ConnFail, /* What to do when one connection failed? */ ShutdownAbort,/* we're going down. make your piece. */ NextDBOperation, /* Perform Database IO */ ReAttachCB; /* on the hop from one Q to the other, this is the next CB */ /* if we have linereaders, maybe we want to read more lines before * the real application logic is called? */ IO_LineReaderCallback LineReader; evcares_data DNS; evcurl_request_data HttpReq; /* Saving / loading a message async from / to disk */ ReadAsyncMsg *ReadMsg; struct CtdlMessage *AsyncMsg; recptypes *AsyncRcp; /* Context specific data; Hint: put AsyncIO in there */ void *Data; /* application specific data */ CitContext *CitContext; /* Citadel Session context... */ }; typedef struct _IOAddHandler { AsyncIO *IO; IO_CallBack EvAttch; } IOAddHandler; inline static time_t EvGetNow(AsyncIO *IO) { return (time_t) IO->Now;} extern int DebugEventLoop; extern int DebugCAres; #define IOSTR (const char *) pthread_getspecific(evConKey) #define EDBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (DebugEventLoop != 0)) #define CCID ((CitContext*)IO->CitContext)?((CitContext*)IO->CitContext)->cs_pid:-1 #define EVQ_syslog(LEVEL, FORMAT, ...) \ EDBGLOG (LEVEL) syslog(LEVEL, "%sQ " FORMAT, IOSTR, __VA_ARGS__) #define EVQM_syslog(LEVEL, FORMAT) \ EDBGLOG (LEVEL) syslog(LEVEL, "%s " FORMAT, IOSTR) #define EV_syslog(LEVEL, FORMAT, ...) \ EDBGLOG (LEVEL) syslog(LEVEL, "%s[%ld]CC[%d] " FORMAT, IOSTR, IO->ID, CCID, __VA_ARGS__) #define EVM_syslog(LEVEL, FORMAT) \ EDBGLOG (LEVEL) syslog(LEVEL, "%s[%ld]CC[%d] " FORMAT, IOSTR, IO->ID, CCID) #define EVNC_syslog(LEVEL, FORMAT, ...) \ EDBGLOG (LEVEL) syslog(LEVEL, "%s[%ld] " FORMAT, IOSTR, IO->ID, __VA_ARGS__) #define EVNCM_syslog(LEVEL, FORMAT) EDBGLOG (LEVEL) syslog(LEVEL, "%s[%ld]" FORMAT, IOSTR, IO->ID) #define CDBGLOG() if (DebugCAres != 0) #define CEDBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (DebugCAres != 0)) #define EV_DNS_LOG_START(a) \ CDBGLOG () {syslog(LOG_DEBUG, "%s[%ld]CC[%d] + Starting " #a " %s %p FD %d", IOSTR, IO->ID, CCID, __FUNCTION__, &IO->a, IO->a.fd); \ EV_backtrace(IO);} #define EV_DNS_LOG_STOP(a) \ CDBGLOG () { syslog(LOG_DEBUG, "%s[%ld]CC[%d] - Stopping " #a " %s %p FD %d", IOSTR, IO->ID, CCID, __FUNCTION__, &IO->a, IO->a.fd); \ EV_backtrace(IO);} #define EV_DNS_LOG_INIT(a) \ CDBGLOG () { syslog(LOG_DEBUG, "%s[%ld]CC[%d] * Init " #a " %s %p FD %d", IOSTR, IO->ID, CCID, __FUNCTION__, &IO->a, IO->a.fd); \ EV_backtrace(IO);} #define EV_DNS_LOGT_START(a) \ CDBGLOG () { syslog(LOG_DEBUG, "%s[%ld]CC[%d] + Starting " #a " %s %p", IOSTR, IO->ID, CCID, __FUNCTION__, &IO->a); \ EV_backtrace(IO);} #define EV_DNS_LOGT_STOP(a) \ CDBGLOG () { syslog(LOG_DEBUG, "%s[%ld]CC[%d] - Stopping " #a " %s %p", IOSTR, IO->ID, CCID, __FUNCTION__, &IO->a); \ EV_backtrace(IO); } #define EV_DNS_LOGT_INIT(a) \ CDBGLOG () { syslog(LOG_DEBUG, "%s[%ld]CC[%d] * Init " #a " %p", IOSTR, IO->ID, CCID, &IO->a); \ EV_backtrace(IO);} #define EV_DNS_syslog(LEVEL, FORMAT, ...) \ CEDBGLOG (LEVEL) syslog(LEVEL, "%s[%ld]CC[%d] " FORMAT, IOSTR, IO->ID, CCID, __VA_ARGS__) #define EVM_DNS_syslog(LEVEL, FORMAT) \ CEDBGLOG (LEVEL) syslog(LEVEL, "%s[%ld]CC[%d] " FORMAT, IOSTR, IO->ID, CCID) void FreeAsyncIOContents(AsyncIO *IO); eNextState NextDBOperation(AsyncIO *IO, IO_CallBack CB); eNextState EventQueueDBOperation(AsyncIO *IO, IO_CallBack CB, int CloseFDs); void StopDBWatchers(AsyncIO *IO); eNextState QueueEventContext(AsyncIO *IO, IO_CallBack CB); eNextState QueueCurlContext(AsyncIO *IO); eNextState DBQueueEventContext(AsyncIO *IO, IO_CallBack CB); eNextState EvConnectSock(AsyncIO *IO, double conn_timeout, double first_rw_timeout, int ReadFirst); void IO_postdns_callback(struct ev_loop *loop, ev_idle *watcher, int revents); int QueueQuery(ns_type Type, const char *name, AsyncIO *IO, DNSQueryParts *QueryParts, IO_CallBack PostDNS); void QueueGetHostByName(AsyncIO *IO, const char *Hostname, DNSQueryParts *QueryParts, IO_CallBack PostDNS); void QueryCbDone(AsyncIO *IO); void StopClient(AsyncIO *IO); void StopClientWatchers(AsyncIO *IO, int CloseFD); void SetNextTimeout(AsyncIO *IO, double timeout); #include #define OPT(s, v) \ do { \ sta = curl_easy_setopt(chnd, (CURLOPT_##s), (v)); \ if (sta) { \ EVQ_syslog(LOG_ERR, \ "error setting option " #s \ " on curl handle: %s", \ curl_easy_strerror(sta)); \ } } while (0) #define SET_EV_TIME(IO, BASE) \ IO->Now = ev_now(BASE); \ if (IO->CitContext != NULL) IO->CitContext->lastcmd = IO->Now; void InitIOStruct(AsyncIO *IO, void *Data, eNextState NextState, IO_LineReaderCallback LineReader, IO_CallBack DNS_Fail, IO_CallBack SendDone, IO_CallBack ReadDone, IO_CallBack Terminate, IO_CallBack DBTerminate, IO_CallBack ConnFail, IO_CallBack Timeout, IO_CallBack ShutdownAbort); int InitcURLIOStruct(AsyncIO *IO, void *Data, const char* Desc, IO_CallBack SendDone, IO_CallBack Terminate, IO_CallBack DBTerminate, IO_CallBack ShutdownAbort); void KillAsyncIOContext(AsyncIO *IO); void StopCurlWatchers(AsyncIO *IO); eNextState CurlQueueDBOperation(AsyncIO *IO, IO_CallBack CB); eNextState ReAttachIO(AsyncIO *IO, void *pData, int ReadFirst); void EV_backtrace(AsyncIO *IO); ev_tstamp ctdl_ev_now (void); #endif /* __EVENT_CLIENT_H__ */ citadel-902/funambol_newmail_soap.xml000066400000000000000000000043731271512031400200610ustar00rootroot00000000000000 ^notifyuser <java version="1.5.0_13" class="java.beans.XMLDecoder"> <array class="com.funambol.framework.core.Alert" length="1"> <void index="0"> <object class="com.funambol.framework.core.Alert"> <void property="cmdID"> <object class="com.funambol.framework.core.CmdID"/> </void> <void property="data"> <int>206</int> </void> <void property="items"> <void method="add"> <object class="com.funambol.framework.core.Item"> <void property="meta"> <object class="com.funambol.framework.core.Meta"> <void property="metInf"> <void property="type"> <string>application/vnd.omads-email+xml</string> </void> </void> </object> </void> <void property="target"> <object class="com.funambol.framework.core.Target"> <void property="locURI"> <string>^syncsource</string> </void> </object> </void> </object> </void> </void> </object> </void> </array> </java> 1 citadel-902/genstamp.c000066400000000000000000000027361271512031400147610ustar00rootroot00000000000000/* * Function to generate RFC822-compliant textual time/date stamp */ #include "sysdep.h" #include #include #include #include #include #include "genstamp.h" static char *months[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }; static char *weekdays[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }; /* * Supplied with a unix timestamp, generate an RFC822-compliant textual * time and date stamp. */ long datestring(char *buf, size_t n, time_t xtime, int which_format) { struct tm t; long offset; char offsign; localtime_r(&xtime, &t); /* Convert "seconds west of GMT" to "hours/minutes offset" */ #ifdef HAVE_STRUCT_TM_TM_GMTOFF offset = t.tm_gmtoff; #else offset = timezone; #endif if (offset > 0) { offsign = '+'; } else { offset = 0L - offset; offsign = '-'; } offset = ( (offset / 3600) * 100 ) + ( offset % 60 ); switch(which_format) { case DATESTRING_RFC822: return snprintf( buf, n, "%s, %02d %s %04d %02d:%02d:%02d %c%04ld", weekdays[t.tm_wday], t.tm_mday, months[t.tm_mon], t.tm_year + 1900, t.tm_hour, t.tm_min, t.tm_sec, offsign, offset ); break; case DATESTRING_IMAP: return snprintf( buf, n, "%02d-%s-%04d %02d:%02d:%02d %c%04ld", t.tm_mday, months[t.tm_mon], t.tm_year + 1900, t.tm_hour, t.tm_min, t.tm_sec, offsign, offset ); break; } return 0; } citadel-902/genstamp.h000066400000000000000000000001671271512031400147620ustar00rootroot00000000000000 long datestring(char *buf, size_t n, time_t xtime, int which_format); enum { DATESTRING_RFC822, DATESTRING_IMAP }; citadel-902/guesstimezone.sh000077500000000000000000000217561271512031400162420ustar00rootroot00000000000000#!/bin/sh # guesstimezone.sh - an ugly hack of a script to try to guess the time # zone currently in use on the host system, and output its name. # Copyright (c) by Art Cancro # 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, write to the Free Software Foundation, Inc., # 675 Mass Ave, Cambridge, MA 02139, USA. convert_timezone() { case "$1" in (right/*|posix/*) convert_timezone "${1#*/}" ;; ("Africa/Asmera") echo "Africa/Asmara" ;; ("America/Argentina/ComodRivadavia"|"America/Catamarca") echo "America/Argentina/Catamarca" ;; ("America/Buenos_Aires") echo "America/Argentina/Buenos_Aires" ;; ("America/Cordoba"|"America/Rosario") echo "America/Argentina/Cordoba" ;; ("America/Jujuy") echo "America/Argentina/Jujuy" ;; ("America/Mendoza") echo "America/Argentina/Mendoza" ;; ("Antarctica/South_Pole") echo "Antarctica/McMurdo" ;; "Asia/Ashkhabad") echo "Asia/Ashgabat" ;; ("Asia/Calcutta") echo "Asia/Kolkata" ;; "Asia/Chungking") echo "Asia/Chongqing" ;; "Asia/Dacca") echo "Asia/Dhaka" ;; ("Asia/Katmandu") echo "Asia/Kathmandu" ;; "Asia/Macao") echo "Asia/Macau" ;; ("Asia/Saigon") echo "Asia/Ho_Chi_Minh" ;; "Asia/Thimbu") echo "Asia/Thimphu" ;; "Asia/Ulan_Bator") echo "Asia/Ulaanbaatar" ;; "Atlantic/Faeroe") echo "Atlantic/Faroe" ;; "Australia/ACT" | "Australia/NSW") echo "Australia/Sydney" ;; "Australia/LHI") echo "Australia/Lord_Howe" ;; "Australia/North") echo "Australia/Darwin" ;; "Australia/Queensland") echo "Australia/Brisbane" ;; "Australia/South") echo "Australia/Adelaide" ;; "Australia/Tasmania") echo "Australia/Hobart" ;; "Australia/Victoria") echo "Australia/Melbourne" ;; "Australia/West") echo "Australia/Perth" ;; "Brazil/Acre") echo "America/Rio_Branco" ;; "Brazil/DeNoronha") echo "America/Noronha" ;; "Brazil/East") echo "America/Sao_Paulo" ;; "Brazil/West") echo "America/Manaus" ;; "Canada/Atlantic") echo "America/Halifax" ;; "Canada/Central") echo "America/Winnipeg" ;; "Canada/East-Saskatchewan") echo "America/Regina" ;; "Canada/Eastern") echo "America/Toronto" ;; "Canada/Mountain") echo "America/Edmonton" ;; "Canada/Newfoundland") echo "America/St_Johns" ;; "Canada/Pacific") echo "America/Vancouver" ;; "Canada/Saskatchewan") echo "America/Regina" ;; "Canada/Yukon") echo "America/Whitehorse" ;; "CET") echo "Europe/Paris" ;; "Chile/Continental") echo "America/Santiago" ;; "Chile/EasterIsland") echo "Pacific/Easter" ;; "CST6CDT") echo "SystemV/CST6CDT" ;; "Cuba") echo "America/Havana" ;; "EET") echo "Europe/Helsinki" ;; "Egypt") echo "Africa/Cairo" ;; "Eire") echo "Europe/Dublin" ;; "EST") echo "SystemV/EST5" ;; "EST5EDT") echo "SystemV/EST5EDT" ;; "GB") echo "Europe/London" ;; "GB-Eire") echo "Europe/London" ;; "GMT") echo "Etc/GMT" ;; "GMT0") echo "Etc/GMT0" ;; "GMT-0") echo "Etc/GMT-0" ;; "GMT+0") echo "Etc/GMT+0" ;; "Greenwich") echo "Etc/Greenwich" ;; "Hongkong") echo "Asia/Hong_Kong" ;; "HST") echo "Pacific/Honolulu" ;; "Iceland") echo "Atlantic/Reykjavik" ;; "Iran") echo "Asia/Tehran" ;; "Israel") echo "Asia/Tel_Aviv" ;; "Jamaica") echo "America/Jamaica" ;; "Japan") echo "Asia/Tokyo" ;; "Kwajalein") echo "Pacific/Kwajalein" ;; "Libya") echo "Africa/Tripoli" ;; "MET") echo "Europe/Paris" ;; "Mexico/BajaNorte") echo "America/Tijuana" ;; "Mexico/BajaSur") echo "America/Mazatlan" ;; "Mexico/General") echo "America/Mexico_City" ;; "Mideast/Riyadh87") echo "Asia/Riyadh87" ;; "Mideast/Riyadh88") echo "Asia/Riyadh88" ;; "Mideast/Riyadh89") echo "Asia/Riyadh89" ;; "MST") echo "SystemV/MST7" ;; "MST7MDT") echo "SystemV/MST7MDT" ;; "Navajo") echo "America/Denver" ;; "NZ") echo "Pacific/Auckland" ;; "NZ-CHAT") echo "Pacific/Chatham" ;; "Poland") echo "Europe/Warsaw" ;; "Portugal") echo "Europe/Lisbon" ;; "PRC") echo "Asia/Shanghai" ;; "PST8PDT") echo "SystemV/PST8PDT" ;; "ROC") echo "Asia/Taipei" ;; "ROK") echo "Asia/Seoul" ;; "Singapore") echo "Asia/Singapore" ;; "Turkey") echo "Europe/Istanbul" ;; "UCT") echo "Etc/UCT" ;; "Universal") echo "Etc/UTC" ;; "US/Alaska") echo "America/Anchorage" ;; "US/Aleutian") echo "America/Adak" ;; "US/Arizona") echo "America/Phoenix" ;; "US/Central") echo "America/Chicago" ;; "US/East-Indiana") echo "America/Indianapolis" ;; "US/Eastern") echo "America/New_York" ;; "US/Hawaii") echo "Pacific/Honolulu" ;; "US/Indiana-Starke") echo "America/Indianapolis" ;; "US/Michigan") echo "America/Detroit" ;; "US/Mountain") echo "America/Denver" ;; "US/Pacific") echo "America/Los_Angeles" ;; "US/Samoa") echo "Pacific/Pago_Pago" ;; "UTC") echo "Etc/UTC" ;; "WET") echo "Europe/Lisbon" ;; "W-SU") echo "Europe/Moscow" ;; "Zulu") echo "Etc/UTC" ;; *) echo "$1" ;; esac } md5sum /dev/null 2>/dev/null || exit 1 # this check will find the timezone if /etc/localtime is a link to the right timezone file # or that file has been copied to /etc/localtime and not changed afterwards LOCALTIMESUM=`md5sum /etc/localtime | awk ' { print $1 } ' 2>/dev/null` find /usr/share/zoneinfo -type f -print | while read filename do THISTIMESUM=`md5sum $filename | awk ' { print $1 } '` if [ $LOCALTIMESUM = $THISTIMESUM ] ; then echo $filename | cut -c21- exit 0 fi done 2>/dev/null # seems we haven't found the timezone yet, let's see whether /etc/timezone has some info if [ -e /etc/timezone ]; then TIMEZONE="$(head -n 1 /etc/timezone)" TIMEZONE="${TIMEZONE%% *}" TIMEZONE="${TIMEZONE##/}" TIMEZONE="${TIMEZONE%%/}" TIMEZONE="$(convert_timezone $TIMEZONE)" if [ -f "/usr/share/zoneinfo/$TIMEZONE" ] ; then echo $TIMEZONE exit 0 fi fi exit 2 citadel-902/housekeeping.c000066400000000000000000000114131271512031400156210ustar00rootroot00000000000000/* * This file contains miscellaneous housekeeping tasks. * * Copyright (c) 1987-2011 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include #include "ctdl_module.h" #include "serv_extensions.h" #include "room_ops.h" #include "internet_addressing.h" #include "journaling.h" void check_sched_shutdown(void) { if ((ScheduledShutdown == 1) && (ContextList == NULL)) { syslog(LOG_NOTICE, "Scheduled shutdown initiating.\n"); server_shutting_down = 1; } } /* * Check (and fix) floor reference counts. This doesn't need to be done * very often, since the counts should remain correct during normal operation. */ void check_ref_counts_backend(struct ctdlroom *qrbuf, void *data) { int *new_refcounts; new_refcounts = (int *) data; ++new_refcounts[(int)qrbuf->QRfloor]; } void check_ref_counts(void) { struct floor flbuf; int a; int new_refcounts[MAXFLOORS]; syslog(LOG_DEBUG, "Checking floor reference counts\n"); for (a=0; a 0) { flbuf.f_flags = flbuf.f_flags | QR_INUSE; } else { flbuf.f_flags = flbuf.f_flags & ~QR_INUSE; } lputfloor(&flbuf, a); syslog(LOG_DEBUG, "Floor %d: %d rooms\n", a, new_refcounts[a]); } } /* * This is the housekeeping loop. Worker threads come through here after * processing client requests but before jumping back into the pool. We * only allow housekeeping to execute once per minute, and we only allow one * instance to run at a time. */ static int housekeeping_in_progress = 0; static time_t last_timer = 0L; void do_housekeeping(void) { int do_housekeeping_now = 0; int do_perminute_housekeeping_now = 0; time_t now; /* * We do it this way instead of wrapping the whole loop in an * S_HOUSEKEEPING critical section because it eliminates the need to * potentially have multiple concurrent mutexes in progress. */ begin_critical_section(S_HOUSEKEEPING); if (housekeeping_in_progress == 0) { do_housekeeping_now = 1; housekeeping_in_progress = 1; } end_critical_section(S_HOUSEKEEPING); if (do_housekeeping_now == 0) { return; } /* * Ok, at this point we've made the decision to run the housekeeping * loop. Everything below this point is real work. */ now = time(NULL); if ( (now - last_timer) > (time_t)60 ) { do_perminute_housekeeping_now = 1; last_timer = time(NULL); } /* First, do the "as often as needed" stuff... */ JournalRunQueue(); PerformSessionHooks(EVT_HOUSE); /* Then, do the "once per minute" stuff... */ if (do_perminute_housekeeping_now) { cdb_check_handles(); /* suggested by Justin Case */ PerformSessionHooks(EVT_TIMER); /* Run any timer hooks */ } /* * All done. */ begin_critical_section(S_HOUSEKEEPING); housekeeping_in_progress = 0; end_critical_section(S_HOUSEKEEPING); } void CtdlDisableHouseKeeping(void) { int ActiveBackgroundJobs; int do_housekeeping_now = 0; struct CitContext *nptr; int nContexts, i; retry_block_housekeeping: syslog(LOG_INFO, "trying to disable housekeeping services"); begin_critical_section(S_HOUSEKEEPING); if (housekeeping_in_progress == 0) { do_housekeeping_now = 1; housekeeping_in_progress = 1; } end_critical_section(S_HOUSEKEEPING); if (do_housekeeping_now == 0) { usleep(1000000); goto retry_block_housekeeping; } syslog(LOG_INFO, "checking for running server Jobs"); retry_wait_for_contexts: /* So that we don't keep the context list locked for a long time * we create a copy of it first */ ActiveBackgroundJobs = 0; nptr = CtdlGetContextArray(&nContexts) ; if (nptr) { for (i=0; i #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "sysdep_decls.h" #include "support.h" #include "config.h" #include "ical_dezonify.h" #include "ctdl_module.h" /* * Figure out which time zone needs to be used for timestamps that are * not UTC and do not have a time zone specified. */ icaltimezone *get_default_icaltimezone(void) { icaltimezone *zone = NULL; char *default_zone_name = CtdlGetConfigStr("c_default_cal_zone"); if (!zone) { zone = icaltimezone_get_builtin_timezone(default_zone_name); } if (!zone) { syslog(LOG_ALERT, "Unable to load '%s' time zone. Defaulting to UTC.\n", default_zone_name); zone = icaltimezone_get_utc_timezone(); } if (!zone) { syslog(LOG_ALERT, "Unable to load UTC time zone!\n"); } return zone; } /* * Back end function for ical_dezonify() * * We supply this with the master component, the relevant component, * and the property (which will be a DTSTART, DTEND, etc.) * which we want to convert to UTC. */ void ical_dezonify_backend(icalcomponent *cal, icalcomponent *rcal, icalproperty *prop) { icaltimezone *t = NULL; icalparameter *param; const char *tzid = NULL; struct icaltimetype TheTime; int utc_declared_as_tzid = 0; /**< Component declared 'TZID=GMT' instead of using Z syntax */ /* Give me nothing and I will give you nothing in return. */ if (cal == NULL) return; /* Hunt for a TZID parameter in this property. */ param = icalproperty_get_first_parameter(prop, ICAL_TZID_PARAMETER); /* Get the stringish name of this TZID. */ if (param != NULL) { tzid = icalparameter_get_tzid(param); /* Convert it to an icaltimezone type. */ if (tzid != NULL) { /* syslog(LOG_DEBUG, " * Stringy supplied timezone is: '%s'\n", tzid); */ if ( (!strcasecmp(tzid, "UTC")) || (!strcasecmp(tzid, "GMT")) ) { utc_declared_as_tzid = 1; /* syslog(LOG_DEBUG, " * ...and we handle that internally.\n"); */ } else { /* try attached first */ t = icalcomponent_get_timezone(cal, tzid); /* syslog(LOG_DEBUG, " * ...and I %s have tzdata for that zone.\n", (t ? "DO" : "DO NOT") ); */ /* then try built-in timezones */ if (!t) { t = icaltimezone_get_builtin_timezone(tzid); /* if (t) { syslog(LOG_DEBUG, " * Using system tzdata!\n"); } */ } } } } /* Now we know the timezone. Convert to UTC. */ if (icalproperty_isa(prop) == ICAL_DTSTART_PROPERTY) { TheTime = icalproperty_get_dtstart(prop); } else if (icalproperty_isa(prop) == ICAL_DTEND_PROPERTY) { TheTime = icalproperty_get_dtend(prop); } else if (icalproperty_isa(prop) == ICAL_DUE_PROPERTY) { TheTime = icalproperty_get_due(prop); } else if (icalproperty_isa(prop) == ICAL_EXDATE_PROPERTY) { TheTime = icalproperty_get_exdate(prop); } else { return; } /* syslog(LOG_DEBUG, " * Was: %s\n", icaltime_as_ical_string(TheTime)); */ if (TheTime.is_utc) { /* syslog(LOG_DEBUG, " * This property is ALREADY UTC.\n"); */ } else if (utc_declared_as_tzid) { /* syslog(LOG_DEBUG, " * Replacing '%s' TZID with 'Z' suffix.\n", tzid); */ TheTime.is_utc = 1; } else { /* Do the conversion. */ if (t != NULL) { /* syslog(LOG_DEBUG, " * Timezone prop found. Converting to UTC.\n"); */ } else { /* syslog(LOG_DEBUG, " * Converting default timezone to UTC.\n"); */ } if (t == NULL) { t = get_default_icaltimezone(); } icaltimezone_convert_time(&TheTime, t, icaltimezone_get_utc_timezone() ); TheTime.is_utc = 1; } icalproperty_remove_parameter_by_kind(prop, ICAL_TZID_PARAMETER); /* syslog(LOG_DEBUG, " * Now: %s\n", icaltime_as_ical_string(TheTime)); */ /* Now add the converted property back in. */ if (icalproperty_isa(prop) == ICAL_DTSTART_PROPERTY) { icalproperty_set_dtstart(prop, TheTime); } else if (icalproperty_isa(prop) == ICAL_DTEND_PROPERTY) { icalproperty_set_dtend(prop, TheTime); } else if (icalproperty_isa(prop) == ICAL_DUE_PROPERTY) { icalproperty_set_due(prop, TheTime); } else if (icalproperty_isa(prop) == ICAL_EXDATE_PROPERTY) { icalproperty_set_exdate(prop, TheTime); } } /* * Recursive portion of ical_dezonify() */ void ical_dezonify_recurse(icalcomponent *cal, icalcomponent *rcal) { icalcomponent *c; icalproperty *p; /* * Recurse through all subcomponents *except* VTIMEZONE ones. */ for (c=icalcomponent_get_first_component( rcal, ICAL_ANY_COMPONENT); c != NULL; c = icalcomponent_get_next_component( rcal, ICAL_ANY_COMPONENT) ) { if (icalcomponent_isa(c) != ICAL_VTIMEZONE_COMPONENT) { ical_dezonify_recurse(cal, c); } } /* * Now look for DTSTART and DTEND properties */ for (p=icalcomponent_get_first_property(rcal, ICAL_ANY_PROPERTY); p != NULL; p = icalcomponent_get_next_property(rcal, ICAL_ANY_PROPERTY) ) { if ( (icalproperty_isa(p) == ICAL_DTSTART_PROPERTY) || (icalproperty_isa(p) == ICAL_DTEND_PROPERTY) || (icalproperty_isa(p) == ICAL_DUE_PROPERTY) || (icalproperty_isa(p) == ICAL_EXDATE_PROPERTY) ) { ical_dezonify_backend(cal, rcal, p); } } } /* * Convert all DTSTART and DTEND properties in all subcomponents to UTC. * This function will search any VTIMEZONE subcomponents to learn the * relevant timezone information. */ void ical_dezonify(icalcomponent *cal) { icalcomponent *vt = NULL; /* syslog(LOG_DEBUG, "ical_dezonify() started\n"); */ /* Convert all times to UTC */ ical_dezonify_recurse(cal, cal); /* Strip out VTIMEZONE subcomponents -- we don't need them anymore */ while (vt = icalcomponent_get_first_component( cal, ICAL_VTIMEZONE_COMPONENT), vt != NULL) { icalcomponent_remove_component(cal, vt); icalcomponent_free(vt); } /* syslog(LOG_DEBUG, "ical_dezonify() completed\n"); */ } citadel-902/ical_dezonify.h000066400000000000000000000001261271512031400157560ustar00rootroot00000000000000void ical_dezonify(icalcomponent *cal); icaltimezone *get_default_icaltimezone(void); citadel-902/include/000077500000000000000000000000001271512031400144125ustar00rootroot00000000000000citadel-902/include/citadel_dirs.h000066400000000000000000000044731271512031400172210ustar00rootroot00000000000000#ifndef __CITADEL_DIRS_H #define __CITADEL_DIRS_H #include extern char ctdl_home_directory[PATH_MAX]; /* all our directories */ extern char ctdl_bio_dir[PATH_MAX]; extern char ctdl_bb_dir[PATH_MAX]; extern char ctdl_data_dir[PATH_MAX]; extern char ctdl_dspam_dir[PATH_MAX]; extern char ctdl_file_dir[PATH_MAX]; extern char ctdl_shared_dir[PATH_MAX]; extern char ctdl_image_dir[PATH_MAX]; extern char ctdl_info_dir[PATH_MAX]; extern char ctdl_key_dir[PATH_MAX]; extern char ctdl_message_dir[PATH_MAX]; extern char ctdl_usrpic_dir[PATH_MAX]; extern char ctdl_etc_dir[PATH_MAX]; extern char ctdl_autoetc_dir[PATH_MAX]; extern char ctdl_run_dir[PATH_MAX]; extern char ctdl_spool_dir[PATH_MAX]; extern char ctdl_netout_dir[PATH_MAX]; extern char ctdl_netin_dir[PATH_MAX]; extern char ctdl_netdigest_dir[PATH_MAX]; extern char ctdl_nettmp_dir[PATH_MAX]; extern char ctdl_netcfg_dir[PATH_MAX]; extern char ctdl_bbsbase_dir[PATH_MAX]; extern char ctdl_sbin_dir[PATH_MAX]; extern char ctdl_bin_dir[PATH_MAX]; extern char ctdl_utilbin_dir[PATH_MAX]; /* some of the frequently used files */ extern char file_citadel_control[PATH_MAX]; extern char file_citadel_config[PATH_MAX]; extern char file_citadel_urlshorteners[PATH_MAX]; extern char file_lmtp_socket[PATH_MAX]; extern char file_lmtp_unfiltered_socket[PATH_MAX]; extern char file_arcq[PATH_MAX]; extern char file_citadel_socket[PATH_MAX]; extern char file_citadel_admin_socket[PATH_MAX]; extern char file_mail_aliases[PATH_MAX]; extern char file_pid_file[PATH_MAX]; extern char file_pid_paniclog[PATH_MAX]; extern char file_crpt_file_key[PATH_MAX]; extern char file_crpt_file_csr[PATH_MAX]; extern char file_crpt_file_cer[PATH_MAX]; extern char file_chkpwd[PATH_MAX]; extern char file_base64[PATH_MAX]; extern char file_guesstimezone[PATH_MAX]; extern char file_dpsam_conf[PATH_MAX]; extern char file_dspam_log[PATH_MAX]; extern char file_funambol_msg[PATH_MAX]; extern void calc_dirs_n_files(int relh, int home, const char *relhome, char *ctdldir, int dbg); extern int create_run_directories(long UID, long GUID); extern size_t assoc_file_name(char *buf, size_t n, struct ctdlroom *qrbuf, const char *prefix); extern FILE *create_digest_file(struct ctdlroom *room, int forceCreate); extern void remove_digest_file(struct ctdlroom *room); #endif /* __CITADEL_DIRS_H */ citadel-902/include/ctdl_module.h000066400000000000000000000333101271512031400170560ustar00rootroot00000000000000 #ifndef CTDL_MODULE_H #define CTDL_MODULE_H #include "sysdep.h" #ifdef HAVE_GC #define GC_THREADS #define GC_REDIRECT_TO_LOCAL #include #else #define GC_MALLOC malloc #define GC_MALLOC_ATOMIC malloc #define GC_FREE free #define GC_REALLOC realloc #endif #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef HAVE_STRINGS_H #include #endif #include #include #include "server.h" #include "sysdep_decls.h" #include "msgbase.h" #include "threads.h" #include "citadel_dirs.h" #include "context.h" /* * define macros for module init stuff */ #define CTDL_MODULE_INIT(module_name) char *ctdl_module_##module_name##_init (int threading) #define CTDL_INIT_CALL(module_name) ctdl_module_##module_name##_init (threading) #define CTDL_MODULE_UPGRADE(module_name) char *ctdl_module_##module_name##_upgrade (void) #define CTDL_UPGRADE_CALL(module_name) ctdl_module_##module_name##_upgrade () #define CtdlAideMessage(TEXT, SUBJECT) \ quickie_message( \ "Citadel", \ NULL, \ NULL, \ AIDEROOM, \ TEXT, \ FMT_CITADEL, \ SUBJECT) #define CtdlAideFPMessage(TEXT, SUBJECT, N, STR, STRLEN, ccid, ioid, TIME) \ flood_protect_quickie_message( \ "Citadel", \ NULL, \ NULL, \ AIDEROOM, \ TEXT, \ FMT_CITADEL, \ SUBJECT, \ N, \ STR, \ STRLEN, \ ccid, \ ioid, \ TIME) /* * Hook functions available to modules. */ /* Priorities for */ #define PRIO_QUEUE 500 #define PRIO_AGGR 1000 #define PRIO_SEND 1500 #define PRIO_CLEANUP 2000 /* Priorities for EVT_HOUSE */ #define PRIO_HOUSE 3000 /* Priorities for EVT_LOGIN */ #define PRIO_CREATE 10000 /* Priorities for EVT_LOGOUT */ #define PRIO_LOGOUT 15000 /* Priorities for EVT_LOGIN */ #define PRIO_LOGIN 20000 /* Priorities for EVT_START */ #define PRIO_START 25000 /* Priorities for EVT_STOP */ #define PRIO_STOP 30000 /* Priorities for EVT_ASYNC */ #define PRIO_ASYNC 35000 /* Priorities for EVT_SHUTDOWN */ #define PRIO_SHUTDOWN 40000 /* Priorities for EVT_UNSTEALTH */ #define PRIO_UNSTEALTH 45000 /* Priorities for EVT_STEALTH */ #define PRIO_STEALTH 50000 void CtdlRegisterTDAPVetoHook(int (*fcn_ptr)(StrBuf*), int EventType, int Priority); void CtdlUnregisterTDAPVetoHook(int (*fcn_ptr) (StrBuf*), int EventType); void CtdlRegisterSessionHook(void (*fcn_ptr)(void), int EventType, int Priority); void CtdlUnregisterSessionHook(void (*fcn_ptr)(void), int EventType); void CtdlShutdownServiceHooks(void); void CtdlRegisterUserHook(void (*fcn_ptr)(struct ctdluser *), int EventType); void CtdlUnregisterUserHook(void (*fcn_ptr)(struct ctdluser *), int EventType); void CtdlRegisterXmsgHook(int (*fcn_ptr)(char *, char *, char *, char *), int order); void CtdlUnregisterXmsgHook(int (*fcn_ptr)(char *, char *, char *, char *), int order); void CtdlRegisterMessageHook(int (*handler)(struct CtdlMessage *, recptypes*), int EventType); void CtdlUnregisterMessageHook(int (*handler)(struct CtdlMessage *, recptypes *), int EventType); void CtdlRegisterNetprocHook(int (*handler)(struct CtdlMessage *, char *) ); void CtdlUnregisterNetprocHook(int (*handler)(struct CtdlMessage *, char *) ); void CtdlRegisterRoomHook(int (*fcn_ptr)(struct ctdlroom *) ); void CtdlUnregisterRoomHook(int (*fnc_ptr)(struct ctdlroom *) ); void CtdlRegisterDeleteHook(void (*handler)(char *, long) ); void CtdlUnregisterDeleteHook(void (*handler)(char *, long) ); void CtdlRegisterCleanupHook(void (*fcn_ptr)(void)); void CtdlUnregisterCleanupHook(void (*fcn_ptr)(void)); void CtdlRegisterEVCleanupHook(void (*fcn_ptr)(void)); void CtdlUnregisterEVCleanupHook(void (*fcn_ptr)(void)); void CtdlRegisterProtoHook(void (*handler)(char *), char *cmd, char *desc); void CtdlRegisterServiceHook(int tcp_port, char *sockpath, void (*h_greeting_function) (void), void (*h_command_function) (void), void (*h_async_function) (void), const char *ServiceName ); void CtdlUnregisterServiceHook(int tcp_port, char *sockpath, void (*h_greeting_function) (void), void (*h_command_function) (void), void (*h_async_function) (void) ); void CtdlRegisterFixedOutputHook(char *content_type, void (*output_function) (char *supplied_data, int len) ); void CtdlUnRegisterFixedOutputHook(char *content_type); void CtdlRegisterMaintenanceThread(char *name, void *(*thread_proc) (void *arg)); void CtdlRegisterSearchFuncHook(void (*fcn_ptr)(int *, long **, const char *), char *name); /* * if you say a) (which may take a while) * don't forget to say b) */ void CtdlDisableHouseKeeping(void); void CtdlEnableHouseKeeping(void); /* * Directory services hooks for LDAP etc */ #define DIRECTORY_USER_DEL 1 // Delete a user entry #define DIRECTORY_CREATE_HOST 2 // Create a host entry if not already there. #define DIRECTORY_CREATE_OBJECT 3 // Create a new object for directory entry #define DIRECTORY_ATTRIB_ADD 4 // Add an attribute to the directory entry object #define DIRECTORY_SAVE_OBJECT 5 // Save the object to the directory service #define DIRECTORY_FREE_OBJECT 6 // Free the object and its attributes int CtdlRegisterDirectoryServiceFunc(int (*func)(char *cn, char *ou, void **object), int cmd, char *module); int CtdlDoDirectoryServiceFunc(char *cn, char *ou, void **object, char *module, int cmd); /* TODODRW: This needs to be changed into a hook type interface * for now we have this horrible hack */ void CtdlModuleStartCryptoMsgs(char *ok_response, char *nosup_response, char *error_response); /* return the current context list as an array and do it in a safe manner * The returned data is a copy so only reading is useful * The number of contexts is returned in count. * Beware, this does not copy any of the data pointed to by the context. * This means that you can not rely on things like the redirect buffer being valid. * You must free the returned pointer when done. */ struct CitContext *CtdlGetContextArray (int *count); void CtdlFillSystemContext(struct CitContext *context, char *name); int CtdlTrySingleUser(void); void CtdlEndSingleUser(void); int CtdlWantSingleUser(void); int CtdlIsSingleUser(void); int CtdlIsUserLoggedIn (char *user_name); int CtdlIsUserLoggedInByNum (long usernum); void CtdlBumpNewMailCounter(long which_user); /* * CtdlGetCurrentMessageNumber() - Obtain the current highest message number in the system * This provides a quick way to initialise a variable that might be used to indicate * messages that should not be processed. EG. a new Sieve script will use this * to record determine that messages older than this should not be processed. * This function is defined in control.c */ long CtdlGetCurrentMessageNumber(void); /* * Expose various room operation functions from room_ops.c to the modules API */ typedef struct CfgLineType CfgLineType; typedef struct RoomNetCfgLine RoomNetCfgLine; typedef struct OneRoomNetCfg OneRoomNetCfg; unsigned CtdlCreateRoom(char *new_room_name, int new_room_type, char *new_room_pass, int new_room_floor, int really_create, int avoid_access, int new_room_view); int CtdlGetRoom(struct ctdlroom *qrbuf, const char *room_name); int CtdlGetRoomLock(struct ctdlroom *qrbuf, const char *room_name); int CtdlDoIHavePermissionToDeleteThisRoom(struct ctdlroom *qr); void CtdlRoomAccess(struct ctdlroom *roombuf, struct ctdluser *userbuf, int *result, int *view); void CtdlPutRoomLock(struct ctdlroom *qrbuf); typedef void (*ForEachRoomCallBack)(struct ctdlroom *EachRoom, void *out_data); void CtdlForEachRoom(ForEachRoomCallBack CB, void *in_data); typedef void (*ForEachRoomNetCfgCallBack)(struct ctdlroom *EachRoom, void *out_data, OneRoomNetCfg *OneRNCFG); void CtdlForEachNetCfgRoom(ForEachRoomNetCfgCallBack CB, void *in_data); void SaveChangedConfigs(void); void CtdlDeleteRoom(struct ctdlroom *qrbuf); int CtdlRenameRoom(char *old_name, char *new_name, int new_floor); void CtdlUserGoto (char *where, int display_result, int transiently, int *msgs, int *new, long *oldest, long *newest); struct floor *CtdlGetCachedFloor(int floor_num); void CtdlScheduleRoomForDeletion(struct ctdlroom *qrbuf); void CtdlGetFloor (struct floor *flbuf, int floor_num); void CtdlPutFloor (struct floor *flbuf, int floor_num); void CtdlPutFloorLock(struct floor *flbuf, int floor_num); int CtdlGetFloorByName(const char *floor_name); int CtdlGetFloorByNameLock(const char *floor_name); int CtdlGetAvailableFloor(void); int CtdlIsNonEditable(struct ctdlroom *qrbuf); void CtdlPutRoom(struct ctdlroom *); /* * Possible return values for CtdlRenameRoom() */ enum { crr_ok, /* success */ crr_room_not_found, /* room not found */ crr_already_exists, /* new name already exists */ crr_noneditable, /* cannot edit this room */ crr_invalid_floor, /* target floor does not exist */ crr_access_denied /* not allowed to edit this room */ }; /* * API declarations from citserver.h */ int CtdlAccessCheck(int); /* 'required access level' values which may be passed to CtdlAccessCheck() */ enum { ac_none, ac_logged_in_or_guest, ac_logged_in, ac_room_aide, ac_aide, ac_internal, }; /* * API declarations from serv_extensions.h */ void CtdlModuleDoSearch(int *num_msgs, long **search_msgs, const char *search_string, const char *func_name); #define NODENAME CtdlGetConfigStr("c_nodename") #define FQDN CtdlGetConfigStr("c_fqdn") #define CTDLUID ctdluid #define CREATAIDE CtdlGetConfigInt("c_creataide") #define REGISCALL CtdlGetConfigInt("c_regiscall") #define TWITDETECT CtdlGetConfigInt("c_twitdetect") #define TWITROOM CtdlGetConfigStr("c_twitroom") #define RESTRICT_INTERNET CtdlGetConfigInt("c_restrict") typedef void (*CfgLineParser)(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *rncfg); typedef void (*CfgLineSerializer)(const CfgLineType *ThisOne, StrBuf *OuptputBuffer, OneRoomNetCfg *rncfg, RoomNetCfgLine *data); typedef void (*CfgLineDeAllocator)(const CfgLineType *ThisOne, RoomNetCfgLine **data); struct CfgLineType { RoomNetCfg C; CfgLineParser Parser; CfgLineSerializer Serializer; CfgLineDeAllocator DeAllocator; ConstStr Str; int IsSingleLine; int nSegments; }; struct RoomNetCfgLine { RoomNetCfgLine *next; int nValues; StrBuf **Value; }; struct OneRoomNetCfg { long lastsent; // long changed; StrBuf *Sender; StrBuf *RoomInfo; RoomNetCfgLine *NetConfigs[maxRoomNetCfg]; StrBuf *misc; }; #define CtdlREGISTERRoomCfgType(a, p, uniq, nSegs, s, d) RegisterRoomCfgType(#a, sizeof(#a) - 1, a, p, uniq, nSegs, s, d); void RegisterRoomCfgType(const char* Name, long len, RoomNetCfg eCfg, CfgLineParser p, int uniq, int nSegments, CfgLineSerializer s, CfgLineDeAllocator d); void ParseGeneric(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *sc); void SerializeGeneric(const CfgLineType *ThisOne, StrBuf *OutputBuffer, OneRoomNetCfg *sc, RoomNetCfgLine *data); void DeleteGenericCfgLine(const CfgLineType *ThisOne, RoomNetCfgLine **data); RoomNetCfgLine *DuplicateOneGenericCfgLine(const RoomNetCfgLine *data); void AddRoomCfgLine(OneRoomNetCfg *OneRNCfg, struct ctdlroom *qrbuf, RoomNetCfg LineType, RoomNetCfgLine *Line); OneRoomNetCfg *CtdlGetNetCfgForRoom(long QRNumber); void SaveRoomNetConfigFile(OneRoomNetCfg *, long); void FreeRoomNetworkStruct(OneRoomNetCfg **); typedef struct _nodeconf { int DeleteMe; StrBuf *NodeName; StrBuf *Secret; StrBuf *Host; StrBuf *Port; }CtdlNodeConf; HashList* CtdlLoadIgNetCfg(void); int CtdlNetconfigCheckRoomaccess(char *errmsgbuf, size_t n, const char* RemoteIdentifier); typedef struct __NetMap { StrBuf *NodeName; time_t lastcontact; StrBuf *NextHop; }CtdlNetMap; HashList* CtdlReadNetworkMap(void); StrBuf *CtdlSerializeNetworkMap(HashList *Map); void NetworkLearnTopology(char *node, char *path, HashList *the_netmap, int *netmap_changed); int CtdlIsValidNode(const StrBuf **nexthop, const StrBuf **secret, StrBuf *node, HashList *IgnetCfg, HashList *the_netmap); int CtdlNetworkTalkingTo(const char *nodename, long len, int operation); /* * Operations that can be performed by network_talking_to() */ enum { NTT_ADD, NTT_REMOVE, NTT_CHECK }; /* * Expose API calls from user_ops.c */ int CtdlGetUser(struct ctdluser *usbuf, char *name); int CtdlGetUserLen(struct ctdluser *usbuf, const char *name, long len); int CtdlGetUserLock(struct ctdluser *usbuf, char *name); void CtdlPutUser(struct ctdluser *usbuf); void CtdlPutUserLock(struct ctdluser *usbuf); int CtdlLockGetCurrentUser(void); void CtdlPutCurrentUserLock(void); int CtdlGetUserByNumber(struct ctdluser *usbuf, long number); void CtdlGetRelationship(visit *vbuf, struct ctdluser *rel_user, struct ctdlroom *rel_room); void CtdlSetRelationship(visit *newvisit, struct ctdluser *rel_user, struct ctdlroom *rel_room); void CtdlMailboxName(char *buf, size_t n, const struct ctdluser *who, const char *prefix); int CtdlLoginExistingUser(char *authname, const char *username); /* * Values which may be returned by CtdlLoginExistingUser() */ enum { pass_ok, pass_already_logged_in, pass_no_user, pass_internal_error, pass_wrong_password }; int CtdlTryPassword(const char *password, long len); /* * Values which may be returned by CtdlTryPassword() */ enum { login_ok, login_already_logged_in, login_too_many_users, login_not_found }; void CtdlUserLogout(void); /* * Expose API calls from msgbase.c */ /* * Expose API calls from euidindex.c */ long CtdlLocateMessageByEuid(char *euid, struct ctdlroom *qrbuf); #endif /* CTDL_MODULE_H */ citadel-902/install-sh000077500000000000000000000127211271512031400147760ustar00rootroot00000000000000#! /bin/sh # # install - install a program, script, or datafile # This comes from X11R5 (mit/util/scripts/install.sh). # # Copyright 1991 by the Massachusetts Institute of Technology # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that # the above copyright notice appear in all copies and that both that # copyright notice and this permission notice appear in supporting # documentation, and that the name of M.I.T. not be used in advertising or # publicity pertaining to distribution of the software without specific, # written prior permission. M.I.T. makes no representations about the # suitability of this software for any purpose. It is provided "as is" # without express or implied warranty. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" transformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 citadel-902/internet_addressing.c000066400000000000000000001226501271512031400171740ustar00rootroot00000000000000/* * This file contains functions which handle the mapping of Internet addresses * to users on the Citadel system. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "sysdep_decls.h" #include "citserver.h" #include "support.h" #include "config.h" #include "msgbase.h" #include "internet_addressing.h" #include "user_ops.h" #include "room_ops.h" #include "parsedate.h" #include "database.h" #include "ctdl_module.h" #ifdef HAVE_ICONV #include #if 0 /* This is the non-define version in case of s.b. needing to debug */ inline void FindNextEnd (char *bptr, char *end) { /* Find the next ?Q? */ end = strchr(bptr + 2, '?'); if (end == NULL) return NULL; if (((*(end + 1) == 'B') || (*(end + 1) == 'Q')) && (*(end + 2) == '?')) { /* skip on to the end of the cluster, the next ?= */ end = strstr(end + 3, "?="); } else /* sort of half valid encoding, try to find an end. */ end = strstr(bptr, "?="); } #endif #define FindNextEnd(bptr, end) { \ end = strchr(bptr + 2, '?'); \ if (end != NULL) { \ if (((*(end + 1) == 'B') || (*(end + 1) == 'Q')) && (*(end + 2) == '?')) { \ end = strstr(end + 3, "?="); \ } else end = strstr(bptr, "?="); \ } \ } /* * Handle subjects with RFC2047 encoding such as: * =?koi8-r?B?78bP0s3Mxc7JxSDXz9rE1dvO2c3JINvB0sHNySDP?= */ void utf8ify_rfc822_string(char *buf) { char *start, *end, *next, *nextend, *ptr; char newbuf[1024]; char charset[128]; char encoding[16]; char istr[1024]; iconv_t ic = (iconv_t)(-1) ; char *ibuf; /**< Buffer of characters to be converted */ char *obuf; /**< Buffer for converted characters */ size_t ibuflen; /**< Length of input buffer */ size_t obuflen; /**< Length of output buffer */ char *isav; /**< Saved pointer to input buffer */ char *osav; /**< Saved pointer to output buffer */ int passes = 0; int i, len, delta; int illegal_non_rfc2047_encoding = 0; /* Sometimes, badly formed messages contain strings which were simply * written out directly in some foreign character set instead of * using RFC2047 encoding. This is illegal but we will attempt to * handle it anyway by converting from a user-specified default * charset to UTF-8 if we see any nonprintable characters. */ len = strlen(buf); for (i=0; i 126)) { illegal_non_rfc2047_encoding = 1; i = len; ///< take a shortcut, it won't be more than one. } } if (illegal_non_rfc2047_encoding) { const char *default_header_charset = "iso-8859-1"; if ( (strcasecmp(default_header_charset, "UTF-8")) && (strcasecmp(default_header_charset, "us-ascii")) ) { ctdl_iconv_open("UTF-8", default_header_charset, &ic); if (ic != (iconv_t)(-1) ) { ibuf = malloc(1024); isav = ibuf; safestrncpy(ibuf, buf, 1024); ibuflen = strlen(ibuf); obuflen = 1024; obuf = (char *) malloc(obuflen); osav = obuf; iconv(ic, &ibuf, &ibuflen, &obuf, &obuflen); osav[1024-obuflen] = 0; strcpy(buf, osav); free(osav); iconv_close(ic); free(isav); } } } /* pre evaluate the first pair */ nextend = end = NULL; len = strlen(buf); start = strstr(buf, "=?"); if (start != NULL) FindNextEnd (start, end); while ((start != NULL) && (end != NULL)) { next = strstr(end, "=?"); if (next != NULL) FindNextEnd(next, nextend); if (nextend == NULL) next = NULL; /* did we find two partitions */ if ((next != NULL) && ((next - end) > 2)) { ptr = end + 2; while ((ptr < next) && (isspace(*ptr) || (*ptr == '\r') || (*ptr == '\n') || (*ptr == '\t'))) ptr ++; /* did we find a gab just filled with blanks? */ if (ptr == next) { memmove (end + 2, next, len - (next - start)); /* now terminate the gab at the end */ delta = (next - end) - 2; len -= delta; buf[len] = '\0'; /* move next to its new location. */ next -= delta; nextend -= delta; } } /* our next-pair is our new first pair now. */ start = next; end = nextend; } /* Now we handle foreign character sets properly encoded * in RFC2047 format. */ start = strstr(buf, "=?"); FindNextEnd((start != NULL)? start : buf, end); while (start != NULL && end != NULL && end > start) { extract_token(charset, start, 1, '?', sizeof charset); extract_token(encoding, start, 2, '?', sizeof encoding); extract_token(istr, start, 3, '?', sizeof istr); ibuf = malloc(1024); isav = ibuf; if (!strcasecmp(encoding, "B")) { /**< base64 */ ibuflen = CtdlDecodeBase64(ibuf, istr, strlen(istr)); } else if (!strcasecmp(encoding, "Q")) { /**< quoted-printable */ size_t len; unsigned long pos; len = strlen(istr); pos = 0; while (pos < len) { if (istr[pos] == '_') istr[pos] = ' '; pos++; } ibuflen = CtdlDecodeQuotedPrintable(ibuf, istr, len); } else { strcpy(ibuf, istr); /**< unknown encoding */ ibuflen = strlen(istr); } ctdl_iconv_open("UTF-8", charset, &ic); if (ic != (iconv_t)(-1) ) { obuflen = 1024; obuf = (char *) malloc(obuflen); osav = obuf; iconv(ic, &ibuf, &ibuflen, &obuf, &obuflen); osav[1024-obuflen] = 0; end = start; end++; strcpy(start, ""); remove_token(end, 0, '?'); remove_token(end, 0, '?'); remove_token(end, 0, '?'); remove_token(end, 0, '?'); strcpy(end, &end[1]); snprintf(newbuf, sizeof newbuf, "%s%s%s", buf, osav, end); strcpy(buf, newbuf); free(osav); iconv_close(ic); } else { end = start; end++; strcpy(start, ""); remove_token(end, 0, '?'); remove_token(end, 0, '?'); remove_token(end, 0, '?'); remove_token(end, 0, '?'); strcpy(end, &end[1]); snprintf(newbuf, sizeof newbuf, "%s(unreadable)%s", buf, end); strcpy(buf, newbuf); } free(isav); /* * Since spammers will go to all sorts of absurd lengths to get their * messages through, there are LOTS of corrupt headers out there. * So, prevent a really badly formed RFC2047 header from throwing * this function into an infinite loop. */ ++passes; if (passes > 20) return; start = strstr(buf, "=?"); FindNextEnd((start != NULL)? start : buf, end); } } #else inline void utf8ify_rfc822_string(char *a){}; #endif struct trynamebuf { char buffer1[SIZ]; char buffer2[SIZ]; }; char *inetcfg = NULL; struct spamstrings_t *spamstrings = NULL; /* * Return nonzero if the supplied name is an alias for this host. */ int CtdlHostAlias(char *fqdn) { int config_lines; int i; char buf[256]; char host[256], type[256]; int found = 0; if (fqdn == NULL) return(hostalias_nomatch); if (IsEmptyStr(fqdn)) return(hostalias_nomatch); if (!strcasecmp(fqdn, "localhost")) return(hostalias_localhost); if (!strcasecmp(fqdn, CtdlGetConfigStr("c_fqdn"))) return(hostalias_localhost); if (!strcasecmp(fqdn, CtdlGetConfigStr("c_nodename"))) return(hostalias_localhost); if (inetcfg == NULL) return(hostalias_nomatch); config_lines = num_tokens(inetcfg, '\n'); for (i=0; inum_local == 0) { free_recipients(recp); return(0); } for (i=0; inum_local; ++i) { extract_token(addr, recp->recp_local, i, '|', addr_buf_len); if (!strcasecmp(addr, CC->user.fullname)) { free_recipients(recp); return(1); } } free_recipients(recp); return(0); } /* If the last item in a list of recipients was truncated to a partial address, * remove it completely in order to avoid choking libSieve */ void sanitize_truncated_recipient(char *str) { if (!str) return; if (num_tokens(str, ',') < 2) return; int len = strlen(str); if (len < 900) return; if (len > 998) str[998] = 0; char *cptr = strrchr(str, ','); if (!cptr) return; char *lptr = strchr(cptr, '<'); char *rptr = strchr(cptr, '>'); if ( (lptr) && (rptr) && (rptr > lptr) ) return; *cptr = 0; } /* * This function is self explanatory. * (What can I say, I'm in a weird mood today...) */ void remove_any_whitespace_to_the_left_or_right_of_at_symbol(char *name) { unsigned int i; for (i = 0; i < strlen(name); ++i) { if (name[i] == '@') { while (isspace(name[i - 1]) && i > 0) { strcpy(&name[i - 1], &name[i]); --i; } while (isspace(name[i + 1])) { strcpy(&name[i + 1], &name[i + 2]); } } } } /* * Aliasing for network mail. * (Error messages have been commented out, because this is a server.) */ int alias(char *name) { /* process alias and routing info for mail */ struct CitContext *CCC = CC; FILE *fp; int a, i; char aaa[SIZ], bbb[SIZ]; char *ignetcfg = NULL; char *ignetmap = NULL; int at = 0; char node[64]; char testnode[64]; char buf[SIZ]; char original_name[256]; safestrncpy(original_name, name, sizeof original_name); striplt(name); remove_any_whitespace_to_the_left_or_right_of_at_symbol(name); stripallbut(name, '<', '>'); fp = fopen(file_mail_aliases, "r"); if (fp == NULL) { fp = fopen("/dev/null", "r"); } if (fp == NULL) { return (MES_ERROR); } strcpy(aaa, ""); strcpy(bbb, ""); while (fgets(aaa, sizeof aaa, fp) != NULL) { while (isspace(name[0])) strcpy(name, &name[1]); aaa[strlen(aaa) - 1] = 0; strcpy(bbb, ""); for (a = 0; aaa[a] != '\0'; ++a) { if (aaa[a] == ',') { strcpy(bbb, &aaa[a + 1]); aaa[a] = 0; break; } } if (!strcasecmp(name, aaa)) strcpy(name, bbb); } fclose(fp); /* Hit the Global Address Book */ if (CtdlDirectoryLookup(aaa, name, sizeof aaa) == 0) { strcpy(name, aaa); } if (strcasecmp(original_name, name)) { MSG_syslog(LOG_INFO, "%s is being forwarded to %s\n", original_name, name); } /* Change "user @ xxx" to "user" if xxx is an alias for this host */ for (a=0; name[a] != '\0'; ++a) { if (name[a] == '@') { if (CtdlHostAlias(&name[a+1]) == hostalias_localhost) { name[a] = 0; MSG_syslog(LOG_INFO, "Changed to <%s>\n", name); break; } } } /* determine local or remote type, see citadel.h */ at = haschar(name, '@'); if (at == 0) return(MES_LOCAL); /* no @'s - local address */ if (at > 1) return(MES_ERROR); /* >1 @'s - invalid address */ remove_any_whitespace_to_the_left_or_right_of_at_symbol(name); /* figure out the delivery mode */ extract_token(node, name, 1, '@', sizeof node); /* If there are one or more dots in the nodename, we assume that it * is an FQDN and will attempt SMTP delivery to the Internet. */ if (haschar(node, '.') > 0) { return(MES_INTERNET); } /* Otherwise we look in the IGnet maps for a valid Citadel node. * Try directly-connected nodes first... */ ignetcfg = CtdlGetSysConfig(IGNETCFG); for (i=0; inum_error = -1 if no addresses * were specified, or the number of addresses found invalid. * * Caller needs to free the result using free_recipients() */ recptypes *validate_recipients(const char *supplied_recipients, const char *RemoteIdentifier, int Flags) { struct CitContext *CCC = CC; recptypes *ret; char *recipients = NULL; char *org_recp; char this_recp[256]; char this_recp_cooked[256]; char append[SIZ]; long len; int num_recps = 0; int i, j; int mailtype; int invalid; struct ctdluser tempUS; struct ctdlroom tempQR; struct ctdlroom tempQR2; int err = 0; char errmsg[SIZ]; int in_quotes = 0; /* Initialize */ ret = (recptypes *) malloc(sizeof(recptypes)); if (ret == NULL) return(NULL); /* Set all strings to null and numeric values to zero */ memset(ret, 0, sizeof(recptypes)); if (supplied_recipients == NULL) { recipients = strdup(""); } else { recipients = strdup(supplied_recipients); } /* Allocate some memory. Yes, this allocates 500% more memory than we will * actually need, but it's healthier for the heap than doing lots of tiny * realloc() calls instead. */ len = strlen(recipients) + 1024; ret->errormsg = malloc(len); ret->recp_local = malloc(len); ret->recp_internet = malloc(len); ret->recp_ignet = malloc(len); ret->recp_room = malloc(len); ret->display_recp = malloc(len); ret->recp_orgroom = malloc(len); org_recp = malloc(len); ret->errormsg[0] = 0; ret->recp_local[0] = 0; ret->recp_internet[0] = 0; ret->recp_ignet[0] = 0; ret->recp_room[0] = 0; ret->recp_orgroom[0] = 0; ret->display_recp[0] = 0; ret->recptypes_magic = RECPTYPES_MAGIC; /* Change all valid separator characters to commas */ for (i=0; !IsEmptyStr(&recipients[i]); ++i) { if ((recipients[i] == ';') || (recipients[i] == '|')) { recipients[i] = ','; } } /* Now start extracting recipients... */ while (!IsEmptyStr(recipients)) { for (i=0; i<=strlen(recipients); ++i) { if (recipients[i] == '\"') in_quotes = 1 - in_quotes; if ( ( (recipients[i] == ',') && (!in_quotes) ) || (recipients[i] == 0) ) { safestrncpy(this_recp, recipients, i+1); this_recp[i] = 0; if (recipients[i] == ',') { strcpy(recipients, &recipients[i+1]); } else { strcpy(recipients, ""); } break; } } striplt(this_recp); if (IsEmptyStr(this_recp)) break; MSG_syslog(LOG_DEBUG, "Evaluating recipient #%d: %s\n", num_recps, this_recp); ++num_recps; strcpy(org_recp, this_recp); alias(this_recp); alias(this_recp); mailtype = alias(this_recp); for (j = 0; !IsEmptyStr(&this_recp[j]); ++j) { if (this_recp[j]=='_') { this_recp_cooked[j] = ' '; } else { this_recp_cooked[j] = this_recp[j]; } } this_recp_cooked[j] = '\0'; invalid = 0; errmsg[0] = 0; switch(mailtype) { case MES_LOCAL: if (!strcasecmp(this_recp, "sysop")) { ++ret->num_room; strcpy(this_recp, CtdlGetConfigStr("c_aideroom")); if (!IsEmptyStr(ret->recp_room)) { strcat(ret->recp_room, "|"); } strcat(ret->recp_room, this_recp); } else if ( (!strncasecmp(this_recp, "room_", 5)) && (!CtdlGetRoom(&tempQR, &this_recp_cooked[5])) ) { /* Save room so we can restore it later */ tempQR2 = CCC->room; CCC->room = tempQR; /* Check permissions to send mail to this room */ err = CtdlDoIHavePermissionToPostInThisRoom( errmsg, sizeof errmsg, RemoteIdentifier, Flags, 0 /* 0 = not a reply */ ); if (err) { ++ret->num_error; invalid = 1; } else { ++ret->num_room; if (!IsEmptyStr(ret->recp_room)) { strcat(ret->recp_room, "|"); } strcat(ret->recp_room, &this_recp_cooked[5]); if (!IsEmptyStr(ret->recp_orgroom)) { strcat(ret->recp_orgroom, "|"); } strcat(ret->recp_orgroom, org_recp); } /* Restore room in case something needs it */ CCC->room = tempQR2; } else if (CtdlGetUser(&tempUS, this_recp) == 0) { ++ret->num_local; strcpy(this_recp, tempUS.fullname); if (!IsEmptyStr(ret->recp_local)) { strcat(ret->recp_local, "|"); } strcat(ret->recp_local, this_recp); } else if (CtdlGetUser(&tempUS, this_recp_cooked) == 0) { ++ret->num_local; strcpy(this_recp, tempUS.fullname); if (!IsEmptyStr(ret->recp_local)) { strcat(ret->recp_local, "|"); } strcat(ret->recp_local, this_recp); } else { ++ret->num_error; invalid = 1; } break; case MES_INTERNET: /* Yes, you're reading this correctly: if the target * domain points back to the local system or an attached * Citadel directory, the address is invalid. That's * because if the address were valid, we would have * already translated it to a local address by now. */ if (IsDirectory(this_recp, 0)) { ++ret->num_error; invalid = 1; } else { ++ret->num_internet; if (!IsEmptyStr(ret->recp_internet)) { strcat(ret->recp_internet, "|"); } strcat(ret->recp_internet, this_recp); } break; case MES_IGNET: ++ret->num_ignet; if (!IsEmptyStr(ret->recp_ignet)) { strcat(ret->recp_ignet, "|"); } strcat(ret->recp_ignet, this_recp); break; case MES_ERROR: ++ret->num_error; invalid = 1; break; } if (invalid) { if (IsEmptyStr(errmsg)) { snprintf(append, sizeof append, "Invalid recipient: %s", this_recp); } else { snprintf(append, sizeof append, "%s", errmsg); } if ( (strlen(ret->errormsg) + strlen(append) + 3) < SIZ) { if (!IsEmptyStr(ret->errormsg)) { strcat(ret->errormsg, "; "); } strcat(ret->errormsg, append); } } else { if (IsEmptyStr(ret->display_recp)) { strcpy(append, this_recp); } else { snprintf(append, sizeof append, ", %s", this_recp); } if ( (strlen(ret->display_recp)+strlen(append)) < SIZ) { strcat(ret->display_recp, append); } } } free(org_recp); if ((ret->num_local + ret->num_internet + ret->num_ignet + ret->num_room + ret->num_error) == 0) { ret->num_error = (-1); strcpy(ret->errormsg, "No recipients specified."); } MSGM_syslog(LOG_DEBUG, "validate_recipients()\n"); MSG_syslog(LOG_DEBUG, " local: %d <%s>\n", ret->num_local, ret->recp_local); MSG_syslog(LOG_DEBUG, " room: %d <%s>\n", ret->num_room, ret->recp_room); MSG_syslog(LOG_DEBUG, " inet: %d <%s>\n", ret->num_internet, ret->recp_internet); MSG_syslog(LOG_DEBUG, " ignet: %d <%s>\n", ret->num_ignet, ret->recp_ignet); MSG_syslog(LOG_DEBUG, " error: %d <%s>\n", ret->num_error, ret->errormsg); free(recipients); return(ret); } /* * Destructor for recptypes */ void free_recipients(recptypes *valid) { if (valid == NULL) { return; } if (valid->recptypes_magic != RECPTYPES_MAGIC) { struct CitContext *CCC = CC; MSGM_syslog(LOG_EMERG, "Attempt to call free_recipients() on some other data type!\n"); abort(); } if (valid->errormsg != NULL) free(valid->errormsg); if (valid->recp_local != NULL) free(valid->recp_local); if (valid->recp_internet != NULL) free(valid->recp_internet); if (valid->recp_ignet != NULL) free(valid->recp_ignet); if (valid->recp_room != NULL) free(valid->recp_room); if (valid->recp_orgroom != NULL) free(valid->recp_orgroom); if (valid->display_recp != NULL) free(valid->display_recp); if (valid->bounce_to != NULL) free(valid->bounce_to); if (valid->envelope_from != NULL) free(valid->envelope_from); if (valid->sending_room != NULL) free(valid->sending_room); free(valid); } char *qp_encode_email_addrs(char *source) { struct CitContext *CCC = CC; char *user, *node, *name; const char headerStr[] = "=?UTF-8?Q?"; char *Encoded; char *EncodedName; char *nPtr; int need_to_encode = 0; long SourceLen; long EncodedMaxLen; long nColons = 0; long *AddrPtr; long *AddrUtf8; long nAddrPtrMax = 50; long nmax; int InQuotes = 0; int i, n; if (source == NULL) return source; if (IsEmptyStr(source)) return source; if (MessageDebugEnabled != 0) cit_backtrace(); MSG_syslog(LOG_DEBUG, "qp_encode_email_addrs: [%s]\n", source); AddrPtr = malloc (sizeof (long) * nAddrPtrMax); AddrUtf8 = malloc (sizeof (long) * nAddrPtrMax); memset(AddrUtf8, 0, sizeof (long) * nAddrPtrMax); *AddrPtr = 0; i = 0; while (!IsEmptyStr (&source[i])) { if (nColons >= nAddrPtrMax){ long *ptr; ptr = (long *) malloc(sizeof (long) * nAddrPtrMax * 2); memcpy (ptr, AddrPtr, sizeof (long) * nAddrPtrMax); free (AddrPtr), AddrPtr = ptr; ptr = (long *) malloc(sizeof (long) * nAddrPtrMax * 2); memset(&ptr[nAddrPtrMax], 0, sizeof (long) * nAddrPtrMax); memcpy (ptr, AddrUtf8, sizeof (long) * nAddrPtrMax); free (AddrUtf8), AddrUtf8 = ptr; nAddrPtrMax *= 2; } if (((unsigned char) source[i] < 32) || ((unsigned char) source[i] > 126)) { need_to_encode = 1; AddrUtf8[nColons] = 1; } if (source[i] == '"') InQuotes = !InQuotes; if (!InQuotes && source[i] == ',') { AddrPtr[nColons] = i; nColons++; } i++; } if (need_to_encode == 0) { free(AddrPtr); free(AddrUtf8); return source; } SourceLen = i; EncodedMaxLen = nColons * (sizeof(headerStr) + 3) + SourceLen * 3; Encoded = (char*) malloc (EncodedMaxLen); for (i = 0; i < nColons; i++) source[AddrPtr[i]++] = '\0'; /* TODO: if libidn, this might get larger*/ user = malloc(SourceLen + 1); node = malloc(SourceLen + 1); name = malloc(SourceLen + 1); nPtr = Encoded; *nPtr = '\0'; for (i = 0; i < nColons && nPtr != NULL; i++) { nmax = EncodedMaxLen - (nPtr - Encoded); if (AddrUtf8[i]) { process_rfc822_addr(&source[AddrPtr[i]], user, node, name); /* TODO: libIDN here ! */ if (IsEmptyStr(name)) { n = snprintf(nPtr, nmax, (i==0)?"%s@%s" : ",%s@%s", user, node); } else { EncodedName = rfc2047encode(name, strlen(name)); n = snprintf(nPtr, nmax, (i==0)?"%s <%s@%s>" : ",%s <%s@%s>", EncodedName, user, node); free(EncodedName); } } else { n = snprintf(nPtr, nmax, (i==0)?"%s" : ",%s", &source[AddrPtr[i]]); } if (n > 0 ) nPtr += n; else { char *ptr, *nnPtr; ptr = (char*) malloc(EncodedMaxLen * 2); memcpy(ptr, Encoded, EncodedMaxLen); nnPtr = ptr + (nPtr - Encoded), nPtr = nnPtr; free(Encoded), Encoded = ptr; EncodedMaxLen *= 2; i--; /* do it once more with properly lengthened buffer */ } } for (i = 0; i < nColons; i++) source[--AddrPtr[i]] = ','; free(user); free(node); free(name); free(AddrUtf8); free(AddrPtr); return Encoded; } /* * Return 0 if a given string fuzzy-matches a Citadel user account * * FIXME ... this needs to be updated to handle aliases. */ int fuzzy_match(struct ctdluser *us, char *matchstring) { int a; long len; if ( (!strncasecmp(matchstring, "cit", 3)) && (atol(&matchstring[3]) == us->usernum)) { return 0; } len = strlen(matchstring); for (a=0; !IsEmptyStr(&us->fullname[a]); ++a) { if (!strncasecmp(&us->fullname[a], matchstring, len)) { return 0; } } return -1; } /* * Unfold a multi-line field into a single line, removing multi-whitespaces */ void unfold_rfc822_field(char **field, char **FieldEnd) { int quote = 0; char *pField = *field; char *sField; char *pFieldEnd = *FieldEnd; while (isspace(*pField)) pField++; /* remove leading/trailing whitespace */ ; while (isspace(*pFieldEnd)) pFieldEnd --; *FieldEnd = pFieldEnd; /* convert non-space whitespace to spaces, and remove double blanks */ for (sField = *field = pField; sField < pFieldEnd; pField++, sField++) { if ((*sField=='\r') || (*sField=='\n')) { int Offset = 1; while (((*(sField + Offset) == '\r') || (*(sField + Offset) == '\n') || (isspace(*(sField + Offset)))) && (sField + Offset < pFieldEnd)) Offset ++; sField += Offset; *pField = *sField; } else { if (*sField=='\"') quote = 1 - quote; if (!quote) { if (isspace(*sField)) { *pField = ' '; pField++; sField++; while ((sField < pFieldEnd) && isspace(*sField)) sField++; *pField = *sField; } else *pField = *sField; } else *pField = *sField; } } *pField = '\0'; *FieldEnd = pField - 1; } /* * Split an RFC822-style address into userid, host, and full name * */ void process_rfc822_addr(const char *rfc822, char *user, char *node, char *name) { int a; strcpy(user, ""); strcpy(node, CtdlGetConfigStr("c_fqdn")); strcpy(name, ""); if (rfc822 == NULL) return; /* extract full name - first, it's From minus */ strcpy(name, rfc822); stripout(name, '<', '>'); /* strip anything to the left of a bang */ while ((!IsEmptyStr(name)) && (haschar(name, '!') > 0)) strcpy(name, &name[1]); /* and anything to the right of a @ or % */ for (a = 0; name[a] != '\0'; ++a) { if (name[a] == '@') { name[a] = 0; break; } if (name[a] == '%') { name[a] = 0; break; } } /* but if there are parentheses, that changes the rules... */ if ((haschar(rfc822, '(') == 1) && (haschar(rfc822, ')') == 1)) { strcpy(name, rfc822); stripallbut(name, '(', ')'); } /* but if there are a set of quotes, that supersedes everything */ if (haschar(rfc822, 34) == 2) { strcpy(name, rfc822); while ((!IsEmptyStr(name)) && (name[0] != 34)) { strcpy(&name[0], &name[1]); } strcpy(&name[0], &name[1]); for (a = 0; name[a] != '\0'; ++a) if (name[a] == 34) { name[a] = 0; break; } } /* extract user id */ strcpy(user, rfc822); /* first get rid of anything in parens */ stripout(user, '(', ')'); /* if there's a set of angle brackets, strip it down to that */ if ((haschar(user, '<') == 1) && (haschar(user, '>') == 1)) { stripallbut(user, '<', '>'); } /* strip anything to the left of a bang */ while ((!IsEmptyStr(user)) && (haschar(user, '!') > 0)) strcpy(user, &user[1]); /* and anything to the right of a @ or % */ for (a = 0; user[a] != '\0'; ++a) { if (user[a] == '@') { user[a] = 0; break; } if (user[a] == '%') { user[a] = 0; break; } } /* extract node name */ strcpy(node, rfc822); /* first get rid of anything in parens */ stripout(node, '(', ')'); /* if there's a set of angle brackets, strip it down to that */ if ((haschar(node, '<') == 1) && (haschar(node, '>') == 1)) { stripallbut(node, '<', '>'); } /* If no node specified, tack ours on instead */ if ( (haschar(node, '@')==0) && (haschar(node, '%')==0) && (haschar(node, '!')==0) ) { strcpy(node, CtdlGetConfigStr("c_nodename")); } else { /* strip anything to the left of a @ */ while ((!IsEmptyStr(node)) && (haschar(node, '@') > 0)) strcpy(node, &node[1]); /* strip anything to the left of a % */ while ((!IsEmptyStr(node)) && (haschar(node, '%') > 0)) strcpy(node, &node[1]); /* reduce multiple system bang paths to node!user */ while ((!IsEmptyStr(node)) && (haschar(node, '!') > 1)) strcpy(node, &node[1]); /* now get rid of the user portion of a node!user string */ for (a = 0; node[a] != '\0'; ++a) if (node[a] == '!') { node[a] = 0; break; } } /* strip leading and trailing spaces in all strings */ striplt(user); striplt(node); striplt(name); /* If we processed a string that had the address in angle brackets * but no name outside the brackets, we now have an empty name. In * this case, use the user portion of the address as the name. */ if ((IsEmptyStr(name)) && (!IsEmptyStr(user))) { strcpy(name, user); } } /* * convert_field() is a helper function for convert_internet_message(). * Given start/end positions for an rfc822 field, it converts it to a Citadel * field if it wants to, and unfolds it if necessary. * * Returns 1 if the field was converted and inserted into the Citadel message * structure, implying that the source field should be removed from the * message text. */ int convert_field(struct CtdlMessage *msg, const char *beg, const char *end) { struct CitContext *CCC = CC; char *key, *value, *valueend; long len; const char *pos; int i; const char *colonpos = NULL; int processed = 0; char user[1024]; char node[1024]; char name[1024]; char addr[1024]; time_t parsed_date; long valuelen; for (pos = end; pos >= beg; pos--) { if (*pos == ':') colonpos = pos; } if (colonpos == NULL) return(0); /* no colon? not a valid header line */ len = end - beg; key = malloc(len + 2); memcpy(key, beg, len + 1); key[len] = '\0'; valueend = key + len; * ( key + (colonpos - beg) ) = '\0'; value = &key[(colonpos - beg) + 1]; /* printf("Header: [%s]\nValue: [%s]\n", key, value); */ unfold_rfc822_field(&value, &valueend); valuelen = valueend - value + 1; /* printf("UnfoldedValue: [%s]\n", value); */ /* * Here's the big rfc822-to-citadel loop. */ /* Date/time is converted into a unix timestamp. If the conversion * fails, we replace it with the time the message arrived locally. */ if (!strcasecmp(key, "Date")) { parsed_date = parsedate(value); if (parsed_date < 0L) parsed_date = time(NULL); if (CM_IsEmpty(msg, eTimestamp)) CM_SetFieldLONG(msg, eTimestamp, parsed_date); processed = 1; } else if (!strcasecmp(key, "From")) { process_rfc822_addr(value, user, node, name); MSG_syslog(LOG_DEBUG, "Converted to <%s@%s> (%s)\n", user, node, name); snprintf(addr, sizeof(addr), "%s@%s", user, node); if (CM_IsEmpty(msg, eAuthor) && !IsEmptyStr(name)) CM_SetField(msg, eAuthor, name, strlen(name)); if (CM_IsEmpty(msg, erFc822Addr) && !IsEmptyStr(addr)) CM_SetField(msg, erFc822Addr, addr, strlen(addr)); processed = 1; } else if (!strcasecmp(key, "Subject")) { if (CM_IsEmpty(msg, eMsgSubject)) CM_SetField(msg, eMsgSubject, value, valuelen); processed = 1; } else if (!strcasecmp(key, "List-ID")) { if (CM_IsEmpty(msg, eListID)) CM_SetField(msg, eListID, value, valuelen); processed = 1; } else if (!strcasecmp(key, "To")) { if (CM_IsEmpty(msg, eRecipient)) CM_SetField(msg, eRecipient, value, valuelen); processed = 1; } else if (!strcasecmp(key, "CC")) { if (CM_IsEmpty(msg, eCarbonCopY)) CM_SetField(msg, eCarbonCopY, value, valuelen); processed = 1; } else if (!strcasecmp(key, "Message-ID")) { if (!CM_IsEmpty(msg, emessageId)) { syslog(LOG_WARNING, "duplicate message id\n"); } else { char *pValue; long pValueLen; pValue = value; pValueLen = valuelen; /* Strip angle brackets */ while (haschar(pValue, '<') > 0) { pValue ++; pValueLen --; } for (i = 0; i <= pValueLen; ++i) if (pValue[i] == '>') { pValueLen = i; break; } CM_SetField(msg, emessageId, pValue, pValueLen); } processed = 1; } else if (!strcasecmp(key, "Return-Path")) { if (CM_IsEmpty(msg, eMessagePath)) CM_SetField(msg, eMessagePath, value, valuelen); processed = 1; } else if (!strcasecmp(key, "Envelope-To")) { if (CM_IsEmpty(msg, eenVelopeTo)) CM_SetField(msg, eenVelopeTo, value, valuelen); processed = 1; } else if (!strcasecmp(key, "References")) { CM_SetField(msg, eWeferences, value, valuelen); processed = 1; } else if (!strcasecmp(key, "Reply-To")) { CM_SetField(msg, eReplyTo, value, valuelen); processed = 1; } else if (!strcasecmp(key, "In-reply-to")) { if (CM_IsEmpty(msg, eWeferences)) /* References: supersedes In-reply-to: */ CM_SetField(msg, eWeferences, value, valuelen); processed = 1; } /* Clean up and move on. */ free(key); /* Don't free 'value', it's actually the same buffer */ return processed; } /* * Convert RFC822 references format (References) to Citadel references format (Weferences) */ void convert_references_to_wefewences(char *str) { int bracket_nesting = 0; char *ptr = str; char *moveptr = NULL; char ch; while(*ptr) { ch = *ptr; if (ch == '>') { --bracket_nesting; if (bracket_nesting < 0) bracket_nesting = 0; } if ((ch == '>') && (bracket_nesting == 0) && (*(ptr+1)) && (ptr>str) ) { *ptr = '|'; ++ptr; } else if (bracket_nesting > 0) { ++ptr; } else { moveptr = ptr; while (*moveptr) { *moveptr = *(moveptr+1); ++moveptr; } } if (ch == '<') ++bracket_nesting; } } /* * Convert an RFC822 message (headers + body) to a CtdlMessage structure. * NOTE: the supplied buffer becomes part of the CtdlMessage structure, and * will be deallocated when CM_Free() is called. Therefore, the * supplied buffer should be DEREFERENCED. It should not be freed or used * again. */ struct CtdlMessage *convert_internet_message(char *rfc822) { StrBuf *RFCBuf = NewStrBufPlain(rfc822, -1); free (rfc822); return convert_internet_message_buf(&RFCBuf); } struct CtdlMessage *convert_internet_message_buf(StrBuf **rfc822) { struct CtdlMessage *msg; const char *pos, *beg, *end, *totalend; int done, alldone = 0; int converted; StrBuf *OtherHeaders; msg = malloc(sizeof(struct CtdlMessage)); if (msg == NULL) return msg; memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; /* self check */ msg->cm_anon_type = 0; /* never anonymous */ msg->cm_format_type = FMT_RFC822; /* internet message */ pos = ChrPtr(*rfc822); totalend = pos + StrLength(*rfc822); done = 0; OtherHeaders = NewStrBufPlain(NULL, StrLength(*rfc822)); while (!alldone) { /* Locate beginning and end of field, keeping in mind that * some fields might be multiline */ end = beg = pos; while ((end < totalend) && (end == beg) && (done == 0) ) { if ( (*pos=='\n') && ((*(pos+1))!=0x20) && ((*(pos+1))!=0x09) ) { end = pos; } /* done with headers? */ if ((*pos=='\n') && ( (*(pos+1)=='\n') || (*(pos+1)=='\r')) ) { alldone = 1; } if (pos >= (totalend - 1) ) { end = pos; done = 1; } ++pos; } /* At this point we have a field. Are we interested in it? */ converted = convert_field(msg, beg, end); /* Strip the field out of the RFC822 header if we used it */ if (!converted) { StrBufAppendBufPlain(OtherHeaders, beg, end - beg, 0); StrBufAppendBufPlain(OtherHeaders, HKEY("\n"), 0); } /* If we've hit the end of the message, bail out */ if (pos >= totalend) alldone = 1; } StrBufAppendBufPlain(OtherHeaders, HKEY("\n"), 0); if (pos < totalend) StrBufAppendBufPlain(OtherHeaders, pos, totalend - pos, 0); FreeStrBuf(rfc822); CM_SetAsFieldSB(msg, eMesageText, &OtherHeaders); /* Follow-up sanity checks... */ /* If there's no timestamp on this message, set it to now. */ if (CM_IsEmpty(msg, eTimestamp)) { CM_SetFieldLONG(msg, eTimestamp, time(NULL)); } /* If a W (references, or rather, Wefewences) field is present, we * have to convert it from RFC822 format to Citadel format. */ if (!CM_IsEmpty(msg, eWeferences)) { /// todo: API! convert_references_to_wefewences(msg->cm_fields[eWeferences]); } return msg; } /* * Look for a particular header field in an RFC822 message text. If the * requested field is found, it is unfolded (if necessary) and returned to * the caller. The field name is stripped out, leaving only its contents. * The caller is responsible for freeing the returned buffer. If the requested * field is not present, or anything else goes wrong, it returns NULL. */ char *rfc822_fetch_field(const char *rfc822, const char *fieldname) { char *fieldbuf = NULL; const char *end_of_headers; const char *field_start; const char *ptr; char *cont; char fieldhdr[SIZ]; /* Should never happen, but sometimes we get stupid */ if (rfc822 == NULL) return(NULL); if (fieldname == NULL) return(NULL); snprintf(fieldhdr, sizeof fieldhdr, "%s:", fieldname); /* Locate the end of the headers, so we don't run past that point */ end_of_headers = cbmstrcasestr(rfc822, "\n\r\n"); if (end_of_headers == NULL) { end_of_headers = cbmstrcasestr(rfc822, "\n\n"); } if (end_of_headers == NULL) return (NULL); field_start = cbmstrcasestr(rfc822, fieldhdr); if (field_start == NULL) return(NULL); if (field_start > end_of_headers) return(NULL); fieldbuf = malloc(SIZ); strcpy(fieldbuf, ""); ptr = field_start; ptr = cmemreadline(ptr, fieldbuf, SIZ-strlen(fieldbuf) ); while ( (isspace(ptr[0])) && (ptr < end_of_headers) ) { strcat(fieldbuf, " "); cont = &fieldbuf[strlen(fieldbuf)]; ptr = cmemreadline(ptr, cont, SIZ-strlen(fieldbuf) ); striplt(cont); } strcpy(fieldbuf, &fieldbuf[strlen(fieldhdr)]); striplt(fieldbuf); return(fieldbuf); } /***************************************************************************** * DIRECTORY MANAGEMENT FUNCTIONS * *****************************************************************************/ /* * Generate the index key for an Internet e-mail address to be looked up * in the database. */ void directory_key(char *key, char *addr) { int i; int keylen = 0; struct CitContext *CCC = CC; for (i=0; !IsEmptyStr(&addr[i]); ++i) { if (!isspace(addr[i])) { key[keylen++] = tolower(addr[i]); } } key[keylen++] = 0; MSG_syslog(LOG_DEBUG, "Directory key is <%s>\n", key); } /* Return nonzero if the supplied address is in a domain we keep in * the directory */ int IsDirectory(char *addr, int allow_masq_domains) { char domain[256]; int h; extract_token(domain, addr, 1, '@', sizeof domain); striplt(domain); h = CtdlHostAlias(domain); if ( (h == hostalias_masq) && allow_masq_domains) return(1); if ( (h == hostalias_localhost) || (h == hostalias_directory) ) { return(1); } else { return(0); } } /* * Initialize the directory database (erasing anything already there) */ void CtdlDirectoryInit(void) { cdb_trunc(CDB_DIRECTORY); } /* * Add an Internet e-mail address to the directory for a user */ int CtdlDirectoryAddUser(char *internet_addr, char *citadel_addr) { char key[SIZ]; struct CitContext *CCC = CC; if (IsDirectory(internet_addr, 0) == 0) return 0; MSG_syslog(LOG_DEBUG, "Create directory entry: %s --> %s\n", internet_addr, citadel_addr); directory_key(key, internet_addr); cdb_store(CDB_DIRECTORY, key, strlen(key), citadel_addr, strlen(citadel_addr)+1 ); return 1; } /* * Delete an Internet e-mail address from the directory. * * (NOTE: we don't actually use or need the citadel_addr variable; it's merely * here because the callback API expects to be able to send it.) */ int CtdlDirectoryDelUser(char *internet_addr, char *citadel_addr) { char key[SIZ]; struct CitContext *CCC = CC; MSG_syslog(LOG_DEBUG, "Delete directory entry: %s --> %s\n", internet_addr, citadel_addr); directory_key(key, internet_addr); return cdb_delete(CDB_DIRECTORY, key, strlen(key) ) == 0; } /* * Look up an Internet e-mail address in the directory. * On success: returns 0, and Citadel address stored in 'target' * On failure: returns nonzero */ int CtdlDirectoryLookup(char *target, char *internet_addr, size_t targbuflen) { struct cdbdata *cdbrec; char key[SIZ]; /* Dump it in there unchanged, just for kicks */ safestrncpy(target, internet_addr, targbuflen); /* Only do lookups for addresses with hostnames in them */ if (num_tokens(internet_addr, '@') != 2) return(-1); /* Only do lookups for domains in the directory */ if (IsDirectory(internet_addr, 0) == 0) return(-1); directory_key(key, internet_addr); cdbrec = cdb_fetch(CDB_DIRECTORY, key, strlen(key) ); if (cdbrec != NULL) { safestrncpy(target, cdbrec->ptr, targbuflen); cdb_free(cdbrec); return(0); } return(-1); } /* * Harvest any email addresses that someone might want to have in their * "collected addresses" book. */ char *harvest_collected_addresses(struct CtdlMessage *msg) { char *coll = NULL; char addr[256]; char user[256], node[256], name[256]; int is_harvestable; int i, j, h; eMsgField field = 0; if (msg == NULL) return(NULL); is_harvestable = 1; strcpy(addr, ""); if (!CM_IsEmpty(msg, eAuthor)) { strcat(addr, msg->cm_fields[eAuthor]); } if (!CM_IsEmpty(msg, erFc822Addr)) { strcat(addr, " <"); strcat(addr, msg->cm_fields[erFc822Addr]); strcat(addr, ">"); if (IsDirectory(msg->cm_fields[erFc822Addr], 0)) { is_harvestable = 0; } } if (is_harvestable) { coll = strdup(addr); } else { coll = strdup(""); } if (coll == NULL) return(NULL); /* Scan both the R (To) and Y (CC) fields */ for (i = 0; i < 2; ++i) { if (i == 0) field = eRecipient; if (i == 1) field = eCarbonCopY; if (!CM_IsEmpty(msg, field)) { for (j=0; jcm_fields[field], ','); ++j) { extract_token(addr, msg->cm_fields[field], j, ',', sizeof addr); if (strstr(addr, "=?") != NULL) utf8ify_rfc822_string(addr); process_rfc822_addr(addr, user, node, name); h = CtdlHostAlias(node); if ( (h != hostalias_localhost) && (h != hostalias_directory) ) { coll = realloc(coll, strlen(coll) + strlen(addr) + 4); if (coll == NULL) return(NULL); if (!IsEmptyStr(coll)) { strcat(coll, ","); } striplt(addr); strcat(coll, addr); } } } } if (IsEmptyStr(coll)) { free(coll); return(NULL); } return(coll); } citadel-902/internet_addressing.h000066400000000000000000000025701271512031400171770ustar00rootroot00000000000000 #include "server.h" #include "ctdl_module.h" recptypes *validate_recipients(const char *recipients, const char *RemoteIdentifier, int Flags); void free_recipients(recptypes *); int fuzzy_match(struct ctdluser *us, char *matchstring); void process_rfc822_addr(const char *rfc822, char *user, char *node, char *name); char *rfc822_fetch_field(const char *rfc822, const char *fieldname); void sanitize_truncated_recipient(char *str); char *qp_encode_email_addrs(char *source); int alias (char *name); int IsDirectory(char *addr, int allow_masq_domains); void CtdlDirectoryInit(void); int CtdlDirectoryAddUser(char *internet_addr, char *citadel_addr); int CtdlDirectoryDelUser(char *internet_addr, char *citadel_addr); int CtdlDirectoryLookup(char *target, char *internet_addr, size_t targbuflen); struct CtdlMessage *convert_internet_message(char *rfc822); struct CtdlMessage *convert_internet_message_buf(StrBuf **rfc822); int CtdlIsMe(char *addr, int addr_buf_len); int CtdlHostAlias(char *fqdn); char *harvest_collected_addresses(struct CtdlMessage *msg); /* * Values that can be returned by CtdlHostAlias() */ enum { hostalias_nomatch, hostalias_localhost, hostalias_gatewaydomain, hostalias_directory, hostalias_masq }; extern char *inetcfg; struct spamstrings_t { struct spamstrings_t *next; char *string; }; extern struct spamstrings_t *spamstrings; citadel-902/internetmail.h000066400000000000000000000001011271512031400156230ustar00rootroot00000000000000void LoadInternetConfig(void); int IsHostLocal(char *WhichHost); citadel-902/ipcdef.h000066400000000000000000000075121271512031400143770ustar00rootroot00000000000000#ifdef __cplusplus extern "C" { #endif #define LISTING_FOLLOWS 100 #define CIT_OK 200 #define MORE_DATA 300 #define SEND_LISTING 400 #define ERROR 500 #define BINARY_FOLLOWS 600 #define SEND_BINARY 700 #define START_CHAT_MODE 800 #define INTERNAL_ERROR 10 #define TOO_BIG 11 #define ILLEGAL_VALUE 12 #define NOT_LOGGED_IN 20 #define CMD_NOT_SUPPORTED 30 #define SERVER_SHUTTING_DOWN 31 #define PASSWORD_REQUIRED 40 #define ALREADY_LOGGED_IN 41 #define USERNAME_REQUIRED 42 #define HIGHER_ACCESS_REQUIRED 50 #define MAX_SESSIONS_EXCEEDED 51 #define RESOURCE_BUSY 52 #define RESOURCE_NOT_OPEN 53 #define NOT_HERE 60 #define INVALID_FLOOR_OPERATION 61 #define NO_SUCH_USER 70 #define FILE_NOT_FOUND 71 #define ROOM_NOT_FOUND 72 #define NO_SUCH_SYSTEM 73 #define ALREADY_EXISTS 74 #define MESSAGE_NOT_FOUND 75 #define ASYNC_MSG 900 #define ASYNC_GEXP 02 #define QR_PERMANENT 1 /* Room does not purge */ #define QR_INUSE 2 /* Set if in use, clear if avail */ #define QR_PRIVATE 4 /* Set for any type of private room */ #define QR_PASSWORDED 8 /* Set if there's a password too */ #define QR_GUESSNAME 16 /* Set if it's a guessname room */ #define QR_DIRECTORY 32 /* Directory room */ #define QR_UPLOAD 64 /* Allowed to upload */ #define QR_DOWNLOAD 128 /* Allowed to download */ #define QR_VISDIR 256 /* Visible directory */ #define QR_ANONONLY 512 /* Anonymous-Only room */ #define QR_ANONOPT 1024 /* Anonymous-Option room */ #define QR_NETWORK 2048 /* Shared network room */ #define QR_PREFONLY 4096 /* Preferred status needed to enter */ #define QR_READONLY 8192 /* Aide status required to post */ #define QR_MAILBOX 16384 /* Set if this is a private mailbox */ #define QR2_SYSTEM 1 /* System room; hide by default */ #define QR2_SELFLIST 2 /* Self-service mailing list mgmt */ #define QR2_COLLABDEL 4 /* Anyone who can post can delete */ #define QR2_SUBJECTREQ 8 /* Subject strongly recommended */ #define QR2_SMTP_PUBLIC 16 /* Listservice Subscribers may post */ #define QR2_MODERATED 32 /* Listservice aide has to permit posts */ #define US_NEEDVALID 1 /* User needs to be validated */ #define US_EXTEDIT 2 /* Always use external editor */ #define US_PERM 4 /* Permanent user */ #define US_LASTOLD 16 /* Print last old message with new */ #define US_EXPERT 32 /* Experienced user */ #define US_UNLISTED 64 /* Unlisted userlog entry */ #define US_NOPROMPT 128 /* Don't prompt after each message */ #define US_PROMPTCTL 256 /* ext & top work at prompt */ #define US_DISAPPEAR 512 /* Use "disappearing msg prompts" */ #define US_REGIS 1024 /* Registered user */ #define US_PAGINATOR 2048 /* Pause after each screen of text */ #define US_INTERNET 4096 /* Internet mail privileges */ #define US_FLOORS 8192 /* User wants to see floors */ #define US_COLOR 16384 /* User wants ANSI color support */ #define US_USER_SET (US_LASTOLD | US_EXPERT | US_UNLISTED | \ US_NOPROMPT | US_DISAPPEAR | US_PAGINATOR | \ US_FLOORS | US_COLOR | US_PROMPTCTL | US_EXTEDIT) #define UA_KNOWN 2 /* Room appears in a 'known rooms' list */ #define UA_GOTOALLOWED 4 /* User may goto this room if specified by exact name */ #define UA_HASNEWMSGS 8 /* Unread messages exist in this room */ #define UA_ZAPPED 16 /* User has forgotten (zapped) this room */ #define UA_POSTALLOWED 32 /* User may post top-level messages here */ #define UA_ADMINALLOWED 64 /* Aide or Room Aide rights exist here */ #define UA_DELETEALLOWED 128 /* User is allowed to delete messages from this room */ #define UA_REPLYALLOWED 256 /* User is allowed to reply to existing messages here */ #ifdef __cplusplus } #endif citadel-902/journaling.c000066400000000000000000000204311271512031400153030ustar00rootroot00000000000000/* * Message journaling functions. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include "ctdl_module.h" #include "citserver.h" #include "config.h" #include "user_ops.h" #include "serv_vcard.h" /* Needed for vcard_getuser and extract_inet_email_addrs */ #include "internet_addressing.h" #include "journaling.h" struct jnlq *jnlq = NULL; /* journal queue */ /* * Hand off a copy of a message to be journalized. */ void JournalBackgroundSubmit(struct CtdlMessage *msg, StrBuf *saved_rfc822_version, recptypes *recps) { struct jnlq *jptr = NULL; /* Avoid double journaling! */ if (!CM_IsEmpty(msg, eJournal)) { FreeStrBuf(&saved_rfc822_version); return; } jptr = (struct jnlq *)malloc(sizeof(struct jnlq)); if (jptr == NULL) { FreeStrBuf(&saved_rfc822_version); return; } memset(jptr, 0, sizeof(struct jnlq)); if (recps != NULL) memcpy(&jptr->recps, recps, sizeof(recptypes)); if (!CM_IsEmpty(msg, eAuthor)) jptr->from = strdup(msg->cm_fields[eAuthor]); if (!CM_IsEmpty(msg, eNodeName)) jptr->node = strdup(msg->cm_fields[eNodeName]); if (!CM_IsEmpty(msg, erFc822Addr)) jptr->rfca = strdup(msg->cm_fields[erFc822Addr]); if (!CM_IsEmpty(msg, eMsgSubject)) jptr->subj = strdup(msg->cm_fields[eMsgSubject]); if (!CM_IsEmpty(msg, emessageId)) jptr->msgn = strdup(msg->cm_fields[emessageId]); jptr->rfc822 = SmashStrBuf(&saved_rfc822_version); /* Add to the queue */ begin_critical_section(S_JOURNAL_QUEUE); jptr->next = jnlq; jnlq = jptr; end_critical_section(S_JOURNAL_QUEUE); } /* * Convert a local user name to an internet email address for the journal */ /* * TODODRW: change this into a CtdlModuleDo type function that returns alternative address info * for this local user. Something like CtdlModuleGoGetAddr(char *localuser, int type, char *alt_addr, size_t alt_addr_len) * where type can be ADDR_EMAIL, ADDR_FIDO, ADDR_UUCP, ADDR_WEB, ADDR_POSTAL etc etc. * This then begs the question of what should be returned. Is it wise to return a single char* using a comma as a * delimiter? Or would it be better to return a linked list of some kind? */ void local_to_inetemail(char *inetemail, char *localuser, size_t inetemail_len) { struct ctdluser us; struct vCard *v; strcpy(inetemail, ""); if (CtdlGetUser(&us, localuser) != 0) { return; } v = vcard_get_user(&us); if (v == NULL) { return; } extract_inet_email_addrs(inetemail, inetemail_len, NULL, 0, v, 1); vcard_free(v); } /* * Called by JournalRunQueue() to send an individual message. */ void JournalRunQueueMsg(struct jnlq *jmsg) { struct CtdlMessage *journal_msg = NULL; recptypes *journal_recps = NULL; StrBuf *message_text = NULL; char mime_boundary[256]; long mblen; long rfc822len; char recipient[256]; char inetemail[256]; static int seq = 0; int i; if (jmsg == NULL) return; journal_recps = validate_recipients(CtdlGetConfigStr("c_journal_dest"), NULL, 0); if (journal_recps != NULL) { if ( (journal_recps->num_local > 0) || (journal_recps->num_internet > 0) || (journal_recps->num_ignet > 0) || (journal_recps->num_room > 0) ) { /* * Construct journal message. * Note that we are transferring ownership of some of the memory here. */ journal_msg = malloc(sizeof(struct CtdlMessage)); memset(journal_msg, 0, sizeof(struct CtdlMessage)); journal_msg->cm_magic = CTDLMESSAGE_MAGIC; journal_msg->cm_anon_type = MES_NORMAL; journal_msg->cm_format_type = FMT_RFC822; CM_SetField(journal_msg, eJournal, HKEY("is journal")); if (!IsEmptyStr(jmsg->from)) { CM_SetField(journal_msg, eAuthor, jmsg->from, strlen(jmsg->from)); } if (!IsEmptyStr(jmsg->node)) { CM_SetField(journal_msg, eNodeName, jmsg->node, strlen(jmsg->node)); } if (!IsEmptyStr(jmsg->rfca)) { CM_SetField(journal_msg, erFc822Addr, jmsg->rfca, strlen(jmsg->rfca)); } if (!IsEmptyStr(jmsg->subj)) { CM_SetField(journal_msg, eMsgSubject, jmsg->subj, strlen(jmsg->subj)); } mblen = snprintf(mime_boundary, sizeof(mime_boundary), "--Citadel-Journal-%08lx-%04x--", time(NULL), ++seq); if (!IsEmptyStr(jmsg->rfc822)) { rfc822len = strlen(jmsg->rfc822); } else { rfc822len = 0; } message_text = NewStrBufPlain(NULL, rfc822len + sizeof(recptypes) + 1024); /* * Here is where we begin to compose the journalized message. * NOTE: the superfluous "Content-Identifer: ExJournalReport" header was * requested by a paying customer, and yes, it is intentionally * spelled wrong. Do NOT remove or change it. */ StrBufAppendBufPlain( message_text, HKEY("Content-type: multipart/mixed; boundary=\""), 0); StrBufAppendBufPlain(message_text, mime_boundary, mblen, 0); StrBufAppendBufPlain( message_text, HKEY("\"\r\n" "Content-Identifer: ExJournalReport\r\n" "MIME-Version: 1.0\r\n" "\n" "--"), 0); StrBufAppendBufPlain(message_text, mime_boundary, mblen, 0); StrBufAppendBufPlain( message_text, HKEY("\r\n" "Content-type: text/plain\r\n" "\r\n" "Sender: "), 0); if (CM_IsEmpty(journal_msg, eAuthor)) StrBufAppendBufPlain( message_text, journal_msg->cm_fields[eAuthor], -1, 0); else StrBufAppendBufPlain( message_text, HKEY("(null)"), 0); if (!CM_IsEmpty(journal_msg, erFc822Addr)) { StrBufAppendPrintf(message_text, " <%s>", journal_msg->cm_fields[erFc822Addr]); } else if (!CM_IsEmpty(journal_msg, eNodeName)) { StrBufAppendPrintf(message_text, " @ %s", journal_msg->cm_fields[eNodeName]); } else StrBufAppendBufPlain( message_text, HKEY(" "), 0); StrBufAppendBufPlain( message_text, HKEY("\r\n" "Message-ID: <"), 0); StrBufAppendBufPlain(message_text, jmsg->msgn, -1, 0); StrBufAppendBufPlain( message_text, HKEY(">\r\n" "Recipients:\r\n"), 0); if (jmsg->recps.num_local > 0) { for (i=0; irecps.num_local; ++i) { extract_token(recipient, jmsg->recps.recp_local, i, '|', sizeof recipient); local_to_inetemail(inetemail, recipient, sizeof inetemail); StrBufAppendPrintf(message_text, " %s <%s>\r\n", recipient, inetemail); } } if (jmsg->recps.num_ignet > 0) { for (i=0; irecps.num_ignet; ++i) { extract_token(recipient, jmsg->recps.recp_ignet, i, '|', sizeof recipient); StrBufAppendPrintf(message_text, " %s\r\n", recipient); } } if (jmsg->recps.num_internet > 0) { for (i=0; irecps.num_internet; ++i) { extract_token(recipient, jmsg->recps.recp_internet, i, '|', sizeof recipient); StrBufAppendPrintf(message_text, " %s\r\n", recipient); } } StrBufAppendBufPlain( message_text, HKEY("\r\n" "--"), 0); StrBufAppendBufPlain(message_text, mime_boundary, mblen, 0); StrBufAppendBufPlain( message_text, HKEY("\r\n" "Content-type: message/rfc822\r\n" "\r\n"), 0); StrBufAppendBufPlain(message_text, jmsg->rfc822, rfc822len, 0); StrBufAppendBufPlain( message_text, HKEY("--"), 0); StrBufAppendBufPlain(message_text, mime_boundary, mblen, 0); StrBufAppendBufPlain( message_text, HKEY("--\r\n"), 0); CM_SetAsFieldSB(journal_msg, eMesageText, &message_text); free(jmsg->rfc822); free(jmsg->msgn); jmsg->rfc822 = NULL; jmsg->msgn = NULL; /* Submit journal message */ CtdlSubmitMsg(journal_msg, journal_recps, "", 0); CM_Free(journal_msg); } free_recipients(journal_recps); } /* We are responsible for freeing this memory. */ free(jmsg); } /* * Run the queue. */ void JournalRunQueue(void) { struct jnlq *jptr = NULL; while (jnlq != NULL) { begin_critical_section(S_JOURNAL_QUEUE); if (jnlq != NULL) { jptr = jnlq; jnlq = jnlq->next; } end_critical_section(S_JOURNAL_QUEUE); JournalRunQueueMsg(jptr); } } citadel-902/journaling.h000066400000000000000000000005471271512031400153160ustar00rootroot00000000000000struct jnlq { struct jnlq *next; recptypes recps; char *from; char *node; char *rfca; char *subj; char *msgn; char *rfc822; }; void JournalBackgroundSubmit(struct CtdlMessage *msg, StrBuf *saved_rfc822_version, recptypes *recps); void JournalRunQueueMsg(struct jnlq *jmsg); void JournalRunQueue(void); citadel-902/ldap.c000066400000000000000000000342021271512031400140540ustar00rootroot00000000000000/* * These functions implement the portions of AUTHMODE_LDAP and AUTHMODE_LDAP_AD which * actually speak to the LDAP server. * * Copyright (c) 2011-2015 by the citadel.org development team. * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ int ctdl_require_ldap_version = 3; #define _GNU_SOURCE // Needed to suppress warning about vasprintf() when running on Linux/Linux #include #include #include "citserver.h" #include "citadel_ldap.h" #include "ctdl_module.h" #include "user_ops.h" #include "config.h" #ifdef HAVE_LDAP #define LDAP_DEPRECATED 1 /* Suppress libldap's warning that we are using deprecated API calls */ #include /* * Wrapper function for ldap_initialize() that consistently fills in the correct fields */ int ctdl_ldap_initialize(LDAP **ld) { char server_url[256]; int ret; snprintf(server_url, sizeof server_url, "ldap://%s:%d", CtdlGetConfigStr("c_ldap_host"), CtdlGetConfigInt("c_ldap_port")); ret = ldap_initialize(ld, server_url); if (ret != LDAP_SUCCESS) { syslog(LOG_ALERT, "LDAP: Could not connect to %s : %s", server_url, strerror(errno) ); *ld = NULL; return(errno); } return(ret); } /* * Look up a user in the directory to see if this is an account that can be authenticated */ int CtdlTryUserLDAP(char *username, char *found_dn, int found_dn_size, char *fullname, int fullname_size, uid_t *uid, int lookup_based_on_username) { LDAP *ldserver = NULL; int i; LDAPMessage *search_result = NULL; LDAPMessage *entry = NULL; char searchstring[1024]; struct timeval tv; char **values; char *user_dn = NULL; if (fullname) safestrncpy(fullname, username, fullname_size); if (ctdl_ldap_initialize(&ldserver) != LDAP_SUCCESS) { return(errno); } ldap_set_option(ldserver, LDAP_OPT_PROTOCOL_VERSION, &ctdl_require_ldap_version); ldap_set_option(ldserver, LDAP_OPT_REFERRALS, (void *)LDAP_OPT_OFF); striplt(CtdlGetConfigStr("c_ldap_bind_dn")); striplt(CtdlGetConfigStr("c_ldap_bind_pw")); syslog(LOG_DEBUG, "LDAP bind DN: %s", CtdlGetConfigStr("c_ldap_bind_dn")); i = ldap_simple_bind_s(ldserver, (!IsEmptyStr(CtdlGetConfigStr("c_ldap_bind_dn")) ? CtdlGetConfigStr("c_ldap_bind_dn") : NULL), (!IsEmptyStr(CtdlGetConfigStr("c_ldap_bind_pw")) ? CtdlGetConfigStr("c_ldap_bind_pw") : NULL) ); if (i != LDAP_SUCCESS) { syslog(LOG_ALERT, "LDAP: Cannot bind: %s (%d)", ldap_err2string(i), i); return(i); } tv.tv_sec = 10; tv.tv_usec = 0; if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD) { if (lookup_based_on_username != 0) snprintf(searchstring, sizeof(searchstring), "(displayName=%s)",username); else snprintf(searchstring, sizeof(searchstring), "(sAMAccountName=%s)", username); } else { if (lookup_based_on_username != 0) snprintf(searchstring, sizeof(searchstring), "(cn=%s)",username); else snprintf(searchstring, sizeof(searchstring), "(&(objectclass=posixAccount)(uid=%s))", username); } syslog(LOG_DEBUG, "LDAP search: %s", searchstring); (void) ldap_search_ext_s( ldserver, /* ld */ CtdlGetConfigStr("c_ldap_base_dn"), /* base */ LDAP_SCOPE_SUBTREE, /* scope */ searchstring, /* filter */ NULL, /* attrs (all attributes) */ 0, /* attrsonly (attrs + values) */ NULL, /* serverctrls (none) */ NULL, /* clientctrls (none) */ &tv, /* timeout */ 1, /* sizelimit (1 result max) */ &search_result /* res */ ); /* Ignore the return value of ldap_search_ext_s(). Sometimes it returns an error even when * the search succeeds. Instead, we check to see whether search_result is still NULL. */ if (search_result == NULL) { syslog(LOG_DEBUG, "LDAP search: zero results were returned"); ldap_unbind(ldserver); return(2); } /* At this point we've got at least one result from our query. If there are multiple * results, we still only look at the first one. */ entry = ldap_first_entry(ldserver, search_result); if (entry) { user_dn = ldap_get_dn(ldserver, entry); if (user_dn) { syslog(LOG_DEBUG, "dn = %s", user_dn); } if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD) { values = ldap_get_values(ldserver, search_result, "displayName"); if (values) { if (values[0]) { if (fullname) safestrncpy(fullname, values[0], fullname_size); syslog(LOG_DEBUG, "displayName = %s", values[0]); } ldap_value_free(values); } } else { values = ldap_get_values(ldserver, search_result, "cn"); if (values) { if (values[0]) { if (fullname) safestrncpy(fullname, values[0], fullname_size); syslog(LOG_DEBUG, "cn = %s", values[0]); } ldap_value_free(values); } } /* If we know the username is the CN/displayName, we already set the uid*/ if (lookup_based_on_username==0) { if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD) { values = ldap_get_values(ldserver, search_result, "objectGUID"); if (values) { if (values[0]) { if (uid != NULL) { *uid = abs(HashLittle(values[0], strlen(values[0]))); syslog(LOG_DEBUG, "uid hashed from objectGUID = %d", *uid); } } ldap_value_free(values); } } else { values = ldap_get_values(ldserver, search_result, "uidNumber"); if (values) { if (values[0]) { syslog(LOG_DEBUG, "uidNumber = %s", values[0]); if (uid != NULL) { *uid = atoi(values[0]); } } ldap_value_free(values); } } } } /* free the results */ ldap_msgfree(search_result); /* unbind so we can go back in as the authenticating user */ ldap_unbind(ldserver); if (!user_dn) { syslog(LOG_DEBUG, "No such user was found."); return(4); } if (found_dn) safestrncpy(found_dn, user_dn, found_dn_size); ldap_memfree(user_dn); return(0); } int CtdlTryPasswordLDAP(char *user_dn, const char *password) { LDAP *ldserver = NULL; int i = (-1); if (IsEmptyStr(password)) { syslog(LOG_DEBUG, "LDAP: empty passwords are not permitted"); return(1); } syslog(LOG_DEBUG, "LDAP: trying to bind as %s", user_dn); i = ctdl_ldap_initialize(&ldserver); if (i == LDAP_SUCCESS) { ldap_set_option(ldserver, LDAP_OPT_PROTOCOL_VERSION, &ctdl_require_ldap_version); i = ldap_simple_bind_s(ldserver, user_dn, password); if (i == LDAP_SUCCESS) { syslog(LOG_DEBUG, "LDAP: bind succeeded"); } else { syslog(LOG_DEBUG, "LDAP: Cannot bind: %s (%d)", ldap_err2string(i), i); } ldap_set_option(ldserver, LDAP_OPT_REFERRALS, (void *)LDAP_OPT_OFF); ldap_unbind(ldserver); } if (i == LDAP_SUCCESS) { return(0); } return(1); } //return !0 iff property changed. int vcard_set_props_iff_different(struct vCard *v,char *propname,int numvals, char **vals) { int i; char *oldval = ""; for(i=0;i #include #include #include #include #include #include #include #include "context.h" #ifdef HAVE_RESOLV_H #include #ifdef HAVE_ARPA_NAMESER_COMPAT_H #include #endif #include #endif #include "domain.h" #include "locate_host.h" /** START:some missing macros on OpenBSD 3.9 */ #ifndef NS_CMPRSFLGS #define NS_CMPRSFLGS 0xc0 #endif #if !defined(NS_MAXCDNAME) && defined (MAXCDNAME) #define NS_MAXCDNAME MAXCDNAME #endif #if !defined(NS_INT16SZ) && defined(INT16SZ) #define NS_INT16SZ INT16SZ #define NS_INT32SZ INT32SZ #endif #ifndef NS_GET16 # define NS_GET16 GETSHORT #endif /** END:some missing macros on OpenBSD 3.9 */ /* * Given an open client socket, return the host name and IP address at the other end. * (IPv4 and IPv6 compatible) */ void locate_host(char *tbuf, size_t n, char *abuf, size_t na, int client_socket) { struct sockaddr_in6 clientaddr; unsigned int addrlen = sizeof(clientaddr); tbuf[0] = 0; abuf[0] = 0; getpeername(client_socket, (struct sockaddr *)&clientaddr, &addrlen); getnameinfo((struct sockaddr *)&clientaddr, addrlen, tbuf, n, NULL, 0, 0); getnameinfo((struct sockaddr *)&clientaddr, addrlen, abuf, na, NULL, 0, NI_NUMERICHOST); /* Convert IPv6-mapped IPv4 addresses back to traditional dotted quad. * * Other code here, such as the RBL check, will expect IPv4 addresses to be represented * as dotted-quad, even if they come in over a hybrid IPv6/IPv4 socket. */ if ( (strlen(abuf) > 7) && (!strncasecmp(abuf, "::ffff:", 7)) ) { if (!strcmp(abuf, tbuf)) strcpy(tbuf, &tbuf[7]); strcpy(abuf, &abuf[7]); } } /* * RBL check written by Edward S. Marshall [http://rblcheck.sourceforge.net] */ #define RESULT_SIZE 4096 /* What is the longest result text we support? */ int rblcheck_backend(char *domain, char *txtbuf, int txtbufsize) { int a, b, c; char *result = NULL; u_char fixedans[ PACKETSZ ]; u_char *answer; int need_to_free_answer = 0; const u_char *cp; u_char *rp; const u_char *cend; const u_char *rend; int len; char *p = NULL; static int res_initted = 0; if (!res_initted) { /* only have to do this once */ res_init(); res_initted = 1; } /* Make our DNS query. */ answer = fixedans; if (server_shutting_down) { if (txtbuf != NULL) { snprintf(txtbuf, txtbufsize, "System shutting down"); } return (1); } len = res_query(domain, C_IN, T_A, answer, PACKETSZ); /* Was there a problem? If so, the domain doesn't exist. */ if (len == -1) { if (txtbuf != NULL) { strcpy(txtbuf, ""); } return(0); } if( len > PACKETSZ ) { answer = malloc(len); need_to_free_answer = 1; len = res_query(domain, C_IN, T_A, answer, len); if( len == -1 ) { if (txtbuf != NULL) { snprintf(txtbuf, txtbufsize, "Message rejected due to known spammer source IP address"); } if (need_to_free_answer) free(answer); return(1); } } if (server_shutting_down) { if (txtbuf != NULL) snprintf(txtbuf, txtbufsize, "System shutting down"); if (need_to_free_answer) free(answer); return (1); } result = (char *) malloc(RESULT_SIZE); result[ 0 ] = '\0'; /* Make another DNS query for textual data; this shouldn't * be a performance hit, since it'll now be cached at the * nameserver we're using. */ len = res_query(domain, C_IN, T_TXT, answer, PACKETSZ); if (server_shutting_down) { if (txtbuf != NULL) { snprintf(txtbuf, txtbufsize, "System shutting down"); } if (need_to_free_answer) free(answer); free(result); return (1); } /* Just in case there's no TXT record... */ if (len ==(-1)) { if (txtbuf != NULL) { snprintf(txtbuf, txtbufsize, "Message rejected due to known spammer source IP address"); } if (need_to_free_answer) free(answer); free(result); return(1); } /* Skip the header and the address we queried. */ cp = answer + sizeof( HEADER ); while( *cp != '\0' ) { a = *cp++; while( a-- ) cp++; } /* This seems to be a bit of magic data that we need to * skip. I wish there were good online documentation * for programming for libresolv, so I'd know what I'm * skipping here. Anyone reading this, feel free to * enlighten me. */ cp += 1 + NS_INT16SZ + NS_INT32SZ; /* Skip the type, class and ttl. */ cp += (NS_INT16SZ * 2) + NS_INT32SZ; /* Get the length and end of the buffer. */ NS_GET16(c, cp); cend = cp + c; /* Iterate over any multiple answers we might have. In * this context, it's unlikely, but anyway. */ rp = (u_char *) result; rend = (u_char *) result + RESULT_SIZE - 1; while (cp < cend && rp < rend) { a = *cp++; if( a != 0 ) for (b = a; b > 0 && cp < cend && rp < rend; b--) { if (*cp == '\n' || *cp == '"' || *cp == '\\') { *rp++ = '\\'; } *rp++ = *cp++; } } *rp = '\0'; if (txtbuf != NULL) { long len; len = snprintf(txtbuf, txtbufsize, "%s", result); /* Remove nonprintable characters */ for (p = txtbuf; *p != '\0'; p++) { if (!isprint(*p)) { memmove (p, p + 1, len - (p - txtbuf) - 1); } } } if (need_to_free_answer) free(answer); free(result); return(1); } /* * Check to see if the client host is on some sort of spam list (RBL) * If spammer, returns nonzero and places reason in 'message_to_spammer' */ int rbl_check(char *message_to_spammer) { char tbuf[256] = ""; int suffix_pos = 0; int rbl; int rc; int num_rbl; char rbl_domains[SIZ]; char txt_answer[1024]; struct timeval tx_start; struct timeval tx_finish; rc = 0; strcpy(message_to_spammer, "ok"); gettimeofday(&tx_start, NULL); /* start a stopwatch for performance timing */ if ((strchr(CC->cs_addr, '.')) && (!strchr(CC->cs_addr, ':'))) { int a1, a2, a3, a4; sscanf(CC->cs_addr, "%d.%d.%d.%d", &a1, &a2, &a3, &a4); snprintf(tbuf, sizeof tbuf, "%d.%d.%d.%d.", a4, a3, a2, a1); suffix_pos = strlen(tbuf); } else if ((!strchr(CC->cs_addr, '.')) && (strchr(CC->cs_addr, ':'))) { int num_colons = 0; int i = 0; char workbuf[sizeof tbuf]; char *ptr; /* tedious code to expand and reverse an IPv6 address */ safestrncpy(tbuf, CC->cs_addr, sizeof tbuf); num_colons = haschar(tbuf, ':'); if ((num_colons < 2) || (num_colons > 7)) goto finish_rbl; /* badly formed address */ /* expand the "::" shorthand */ while (num_colons < 7) { ptr = strstr(tbuf, "::"); if (!ptr) goto finish_rbl; /* badly formed address */ ++ptr; strcpy(workbuf, ptr); strcpy(ptr, ":"); strcat(ptr, workbuf); ++num_colons; } /* expand to 32 hex characters with no colons */ strcpy(workbuf, tbuf); strcpy(tbuf, "00000000000000000000000000000000"); for (i=0; i<8; ++i) { char tokbuf[5]; extract_token(tokbuf, workbuf, i, ':', sizeof tokbuf); memcpy(&tbuf[ (i*4) + (4-strlen(tokbuf)) ], tokbuf, strlen(tokbuf) ); } if (strlen(tbuf) != 32) goto finish_rbl; /* now reverse it and add dots */ strcpy(workbuf, tbuf); for (i=0; i<32; ++i) { tbuf[i*2] = workbuf[31-i]; tbuf[(i*2)+1] = '.'; } tbuf[64] = 0; suffix_pos = 64; } else { goto finish_rbl; /* unknown address format */ } /* See if we have any RBL domains configured */ num_rbl = get_hosts(rbl_domains, "rbl"); if (num_rbl < 1) { goto finish_rbl; } /* Try all configured RBL's */ for (rbl=0; rblh_addr_list[0]; a1 = ((*i++) & 0xff); a2 = ((*i++) & 0xff); a3 = ((*i++) & 0xff); a4 = ((*i++) & 0xff); sprintf(addr, "%d.%d.%d.%d", a1, a2, a3, a4); return(0); } citadel-902/locate_host.h000066400000000000000000000003621271512031400154450ustar00rootroot00000000000000void locate_host(char *tbuf, size_t n, char *abuf, size_t na, int client_socket); int rbl_check(char *message_to_spammer); int hostname_to_dotted_quad(char *addr, char *host); int rblcheck_backend(char *domain, char *txtbuf, int txtbufsize); citadel-902/loginwrapper.sh000077500000000000000000000001211271512031400160310ustar00rootroot00000000000000#!/bin/sh # This file is obsolete. See docs/install.txt #exec /bin/login $* bbs citadel-902/m4/000077500000000000000000000000001271512031400133075ustar00rootroot00000000000000citadel-902/m4/ucread.m4000066400000000000000000000017631271512031400150230ustar00rootroot00000000000000# Check if "struct ucred" is available. If not, try harder with # _GNU_SOURCE. # # heavily inspired by: http://git.musicpd.org/cgit/master/mpd.git/tree/m4/ucred.m4 # Author: Max Kellermann AC_DEFUN([STRUCT_UCRED],[ AC_MSG_CHECKING([for struct ucred]) AC_CACHE_VAL(mpd_cv_have_struct_ucred, [ AC_TRY_COMPILE([#include ], [struct ucred cred;], mpd_cv_have_struct_ucred=yes, mpd_cv_have_struct_ucred=no) if test x$mpd_cv_have_struct_ucred = xno; then # glibc 2.8 forces _GNU_SOURCE on us AC_TRY_COMPILE( [#define _GNU_SOURCE #include ], [struct ucred cred;], mpd_cv_have_struct_ucred=yes, mpd_cv_have_struct_ucred=no) if test x$mpd_cv_have_struct_ucred = xyes; then # :( MPD_CFLAGS="$MPD_CFLAGS -D_GNU_SOURCE" fi fi ]) AC_MSG_RESULT($mpd_cv_have_struct_ucred) if test x$mpd_cv_have_struct_ucred = xyes; then AC_DEFINE(HAVE_STRUCT_UCRED, 1, [Define if struct ucred is present from sys/socket.h]) fi ])citadel-902/md5.c000066400000000000000000000313131271512031400136210ustar00rootroot00000000000000/* * This code implements the MD5 message-digest algorithm. * The algorithm is due to Ron Rivest. This code was * written by Colin Plumb in 1993, no copyright is claimed. * This code is in the public domain; do with it what you wish. * * Equivalent code is available from RSA Data Security, Inc. * This code has been tested against that, and is equivalent, * except that you don't need to include two pages of legalese * with every copy. * * To compute the message digest of a chunk of bytes, declare an * MD5Context structure, pass it to MD5Init, call MD5Update as * needed on buffers full of bytes, and then call MD5Final, which * will fill a supplied 16-byte array with the digest. */ #include #include #include #include /* for memcpy() */ #include "md5.h" #ifndef HIGHFIRST #define byteReverse(buf, len) /* Nothing */ #else void byteReverse(unsigned char *buf, unsigned longs); #ifndef ASM_MD5 /* * Note: this code is harmless on little-endian machines. */ void byteReverse(unsigned char *buf, unsigned longs) { cit_uint32_t t; do { t = (cit_uint32_t) ((unsigned) buf[3] << 8 | buf[2]) << 16 | ((unsigned) buf[1] << 8 | buf[0]); *(cit_uint32_t *) buf = t; buf += 4; } while (--longs); } #endif #endif /* * Start MD5 accumulation. Set bit count to 0 and buffer to mysterious * initialization constants. */ void MD5Init(struct MD5Context *ctx) { ctx->buf[0] = 0x67452301; ctx->buf[1] = 0xefcdab89; ctx->buf[2] = 0x98badcfe; ctx->buf[3] = 0x10325476; ctx->bits[0] = 0; ctx->bits[1] = 0; } /* * Update context to reflect the concatenation of another buffer full * of bytes. */ void MD5Update(struct MD5Context *ctx, unsigned char const *buf, unsigned len) { cit_uint32_t t; /* Update bitcount */ t = ctx->bits[0]; if ((ctx->bits[0] = t + ((cit_uint32_t) len << 3)) < t) ctx->bits[1]++; /* Carry from low to high */ ctx->bits[1] += len >> 29; t = (t >> 3) & 0x3f; /* Bytes already in shsInfo->data */ /* Handle any leading odd-sized chunks */ if (t) { unsigned char *p = (unsigned char *) ctx->in + t; t = 64 - t; if (len < t) { memcpy(p, buf, len); return; } memcpy(p, buf, t); byteReverse(ctx->in, 16); MD5Transform(ctx->buf, ctx->in); buf += t; len -= t; } /* Process data in 64-byte chunks */ while (len >= 64) { memcpy(ctx->in, buf, 64); byteReverse(ctx->in, 16); MD5Transform(ctx->buf, ctx->in); buf += 64; len -= 64; } /* Handle any remaining bytes of data. */ memcpy(ctx->in, buf, len); } /* * Final wrapup - pad to 64-byte boundary with the bit pattern * 1 0* (64-bit count of bits processed, MSB-first) */ void MD5Final(unsigned char digest[16], struct MD5Context *ctx) { unsigned count; unsigned char *p; /* Compute number of bytes mod 64 */ count = (ctx->bits[0] >> 3) & 0x3F; /* Set the first char of padding to 0x80. This is safe since there is always at least one byte free */ p = ((unsigned char*)ctx->in) + count; *p++ = 0x80; /* Bytes of padding needed to make 64 bytes */ count = 64 - 1 - count; /* Pad out to 56 mod 64 */ if (count < 8) { /* Two lots of padding: Pad the first block to 64 bytes */ memset(p, 0, count); byteReverse(ctx->in, 16); MD5Transform(ctx->buf, ctx->in); /* Now fill the next block with 56 bytes */ memset(ctx->in, 0, 56); } else { /* Pad block to 56 bytes */ memset(p, 0, count - 8); } byteReverse(ctx->in, 14); /* Append length in bits and transform */ ((cit_uint32_t *) ctx->in)[14] = ctx->bits[0]; ((cit_uint32_t *) ctx->in)[15] = ctx->bits[1]; MD5Transform(ctx->buf, (cit_uint32_t *) ctx->in); byteReverse((unsigned char *) ctx->buf, 4); memcpy(digest, ctx->buf, 16); memset(ctx, 0, sizeof(struct MD5Context)); /* In case it's sensitive */ } #ifndef ASM_MD5 /* The four core functions - F1 is optimized somewhat */ /* #define F1(x, y, z) (x & y | ~x & z) */ #define F1(x, y, z) (z ^ (x & (y ^ z))) #define F2(x, y, z) F1(z, x, y) #define F3(x, y, z) (x ^ y ^ z) #define F4(x, y, z) (y ^ (x | ~z)) /* This is the central step in the MD5 algorithm. */ #ifdef __PUREC__ #define MD5STEP(f, w, x, y, z, data, s) \ ( w += f /*(x, y, z)*/ + data, w = w<>(32-s), w += x ) #else #define MD5STEP(f, w, x, y, z, data, s) \ ( w += f(x, y, z) + data, w = w<>(32-s), w += x ) #endif /* * The core of the MD5 algorithm, this alters an existing MD5 hash to * reflect the addition of 16 longwords of new data. MD5Update blocks * the data and converts bytes into longwords for this routine. */ void MD5Transform(cit_uint32_t buf[4], cit_uint32_t const in[16]) { register cit_uint32_t a, b, c, d; a = buf[0]; b = buf[1]; c = buf[2]; d = buf[3]; #ifdef __PUREC__ /* PureC Weirdness... (GG) */ MD5STEP(F1(b,c,d), a, b, c, d, in[0] + 0xd76aa478L, 7); MD5STEP(F1(a,b,c), d, a, b, c, in[1] + 0xe8c7b756L, 12); MD5STEP(F1(d,a,b), c, d, a, b, in[2] + 0x242070dbL, 17); MD5STEP(F1(c,d,a), b, c, d, a, in[3] + 0xc1bdceeeL, 22); MD5STEP(F1(b,c,d), a, b, c, d, in[4] + 0xf57c0fafL, 7); MD5STEP(F1(a,b,c), d, a, b, c, in[5] + 0x4787c62aL, 12); MD5STEP(F1(d,a,b), c, d, a, b, in[6] + 0xa8304613L, 17); MD5STEP(F1(c,d,a), b, c, d, a, in[7] + 0xfd469501L, 22); MD5STEP(F1(b,c,d), a, b, c, d, in[8] + 0x698098d8L, 7); MD5STEP(F1(a,b,c), d, a, b, c, in[9] + 0x8b44f7afL, 12); MD5STEP(F1(d,a,b), c, d, a, b, in[10] + 0xffff5bb1L, 17); MD5STEP(F1(c,d,a), b, c, d, a, in[11] + 0x895cd7beL, 22); MD5STEP(F1(b,c,d), a, b, c, d, in[12] + 0x6b901122L, 7); MD5STEP(F1(a,b,c), d, a, b, c, in[13] + 0xfd987193L, 12); MD5STEP(F1(d,a,b), c, d, a, b, in[14] + 0xa679438eL, 17); MD5STEP(F1(c,d,a), b, c, d, a, in[15] + 0x49b40821L, 22); MD5STEP(F2(b,c,d), a, b, c, d, in[1] + 0xf61e2562L, 5); MD5STEP(F2(a,b,c), d, a, b, c, in[6] + 0xc040b340L, 9); MD5STEP(F2(d,a,b), c, d, a, b, in[11] + 0x265e5a51L, 14); MD5STEP(F2(c,d,a), b, c, d, a, in[0] + 0xe9b6c7aaL, 20); MD5STEP(F2(b,c,d), a, b, c, d, in[5] + 0xd62f105dL, 5); MD5STEP(F2(a,b,c), d, a, b, c, in[10] + 0x02441453L, 9); MD5STEP(F2(d,a,b), c, d, a, b, in[15] + 0xd8a1e681L, 14); MD5STEP(F2(c,d,a), b, c, d, a, in[4] + 0xe7d3fbc8L, 20); MD5STEP(F2(b,c,d), a, b, c, d, in[9] + 0x21e1cde6L, 5); MD5STEP(F2(a,b,c), d, a, b, c, in[14] + 0xc33707d6L, 9); MD5STEP(F2(d,a,b), c, d, a, b, in[3] + 0xf4d50d87L, 14); MD5STEP(F2(c,d,a), b, c, d, a, in[8] + 0x455a14edL, 20); MD5STEP(F2(b,c,d), a, b, c, d, in[13] + 0xa9e3e905L, 5); MD5STEP(F2(a,b,c), d, a, b, c, in[2] + 0xfcefa3f8L, 9); MD5STEP(F2(d,a,b), c, d, a, b, in[7] + 0x676f02d9L, 14); MD5STEP(F2(c,d,a), b, c, d, a, in[12] + 0x8d2a4c8aL, 20); MD5STEP(F3(b,c,d), a, b, c, d, in[5] + 0xfffa3942L, 4); MD5STEP(F3(a,b,c), d, a, b, c, in[8] + 0x8771f681L, 11); MD5STEP(F3(d,a,b), c, d, a, b, in[11] + 0x6d9d6122L, 16); MD5STEP(F3(c,d,a), b, c, d, a, in[14] + 0xfde5380cL, 23); MD5STEP(F3(b,c,d), a, b, c, d, in[1] + 0xa4beea44L, 4); MD5STEP(F3(a,b,c), d, a, b, c, in[4] + 0x4bdecfa9L, 11); MD5STEP(F3(d,a,b), c, d, a, b, in[7] + 0xf6bb4b60L, 16); MD5STEP(F3(c,d,a), b, c, d, a, in[10] + 0xbebfbc70L, 23); MD5STEP(F3(b,c,d), a, b, c, d, in[13] + 0x289b7ec6L, 4); MD5STEP(F3(a,b,c), d, a, b, c, in[0] + 0xeaa127faL, 11); MD5STEP(F3(d,a,b), c, d, a, b, in[3] + 0xd4ef3085L, 16); MD5STEP(F3(c,d,a), b, c, d, a, in[6] + 0x04881d05L, 23); MD5STEP(F3(b,c,d), a, b, c, d, in[9] + 0xd9d4d039L, 4); MD5STEP(F3(a,b,c), d, a, b, c, in[12] + 0xe6db99e5L, 11); MD5STEP(F3(d,a,b), c, d, a, b, in[15] + 0x1fa27cf8L, 16); MD5STEP(F3(c,d,a), b, c, d, a, in[2] + 0xc4ac5665L, 23); MD5STEP(F4(b,c,d), a, b, c, d, in[0] + 0xf4292244L, 6); MD5STEP(F4(a,b,c), d, a, b, c, in[7] + 0x432aff97L, 10); MD5STEP(F4(d,a,b), c, d, a, b, in[14] + 0xab9423a7L, 15); MD5STEP(F4(c,d,a), b, c, d, a, in[5] + 0xfc93a039L, 21); MD5STEP(F4(b,c,d), a, b, c, d, in[12] + 0x655b59c3L, 6); MD5STEP(F4(a,b,c), d, a, b, c, in[3] + 0x8f0ccc92L, 10); MD5STEP(F4(d,a,b), c, d, a, b, in[10] + 0xffeff47dL, 15); MD5STEP(F4(c,d,a), b, c, d, a, in[1] + 0x85845dd1L, 21); MD5STEP(F4(b,c,d), a, b, c, d, in[8] + 0x6fa87e4fL, 6); MD5STEP(F4(a,b,c), d, a, b, c, in[15] + 0xfe2ce6e0L, 10); MD5STEP(F4(d,a,b), c, d, a, b, in[6] + 0xa3014314L, 15); MD5STEP(F4(c,d,a), b, c, d, a, in[13] + 0x4e0811a1L, 21); MD5STEP(F4(b,c,d), a, b, c, d, in[4] + 0xf7537e82L, 6); MD5STEP(F4(a,b,c), d, a, b, c, in[11] + 0xbd3af235L, 10); MD5STEP(F4(d,a,b), c, d, a, b, in[2] + 0x2ad7d2bbL, 15); MD5STEP(F4(c,d,a), b, c, d, a, in[9] + 0xeb86d391L, 21); #else MD5STEP(F1, a, b, c, d, in[0] + 0xd76aa478, 7); MD5STEP(F1, d, a, b, c, in[1] + 0xe8c7b756, 12); MD5STEP(F1, c, d, a, b, in[2] + 0x242070db, 17); MD5STEP(F1, b, c, d, a, in[3] + 0xc1bdceee, 22); MD5STEP(F1, a, b, c, d, in[4] + 0xf57c0faf, 7); MD5STEP(F1, d, a, b, c, in[5] + 0x4787c62a, 12); MD5STEP(F1, c, d, a, b, in[6] + 0xa8304613, 17); MD5STEP(F1, b, c, d, a, in[7] + 0xfd469501, 22); MD5STEP(F1, a, b, c, d, in[8] + 0x698098d8, 7); MD5STEP(F1, d, a, b, c, in[9] + 0x8b44f7af, 12); MD5STEP(F1, c, d, a, b, in[10] + 0xffff5bb1, 17); MD5STEP(F1, b, c, d, a, in[11] + 0x895cd7be, 22); MD5STEP(F1, a, b, c, d, in[12] + 0x6b901122, 7); MD5STEP(F1, d, a, b, c, in[13] + 0xfd987193, 12); MD5STEP(F1, c, d, a, b, in[14] + 0xa679438e, 17); MD5STEP(F1, b, c, d, a, in[15] + 0x49b40821, 22); MD5STEP(F2, a, b, c, d, in[1] + 0xf61e2562, 5); MD5STEP(F2, d, a, b, c, in[6] + 0xc040b340, 9); MD5STEP(F2, c, d, a, b, in[11] + 0x265e5a51, 14); MD5STEP(F2, b, c, d, a, in[0] + 0xe9b6c7aa, 20); MD5STEP(F2, a, b, c, d, in[5] + 0xd62f105d, 5); MD5STEP(F2, d, a, b, c, in[10] + 0x02441453, 9); MD5STEP(F2, c, d, a, b, in[15] + 0xd8a1e681, 14); MD5STEP(F2, b, c, d, a, in[4] + 0xe7d3fbc8, 20); MD5STEP(F2, a, b, c, d, in[9] + 0x21e1cde6, 5); MD5STEP(F2, d, a, b, c, in[14] + 0xc33707d6, 9); MD5STEP(F2, c, d, a, b, in[3] + 0xf4d50d87, 14); MD5STEP(F2, b, c, d, a, in[8] + 0x455a14ed, 20); MD5STEP(F2, a, b, c, d, in[13] + 0xa9e3e905, 5); MD5STEP(F2, d, a, b, c, in[2] + 0xfcefa3f8, 9); MD5STEP(F2, c, d, a, b, in[7] + 0x676f02d9, 14); MD5STEP(F2, b, c, d, a, in[12] + 0x8d2a4c8a, 20); MD5STEP(F3, a, b, c, d, in[5] + 0xfffa3942, 4); MD5STEP(F3, d, a, b, c, in[8] + 0x8771f681, 11); MD5STEP(F3, c, d, a, b, in[11] + 0x6d9d6122, 16); MD5STEP(F3, b, c, d, a, in[14] + 0xfde5380c, 23); MD5STEP(F3, a, b, c, d, in[1] + 0xa4beea44, 4); MD5STEP(F3, d, a, b, c, in[4] + 0x4bdecfa9, 11); MD5STEP(F3, c, d, a, b, in[7] + 0xf6bb4b60, 16); MD5STEP(F3, b, c, d, a, in[10] + 0xbebfbc70, 23); MD5STEP(F3, a, b, c, d, in[13] + 0x289b7ec6, 4); MD5STEP(F3, d, a, b, c, in[0] + 0xeaa127fa, 11); MD5STEP(F3, c, d, a, b, in[3] + 0xd4ef3085, 16); MD5STEP(F3, b, c, d, a, in[6] + 0x04881d05, 23); MD5STEP(F3, a, b, c, d, in[9] + 0xd9d4d039, 4); MD5STEP(F3, d, a, b, c, in[12] + 0xe6db99e5, 11); MD5STEP(F3, c, d, a, b, in[15] + 0x1fa27cf8, 16); MD5STEP(F3, b, c, d, a, in[2] + 0xc4ac5665, 23); MD5STEP(F4, a, b, c, d, in[0] + 0xf4292244, 6); MD5STEP(F4, d, a, b, c, in[7] + 0x432aff97, 10); MD5STEP(F4, c, d, a, b, in[14] + 0xab9423a7, 15); MD5STEP(F4, b, c, d, a, in[5] + 0xfc93a039, 21); MD5STEP(F4, a, b, c, d, in[12] + 0x655b59c3, 6); MD5STEP(F4, d, a, b, c, in[3] + 0x8f0ccc92, 10); MD5STEP(F4, c, d, a, b, in[10] + 0xffeff47d, 15); MD5STEP(F4, b, c, d, a, in[1] + 0x85845dd1, 21); MD5STEP(F4, a, b, c, d, in[8] + 0x6fa87e4f, 6); MD5STEP(F4, d, a, b, c, in[15] + 0xfe2ce6e0, 10); MD5STEP(F4, c, d, a, b, in[6] + 0xa3014314, 15); MD5STEP(F4, b, c, d, a, in[13] + 0x4e0811a1, 21); MD5STEP(F4, a, b, c, d, in[4] + 0xf7537e82, 6); MD5STEP(F4, d, a, b, c, in[11] + 0xbd3af235, 10); MD5STEP(F4, c, d, a, b, in[2] + 0x2ad7d2bb, 15); MD5STEP(F4, b, c, d, a, in[9] + 0xeb86d391, 21); #endif buf[0] += a; buf[1] += b; buf[2] += c; buf[3] += d; } /* * This part was added by Brian Costello * For citadel's APOP auth - makes a lower case (as per APOP RFC) * md5 string */ char *make_apop_string(char *realpass, char *nonce, char *buffer, size_t n) { struct MD5Context ctx; u_char rawdigest[MD5_DIGEST_LEN]; int i; MD5Init(&ctx); MD5Update(&ctx, (u_char*)nonce, strlen(nonce)); MD5Update(&ctx, (u_char*)realpass, strlen(realpass)); MD5Final(rawdigest, &ctx); for (i=0; idit room ile elete ile end over net ile ove edit nfo file ill room oom nvite user oom ick out user ser edit alidate new users ho knows room citadel-902/messages/changepw000066400000000000000000000005151271512031400163160ustar00rootroot00000000000000 You should choose a password that no one will ever be able to guess, so no one can abuse your account. In addition, if you even suspect that someone knows your password, change it immediately. Your password will not be echoed to the screen when you type it, and unless you tell someone, no one can find out what your password is. citadel-902/messages/dotopt000066400000000000000000000004071271512031400160330ustar00rootroot00000000000000One of: nter nown ead ide options (aides only) oto: (type room name) kip to: (type room name) elp: (type name of help file) apped rooms list erminate <+>, <-> skip to next, previous room <>>, <<> skip to next, previous floor citadel-902/messages/entermsg000066400000000000000000000002501271512031400163420ustar00rootroot00000000000000Entering message. Word wrap will give you soft linebreaks. Pressing the 'enter' key will give you a hard linebreak and an indent. Press 'enter' twice when finished. citadel-902/messages/entopt000066400000000000000000000003211271512031400160260ustar00rootroot00000000000000One of: message using scii io onfiguration message with ditor loor reistration essage

    "), 0); StrBufAppendBufPlain(this_im->conversation, me->user.fullname, -1, 0); StrBufAppendBufPlain(this_im->conversation, HKEY(": "), 0); StrEscAppend(this_im->conversation, NULL, msgtext, 0, 0); StrBufAppendBufPlain(this_im->conversation, HKEY("

    \r\n"), 0); } end_critical_section(S_IM_LOGS); } /* * Delete any remaining instant messages */ void delete_instant_messages(void) { struct ExpressMessage *ptr; begin_critical_section(S_SESSION_TABLE); while (CC->FirstExpressMessage != NULL) { ptr = CC->FirstExpressMessage->next; if (CC->FirstExpressMessage->text != NULL) free(CC->FirstExpressMessage->text); free(CC->FirstExpressMessage); CC->FirstExpressMessage = ptr; } end_critical_section(S_SESSION_TABLE); } /* * Retrieve instant messages */ void cmd_gexp(char *argbuf) { struct ExpressMessage *ptr; if (CC->FirstExpressMessage == NULL) { cprintf("%d No instant messages waiting.\n", ERROR + MESSAGE_NOT_FOUND); return; } begin_critical_section(S_SESSION_TABLE); ptr = CC->FirstExpressMessage; CC->FirstExpressMessage = CC->FirstExpressMessage->next; end_critical_section(S_SESSION_TABLE); cprintf("%d %d|%ld|%d|%s|%s|%s\n", LISTING_FOLLOWS, ((ptr->next != NULL) ? 1 : 0), /* more msgs? */ (long)ptr->timestamp, /* time sent */ ptr->flags, /* flags */ ptr->sender, /* sender of msg */ CtdlGetConfigStr("c_nodename"), /* static for now (and possibly deprecated) */ ptr->sender_email /* email or jid of sender */ ); if (ptr->text != NULL) { memfmout(ptr->text, "\n"); free(ptr->text); } cprintf("000\n"); free(ptr); } /* * Asynchronously deliver instant messages */ void cmd_gexp_async(void) { /* Only do this if the session can handle asynchronous protocol */ if (CC->is_async == 0) return; /* And don't do it if there's nothing to send. */ if (CC->FirstExpressMessage == NULL) return; cprintf("%d instant msg\n", ASYNC_MSG + ASYNC_GEXP); } /* * Back end support function for send_instant_message() and company */ void add_xmsg_to_context(struct CitContext *ccptr, struct ExpressMessage *newmsg) { struct ExpressMessage *findend; if (ccptr->FirstExpressMessage == NULL) { ccptr->FirstExpressMessage = newmsg; } else { findend = ccptr->FirstExpressMessage; while (findend->next != NULL) { findend = findend->next; } findend->next = newmsg; } /* If the target context is a session which can handle asynchronous * messages, go ahead and set the flag for that. */ set_async_waiting(ccptr); } /* * This is the back end to the instant message sending function. * Returns the number of users to which the message was sent. * Sending a zero-length message tests for recipients without sending messages. */ int send_instant_message(char *lun, char *lem, char *x_user, char *x_msg) { int message_sent = 0; /* number of successful sends */ struct CitContext *ccptr; struct ExpressMessage *newmsg = NULL; char *un; int do_send = 0; /* 1 = send message; 0 = only check for valid recipient */ static int serial_number = 0; /* this keeps messages from getting logged twice */ if (!IsEmptyStr(x_msg)) { do_send = 1; } /* find the target user's context and append the message */ begin_critical_section(S_SESSION_TABLE); ++serial_number; for (ccptr = ContextList; ccptr != NULL; ccptr = ccptr->next) { if (ccptr->fake_username[0]) { un = ccptr->fake_username; } else { un = ccptr->user.fullname; } if ( ((!strcasecmp(un, x_user)) || (!strcasecmp(x_user, "broadcast"))) && (ccptr->can_receive_im) && ((ccptr->disable_exp == 0) || (CC->user.axlevel >= AxAideU)) ) { if (do_send) { newmsg = (struct ExpressMessage *) malloc(sizeof (struct ExpressMessage)); memset(newmsg, 0, sizeof (struct ExpressMessage)); time(&(newmsg->timestamp)); safestrncpy(newmsg->sender, lun, sizeof newmsg->sender); safestrncpy(newmsg->sender_email, lem, sizeof newmsg->sender_email); if (!strcasecmp(x_user, "broadcast")) { newmsg->flags |= EM_BROADCAST; } newmsg->text = strdup(x_msg); add_xmsg_to_context(ccptr, newmsg); /* and log it ... */ if (ccptr != CC) { log_instant_message(CC, ccptr, newmsg->text, serial_number); } } ++message_sent; } } end_critical_section(S_SESSION_TABLE); return (message_sent); } /* * send instant messages */ void cmd_sexp(char *argbuf) { int message_sent = 0; char x_user[USERNAME_SIZE]; char x_msg[1024]; char *lun; char *lem; char *x_big_msgbuf = NULL; if ((!(CC->logged_in)) && (!(CC->internal_pgm))) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); return; } if (CC->fake_username[0]) lun = CC->fake_username; else lun = CC->user.fullname; lem = CC->cs_inet_email; extract_token(x_user, argbuf, 0, '|', sizeof x_user); extract_token(x_msg, argbuf, 1, '|', sizeof x_msg); if (!x_user[0]) { cprintf("%d You were not previously paged.\n", ERROR + NO_SUCH_USER); return; } if ((!strcasecmp(x_user, "broadcast")) && (CC->user.axlevel < AxAideU)) { cprintf("%d Higher access required to send a broadcast.\n", ERROR + HIGHER_ACCESS_REQUIRED); return; } /* This loop handles text-transfer pages */ if (!strcmp(x_msg, "-")) { message_sent = PerformXmsgHooks(lun, lem, x_user, ""); if (message_sent == 0) { if (CtdlGetUser(NULL, x_user)) cprintf("%d '%s' does not exist.\n", ERROR + NO_SUCH_USER, x_user); else cprintf("%d '%s' is not logged in " "or is not accepting pages.\n", ERROR + RESOURCE_NOT_OPEN, x_user); return; } unbuffer_output(); cprintf("%d Transmit message (will deliver to %d users)\n", SEND_LISTING, message_sent); x_big_msgbuf = malloc(SIZ); memset(x_big_msgbuf, 0, SIZ); while (client_getln(x_msg, sizeof x_msg) >= 0 && strcmp(x_msg, "000")) { x_big_msgbuf = realloc(x_big_msgbuf, strlen(x_big_msgbuf) + strlen(x_msg) + 4); if (!IsEmptyStr(x_big_msgbuf)) if (x_big_msgbuf[strlen(x_big_msgbuf)] != '\n') strcat(x_big_msgbuf, "\n"); strcat(x_big_msgbuf, x_msg); } PerformXmsgHooks(lun, lem, x_user, x_big_msgbuf); free(x_big_msgbuf); /* This loop handles inline pages */ } else { message_sent = PerformXmsgHooks(lun, lem, x_user, x_msg); if (message_sent > 0) { if (!IsEmptyStr(x_msg)) cprintf("%d Message sent", CIT_OK); else cprintf("%d Ok to send message", CIT_OK); if (message_sent > 1) cprintf(" to %d users", message_sent); cprintf(".\n"); } else { if (CtdlGetUser(NULL, x_user)) cprintf("%d '%s' does not exist.\n", ERROR + NO_SUCH_USER, x_user); else cprintf("%d '%s' is not logged in " "or is not accepting pages.\n", ERROR + RESOURCE_NOT_OPEN, x_user); } } } /* * Enter or exit paging-disabled mode */ void cmd_dexp(char *argbuf) { int new_state; if (CtdlAccessCheck(ac_logged_in)) return; new_state = extract_int(argbuf, 0); if ((new_state == 0) || (new_state == 1)) { CC->disable_exp = new_state; } cprintf("%d %d\n", CIT_OK, CC->disable_exp); } /* * Request client termination */ void cmd_reqt(char *argbuf) { struct CitContext *ccptr; int sessions = 0; int which_session; struct ExpressMessage *newmsg; if (CtdlAccessCheck(ac_aide)) return; which_session = extract_int(argbuf, 0); begin_critical_section(S_SESSION_TABLE); for (ccptr = ContextList; ccptr != NULL; ccptr = ccptr->next) { if ((ccptr->cs_pid == which_session) || (which_session == 0)) { newmsg = (struct ExpressMessage *) malloc(sizeof (struct ExpressMessage)); memset(newmsg, 0, sizeof (struct ExpressMessage)); time(&(newmsg->timestamp)); safestrncpy(newmsg->sender, CC->user.fullname, sizeof newmsg->sender); newmsg->flags |= EM_GO_AWAY; newmsg->text = strdup("Automatic logoff requested."); add_xmsg_to_context(ccptr, newmsg); ++sessions; } } end_critical_section(S_SESSION_TABLE); cprintf("%d Sent termination request to %d sessions.\n", CIT_OK, sessions); } /* * This is the back end for flush_conversations_to_disk() * At this point we've isolated a single conversation (struct imlog) * and are ready to write it to disk. */ void flush_individual_conversation(struct imlog *im) { struct CtdlMessage *msg; long msgnum = 0; char roomname[ROOMNAMELEN]; StrBuf *MsgBuf, *FullMsgBuf; StrBufAppendBufPlain(im->conversation, HKEY( "\r\n" "\r\n" ), 0 ); MsgBuf = StrBufRFC2047encodeMessage(im->conversation); FlushStrBuf(im->conversation); FullMsgBuf = NewStrBufPlain(NULL, StrLength(im->conversation) + 100); StrBufAppendBufPlain(FullMsgBuf, HKEY( "Content-type: text/html; charset=UTF-8\r\n" "Content-Transfer-Encoding: quoted-printable\r\n" "\r\n" ), 0); StrBufAppendBuf (FullMsgBuf, MsgBuf, 0); FreeStrBuf(&MsgBuf); msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = FMT_RFC822; if (!IsEmptyStr(im->usernames[0])) { CM_SetField(msg, eAuthor, im->usernames[0], strlen(im->usernames[0])); } else { CM_SetField(msg, eAuthor, HKEY("Citadel")); } if (!IsEmptyStr(im->usernames[1])) { CM_SetField(msg, eRecipient, im->usernames[1], strlen(im->usernames[1])); } CM_SetField(msg, eOriginalRoom, HKEY(PAGELOGROOM)); CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetAsFieldSB(msg, eMesageText, &FullMsgBuf); /* we own this memory now */ /* Start with usernums[1] because it's guaranteed to be higher than usernums[0], * so if there's only one party, usernums[0] will be zero but usernums[1] won't. * Create the room if necessary. Note that we create as a type 5 room rather * than 4, which indicates that it's a personal room but we've already supplied * the namespace prefix. * * In the unlikely event that usernums[1] is zero, a room with an invalid namespace * prefix will be created. That's ok because the auto-purger will clean it up later. */ snprintf(roomname, sizeof roomname, "%010ld.%s", im->usernums[1], PAGELOGROOM); CtdlCreateRoom(roomname, 5, "", 0, 1, 1, VIEW_BBS); msgnum = CtdlSubmitMsg(msg, NULL, roomname, 0); CM_Free(msg); /* If there is a valid user number in usernums[0], save a copy for them too. */ if (im->usernums[0] > 0) { snprintf(roomname, sizeof roomname, "%010ld.%s", im->usernums[0], PAGELOGROOM); CtdlCreateRoom(roomname, 5, "", 0, 1, 1, VIEW_BBS); CtdlSaveMsgPointerInRoom(roomname, msgnum, 0, NULL); } /* Finally, if we're logging instant messages globally, do that now. */ if (!IsEmptyStr(CtdlGetConfigStr("c_logpages"))) { CtdlCreateRoom(CtdlGetConfigStr("c_logpages"), 3, "", 0, 1, 1, VIEW_BBS); CtdlSaveMsgPointerInRoom(CtdlGetConfigStr("c_logpages"), msgnum, 0, NULL); } } /* * Locate instant message conversations which have gone idle * (or, if the server is shutting down, locate *all* conversations) * and flush them to disk (in the participants' log rooms, etc.) */ void flush_conversations_to_disk(time_t if_older_than) { struct imlog *flush_these = NULL; struct imlog *dont_flush_these = NULL; struct imlog *imptr = NULL; struct CitContext *nptr; int nContexts, i; nptr = CtdlGetContextArray(&nContexts) ; /* Make a copy of the current wholist */ begin_critical_section(S_IM_LOGS); while (imlist) { imptr = imlist; imlist = imlist->next; /* For a two party conversation, if one party has logged out, force flush. */ if (nptr) { int user0_is_still_online = 0; int user1_is_still_online = 0; for (i=0; iusernums[0]) ++user0_is_still_online; if (nptr[i].user.usernum == imptr->usernums[1]) ++user1_is_still_online; } if (imptr->usernums[0] != imptr->usernums[1]) { /* two party conversation */ if ((!user0_is_still_online) || (!user1_is_still_online)) { imptr->lastmsg = 0L; /* force flush */ } } else { /* one party conversation (yes, people do IM themselves) */ if (!user0_is_still_online) { imptr->lastmsg = 0L; /* force flush */ } } } /* Now test this conversation to see if it qualifies for flushing. */ if ((time(NULL) - imptr->lastmsg) > if_older_than) { /* This conversation qualifies. Move it to the list of ones to flush. */ imptr->next = flush_these; flush_these = imptr; } else { /* Move it to the list of ones not to flush. */ imptr->next = dont_flush_these; dont_flush_these = imptr; } } imlist = dont_flush_these; end_critical_section(S_IM_LOGS); free(nptr); /* We are now outside of the critical section, and we are the only thread holding a * pointer to a linked list of conversations to be flushed to disk. */ while (flush_these) { flush_individual_conversation(flush_these); /* This will free the string buffer */ imptr = flush_these; flush_these = flush_these->next; free(imptr); } } void instmsg_timer(void) { flush_conversations_to_disk(300); /* Anything that hasn't peeped in more than 5 minutes */ } void instmsg_shutdown(void) { flush_conversations_to_disk(0); /* Get it ALL onto disk NOW. */ } CTDL_MODULE_INIT(instmsg) { if (!threading) { CtdlRegisterProtoHook(cmd_gexp, "GEXP", "Get instant messages"); CtdlRegisterProtoHook(cmd_sexp, "SEXP", "Send an instant message"); CtdlRegisterProtoHook(cmd_dexp, "DEXP", "Disable instant messages"); CtdlRegisterProtoHook(cmd_reqt, "REQT", "Request client termination"); CtdlRegisterSessionHook(cmd_gexp_async, EVT_ASYNC, PRIO_ASYNC + 1); CtdlRegisterSessionHook(delete_instant_messages, EVT_STOP, PRIO_STOP + 1); CtdlRegisterXmsgHook(send_instant_message, XMSG_PRI_LOCAL); CtdlRegisterSessionHook(instmsg_timer, EVT_TIMER, PRIO_CLEANUP + 400); CtdlRegisterSessionHook(instmsg_shutdown, EVT_SHUTDOWN, PRIO_SHUTDOWN + 10); } /* return our module name for the log */ return "instmsg"; } citadel-902/modules/instmsg/serv_instmsg.h000066400000000000000000000005331271512031400210200ustar00rootroot00000000000000#include "ctdl_module.h" void ChatUnloadingTest(void); void allwrite (char *cmdbuf, int flag, char *username); CitContext *find_context (char **unstr); void cmd_pexp (char *argbuf); /* arg unused */ void cmd_sexp (char *argbuf); void delete_instant_messages(void); void cmd_gexp(char *); int send_instant_message(char *, char *, char *, char *); citadel-902/modules/listsub/000077500000000000000000000000001271512031400161245ustar00rootroot00000000000000citadel-902/modules/listsub/serv_listsub.c000066400000000000000000000437731271512031400210320ustar00rootroot00000000000000/* * This module handles self-service subscription/unsubscription to mail lists. * * Copyright (c) 2002-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "clientsocket.h" #include "ctdl_module.h" /* * Generate a randomizationalisticized token to use for authentication of * a subscribe or unsubscribe request. */ void listsub_generate_token(char *buf) { char sourcebuf[SIZ]; static int seq = 0; size_t len; /* Theo, please sit down and shut up. This key doesn't have to be * tinfoil-hat secure, it just needs to be reasonably unguessable * and unique. */ len = sprintf(sourcebuf, "%lx", (long) (++seq + getpid() + time(NULL))); /* Convert it to base64 so it looks cool */ len = CtdlEncodeBase64(buf, sourcebuf, len, 0); if (buf[len - 1] == '\n') { buf[len - 1] = '\0'; } } const RoomNetCfg ActiveSubscribers[] = {listrecp, digestrecp}; int CountThisSubscriber(OneRoomNetCfg *OneRNCfg, StrBuf *email) { RoomNetCfgLine *Line; int found_sub = 0; int i; for (i = 0; i < 2; i++) { Line = OneRNCfg->NetConfigs[ActiveSubscribers[i]]; while (Line != NULL) { if (!strcmp(ChrPtr(email), ChrPtr(Line->Value[0]))) { ++found_sub; break; } Line = Line->next; } } return found_sub; } /* * Enter a subscription request */ void do_subscribe(StrBuf **room, StrBuf **email, StrBuf **subtype, StrBuf **webpage) { struct ctdlroom qrbuf; char token[256]; char *pcf_req; StrBuf *cf_req; StrBuf *UrlRoom; int found_sub = 0; const char *RoomMailAddress; OneRoomNetCfg *OneRNCfg; RoomNetCfgLine *Line; const char *EmailSender = NULL; long RoomMailAddressLen; if (CtdlGetRoom(&qrbuf, ChrPtr(*room)) != 0) { cprintf("%d There is no list called '%s'\n", ERROR + ROOM_NOT_FOUND, ChrPtr(*room)); return; } if ((qrbuf.QRflags2 & QR2_SELFLIST) == 0) { cprintf("%d '%s' " "does not accept subscribe/unsubscribe requests.\n", ERROR + HIGHER_ACCESS_REQUIRED, qrbuf.QRname); return; } /* * Make sure the requested address isn't already subscribed */ begin_critical_section(S_NETCONFIGS); RoomMailAddress = qrbuf.QRname; OneRNCfg = CtdlGetNetCfgForRoom(qrbuf.QRnumber); if (OneRNCfg != NULL) { found_sub = CountThisSubscriber(OneRNCfg, *email); if (StrLength(OneRNCfg->Sender) > 0) { EmailSender = RoomMailAddress = ChrPtr(OneRNCfg->Sender); } } if (found_sub != 0) { cprintf("%d '%s' is already subscribed to '%s'.\n", ERROR + ALREADY_EXISTS, ChrPtr(*email), RoomMailAddress); FreeRoomNetworkStruct(&OneRNCfg); end_critical_section(S_NETCONFIGS); return; } /* * Now add it to the config */ RoomMailAddressLen = strlen(RoomMailAddress); listsub_generate_token(token); Line = (RoomNetCfgLine*)malloc(sizeof(RoomNetCfgLine)); memset(Line, 0, sizeof(RoomNetCfgLine)); Line->Value = (StrBuf**) malloc(sizeof(StrBuf*) * 5); Line->Value[0] = NewStrBufDup(*email); Line->Value[1] = *subtype; *subtype = NULL; Line->Value[2] = NewStrBufPlain(token, -1); Line->Value[3] = NewStrBufPlain(NULL, 10); StrBufPrintf(Line->Value[3], "%ld", time(NULL)); Line->Value[4] = *webpage; *webpage = NULL; Line->nValues = 5; AddRoomCfgLine(OneRNCfg, &qrbuf, subpending, Line); /* Generate and send the confirmation request */ UrlRoom = NewStrBuf(); StrBufUrlescAppend(UrlRoom, NULL, qrbuf.QRname); cf_req = NewStrBufPlain(NULL, 2048); StrBufAppendBufPlain( cf_req, HKEY("MIME-Version: 1.0\n" "Content-Type: multipart/alternative; boundary=\"__ctdlmultipart__\"\n" "\n" "This is a multipart message in MIME format.\n" "\n" "--__ctdlmultipart__\n" "Content-type: text/plain\n" "\n" "Someone (probably you) has submitted a request to subscribe\n" "<"), 0); StrBufAppendBuf(cf_req, Line->Value[0], 0); StrBufAppendBufPlain(cf_req, HKEY("> to the '"), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list.\n" "\n" "Please go here to confirm this request:\n" " "), 0); StrBufAppendBuf(cf_req, Line->Value[4], 0); StrBufAppendBufPlain(cf_req, HKEY("?room="), 0); StrBufAppendBuf(cf_req, UrlRoom, 0); StrBufAppendBufPlain(cf_req, HKEY("&token="), 0); StrBufAppendBuf(cf_req, Line->Value[2], 0); StrBufAppendBufPlain( cf_req, HKEY("&cmd=confirm \n" "\n" "If this request has been submitted in error and you do not\n" "wish to receive the '"), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list, simply do nothing,\n" "and you will not receive any further mailings.\n" "\n" "--__ctdlmultipart__\n" "Content-type: text/html\n" "\n" "\n" "Someone (probably you) has submitted a request to subscribe\n" "<"), 0); StrBufAppendBuf(cf_req, Line->Value[0], 0); StrBufAppendBufPlain(cf_req, HKEY( "> to the "), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list.

    \n" "Please click here to confirm this request:
    \n" "    Value[4], 0); StrBufAppendBufPlain(cf_req, HKEY("?room="), 0); StrBufAppendBuf(cf_req, UrlRoom, 0); StrBufAppendBufPlain(cf_req, HKEY("&token="), 0); StrBufAppendBuf(cf_req, Line->Value[2], 0); StrBufAppendBufPlain(cf_req, HKEY("&cmd=confirm\">"), 0); StrBufAppendBuf(cf_req, Line->Value[4], 0); StrBufAppendBufPlain(cf_req, HKEY("?room="), 0); StrBufAppendBuf(cf_req, UrlRoom, 0); StrBufAppendBufPlain(cf_req, HKEY("&token="), 0); StrBufAppendBuf(cf_req, Line->Value[2], 0); StrBufAppendBufPlain( cf_req, HKEY("&cmd=confirm

    \n" "If this request has been submitted in error and you do not\n" "wish to receive the '"), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list, simply do nothing,\n" "and you will not receive any further mailings.\n" "\n" "\n" "--__ctdlmultipart__--\n"), 0); SaveRoomNetConfigFile(OneRNCfg, qrbuf.QRnumber); FreeRoomNetworkStruct(&OneRNCfg); end_critical_section(S_NETCONFIGS); pcf_req = SmashStrBuf(&cf_req); quickie_message( /* This delivers the message */ "Citadel", EmailSender, ChrPtr(*email), NULL, pcf_req, FMT_RFC822, "Please confirm your list subscription" ); free(pcf_req); cprintf("%d Subscription entered; confirmation request sent\n", CIT_OK); FreeStrBuf(&UrlRoom); } /* * Enter an unsubscription request */ void do_unsubscribe(StrBuf **room, StrBuf **email, StrBuf **webpage) { struct ctdlroom qrbuf; const char *EmailSender = NULL; char token[256]; char *pcf_req; StrBuf *cf_req; StrBuf *UrlRoom; int found_sub = 0; const char *RoomMailAddress; OneRoomNetCfg *OneRNCfg; RoomNetCfgLine *Line; long RoomMailAddressLen; if (CtdlGetRoom(&qrbuf, ChrPtr(*room)) != 0) { cprintf("%d There is no list called '%s'\n", ERROR + ROOM_NOT_FOUND, ChrPtr(*room)); return; } if ((qrbuf.QRflags2 & QR2_SELFLIST) == 0) { cprintf("%d '%s' " "does not accept subscribe/unsubscribe requests.\n", ERROR + HIGHER_ACCESS_REQUIRED, qrbuf.QRname); return; } listsub_generate_token(token); /* * Make sure there's actually a subscription there to remove */ begin_critical_section(S_NETCONFIGS); RoomMailAddress = qrbuf.QRname; OneRNCfg = CtdlGetNetCfgForRoom(qrbuf.QRnumber); if (OneRNCfg!=NULL) { found_sub = CountThisSubscriber(OneRNCfg, *email); if (StrLength(OneRNCfg->Sender) > 0) EmailSender = RoomMailAddress = ChrPtr(OneRNCfg->Sender); } if (found_sub == 0) { cprintf("%d '%s' is not subscribed to '%s'.\n", ERROR + NO_SUCH_USER, ChrPtr(*email), qrbuf.QRname); FreeRoomNetworkStruct(&OneRNCfg); end_critical_section(S_NETCONFIGS); return; } /* * Ok, now enter the unsubscribe-pending entry. */ RoomMailAddressLen = strlen(RoomMailAddress); listsub_generate_token(token); Line = (RoomNetCfgLine*)malloc(sizeof(RoomNetCfgLine)); memset(Line, 0, sizeof(RoomNetCfgLine)); Line->Value = (StrBuf**) malloc(sizeof(StrBuf*) * 4); Line->Value[0] = NewStrBufDup(*email); Line->Value[1] = NewStrBufPlain(token, -1); Line->Value[2] = NewStrBufPlain(NULL, 10); StrBufPrintf(Line->Value[2], "%ld", time(NULL)); Line->Value[3] = *webpage; *webpage = NULL; Line->nValues = 4; AddRoomCfgLine(OneRNCfg, &qrbuf, unsubpending, Line); /* Generate and send the confirmation request */ UrlRoom = NewStrBuf(); StrBufUrlescAppend(UrlRoom, NULL, qrbuf.QRname); cf_req = NewStrBufPlain(NULL, 2048); StrBufAppendBufPlain( cf_req, HKEY("MIME-Version: 1.0\n" "Content-Type: multipart/alternative; boundary=\"__ctdlmultipart__\"\n" "\n" "This is a multipart message in MIME format.\n" "\n" "--__ctdlmultipart__\n" "Content-type: text/plain\n" "\n" "Someone (probably you) has submitted a request to unsubscribe\n" "<"), 0); StrBufAppendBuf(cf_req, Line->Value[0], 0); StrBufAppendBufPlain( cf_req, HKEY("> from the '"), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list.\n" "\n" "Please go here to confirm this request:\n "), 0); StrBufAppendBuf(cf_req, Line->Value[3], 0); StrBufAppendBufPlain(cf_req, HKEY("?room="), 0); StrBufAppendBuf(cf_req, UrlRoom, 0); StrBufAppendBufPlain(cf_req, HKEY("&token="), 0); StrBufAppendBuf(cf_req, Line->Value[1], 0); StrBufAppendBufPlain( cf_req, HKEY("&cmd=confirm \n" "\n" "If this request has been submitted in error and you do not\n" "wish to unsubscribe from the '"), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list, simply do nothing,\n" "and the request will not be processed.\n" "\n" "--__ctdlmultipart__\n" "Content-type: text/html\n" "\n" "\n" "Someone (probably you) has submitted a request to unsubscribe\n" "<"), 0); StrBufAppendBuf(cf_req, Line->Value[0], 0); StrBufAppendBufPlain(cf_req, HKEY("> from the "), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY(" mailing list.

    \n" "Please click here to confirm this request:
    \n" "Value[3], 0); StrBufAppendBufPlain(cf_req, HKEY("?room="), 0); StrBufAppendBuf(cf_req, UrlRoom, 0); StrBufAppendBufPlain(cf_req, HKEY("&token="), 0); StrBufAppendBuf(cf_req, Line->Value[1], 0); StrBufAppendBufPlain(cf_req, HKEY("&cmd=confirm\">"), 0); StrBufAppendBuf(cf_req, Line->Value[3], 0); StrBufAppendBufPlain(cf_req, HKEY("?room="), 0); StrBufAppendBuf(cf_req, UrlRoom, 0); StrBufAppendBufPlain(cf_req, HKEY("&token="), 0); StrBufAppendBuf(cf_req, Line->Value[1], 0); StrBufAppendBufPlain( cf_req, HKEY("&cmd=confirm

    \n" "If this request has been submitted in error and you do not\n" "wish to unsubscribe from the '"), 0); StrBufAppendBufPlain(cf_req, RoomMailAddress, RoomMailAddressLen, 0); StrBufAppendBufPlain( cf_req, HKEY("' mailing list, simply do nothing,\n" "and the request will not be processed.\n" "\n" "\n" "--__ctdlmultipart__--\n"), 0); SaveRoomNetConfigFile(OneRNCfg, qrbuf.QRnumber); FreeRoomNetworkStruct(&OneRNCfg); end_critical_section(S_NETCONFIGS); pcf_req = SmashStrBuf(&cf_req); quickie_message( /* This delivers the message */ "Citadel", EmailSender, ChrPtr(*email), NULL, pcf_req, FMT_RFC822, "Please confirm your unsubscribe request" ); free(pcf_req); FreeStrBuf(&UrlRoom); cprintf("%d Unubscription noted; confirmation request sent\n", CIT_OK); } const RoomNetCfg ConfirmSubscribers[] = {subpending, unsubpending}; /* * Confirm a subscribe/unsubscribe request. */ void do_confirm(StrBuf **room, StrBuf **token) { struct ctdlroom qrbuf; OneRoomNetCfg *OneRNCfg; RoomNetCfgLine *Line; RoomNetCfgLine *ConfirmLine = NULL; RoomNetCfgLine *RemoveLine = NULL; RoomNetCfgLine **PrevLine; int success = 0; RoomNetCfg ConfirmType; const char *errmsg = ""; int i; if (CtdlGetRoom(&qrbuf, ChrPtr(*room)) != 0) { cprintf("%d There is no list called '%s'\n", ERROR + ROOM_NOT_FOUND, ChrPtr(*room)); return; } if ((qrbuf.QRflags2 & QR2_SELFLIST) == 0) { cprintf("%d '%s' " "does not accept subscribe/unsubscribe requests.\n", ERROR + HIGHER_ACCESS_REQUIRED, qrbuf.QRname); return; } if (StrLength(*token) == 0) { cprintf("%d empty token.\n", ERROR + ILLEGAL_VALUE); return; } /* * Now start scanning this room's netconfig file for the * specified token. */ begin_critical_section(S_NETCONFIGS); OneRNCfg = CtdlGetNetCfgForRoom(qrbuf.QRnumber); ConfirmType = maxRoomNetCfg; if (OneRNCfg==NULL) { errmsg = "no networking config found"; } else for (i = 0; i < 2; i++) { int offset; if (ConfirmSubscribers[i] == subpending) offset = 2; else offset = 1; PrevLine = &OneRNCfg->NetConfigs[ConfirmSubscribers[i]]; Line = *PrevLine; while (Line != NULL) { if (!strcasecmp(ChrPtr(*token), ChrPtr(Line->Value[offset]))) { ConfirmLine = Line; *PrevLine = Line->next; /* Remove it from the list */ ConfirmType = ConfirmSubscribers[i]; ConfirmLine->next = NULL; i += 100; break; } PrevLine = &(*PrevLine)->next; Line = Line->next; } if (ConfirmType == maxRoomNetCfg) { errmsg = "No active un/subscribe request found"; } } if (ConfirmType == subpending) { if (CountThisSubscriber(OneRNCfg, ConfirmLine->Value[0]) == 0) { if (!strcasecmp(ChrPtr(ConfirmLine->Value[2]), ("digest"))) { ConfirmType = digestrecp; } else /* "list" */ { ConfirmType = listrecp; } syslog(LOG_NOTICE, "Mailing list: %s subscribed to %s with token %s\n", ChrPtr(ConfirmLine->Value[0]), qrbuf.QRname, ChrPtr(*token)); FreeStrBuf(&ConfirmLine->Value[1]); FreeStrBuf(&ConfirmLine->Value[2]); FreeStrBuf(&ConfirmLine->Value[3]); FreeStrBuf(&ConfirmLine->Value[4]); ConfirmLine->nValues = 1; AddRoomCfgLine(OneRNCfg, &qrbuf, ConfirmType, ConfirmLine); success = 1; } else { /* whipe duplicate subscribe entry... */ errmsg = "already subscribed"; } } else if (ConfirmType == unsubpending) { for (i = 0; i < 2; i++) { PrevLine = &OneRNCfg->NetConfigs[ActiveSubscribers[i]]; Line = *PrevLine; while (Line != NULL) { if (!strcasecmp(ChrPtr(ConfirmLine->Value[0]), ChrPtr(Line->Value[0]))) { success = 1; RemoveLine = Line; *PrevLine = Line->next; /* Remove it from the list */ RemoveLine->next = NULL; if (RemoveLine != NULL) DeleteGenericCfgLine(NULL/*TODO*/, &RemoveLine); Line = *PrevLine; continue; } PrevLine = &(*PrevLine)->next; Line = Line->next; } } if (success) { syslog(LOG_NOTICE, "Mailing list: %s unsubscribed to %s with token %s\n", ChrPtr(ConfirmLine->Value[0]), qrbuf.QRname, ChrPtr(*token)); } else { errmsg = "no subscriber found for this unsubscription request"; } DeleteGenericCfgLine(NULL/*TODO*/, &ConfirmLine); } SaveRoomNetConfigFile(OneRNCfg, qrbuf.QRnumber); FreeRoomNetworkStruct(&OneRNCfg); end_critical_section(S_NETCONFIGS); /* * Did we do anything useful today? */ if (success) { cprintf("%d %d operation(s) confirmed.\n", CIT_OK, success); } else { syslog(LOG_NOTICE, "failed processing (un)subscribe request: %s", errmsg); cprintf("%d Invalid token.\n", ERROR + ILLEGAL_VALUE); } } /* * process subscribe/unsubscribe requests and confirmations */ void cmd_subs(char *cmdbuf) { const char *Pos = NULL; StrBuf *Segments[20]; int i=1; memset(Segments, 0, sizeof(StrBuf*) * 20); Segments[0] = NewStrBufPlain(cmdbuf, -1); while ((Pos != StrBufNOTNULL) && (i < 20)) { Segments[i] = NewStrBufPlain(NULL, StrLength(Segments[0])); StrBufExtract_NextToken(Segments[i], Segments[0], &Pos, '|'); i++; } if (!strcasecmp(ChrPtr(Segments[1]), "subscribe")) { if ( (strcasecmp(ChrPtr(Segments[4]), "list")) && (strcasecmp(ChrPtr(Segments[4]), "digest")) ) { cprintf("%d Invalid subscription type '%s'\n", ERROR + ILLEGAL_VALUE, ChrPtr(Segments[4])); } else { do_subscribe(&Segments[2], &Segments[3], &Segments[4], &Segments[5]); } } else if (!strcasecmp(ChrPtr(Segments[1]), "unsubscribe")) { do_unsubscribe(&Segments[2], &Segments[3], &Segments[4]); } else if (!strcasecmp(ChrPtr(Segments[1]), "confirm")) { do_confirm(&Segments[2], &Segments[3]); } else { cprintf("%d Invalid command\n", ERROR + ILLEGAL_VALUE); } for (; i>=0; i--) { FreeStrBuf(&Segments[i]); } } /* * Module entry point */ CTDL_MODULE_INIT(listsub) { if (!threading) { CtdlRegisterProtoHook(cmd_subs, "SUBS", "List subscribe/unsubscribe"); } /* return our module name for the log */ return "listsub"; } citadel-902/modules/managesieve/000077500000000000000000000000001271512031400167235ustar00rootroot00000000000000citadel-902/modules/managesieve/serv_managesieve.c000066400000000000000000000346221271512031400224210ustar00rootroot00000000000000/* * This module is an managesieve implementation for the Citadel system. * It is compliant with all of the following: * * http://tools.ietf.org/html/draft-martin-managesieve-06 * as this draft expires with this writing, you might need to search for * the new one. * * Copyright (c) 2007-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "serv_sieve.h" /* * http://tools.ietf.org/html/draft-martin-managesieve-06 * * this is the draft this code tries to implement. */ struct citmgsve { int command_state; /**< Information about the current session */ char *transmitted_message; size_t transmitted_length; char *imap_format_outstring; int imap_outstring_length; }; enum { /** Command states for login authentication */ mgsve_command, mgsve_tls, mgsve_user, mgsve_password, mgsve_plain }; #define MGSVE ((struct citmgsve *)CC->session_specific_data) int old_imap_parameterize(char** args, char *in) { char* out = in; int num = 0; for (;;) { /* Skip whitespace. */ while (isspace(*in)) in++; if (*in == 0) break; /* Found the start of a token. */ args[num++] = out; /* Read in the token. */ for (;;) { int c = *in++; if (isspace(c)) break; if (c == '\"') { /* Found a quoted section. */ for (;;) { c = *in++; if (c == '\"') break; else if (c == '\\') c = *in++; *out++ = c; if (c == 0) return num; } } else if (c == '\\') { c = *in++; *out++ = c; } else *out++ = c; if (c == 0) return num; } *out++ = '\0'; } return num; } /*****************************************************************************/ /* MANAGESIEVE Server */ /*****************************************************************************/ void sieve_outbuf_append(char *str) { size_t newlen = strlen(str)+1; size_t oldlen = (MGSVE->imap_format_outstring==NULL)? 0 : strlen(MGSVE->imap_format_outstring)+2; char *buf = malloc ( newlen + oldlen + 10 ); buf[0]='\0'; if (oldlen!=0) sprintf(buf,"%s%s",MGSVE->imap_format_outstring, str); else memcpy(buf, str, newlen); if (oldlen != 0) free (MGSVE->imap_format_outstring); MGSVE->imap_format_outstring = buf; } /** * Capability listing. Printed as greeting or on "CAPABILITIES" * see Section 1.8 ; 2.4 */ void cmd_mgsve_caps(void) { cprintf("\"IMPLEMENTATION\" \"CITADEL Sieve " PACKAGE_VERSION "\"\r\n" "\"SASL\" \"PLAIN\"\r\n" /*DIGEST-MD5 GSSAPI SASL sucks.*/ #ifdef HAVE_OPENSSL /* if TLS is already there, should we say that again? */ "\"STARTTLS\"\r\n" #endif "\"SIEVE\" \"%s\"\r\n" "OK\r\n", msiv_extensions); } /* * Here's where our managesieve session begins its happy day. */ void managesieve_greeting(void) { strcpy(CC->cs_clientname, "Managesieve session"); CC->internal_pgm = 0; CC->cs_flags |= CS_STEALTH; CC->session_specific_data = malloc(sizeof(struct citmgsve)); memset(MGSVE, 0, sizeof(struct citmgsve)); cmd_mgsve_caps(); } long GetSizeToken(char * token) { char *cursor = token; char *number; while (!IsEmptyStr(cursor) && (*cursor != '{')) { cursor++; } if (IsEmptyStr(cursor)) return -1; number = cursor + 1; while ((*cursor != '\0') && (*cursor != '}')) { cursor++; } if (cursor[-1] == '+') cursor--; if (IsEmptyStr(cursor)) return -1; return atol(number); } char *ReadString(long size, char *command) { long ret; if (size < 1) { cprintf("NO %s: %ld BAD Message length must be at least 1.\r\n", command, size); CC->kill_me = KILLME_READSTRING_FAILED; return NULL; } MGSVE->transmitted_message = malloc(size + 2); if (MGSVE->transmitted_message == NULL) { cprintf("NO %s Cannot allocate memory.\r\n", command); CC->kill_me = KILLME_MALLOC_FAILED; return NULL; } MGSVE->transmitted_length = size; ret = client_read(MGSVE->transmitted_message, size); MGSVE->transmitted_message[size] = '\0'; if (ret != 1) { cprintf("%s NO Read failed.\r\n", command); return NULL; } return MGSVE->transmitted_message; } /* AUTHENTICATE command; 2.1 */ void cmd_mgsve_auth(int num_parms, char **parms, struct sdm_userdata *u) { if ((num_parms == 3) && !strncasecmp(parms[1], "PLAIN", 5)) /* todo, check length*/ { char auth[SIZ]; char *message; char *username; message = NULL; memset (auth, 0, SIZ); if (parms[2][0] == '{') message = ReadString(GetSizeToken(parms[2]), parms[0]); if (message != NULL) {/**< do we have tokenized login? */ CtdlDecodeBase64(auth, MGSVE->transmitted_message, strlen(MGSVE->transmitted_message)); } else CtdlDecodeBase64(auth, parms[2], strlen(parms[2])); username = auth; if ((*username == '\0') && (*(username + 1) != '\0')) username ++; if (login_ok == CtdlLoginExistingUser(NULL, username)) { char *pass; pass = &(auth[strlen(auth)+1]); /* for some reason the php script sends us the username twice. y? */ pass = &(pass[strlen(pass)+1]); if (pass_ok == CtdlTryPassword(pass, strlen(pass))) { MGSVE->command_state = mgsve_password; cprintf("OK\r\n"); return; } } } cprintf("NO \"Authentication Failure.\"\r\n");/* we just support auth plain. */ CC->kill_me = KILLME_AUTHFAILED; } /** * STARTTLS command chapter 2.2 */ void cmd_mgsve_starttls(void) { /** answer with OK, and fire off tls session. */ cprintf("OK\r\n"); CtdlModuleStartCryptoMsgs(NULL, NULL, NULL); cmd_mgsve_caps(); } /* * LOGOUT command, see chapter 2.3 */ void cmd_mgsve_logout(struct sdm_userdata *u) { cprintf("OK\r\n"); syslog(LOG_NOTICE, "MgSve bye."); CC->kill_me = KILLME_CLIENT_LOGGED_OUT; } /* * HAVESPACE command. see chapter 2.5 */ void cmd_mgsve_havespace(void) { /* as we don't have quotas in citadel we should always answer with OK; * pherhaps we should have a max-scriptsize. */ if (MGSVE->command_state != mgsve_password) { cprintf("NO\r\n"); CC->kill_me = KILLME_QUOTA; } else { cprintf("OK"); /* citadel doesn't have quotas. in case of change, please add code here. */ } } /* * PUTSCRIPT command, see chapter 2.6 */ void cmd_mgsve_putscript(int num_parms, char **parms, struct sdm_userdata *u) { /* "scriptname" {nnn+} */ /* AFTER we have the whole script overwrite existing scripts */ /* spellcheck the script before overwrite old ones, and reply with "no" */ if (num_parms == 3) { char *ScriptName; char *Script; long slength; if (parms[1][0]=='"') ScriptName = &parms[1][1]; else ScriptName = parms[1]; slength = strlen (ScriptName); if (ScriptName[slength] == '"') ScriptName[slength] = '\0'; Script = ReadString(GetSizeToken(parms[2]),parms[0]); if (Script == NULL) return; // TODO: do we spellcheck? msiv_putscript(u, ScriptName, Script); cprintf("OK\r\n"); } else { cprintf("%s NO Read failed.\r\n", parms[0]); CC->kill_me = KILLME_READ_FAILED; return; } } /** * LISTSCRIPT command. see chapter 2.7 */ void cmd_mgsve_listscript(int num_parms, char **parms, struct sdm_userdata *u) { struct sdm_script *s; long nScripts = 0; MGSVE->imap_format_outstring = NULL; for (s=u->first_script; s!=NULL; s=s->next) { if (s->script_content != NULL) { cprintf("\"%s\"%s\r\n", s->script_name, (s->script_active)?" ACTIVE":""); nScripts++; } } cprintf("OK\r\n"); } /** * \brief SETACTIVE command. see chapter 2.8 */ void cmd_mgsve_setactive(int num_parms, char **parms, struct sdm_userdata *u) { if (num_parms == 2) { if (msiv_setactive(u, parms[1]) == 0) { cprintf("OK\r\n"); } else cprintf("No \"there is no script by that name %s \"\r\n", parms[1]); } else cprintf("NO \"unexpected parameters.\"\r\n"); } /** * \brief GETSCRIPT command. see chapter 2.9 */ void cmd_mgsve_getscript(int num_parms, char **parms, struct sdm_userdata *u) { if (num_parms == 2){ char *script_content; long slen; script_content = msiv_getscript(u, parms[1]); if (script_content != NULL){ char *outbuf; slen = strlen(script_content); outbuf = malloc (slen + 64); snprintf(outbuf, slen + 64, "{%ld+}\r\n%s\r\nOK\r\n",slen, script_content); cprintf("%s", outbuf); } else cprintf("No \"there is no script by that name %s \"\r\n", parms[1]); } else cprintf("NO \"unexpected parameters.\"\r\n"); } /** * \brief DELETESCRIPT command. see chapter 2.10 */ void cmd_mgsve_deletescript(int num_parms, char **parms, struct sdm_userdata *u) { int i=-1; if (num_parms == 2) i = msiv_deletescript(u, parms[1]); switch (i){ case 0: cprintf("OK\r\n"); break; case 1: cprintf("NO \"no script by that name: %s\"\r\n", parms[1]); break; case 2: cprintf("NO \"can't delete active Script: %s\"\r\n", parms[1]); break; default: case -1: cprintf("NO \"unexpected parameters.\"\r\n"); break; } } /** * \brief Attempt to perform authenticated managesieve */ void mgsve_auth(char *argbuf) { char username_prompt[64]; char method[64]; char encoded_authstring[1024]; if (CC->logged_in) { cprintf("NO \"Already logged in.\"\r\n"); return; } extract_token(method, argbuf, 0, ' ', sizeof method); if (!strncasecmp(method, "login", 5) ) { if (strlen(argbuf) >= 7) { } else { size_t len = CtdlEncodeBase64(username_prompt, "Username:", 9, 0); if (username_prompt[len - 1] == '\n') { username_prompt[len - 1] = '\0'; } cprintf("334 %s\r\n", username_prompt); } return; } if (!strncasecmp(method, "plain", 5) ) { if (num_tokens(argbuf, ' ') < 2) { cprintf("334 \r\n"); return; } extract_token(encoded_authstring, argbuf, 1, ' ', sizeof encoded_authstring); return; } if (strncasecmp(method, "login", 5) ) { cprintf("NO \"Unknown authentication method.\"\r\n"); return; } } /* * implements the STARTTLS command (Citadel API version) */ void _mgsve_starttls(void) { char ok_response[SIZ]; char nosup_response[SIZ]; char error_response[SIZ]; sprintf(ok_response, "200 2.0.0 Begin TLS negotiation now\r\n"); sprintf(nosup_response, "554 5.7.3 TLS not supported here\r\n"); sprintf(error_response, "554 5.7.3 Internal error\r\n"); CtdlModuleStartCryptoMsgs(ok_response, nosup_response, error_response); } /* * Main command loop for managesieve sessions. */ void managesieve_command_loop(void) { char cmdbuf[SIZ]; char *parms[SIZ]; int length; int num_parms; struct sdm_userdata u; int changes_made = 0; memset(&u, 0, sizeof(struct sdm_userdata)); time(&CC->lastcmd); memset(cmdbuf, 0, sizeof cmdbuf); /* Clear it, just in case */ length = client_getln(cmdbuf, sizeof cmdbuf); if (length >= 1) { num_parms = old_imap_parameterize(parms, cmdbuf); if (num_parms == 0) return; length = strlen(parms[0]); } if (length < 1) { syslog(LOG_CRIT, "managesieve: client disconnected: ending session.\n"); CC->kill_me = KILLME_CLIENT_DISCONNECTED; return; } syslog(LOG_INFO, "MANAGESIEVE: %s\n", cmdbuf); if ((length>= 12) && (!strncasecmp(parms[0], "AUTHENTICATE", 12))){ cmd_mgsve_auth(num_parms, parms, &u); } #ifdef HAVE_OPENSSL else if ((length>= 8) && (!strncasecmp(parms[0], "STARTTLS", 8))){ cmd_mgsve_starttls(); } #endif else if ((length>= 6) && (!strncasecmp(parms[0], "LOGOUT", 6))){ cmd_mgsve_logout(&u); } else if ((length>= 6) && (!strncasecmp(parms[0], "CAPABILITY", 10))){ cmd_mgsve_caps(); } /** these commands need to be authenticated. throw it out if it tries. */ else if (CC->logged_in != 0) { msiv_load(&u); if ((length>= 9) && (!strncasecmp(parms[0], "HAVESPACE", 9))){ cmd_mgsve_havespace(); } else if ((length>= 6) && (!strncasecmp(parms[0], "PUTSCRIPT", 9))){ cmd_mgsve_putscript(num_parms, parms, &u); changes_made = 1; } else if ((length>= 6) && (!strncasecmp(parms[0], "LISTSCRIPT", 10))){ cmd_mgsve_listscript(num_parms, parms,&u); } else if ((length>= 6) && (!strncasecmp(parms[0], "SETACTIVE", 9))){ cmd_mgsve_setactive(num_parms, parms,&u); changes_made = 1; } else if ((length>= 6) && (!strncasecmp(parms[0], "GETSCRIPT", 9))){ cmd_mgsve_getscript(num_parms, parms, &u); } else if ((length>= 6) && (!strncasecmp(parms[0], "DELETESCRIPT", 11))){ cmd_mgsve_deletescript(num_parms, parms, &u); changes_made = 1; } msiv_store(&u, changes_made); } else { cprintf("No Invalid access or command.\r\n"); syslog(LOG_INFO, "illegal Managesieve command: %s", parms[0]); CC->kill_me = KILLME_ILLEGAL_MANAGESIEVE_COMMAND; } } /* * This cleanup function blows away the temporary memory and files used by * the server. */ void managesieve_cleanup_function(void) { /* Don't do this stuff if this is not a managesieve session! */ if (CC->h_command_function != managesieve_command_loop) return; syslog(LOG_DEBUG, "Performing managesieve cleanup hook\n"); free(MGSVE); } const char* CitadelServiceManageSieve = "ManageSieve"; CTDL_MODULE_INIT(managesieve) { if (!threading) { CtdlRegisterServiceHook(CtdlGetConfigInt("c_managesieve_port"), NULL, managesieve_greeting, managesieve_command_loop, NULL, CitadelServiceManageSieve); CtdlRegisterSessionHook(managesieve_cleanup_function, EVT_STOP, PRIO_STOP + 30); } /* return our module name for the log */ return "managesieve"; } citadel-902/modules/migrate/000077500000000000000000000000001271512031400160675ustar00rootroot00000000000000citadel-902/modules/migrate/serv_migrate.c000066400000000000000000001046601271512031400207310ustar00rootroot00000000000000/* * This module dumps and/or loads the Citadel database in XML format. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ /* * Explanation of tags: * * 0% nothing * 2% finished exporting configuration * 7% finished exporting users * 12% finished exporting openids * 17% finished exporting rooms * 18% finished exporting floors * 25% finished exporting visits * 100% finished exporting messages */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "database.h" #include "msgbase.h" #include "user_ops.h" #include "euidindex.h" #include "ctdl_module.h" #define END_OF_MESSAGE "---eom---dbd---" char migr_tempfilename1[PATH_MAX]; char migr_tempfilename2[PATH_MAX]; FILE *migr_global_message_list; int total_msgs = 0; char *ikey = NULL; // If we're importing a config key we store it here. /****************************************************************************** * Code which implements the export appears in this section * ******************************************************************************/ /* * Output a string to the client with these characters escaped: & < > " ' */ void xml_strout(char *str) { char *c = str; if (str == NULL) { return; } while (*c != 0) { if (*c == '\"') { client_write(HKEY(""")); } else if (*c == '\'') { client_write(HKEY("'")); } else if (*c == '<') { client_write(HKEY("<")); } else if (*c == '>') { client_write(HKEY(">")); } else if (*c == '&') { client_write(HKEY("&")); } else { client_write(c, 1); } ++c; } } /* * Export a user record as XML */ void migr_export_users_backend(struct ctdluser *buf, void *data) { client_write(HKEY("\n")); cprintf("%d\n", buf->version); cprintf("%ld\n", (long)buf->uid); client_write(HKEY("")); xml_strout(buf->password); client_write(HKEY("\n")); cprintf("%u\n", buf->flags); cprintf("%ld\n", buf->timescalled); cprintf("%ld\n", buf->posted); cprintf("%d\n", buf->axlevel); cprintf("%ld\n", buf->usernum); cprintf("%ld\n", (long)buf->lastcall); cprintf("%d\n", buf->USuserpurge); client_write(HKEY("")); xml_strout(buf->fullname); client_write(HKEY("\n")); cprintf("%ld\n", buf->msgnum_bio); cprintf("%ld\n", buf->msgnum_pic); client_write(HKEY("\n")); } void migr_export_users(void) { ForEachUser(migr_export_users_backend, NULL); } void migr_export_room_msg(long msgnum, void *userdata) { cprintf("%ld\n", msgnum); fprintf(migr_global_message_list, "%ld\n", msgnum); } void migr_export_rooms_backend(struct ctdlroom *buf, void *data) { client_write(HKEY("\n")); client_write(HKEY("")); xml_strout(buf->QRname); client_write(HKEY("\n")); client_write(HKEY("")); xml_strout(buf->QRpasswd); client_write(HKEY("\n")); cprintf("%ld\n", buf->QRroomaide); cprintf("%ld\n", buf->QRhighest); cprintf("%ld\n", (long)buf->QRgen); cprintf("%u\n", buf->QRflags); if (buf->QRflags & QR_DIRECTORY) { client_write(HKEY("")); xml_strout(buf->QRdirname); client_write(HKEY("\n")); } cprintf("%d\n", buf->QRfloor); cprintf("%ld\n", (long)buf->QRmtime); cprintf("%d\n", buf->QRep.expire_mode); cprintf("%d\n", buf->QRep.expire_value); cprintf("%ld\n", buf->QRnumber); cprintf("%d\n", buf->QRorder); cprintf("%u\n", buf->QRflags2); cprintf("%d\n", buf->QRdefaultview); cprintf("%ld\n", buf->msgnum_info); cprintf("%ld\n", buf->msgnum_pic); client_write(HKEY("\n")); /* message list goes inside this tag */ CtdlGetRoom(&CC->room, buf->QRname); client_write(HKEY("")); client_write(HKEY("")); xml_strout(CC->room.QRname); client_write(HKEY("\n")); client_write(HKEY("")); CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, migr_export_room_msg, NULL); client_write(HKEY("\n")); client_write(HKEY("\n")); } void migr_export_rooms(void) { char cmd[SIZ]; migr_global_message_list = fopen(migr_tempfilename1, "w"); if (migr_global_message_list != NULL) { CtdlForEachRoom(migr_export_rooms_backend, NULL); fclose(migr_global_message_list); } /* * Process the 'global' message list. (Sort it and remove dups. * Dups are ok because a message may be in more than one room, but * this will be handled by exporting the reference count, not by * exporting the message multiple times.) */ snprintf(cmd, sizeof cmd, "sort -n <%s >%s", migr_tempfilename1, migr_tempfilename2); if (system(cmd) != 0) syslog(LOG_ALERT, "Error %d", errno); snprintf(cmd, sizeof cmd, "uniq <%s >%s", migr_tempfilename2, migr_tempfilename1); if (system(cmd) != 0) syslog(LOG_ALERT, "Error %d", errno); snprintf(cmd, sizeof cmd, "wc -l %s", migr_tempfilename1); FILE *fp = popen(cmd, "r"); if (fp) { fgets(cmd, sizeof cmd, fp); pclose(fp); total_msgs = atoi(cmd); } else { total_msgs = 1; // any nonzero just to keep it from barfing } syslog(LOG_DEBUG, "Total messages to be exported: %d", total_msgs); } void migr_export_floors(void) { struct floor qfbuf, *buf; int i; for (i=0; i < MAXFLOORS; ++i) { client_write(HKEY("\n")); cprintf("%d\n", i); CtdlGetFloor(&qfbuf, i); buf = &qfbuf; cprintf("%u\n", buf->f_flags); client_write(HKEY("")); xml_strout(buf->f_name); client_write(HKEY("\n")); cprintf("%d\n", buf->f_ref_count); cprintf("%d\n", buf->f_ep.expire_mode); cprintf("%d\n", buf->f_ep.expire_value); client_write(HKEY("\n")); } } /* * Return nonzero if the supplied string contains only characters which are valid in a sequence set. */ int is_sequence_set(char *s) { if (!s) return(0); char *c = s; char ch; while (ch = *c++, ch) { if (!strchr("0123456789*,:", ch)) { return(0); } } return(1); } /* * Traverse the visits file... */ void migr_export_visits(void) { visit vbuf; struct cdbdata *cdbv; cdb_rewind(CDB_VISIT); while (cdbv = cdb_next_item(CDB_VISIT), cdbv != NULL) { memset(&vbuf, 0, sizeof(visit)); memcpy(&vbuf, cdbv->ptr, ((cdbv->len > sizeof(visit)) ? sizeof(visit) : cdbv->len)); cdb_free(cdbv); client_write(HKEY("\n")); cprintf("%ld\n", vbuf.v_roomnum); cprintf("%ld\n", vbuf.v_roomgen); cprintf("%ld\n", vbuf.v_usernum); client_write(HKEY("")); if ( (!IsEmptyStr(vbuf.v_seen)) && (is_sequence_set(vbuf.v_seen)) ) { xml_strout(vbuf.v_seen); } else { cprintf("%ld", vbuf.v_lastseen); } client_write(HKEY("")); if ( (!IsEmptyStr(vbuf.v_answered)) && (is_sequence_set(vbuf.v_answered)) ) { client_write(HKEY("")); xml_strout(vbuf.v_answered); client_write(HKEY("\n")); } cprintf("%u\n", vbuf.v_flags); cprintf("%d\n", vbuf.v_view); client_write(HKEY("\n")); } } void migr_export_message(long msgnum) { struct MetaData smi; struct CtdlMessage *msg; struct ser_ret smr; /* We can use a static buffer here because there will never be more than * one of this operation happening at any given time, and it's really best * to just keep it allocated once instead of torturing malloc/free. * Call this function with msgnum "-1" to free the buffer when finished. */ static int encoded_alloc = 0; static char *encoded_msg = NULL; if (msgnum < 0) { if ((encoded_alloc == 0) && (encoded_msg != NULL)) { free(encoded_msg); encoded_alloc = 0; encoded_msg = NULL; } return; } /* Ok, here we go ... */ msg = CtdlFetchMessage(msgnum, 1, 0); if (msg == NULL) return; /* fail silently */ client_write(HKEY("\n")); GetMetaData(&smi, msgnum); cprintf("%ld\n", msgnum); cprintf("%d\n", smi.meta_refcount); cprintf("%ld\n", smi.meta_rfc822_length); client_write(HKEY("")); xml_strout(smi.meta_content_type); client_write(HKEY("\n")); client_write(HKEY("")); xml_strout(smi.mimetype); client_write(HKEY("\n")); client_write(HKEY("")); CtdlSerializeMessage(&smr, msg); CM_Free(msg); /* Predict the buffer size we need. Expand the buffer if necessary. */ int encoded_len = smr.len * 15 / 10 ; if (encoded_len > encoded_alloc) { encoded_alloc = encoded_len; encoded_msg = realloc(encoded_msg, encoded_alloc); } if (encoded_msg == NULL) { /* Questionable hack that hopes it'll work next time and we only lose one message */ encoded_alloc = 0; } else { /* Once we do the encoding we know the exact size */ encoded_len = CtdlEncodeBase64(encoded_msg, (char *)smr.ser, smr.len, 1); client_write(encoded_msg, encoded_len); } free(smr.ser); client_write(HKEY("\n")); client_write(HKEY("\n")); } void migr_export_openids(void) { struct cdbdata *cdboi; long usernum; char url[512]; cdb_rewind(CDB_OPENID); while (cdboi = cdb_next_item(CDB_OPENID), cdboi != NULL) { if (cdboi->len > sizeof(long)) { client_write(HKEY("\n")); memcpy(&usernum, cdboi->ptr, sizeof(long)); snprintf(url, sizeof url, "%s", (cdboi->ptr)+sizeof(long) ); client_write(HKEY("")); xml_strout(url); client_write(HKEY("\n")); cprintf("%ld\n", usernum); client_write(HKEY("\n")); } cdb_free(cdboi); } } void migr_export_configs(void) { struct cdbdata *cdbcfg; int keylen = 0; char *key = NULL; char *value = NULL; cdb_rewind(CDB_CONFIG); while (cdbcfg = cdb_next_item(CDB_CONFIG), cdbcfg != NULL) { keylen = strlen(cdbcfg->ptr); key = cdbcfg->ptr; value = cdbcfg->ptr + keylen + 1; client_write("", 2); xml_strout(value); client_write("\n", 10); cdb_free(cdbcfg); } } void migr_export_messages(void) { char buf[SIZ]; long msgnum; int count = 0; int progress = 0; int prev_progress = 0; CitContext *Ctx; Ctx = CC; migr_global_message_list = fopen(migr_tempfilename1, "r"); if (migr_global_message_list != NULL) { syslog(LOG_INFO, "Opened %s", migr_tempfilename1); while ((Ctx->kill_me == 0) && (fgets(buf, sizeof(buf), migr_global_message_list) != NULL)) { msgnum = atol(buf); if (msgnum > 0L) { migr_export_message(msgnum); ++count; } progress = (count * 74 / total_msgs) + 25 ; if ((progress > prev_progress) && (progress < 100)) { cprintf("%d\n", progress); } prev_progress = progress; } fclose(migr_global_message_list); } if (Ctx->kill_me == 0) syslog(LOG_INFO, "Exported %d messages.", count); else syslog(LOG_ERR, "Export aborted due to client disconnect!"); migr_export_message(-1L); /* This frees the encoding buffer */ } void migr_do_export(void) { CitContext *Ctx; Ctx = CC; cprintf("%d Exporting all Citadel databases.\n", LISTING_FOLLOWS); Ctx->dont_term = 1; client_write(HKEY("\n")); client_write(HKEY("\n")); cprintf("%d\n", REV_LEVEL); cprintf("%d\n", 0); /* export the configuration database */ migr_export_configs(); cprintf("%d\n", 2); if (Ctx->kill_me == 0) migr_export_users(); cprintf("%d\n", 7); if (Ctx->kill_me == 0) migr_export_openids(); cprintf("%d\n", 12); if (Ctx->kill_me == 0) migr_export_rooms(); cprintf("%d\n", 17); if (Ctx->kill_me == 0) migr_export_floors(); cprintf("%d\n", 18); if (Ctx->kill_me == 0) migr_export_visits(); cprintf("%d\n", 25); if (Ctx->kill_me == 0) migr_export_messages(); client_write(HKEY("\n")); cprintf("%d\n", 100); client_write(HKEY("000\n")); Ctx->dont_term = 0; } /****************************************************************************** * Import code * * Here's the code that implements the import side. It's going to end up * * being one big loop with lots of global variables. I don't care. * * You wouldn't run multiple concurrent imports anyway. If this offends your * * delicate sensibilities then go rewrite it in Ruby on Rails or something. * ******************************************************************************/ int citadel_migrate_data = 0; /* Are we inside a tag pair? */ StrBuf *migr_chardata = NULL; StrBuf *migr_MsgData = NULL; struct ctdluser usbuf; struct ctdlroom qrbuf; char openid_url[512]; long openid_usernum = 0; char FRname[ROOMNAMELEN]; struct floor flbuf; int floornum = 0; visit vbuf; struct MetaData smi; long import_msgnum = 0; /* * This callback stores up the data which appears in between tags. */ void migr_xml_chardata(void *data, const XML_Char *s, int len) { StrBufAppendBufPlain(migr_chardata, s, len, 0); } void migr_xml_start(void *data, const char *el, const char **attr) { int i; /*** GENERAL STUFF ***/ /* Reset chardata_len to zero and init buffer */ FlushStrBuf(migr_chardata); FlushStrBuf(migr_MsgData); if (!strcasecmp(el, "citadel_migrate_data")) { ++citadel_migrate_data; /* As soon as it looks like the input data is a genuine Citadel XML export, * whack the existing database on disk to make room for the new one. */ if (citadel_migrate_data == 1) { for (i = 0; i < MAXCDB; ++i) { cdb_trunc(i); } } return; } if (citadel_migrate_data != 1) { syslog(LOG_ALERT, "Out-of-sequence tag <%s> detected. Warning: ODD-DATA!", el); return; } /* When we begin receiving XML for one of these record types, clear out the associated * buffer so we don't accidentally carry over any data from a previous record. */ if (!strcasecmp(el, "user")) memset(&usbuf, 0, sizeof (struct ctdluser)); else if (!strcasecmp(el, "openid")) memset(openid_url, 0, sizeof openid_url); else if (!strcasecmp(el, "room")) memset(&qrbuf, 0, sizeof (struct ctdlroom)); else if (!strcasecmp(el, "room_messages")) memset(FRname, 0, sizeof FRname); else if (!strcasecmp(el, "floor")) memset(&flbuf, 0, sizeof (struct floor)); else if (!strcasecmp(el, "visit")) memset(&vbuf, 0, sizeof (visit)); else if (!strcasecmp(el, "message")) { memset(&smi, 0, sizeof (struct MetaData)); import_msgnum = 0; } else if (!strcasecmp(el, "config")) { if (ikey != NULL) { free(ikey); ikey = NULL; } while (*attr) { if (!strcasecmp(attr[0], "key")) { ikey = strdup(attr[1]); } attr += 2; } } } int migr_userrecord(void *data, const char *el) { if (!strcasecmp(el, "u_version")) usbuf.version = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_uid")) usbuf.uid = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_password")) safestrncpy(usbuf.password, ChrPtr(migr_chardata), sizeof usbuf.password); else if (!strcasecmp(el, "u_flags")) usbuf.flags = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_timescalled")) usbuf.timescalled = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_posted")) usbuf.posted = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_axlevel")) usbuf.axlevel = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_usernum")) usbuf.usernum = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_lastcall")) usbuf.lastcall = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_USuserpurge")) usbuf.USuserpurge = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_fullname")) safestrncpy(usbuf.fullname, ChrPtr(migr_chardata), sizeof usbuf.fullname); else if (!strcasecmp(el, "u_msgnum_bio")) usbuf.msgnum_bio = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "u_msgnum_pic")) usbuf.msgnum_pic = atol(ChrPtr(migr_chardata)); else return 0; return 1; } int migr_roomrecord(void *data, const char *el) { if (!strcasecmp(el, "QRname")) safestrncpy(qrbuf.QRname, ChrPtr(migr_chardata), sizeof qrbuf.QRname); else if (!strcasecmp(el, "QRpasswd")) safestrncpy(qrbuf.QRpasswd, ChrPtr(migr_chardata), sizeof qrbuf.QRpasswd); else if (!strcasecmp(el, "QRroomaide")) qrbuf.QRroomaide = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRhighest")) qrbuf.QRhighest = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRgen")) qrbuf.QRgen = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRflags")) qrbuf.QRflags = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRdirname")) safestrncpy(qrbuf.QRdirname, ChrPtr(migr_chardata), sizeof qrbuf.QRdirname); else if (!strcasecmp(el, "QRfloor")) qrbuf.QRfloor = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRmtime")) qrbuf.QRmtime = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRexpire_mode")) qrbuf.QRep.expire_mode = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRexpire_value")) qrbuf.QRep.expire_value = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRnumber")) qrbuf.QRnumber = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRorder")) qrbuf.QRorder = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRflags2")) qrbuf.QRflags2 = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "QRdefaultview")) qrbuf.QRdefaultview = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "msgnum_info")) qrbuf.msgnum_info = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "msgnum_pic")) qrbuf.msgnum_pic = atol(ChrPtr(migr_chardata)); else return 0; return 1; } int migr_floorrecord(void *data, const char *el) { if (!strcasecmp(el, "f_num")) floornum = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "f_flags")) flbuf.f_flags = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "f_name")) safestrncpy(flbuf.f_name, ChrPtr(migr_chardata), sizeof flbuf.f_name); else if (!strcasecmp(el, "f_ref_count")) flbuf.f_ref_count = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "f_ep_expire_mode")) flbuf.f_ep.expire_mode = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "f_ep_expire_value")) flbuf.f_ep.expire_value = atoi(ChrPtr(migr_chardata)); else return 0; return 1; } int migr_visitrecord(void *data, const char *el) { if (!strcasecmp(el, "v_roomnum")) vbuf.v_roomnum = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "v_roomgen")) vbuf.v_roomgen = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "v_usernum")) vbuf.v_usernum = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "v_seen")) { int is_textual_seen = 0; int i; int max = StrLength(migr_chardata); vbuf.v_lastseen = atol(ChrPtr(migr_chardata)); is_textual_seen = 0; for (i=0; i < max; ++i) if (!isdigit(ChrPtr(migr_chardata)[i])) is_textual_seen = 1; if (is_textual_seen) safestrncpy(vbuf.v_seen, ChrPtr(migr_chardata), sizeof vbuf.v_seen); } else if (!strcasecmp(el, "v_answered")) safestrncpy(vbuf.v_answered, ChrPtr(migr_chardata), sizeof vbuf.v_answered); else if (!strcasecmp(el, "v_flags")) vbuf.v_flags = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "v_view")) vbuf.v_view = atoi(ChrPtr(migr_chardata)); else return 0; return 1; } void migr_xml_end(void *data, const char *el) { const char *ptr; int msgcount = 0; long msgnum = 0L; long *msglist = NULL; int msglist_alloc = 0; /*** GENERAL STUFF ***/ if (!strcasecmp(el, "citadel_migrate_data")) { --citadel_migrate_data; return; } if (citadel_migrate_data != 1) { syslog(LOG_ALERT, "Out-of-sequence tag <%s> detected. Warning: ODD-DATA!", el); return; } // syslog(LOG_DEBUG, "END TAG: <%s> DATA: <%s>\n", el, (migr_chardata_len ? migr_chardata : "")); /*** CONFIG ***/ if (!strcasecmp(el, "config")) { syslog(LOG_DEBUG, "Imported config key=%s", ikey); if (ikey != NULL) { CtdlSetConfigStr(ikey, (char *)ChrPtr(migr_chardata)); free(ikey); ikey = NULL; } else { syslog(LOG_INFO, "Closed a tag but no key name was supplied."); } } /*** USER ***/ else if ((!strncasecmp(el, HKEY("u_"))) && migr_userrecord(data, el)) ; /* Nothing to do anymore */ else if (!strcasecmp(el, "user")) { CtdlPutUser(&usbuf); syslog(LOG_INFO, "Imported user: %s", usbuf.fullname); } /*** OPENID ***/ else if (!strcasecmp(el, "oid_url")) safestrncpy(openid_url, ChrPtr(migr_chardata), sizeof openid_url); else if (!strcasecmp(el, "oid_usernum")) openid_usernum = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "openid")) { /* see serv_openid_rp.c for a description of the record format */ char *oid_data; int oid_data_len; oid_data_len = sizeof(long) + strlen(openid_url) + 1; oid_data = malloc(oid_data_len); memcpy(oid_data, &openid_usernum, sizeof(long)); memcpy(&oid_data[sizeof(long)], openid_url, strlen(openid_url) + 1); cdb_store(CDB_OPENID, openid_url, strlen(openid_url), oid_data, oid_data_len); free(oid_data); syslog(LOG_INFO, "Imported OpenID: %s (%ld)", openid_url, openid_usernum); } /*** ROOM ***/ else if ((!strncasecmp(el, HKEY("QR"))) && migr_roomrecord(data, el)) ; /* Nothing to do anymore */ else if (!strcasecmp(el, "room")) { CtdlPutRoom(&qrbuf); syslog(LOG_INFO, "Imported room: %s", qrbuf.QRname); } /*** ROOM MESSAGE POINTERS ***/ else if (!strcasecmp(el, "FRname")) safestrncpy(FRname, ChrPtr(migr_chardata), sizeof FRname); else if (!strcasecmp(el, "FRmsglist")) { if (!IsEmptyStr(FRname)) { msgcount = 0; msglist_alloc = 1000; msglist = malloc(sizeof(long) * msglist_alloc); syslog(LOG_DEBUG, "Message list for: %s", FRname); ptr = ChrPtr(migr_chardata); while (*ptr != 0) { while ((*ptr != 0) && (!isdigit(*ptr))) { ++ptr; } if ((*ptr != 0) && (isdigit(*ptr))) { msgnum = atol(ptr); if (msgnum > 0L) { if (msgcount >= msglist_alloc) { msglist_alloc *= 2; msglist = realloc(msglist, sizeof(long) * msglist_alloc); } msglist[msgcount++] = msgnum; } } while ((*ptr != 0) && (isdigit(*ptr))) { ++ptr; } } } if (msgcount > 0) { CtdlSaveMsgPointersInRoom(FRname, msglist, msgcount, 0, NULL, 1); } free(msglist); msglist = NULL; msglist_alloc = 0; syslog(LOG_DEBUG, "Imported %d messages.", msgcount); if (server_shutting_down) { return; } } /*** FLOORS ***/ else if ((!strncasecmp(el, HKEY("f_"))) && migr_floorrecord(data, el)) ; /* Nothing to do anymore */ else if (!strcasecmp(el, "floor")) { CtdlPutFloor(&flbuf, floornum); syslog(LOG_INFO, "Imported floor #%d (%s)", floornum, flbuf.f_name); } /*** VISITS ***/ else if ((!strncasecmp(el, HKEY("v_"))) && migr_visitrecord(data, el)) ; /* Nothing to do anymore */ else if (!strcasecmp(el, "visit")) { put_visit(&vbuf); syslog(LOG_INFO, "Imported visit: %ld/%ld/%ld", vbuf.v_roomnum, vbuf.v_roomgen, vbuf.v_usernum); } /*** MESSAGES ***/ else if (!strcasecmp(el, "msg_msgnum")) smi.meta_msgnum = import_msgnum = atol(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "msg_meta_refcount")) smi.meta_refcount = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "msg_meta_rfc822_length")) smi.meta_rfc822_length = atoi(ChrPtr(migr_chardata)); else if (!strcasecmp(el, "msg_meta_content_type")) safestrncpy(smi.meta_content_type, ChrPtr(migr_chardata), sizeof smi.meta_content_type); else if (!strcasecmp(el, "msg_mimetype")) safestrncpy(smi.mimetype, ChrPtr(migr_chardata), sizeof smi.mimetype); else if (!strcasecmp(el, "msg_text")) { long rc; struct CtdlMessage *msg; FlushStrBuf(migr_MsgData); StrBufDecodeBase64To(migr_chardata, migr_MsgData); msg = CtdlDeserializeMessage(import_msgnum, -1, ChrPtr(migr_MsgData), StrLength(migr_MsgData)); if (msg != NULL) { rc = CtdlSaveThisMessage(msg, import_msgnum, 0); if (rc == 0) { PutMetaData(&smi); } CM_Free(msg); } else { rc = -1; } syslog(LOG_INFO, "%s message #%ld, size=%d, refcount=%d, bodylength=%ld, content-type: %s / %s", (rc!= 0)?"failed to import ":"Imported ", import_msgnum, StrLength(migr_MsgData), smi.meta_refcount, smi.meta_rfc822_length, smi.meta_content_type, smi.mimetype); memset(&smi, 0, sizeof(smi)); } /*** MORE GENERAL STUFF ***/ FlushStrBuf(migr_chardata); } /* * Import begins here */ void migr_do_import(void) { StrBuf *Buf; XML_Parser xp; int Finished = 0; unbuffer_output(); migr_chardata = NewStrBufPlain(NULL, SIZ * 20); migr_MsgData = NewStrBufPlain(NULL, SIZ * 20); Buf = NewStrBufPlain(NULL, SIZ); xp = XML_ParserCreate(NULL); if (!xp) { cprintf("%d Failed to create XML parser instance\n", ERROR+INTERNAL_ERROR); return; } XML_SetElementHandler(xp, migr_xml_start, migr_xml_end); XML_SetCharacterDataHandler(xp, migr_xml_chardata); CC->dont_term = 1; cprintf("%d sock it to me\n", SEND_LISTING); unbuffer_output(); client_set_inbound_buf(SIZ * 10); while (!Finished && client_read_random_blob(Buf, -1) >= 0) { if ((StrLength(Buf) > 4) && !strcmp(ChrPtr(Buf) + StrLength(Buf) - 4, "000\n")) { Finished = 1; StrBufCutAt(Buf, StrLength(Buf) - 4, NULL); } if (server_shutting_down) break; // Should we break or return? if (StrLength(Buf) == 0) continue; XML_Parse(xp, ChrPtr(Buf), StrLength(Buf), 0); FlushStrBuf(Buf); } XML_Parse(xp, "", 0, 1); XML_ParserFree(xp); FreeStrBuf(&Buf); FreeStrBuf(&migr_chardata); FreeStrBuf(&migr_MsgData); rebuild_euid_index(); rebuild_usersbynumber(); CtdlSetConfigInt("MM_fulltext_wordbreaker", -1); // Set an invalid wordbreaker to force re-indexing CC->dont_term = 0; } /****************************************************************************** * Dispatcher, Common code * ******************************************************************************/ /* * Dump out the pathnames of directories which can be copied "as is" */ void migr_do_listdirs(void) { cprintf("%d Don't forget these:\n", LISTING_FOLLOWS); cprintf("files|%s\n", ctdl_file_dir); cprintf("messages|%s\n", ctdl_message_dir); cprintf("keys|%s\n", ctdl_key_dir); cprintf("000\n"); } /****************************************************************************** * Repair database integrity * ******************************************************************************/ StrBuf *PlainMessageBuf = NULL; HashList *UsedMessageIDS = NULL; int migr_restore_message_metadata(long msgnum, int refcount) { CitContext *CCC = MyContext(); struct MetaData smi; struct CtdlMessage *msg; char *mptr = NULL; /* We can use a static buffer here because there will never be more than * one of this operation happening at any given time, and it's really best * to just keep it allocated once instead of torturing malloc/free. * Call this function with msgnum "-1" to free the buffer when finished. */ static int encoded_alloc = 0; static char *encoded_msg = NULL; if (msgnum < 0) { if ((encoded_alloc == 0) && (encoded_msg != NULL)) { free(encoded_msg); encoded_alloc = 0; encoded_msg = NULL; // todo FreeStrBuf(&PlainMessageBuf); PlainMessageBuf = NULL; } return 0; } if (PlainMessageBuf == NULL) { PlainMessageBuf = NewStrBufPlain(NULL, 10*SIZ); } /* Ok, here we go ... */ msg = CtdlFetchMessage(msgnum, 1, 0); if (msg == NULL) { return 1; } GetMetaData(&smi, msgnum); smi.meta_msgnum = msgnum; smi.meta_refcount = refcount; /* restore the content type from the message body: */ mptr = bmstrcasestr(msg->cm_fields[eMesageText], "Content-type:"); if (mptr != NULL) { char *aptr; safestrncpy(smi.meta_content_type, &mptr[13], sizeof smi.meta_content_type); striplt(smi.meta_content_type); aptr = smi.meta_content_type; while (!IsEmptyStr(aptr)) { if ((*aptr == ';') || (*aptr == ' ') || (*aptr == 13) || (*aptr == 10)) { memset(aptr, 0, sizeof(smi.meta_content_type) - (aptr - smi.meta_content_type)); } else aptr++; } } CCC->redirect_buffer = PlainMessageBuf; CtdlOutputPreLoadedMsg(msg, MT_RFC822, HEADERS_ALL, 0, 1, QP_EADDR); smi.meta_rfc822_length = StrLength(CCC->redirect_buffer); CCC->redirect_buffer = NULL; syslog(LOG_INFO, "Setting message #%ld meta data to: refcount=%d, bodylength=%ld, content-type: %s / %s", smi.meta_msgnum, smi.meta_refcount, smi.meta_rfc822_length, smi.meta_content_type, smi.mimetype); PutMetaData(&smi); CM_Free(msg); return 0; } void migr_check_room_msg(long msgnum, void *userdata) { fprintf(migr_global_message_list, "%ld %s\n", msgnum, CC->room.QRname); } void migr_check_rooms_backend(struct ctdlroom *buf, void *data) { /* message list goes inside this tag */ CtdlGetRoom(&CC->room, buf->QRname); CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, migr_check_room_msg, NULL); } void RemoveMessagesFromRooms(StrBuf *RoomNameVec, long msgnum) { struct MetaData smi; const char *Pos = NULL; StrBuf *oneRoom = NewStrBuf(); syslog(LOG_INFO, "removing message pointer %ld from these rooms: %s", msgnum, ChrPtr(RoomNameVec)); while (Pos != StrBufNOTNULL){ StrBufExtract_NextToken(oneRoom, RoomNameVec, &Pos, '|'); CtdlDeleteMessages(ChrPtr(oneRoom), &msgnum, 1, ""); }; GetMetaData(&smi, msgnum); TDAP_AdjRefCount(msgnum, -smi.meta_refcount); } void migr_do_restore_meta(void) { char buf[SIZ]; int failGetMessage; long msgnum = 0; int lastnum = 0; int refcount = 0; CitContext *Ctx; char *prn; StrBuf *RoomNames; char cmd[SIZ]; migr_global_message_list = fopen(migr_tempfilename1, "w"); if (migr_global_message_list != NULL) { CtdlForEachRoom(migr_check_rooms_backend, NULL); fclose(migr_global_message_list); } /* * Process the 'global' message list. (Sort it and remove dups. * Dups are ok because a message may be in more than one room, but * this will be handled by exporting the reference count, not by * exporting the message multiple times.) */ snprintf(cmd, sizeof cmd, "sort -n <%s >%s", migr_tempfilename1, migr_tempfilename2); if (system(cmd) != 0) syslog(LOG_ALERT, "Error %d", errno); RoomNames = NewStrBuf(); Ctx = CC; migr_global_message_list = fopen(migr_tempfilename2, "r"); if (migr_global_message_list != NULL) { syslog(LOG_INFO, "Opened %s", migr_tempfilename1); while ((Ctx->kill_me == 0) && (fgets(buf, sizeof(buf), migr_global_message_list) != NULL)) { msgnum = atol(buf); if (msgnum == 0L) continue; if (lastnum == 0) { lastnum = msgnum; } prn = strchr(buf, ' '); if (lastnum != msgnum) { failGetMessage = migr_restore_message_metadata(lastnum, refcount); if (failGetMessage) { RemoveMessagesFromRooms(RoomNames, lastnum); } refcount = 1; lastnum = msgnum; if (prn != NULL) StrBufPlain(RoomNames, prn + 1, -1); StrBufTrim(RoomNames); } else { if (prn != NULL) { if (StrLength(RoomNames) > 0) StrBufAppendBufPlain(RoomNames, HKEY("|"), 0); StrBufAppendBufPlain(RoomNames, prn, -1, 1); StrBufTrim(RoomNames); } refcount ++; } lastnum = msgnum; } failGetMessage = migr_restore_message_metadata(msgnum, refcount); if (failGetMessage) { RemoveMessagesFromRooms(RoomNames, lastnum); } fclose(migr_global_message_list); } migr_restore_message_metadata(-1L, -1); /* This frees the encoding buffer */ cprintf("%d system analysis completed", CIT_OK); Ctx->kill_me = 1; } /****************************************************************************** * Dispatcher, Common code * ******************************************************************************/ void cmd_migr(char *cmdbuf) { char cmd[32]; if (CtdlAccessCheck(ac_internal)) return; if (CtdlTrySingleUser()) { CtdlDisableHouseKeeping(); CtdlMakeTempFileName(migr_tempfilename1, sizeof migr_tempfilename1); CtdlMakeTempFileName(migr_tempfilename2, sizeof migr_tempfilename2); extract_token(cmd, cmdbuf, 0, '|', sizeof cmd); if (!strcasecmp(cmd, "export")) { migr_do_export(); } else if (!strcasecmp(cmd, "import")) { migr_do_import(); } else if (!strcasecmp(cmd, "listdirs")) { migr_do_listdirs(); } else if (!strcasecmp(cmd, "restoremeta")) { migr_do_restore_meta(); } else { cprintf("%d illegal command\n", ERROR + ILLEGAL_VALUE); } unlink(migr_tempfilename1); unlink(migr_tempfilename2); CtdlEnableHouseKeeping(); CtdlEndSingleUser(); } else { cprintf("%d The migrator is already running.\n", ERROR + RESOURCE_BUSY); } } /****************************************************************************** * Module Hook * ******************************************************************************/ CTDL_MODULE_INIT(migrate) { if (!threading) { CtdlRegisterProtoHook(cmd_migr, "MIGR", "Across-the-wire migration"); } /* return our module name for the log */ return "migrate"; } citadel-902/modules/mrtg/000077500000000000000000000000001271512031400154105ustar00rootroot00000000000000citadel-902/modules/mrtg/serv_mrtg.c000066400000000000000000000073571271512031400176000ustar00rootroot00000000000000/* * This module supplies statistics about the activity levels of your Citadel * system. We didn't bother writing a reporting module, because there is * already an excellent tool called MRTG (Multi Router Traffic Grapher) which * is available at http://www.mrtg.org that can fetch data using external * scripts. This module supplies data in the format expected by MRTG. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "ctdl_module.h" /* * Other functions call this one to output data in MRTG format */ void mrtg_output(long value1, long value2) { time_t uptime_t; int uptime_days, uptime_hours, uptime_minutes; uptime_t = time(NULL) - server_startup_time; uptime_days = (int) (uptime_t / 86400L); uptime_hours = (int) ((uptime_t % 86400L) / 3600L); uptime_minutes = (int) ((uptime_t % 3600L) / 60L); cprintf("%d ok\n", LISTING_FOLLOWS); cprintf("%ld\n", value1); cprintf("%ld\n", value2); cprintf("%d days, %d hours, %d minutes\n", uptime_days, uptime_hours, uptime_minutes); cprintf("%s\n", CtdlGetConfigStr("c_humannode")); cprintf("000\n"); } /* * Tell us how many users are online */ void mrtg_users(void) { long connected_users = 0; long active_users = 0; struct CitContext *cptr; begin_critical_section(S_SESSION_TABLE); for (cptr = ContextList; cptr != NULL; cptr = cptr->next) { if (cptr->internal_pgm == 0) { ++connected_users; if ( (time(NULL) - (cptr->lastidle)) < 900L) { ++active_users; } } } end_critical_section(S_SESSION_TABLE); mrtg_output(connected_users, active_users); } /* * Volume of messages submitted */ void mrtg_messages(void) { mrtg_output(CtdlGetConfigLong("MMhighest"), 0); } struct num_accounts { long total; long active; }; /* * Helper function for mrtg_accounts() */ void tally_account(struct ctdluser *EachUser, void *userdata) { struct num_accounts *n = (struct num_accounts *) userdata; ++n->total; if ( (time(NULL) - EachUser->lastcall) <= 2592000 ) ++n->active; } /* * Number of accounts and active accounts */ void mrtg_accounts(void) { struct num_accounts n = { 0, 0 }; ForEachUser(tally_account, (void *)&n ); mrtg_output(n.total, n.active); } /* * Fetch data for MRTG */ void cmd_mrtg(char *argbuf) { char which[32]; extract_token(which, argbuf, 0, '|', sizeof which); if (!strcasecmp(which, "users")) { mrtg_users(); } else if (!strcasecmp(which, "messages")) { mrtg_messages(); } else if (!strcasecmp(which, "accounts")) { mrtg_accounts(); } else { cprintf("%d Unrecognized keyword '%s'\n", ERROR + ILLEGAL_VALUE, which); } } CTDL_MODULE_INIT(mrtg) { if (!threading) { CtdlRegisterProtoHook(cmd_mrtg, "MRTG", "Supply stats to MRTG"); } /* return our module name for the log */ return "mrtg"; } citadel-902/modules/network/000077500000000000000000000000001271512031400161305ustar00rootroot00000000000000citadel-902/modules/network/netmail.h000066400000000000000000000001441271512031400177310ustar00rootroot00000000000000void network_deliver_digest(SpoolControl *sc); void network_spool_msg(long msgnum, void *userdata); citadel-902/modules/network/netspool.h000066400000000000000000000047111271512031400201470ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2016 by the citadel.org team * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * ** NOTE ** A word on the S_NETCONFIGS semaphore: * This is a fairly high-level type of critical section. It ensures that no * two threads work on the netconfigs files at the same time. Since we do * so many things inside these, here are the rules: * 1. begin_critical_section(S_NETCONFIGS) *before* begin_ any others. * 2. Do *not* perform any I/O with the client during these sections. * */ typedef struct SpoolControl SpoolControl; struct SpoolControl { OneRoomNetCfg *RNCfg; struct ctdlroom room; StrBuf *Users[maxRoomNetCfg]; StrBuf *RoomInfo; StrBuf *ListID; FILE *digestfp; int haveDigest; int num_msgs_spooled; long lastsent; HashList *working_ignetcfg; HashList *the_netmap; SpoolControl *next; }; void network_spoolout_room(SpoolControl *sc); void InspectQueuedRoom(SpoolControl **pSC, RoomProcList *room_to_spool, HashList *working_ignetcfg, HashList *the_netmap); int HaveSpoolConfig(OneRoomNetCfg* RNCfg); void Netmap_AddMe(struct CtdlMessage *msg, const char *defl, long defllen); void network_do_spoolin(HashList *working_ignetcfg, HashList *the_netmap, int *netmap_changed); void network_consolidate_spoolout(HashList *working_ignetcfg, HashList *the_netmap); void free_spoolcontrol_struct(SpoolControl **scc); void free_spoolcontrol_struct_members(SpoolControl *scc); int writenfree_spoolcontrol_file(SpoolControl **scc, char *filename); int read_spoolcontrol_file(SpoolControl **scc, char *filename); void aggregate_recipients(StrBuf **recps, RoomNetCfg Which, OneRoomNetCfg *OneRNCfg, long nSegments); void CalcListID(SpoolControl *sc); citadel-902/modules/network/serv_netfilter.c000066400000000000000000000102721271512031400213310ustar00rootroot00000000000000/* * A server-side module for Citadel designed to filter idiots off the network. * * Copyright (c) 2002-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "ctdl_module.h" typedef struct FilterList FilterList; struct FilterList { FilterList *next; char fl_user[SIZ]; char fl_room[SIZ]; char fl_node[SIZ]; }; struct FilterList *filterlist = NULL; /* * Keep track of what messages to reject */ FilterList *load_filter_list(void) { char *serialized_list = NULL; int i; char buf[SIZ]; FilterList *newlist = NULL; FilterList *nptr; serialized_list = CtdlGetSysConfig(FILTERLIST); if (serialized_list == NULL) return(NULL); /* if null, no entries */ /* Use the string tokenizer to grab one line at a time */ for (i=0; ifl_user, buf, 0, '|', sizeof nptr->fl_user); striplt(nptr->fl_user); extract_token(nptr->fl_room, buf, 1, '|', sizeof nptr->fl_room); striplt(nptr->fl_room); extract_token(nptr->fl_node, buf, 2, '|', sizeof nptr->fl_node); striplt(nptr->fl_node); /* Cowardly refuse to add an any/any/any entry that would * end up filtering every single message. */ if (IsEmptyStr(nptr->fl_user) && IsEmptyStr(nptr->fl_room) && IsEmptyStr(nptr->fl_node)) { free(nptr); } else { nptr->next = newlist; newlist = nptr; } } free(serialized_list); return newlist; } void free_filter_list(FilterList *fl) { if (fl == NULL) return; free_filter_list(fl->next); free(fl); } void free_netfilter_list(void) { free_filter_list(filterlist); filterlist = NULL; } void load_network_filter_list(void) { filterlist = load_filter_list(); } /* * This handler detects whether an incoming network message is from some * moron user who the site operator has elected to filter out. If a match * is found, the message is rejected. */ int filter_the_idiots(struct CtdlMessage *msg, char *target_room) { FilterList *fptr; int zap_user = 0; int zap_room = 0; int zap_node = 0; if ( (msg == NULL) || (filterlist == NULL) ) { return(0); } for (fptr = filterlist; fptr != NULL; fptr = fptr->next) { zap_user = 0; zap_room = 0; zap_node = 0; if (!CM_IsEmpty(msg, eAuthor)) { if ( (!strcasecmp(msg->cm_fields[eAuthor], fptr->fl_user)) || (fptr->fl_user[0] == 0) ) { zap_user = 1; } } if (!CM_IsEmpty(msg, eRemoteRoom)) { if ( (!strcasecmp(msg->cm_fields[eRemoteRoom], fptr->fl_room)) || (fptr->fl_room[0] == 0) ) { zap_room = 1; } } if (!CM_IsEmpty(msg, eOriginalRoom)) { if ( (!strcasecmp(msg->cm_fields[eOriginalRoom], fptr->fl_room)) || (fptr->fl_room[0] == 0) ) { zap_room = 1; } } if (!CM_IsEmpty(msg, eNodeName)) { if ( (!strcasecmp(msg->cm_fields[eNodeName], fptr->fl_node)) || (fptr->fl_node[0] == 0) ) { zap_node = 1; } } if (zap_user + zap_room + zap_node == 3) return(1); } return(0); } CTDL_MODULE_INIT(netfilter) { if (!threading) { /* currently unsupported. CtdlRegisterNetprocHook(filter_the_idiots); */ } /* return our module name for the log */ return "netfilter"; } citadel-902/modules/network/serv_netmail.c000066400000000000000000000355741271512031400210020ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. * * ** NOTE ** A word on the S_NETCONFIGS semaphore: * This is a fairly high-level type of critical section. It ensures that no * two threads work on the netconfigs files at the same time. Since we do * so many things inside these, here are the rules: * 1. begin_critical_section(S_NETCONFIGS) *before* begin_ any others. * 2. Do *not* perform any I/O with the client during these sections. * */ /* * Duration of time (in seconds) after which pending list subscribe/unsubscribe * requests that have not been confirmed will be deleted. */ #define EXP 259200 /* three days */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #ifdef HAVE_SYSCALL_H # include #else # if HAVE_SYS_SYSCALL_H # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "serv_network.h" #include "clientsocket.h" #include "citadel_dirs.h" #include "threads.h" #include "context.h" #include "ctdl_module.h" #include "netspool.h" #include "netmail.h" void network_deliver_list(struct CtdlMessage *msg, SpoolControl *sc, const char *RoomName); void aggregate_recipients(StrBuf **recps, RoomNetCfg Which, OneRoomNetCfg *OneRNCfg, long nSegments) { int i; size_t recps_len = 0; RoomNetCfgLine *nptr; struct CitContext *CCC = CC; *recps = NULL; /* * Figure out how big a buffer we need to allocate */ for (nptr = OneRNCfg->NetConfigs[Which]; nptr != NULL; nptr = nptr->next) { recps_len = recps_len + StrLength(nptr->Value[0]) + 2; } /* Nothing todo... */ if (recps_len == 0) return; *recps = NewStrBufPlain(NULL, recps_len); if (*recps == NULL) { QN_syslog(LOG_EMERG, "Cannot allocate %ld bytes for recps...\n", (long)recps_len); abort(); } /* Each recipient */ for (nptr = OneRNCfg->NetConfigs[Which]; nptr != NULL; nptr = nptr->next) { if (nptr != OneRNCfg->NetConfigs[Which]) { for (i = 0; i < nSegments; i++) StrBufAppendBufPlain(*recps, HKEY(","), i); } StrBufAppendBuf(*recps, nptr->Value[0], 0); if (Which == ignet_push_share) { StrBufAppendBufPlain(*recps, HKEY(","), 0); StrBufAppendBuf(*recps, nptr->Value[1], 0); } } } static void ListCalculateSubject(struct CtdlMessage *msg) { struct CitContext *CCC = CC; StrBuf *Subject, *FlatSubject; int rlen; char *pCh; if (CM_IsEmpty(msg, eMsgSubject)) { Subject = NewStrBufPlain(HKEY("(no subject)")); } else { Subject = NewStrBufPlain(CM_KEY(msg, eMsgSubject)); } FlatSubject = NewStrBufPlain(NULL, StrLength(Subject)); StrBuf_RFC822_to_Utf8(FlatSubject, Subject, NULL, NULL); rlen = strlen(CCC->room.QRname); pCh = strstr(ChrPtr(FlatSubject), CCC->room.QRname); if ((pCh == NULL) || (*(pCh + rlen) != ']') || (pCh == ChrPtr(FlatSubject)) || (*(pCh - 1) != '[') ) { StrBuf *tmp; StrBufPlain(Subject, HKEY("[")); StrBufAppendBufPlain(Subject, CCC->room.QRname, rlen, 0); StrBufAppendBufPlain(Subject, HKEY("] "), 0); StrBufAppendBuf(Subject, FlatSubject, 0); /* so we can free the right one swap them */ tmp = Subject; Subject = FlatSubject; FlatSubject = tmp; StrBufRFC2047encode(&Subject, FlatSubject); } CM_SetAsFieldSB(msg, eMsgSubject, &Subject); FreeStrBuf(&FlatSubject); } /* * Deliver digest messages */ void network_deliver_digest(SpoolControl *sc) { struct CitContext *CCC = CC; long len; char buf[SIZ]; char *pbuf; struct CtdlMessage *msg = NULL; long msglen; recptypes *valid; char bounce_to[256]; if (sc->Users[digestrecp] == NULL) return; msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_format_type = FMT_RFC822; msg->cm_anon_type = MES_NORMAL; CM_SetFieldLONG(msg, eTimestamp, time(NULL)); CM_SetField(msg, eAuthor, CCC->room.QRname, strlen(CCC->room.QRname)); len = snprintf(buf, sizeof buf, "[%s]", CCC->room.QRname); CM_SetField(msg, eMsgSubject, buf, len); CM_SetField(msg, erFc822Addr, SKEY(sc->Users[roommailalias])); CM_SetField(msg, eRecipient, SKEY(sc->Users[roommailalias])); /* Set the 'List-ID' header */ CM_SetField(msg, eListID, SKEY(sc->ListID)); /* * Go fetch the contents of the digest */ fseek(sc->digestfp, 0L, SEEK_END); msglen = ftell(sc->digestfp); pbuf = malloc(msglen + 1); fseek(sc->digestfp, 0L, SEEK_SET); fread(pbuf, (size_t)msglen, 1, sc->digestfp); pbuf[msglen] = '\0'; CM_SetAsField(msg, eMesageText, &pbuf, msglen); /* Now generate the delivery instructions */ /* Where do we want bounces and other noise to be heard? * Surely not the list members! */ snprintf(bounce_to, sizeof bounce_to, "room_aide@%s", CtdlGetConfigStr("c_fqdn")); /* Now submit the message */ valid = validate_recipients(ChrPtr(sc->Users[digestrecp]), NULL, 0); if (valid != NULL) { valid->bounce_to = strdup(bounce_to); valid->envelope_from = strdup(bounce_to); CtdlSubmitMsg(msg, valid, NULL, 0); } CM_Free(msg); free_recipients(valid); } void network_process_digest(SpoolControl *sc, struct CtdlMessage *omsg, long *delete_after_send) { struct CtdlMessage *msg = NULL; if (sc->Users[digestrecp] == NULL) return; /* If there are digest recipients, we have to build a digest */ if (sc->digestfp == NULL) { sc->digestfp = create_digest_file(&sc->room, 1); if (sc->digestfp == NULL) return; sc->haveDigest = ftell(sc->digestfp) > 0; if (!sc->haveDigest) { fprintf(sc->digestfp, "Content-type: text/plain\n\n"); } sc->haveDigest = 1; } msg = CM_Duplicate(omsg); if (msg != NULL) { sc->haveDigest = 1; fprintf(sc->digestfp, " -----------------------------------" "------------------------------------" "-------\n"); fprintf(sc->digestfp, "From: "); if (!CM_IsEmpty(msg, eAuthor)) { fprintf(sc->digestfp, "%s ", msg->cm_fields[eAuthor]); } if (!CM_IsEmpty(msg, erFc822Addr)) { fprintf(sc->digestfp, "<%s> ", msg->cm_fields[erFc822Addr]); } else if (!CM_IsEmpty(msg, eNodeName)) { fprintf(sc->digestfp, "@%s ", msg->cm_fields[eNodeName]); } fprintf(sc->digestfp, "\n"); if (!CM_IsEmpty(msg, eMsgSubject)) { fprintf(sc->digestfp, "Subject: %s\n", msg->cm_fields[eMsgSubject]); } CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); safestrncpy(CC->preferred_formats, "text/plain", sizeof CC->preferred_formats); CtdlOutputPreLoadedMsg(msg, MT_CITADEL, HEADERS_NONE, 0, 0, 0); StrBufTrim(CC->redirect_buffer); fwrite(HKEY("\n"), 1, sc->digestfp); fwrite(SKEY(CC->redirect_buffer), 1, sc->digestfp); fwrite(HKEY("\n"), 1, sc->digestfp); FreeStrBuf(&CC->redirect_buffer); sc->num_msgs_spooled += 1; CM_Free(msg); } } void network_process_list(SpoolControl *sc, struct CtdlMessage *omsg, long *delete_after_send) { struct CtdlMessage *msg = NULL; /* * Process mailing list recipients */ if (sc->Users[listrecp] == NULL) return; /* create our own copy of the message. * We're going to need to modify it * in order to insert the [list name] in it, etc. */ msg = CM_Duplicate(omsg); CM_SetField(msg, eReplyTo, SKEY(sc->Users[roommailalias])); /* if there is no other recipient, Set the recipient * of the list message to the email address of the * room itself. */ if (CM_IsEmpty(msg, eRecipient)) { CM_SetField(msg, eRecipient, SKEY(sc->Users[roommailalias])); } /* Set the 'List-ID' header */ CM_SetField(msg, eListID, SKEY(sc->ListID)); /* Prepend "[List name]" to the subject */ ListCalculateSubject(msg); /* Handle delivery */ network_deliver_list(msg, sc, CC->room.QRname); CM_Free(msg); } /* * Deliver list messages to everyone on the list ... efficiently */ void network_deliver_list(struct CtdlMessage *msg, SpoolControl *sc, const char *RoomName) { recptypes *valid; char bounce_to[256]; /* Don't do this if there were no recipients! */ if (sc->Users[listrecp] == NULL) return; /* Now generate the delivery instructions */ /* Where do we want bounces and other noise to be heard? * Surely not the list members! */ snprintf(bounce_to, sizeof bounce_to, "room_aide@%s", CtdlGetConfigStr("c_fqdn")); /* Now submit the message */ valid = validate_recipients(ChrPtr(sc->Users[listrecp]), NULL, 0); if (valid != NULL) { valid->bounce_to = strdup(bounce_to); valid->envelope_from = strdup(bounce_to); valid->sending_room = strdup(RoomName); CtdlSubmitMsg(msg, valid, NULL, 0); free_recipients(valid); } /* Do not call CM_Free(msg) here; the caller will free it. */ } void network_process_participate(SpoolControl *sc, struct CtdlMessage *omsg, long *delete_after_send) { struct CtdlMessage *msg = NULL; int ok_to_participate = 0; StrBuf *Buf = NULL; recptypes *valid; /* * Process client-side list participations for this room */ if (sc->Users[participate] == NULL) return; msg = CM_Duplicate(omsg); /* Only send messages which originated on our own * Citadel network, otherwise we'll end up sending the * remote mailing list's messages back to it, which * is rude... */ ok_to_participate = 0; if (!CM_IsEmpty(msg, eNodeName)) { if (!strcasecmp(msg->cm_fields[eNodeName], CtdlGetConfigStr("c_nodename"))) { ok_to_participate = 1; } Buf = NewStrBufPlain(CM_KEY(msg, eNodeName)); if (CtdlIsValidNode(NULL, NULL, Buf, sc->working_ignetcfg, sc->the_netmap) == 0) { ok_to_participate = 1; } } if (ok_to_participate) { /* Replace the Internet email address of the * actual author with the email address of the * room itself, so the remote listserv doesn't * reject us. */ CM_SetField(msg, erFc822Addr, SKEY(sc->Users[roommailalias])); valid = validate_recipients(ChrPtr(sc->Users[participate]) , NULL, 0); CM_SetField(msg, eRecipient, SKEY(sc->Users[roommailalias])); CtdlSubmitMsg(msg, valid, "", 0); free_recipients(valid); } FreeStrBuf(&Buf); CM_Free(msg); } void network_process_ignetpush(SpoolControl *sc, struct CtdlMessage *omsg, long *delete_after_send) { StrBuf *Recipient; StrBuf *RemoteRoom; const char *Pos = NULL; struct CtdlMessage *msg = NULL; struct CitContext *CCC = CC; struct ser_ret sermsg; char buf[SIZ]; char filename[PATH_MAX]; FILE *fp; StrBuf *Buf = NULL; int i; int bang = 0; int send = 1; if (sc->Users[ignet_push_share] == NULL) return; /* * Process IGnet push shares */ msg = CM_Duplicate(omsg); /* Prepend our node name to the Path field whenever * sending a message to another IGnet node */ Netmap_AddMe(msg, HKEY("username")); /* * Determine if this message is set to be deleted * after sending out on the network */ if (!CM_IsEmpty(msg, eSpecialField)) { if (!strcasecmp(msg->cm_fields[eSpecialField], "CANCEL")) { *delete_after_send = 1; } } /* Now send it to every node */ Recipient = NewStrBufPlain(NULL, StrLength(sc->Users[ignet_push_share])); RemoteRoom = NewStrBufPlain(NULL, StrLength(sc->Users[ignet_push_share])); while ((Pos != StrBufNOTNULL) && StrBufExtract_NextToken(Recipient, sc->Users[ignet_push_share], &Pos, ',')) { StrBufExtract_NextToken(RemoteRoom, sc->Users[ignet_push_share], &Pos, ','); send = 1; NewStrBufDupAppendFlush(&Buf, Recipient, NULL, 1); /* Check for valid node name */ if (CtdlIsValidNode(NULL, NULL, Buf, sc->working_ignetcfg, sc->the_netmap) != 0) { QN_syslog(LOG_ERR, "Invalid node <%s>\n", ChrPtr(Recipient)); send = 0; } /* Check for split horizon */ QN_syslog(LOG_DEBUG, "Path is %s\n", msg->cm_fields[eMessagePath]); bang = num_tokens(msg->cm_fields[eMessagePath], '!'); if (bang > 1) { for (i=0; i<(bang-1); ++i) { extract_token(buf, msg->cm_fields[eMessagePath], i, '!', sizeof buf); QN_syslog(LOG_DEBUG, "Compare <%s> to <%s>\n", buf, ChrPtr(Recipient)) ; if (!strcasecmp(buf, ChrPtr(Recipient))) { send = 0; break; } } QN_syslog(LOG_INFO, " %sSending to %s\n", (send)?"":"Not ", ChrPtr(Recipient)); } /* Send the message */ if (send == 1) { /* * Force the message to appear in the correct * room on the far end by setting the C field * correctly */ if (StrLength(RemoteRoom) > 0) { CM_SetField(msg, eRemoteRoom, SKEY(RemoteRoom)); } else { CM_SetField(msg, eRemoteRoom, CCC->room.QRname, strlen(CCC->room.QRname)); } /* serialize it for transmission */ CtdlSerializeMessage(&sermsg, msg); if (sermsg.len > 0) { /* write it to a spool file */ snprintf(filename, sizeof(filename), "%s/%s@%lx%x", ctdl_netout_dir, ChrPtr(Recipient), time(NULL), rand() ); QN_syslog(LOG_DEBUG, "Appending to %s\n", filename); fp = fopen(filename, "ab"); if (fp != NULL) { fwrite(sermsg.ser, sermsg.len, 1, fp); fclose(fp); } else { QN_syslog(LOG_ERR, "%s: %s\n", filename, strerror(errno)); } /* free the serialized version */ free(sermsg.ser); } } } FreeStrBuf(&Buf); FreeStrBuf(&Recipient); FreeStrBuf(&RemoteRoom); CM_Free(msg); } /* * Spools out one message from the list. */ void network_spool_msg(long msgnum, void *userdata) { struct CtdlMessage *msg = NULL; long delete_after_send = 0; /* Set to 1 to delete after spooling */ SpoolControl *sc; sc = (SpoolControl *)userdata; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { syslog(LOG_ERR, "failed to load Message <%ld> from disk\n", msgnum); return; } network_process_list(sc, msg, &delete_after_send); network_process_digest(sc, msg, &delete_after_send); network_process_participate(sc, msg, &delete_after_send); network_process_ignetpush(sc, msg, &delete_after_send); CM_Free(msg); /* update lastsent */ sc->lastsent = msgnum; /* Delete this message if delete-after-send is set */ if (delete_after_send) { CtdlDeleteMessages(CC->room.QRname, &msgnum, 1, ""); } } citadel-902/modules/network/serv_netspool.c000066400000000000000000000756001271512031400212060ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. * * ** NOTE ** A word on the S_NETCONFIGS semaphore: * This is a fairly high-level type of critical section. It ensures that no * two threads work on the netconfigs files at the same time. Since we do * so many things inside these, here are the rules: * 1. begin_critical_section(S_NETCONFIGS) *before* begin_ any others. * 2. Do *not* perform any I/O with the client during these sections. * */ /* * Duration of time (in seconds) after which pending list subscribe/unsubscribe * requests that have not been confirmed will be deleted. */ #define EXP 259200 /* three days */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #ifdef HAVE_SYSCALL_H # include #else # if HAVE_SYS_SYSCALL_H # include # endif #endif #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "serv_network.h" #include "clientsocket.h" #include "citadel_dirs.h" #include "threads.h" #include "context.h" #include "ctdl_module.h" #include "netspool.h" #include "netmail.h" #ifndef DT_UNKNOWN #define DT_UNKNOWN 0 #define DT_DIR 4 #define DT_REG 8 #define DT_LNK 10 #define IFTODT(mode) (((mode) & 0170000) >> 12) #define DTTOIF(dirtype) ((dirtype) << 12) #endif /* * Bounce a message back to the sender */ void network_bounce(struct CtdlMessage **pMsg, char *reason) { char buf[SIZ]; char bouncesource[SIZ]; char recipient[SIZ]; recptypes *valid = NULL; char force_room[ROOMNAMELEN]; static int serialnum = 0; long len; struct CtdlMessage *msg = *pMsg; *pMsg = NULL; syslog(LOG_DEBUG, "entering network_bounce()"); if (msg == NULL) return; snprintf(bouncesource, sizeof bouncesource, "%s@%s", BOUNCESOURCE, CtdlGetConfigStr("c_nodename")); /* * Give it a fresh message ID */ len = snprintf(buf, sizeof(buf), "%ld.%04lx.%04x@%s", (long)time(NULL), (long)getpid(), ++serialnum, CtdlGetConfigStr("c_fqdn")); CM_SetField(msg, emessageId, buf, len); /* * FIXME ... right now we're just sending a bounce; we really want to * include the text of the bounced message. */ if (!IsEmptyStr(reason)) { CM_SetField(msg, eMesageText, reason, strlen(reason)); } msg->cm_format_type = 0; /* * Turn the message around */ CM_FlushField(msg, eRecipient); CM_FlushField(msg, eDestination); len = snprintf(recipient, sizeof(recipient), "%s@%s", msg->cm_fields[eAuthor], msg->cm_fields[eNodeName]); CM_SetField(msg, eAuthor, HKEY(BOUNCESOURCE)); CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(msg, eMsgSubject, HKEY("Delivery Status Notification (Failure)")); Netmap_AddMe(msg, HKEY("unknown_user")); /* Now submit the message */ valid = validate_recipients(recipient, NULL, 0); if (valid != NULL) if (valid->num_error != 0) { free_recipients(valid); valid = NULL; } if ( (valid == NULL) || (!strcasecmp(recipient, bouncesource)) ) { strcpy(force_room, CtdlGetConfigStr("c_aideroom")); } else { strcpy(force_room, ""); } if ( (valid == NULL) && IsEmptyStr(force_room) ) { strcpy(force_room, CtdlGetConfigStr("c_aideroom")); } CtdlSubmitMsg(msg, valid, force_room, 0); /* Clean up */ if (valid != NULL) free_recipients(valid); CM_Free(msg); syslog(LOG_DEBUG, "leaving network_bounce()"); } void ParseLastSent(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *OneRNCFG) { RoomNetCfgLine *nptr; nptr = (RoomNetCfgLine *) malloc(sizeof(RoomNetCfgLine)); memset(nptr, 0, sizeof(RoomNetCfgLine)); OneRNCFG->lastsent = extract_long(LinePos, 0); OneRNCFG->NetConfigs[ThisOne->C] = nptr; } void ParseRoomAlias(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *rncfg) { if (rncfg->Sender != NULL) return; ParseGeneric(ThisOne, Line, LinePos, rncfg); rncfg->Sender = NewStrBufDup(rncfg->NetConfigs[roommailalias]->Value[0]); } void ParseSubPendingLine(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *OneRNCFG) { if (time(NULL) - extract_long(LinePos, 3) > EXP) return; /* expired subscription... */ ParseGeneric(ThisOne, Line, LinePos, OneRNCFG); } void ParseUnSubPendingLine(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *OneRNCFG) { if (time(NULL) - extract_long(LinePos, 2) > EXP) return; /* expired subscription... */ ParseGeneric(ThisOne, Line, LinePos, OneRNCFG); } void SerializeLastSent(const CfgLineType *ThisOne, StrBuf *OutputBuffer, OneRoomNetCfg *RNCfg, RoomNetCfgLine *data) { StrBufAppendBufPlain(OutputBuffer, CKEY(ThisOne->Str), 0); StrBufAppendPrintf(OutputBuffer, "|%ld\n", RNCfg->lastsent); } void DeleteLastSent(const CfgLineType *ThisOne, RoomNetCfgLine **data) { free(*data); *data = NULL; } static const RoomNetCfg SpoolCfgs [4] = { listrecp, digestrecp, participate, ignet_push_share }; static const long SpoolCfgsCopyN [4] = { 1, 1, 1, 2 }; int HaveSpoolConfig(OneRoomNetCfg* RNCfg) { int i; int interested = 0; for (i=0; i < 4; i++) if (RNCfg->NetConfigs[SpoolCfgs[i]] == NULL) interested = 1; return interested; } void Netmap_AddMe(struct CtdlMessage *msg, const char *defl, long defllen) { long node_len; char buf[SIZ]; /* prepend our node to the path */ if (CM_IsEmpty(msg, eMessagePath)) { CM_SetField(msg, eMessagePath, defl, defllen); } node_len = strlen(CtdlGetConfigStr("c_nodename")); if (node_len >= SIZ) node_len = SIZ - 1; memcpy(buf, CtdlGetConfigStr("c_nodename"), node_len); buf[node_len] = '!'; buf[node_len + 1] = '\0'; CM_PrependToField(msg, eMessagePath, buf, node_len + 1); } void InspectQueuedRoom(SpoolControl **pSC, RoomProcList *room_to_spool, HashList *working_ignetcfg, HashList *the_netmap) { SpoolControl *sc; int i = 0; syslog(LOG_INFO, "InspectQueuedRoom(%s)", room_to_spool->name); sc = (SpoolControl*)malloc(sizeof(SpoolControl)); memset(sc, 0, sizeof(SpoolControl)); sc->working_ignetcfg = working_ignetcfg; sc->the_netmap = the_netmap; /* * If the room doesn't exist, don't try to perform its networking tasks. * Normally this should never happen, but once in a while maybe a room gets * queued for networking and then deleted before it can happen. */ if (CtdlGetRoom(&sc->room, room_to_spool->name) != 0) { syslog(LOG_INFO, "ERROR: cannot load <%s>", room_to_spool->name); free(sc); return; } assert(sc->RNCfg == NULL); // checking to make sure we cleared it from last time sc->RNCfg = CtdlGetNetCfgForRoom(sc->room.QRnumber); syslog(LOG_DEBUG, "Room <%s> highest=%ld lastsent=%ld", room_to_spool->name, sc->room.QRhighest, sc->RNCfg->lastsent); if ( (!HaveSpoolConfig(sc->RNCfg)) || (sc->room.QRhighest <= sc->RNCfg->lastsent) ) { // There is nothing to send from this room. MARK_syslog(LOG_DEBUG, "Nothing to do for <%s>", room_to_spool->name); FreeRoomNetworkStruct(&sc->RNCfg); sc->RNCfg = NULL; free(sc); return; } sc->lastsent = sc->RNCfg->lastsent; room_to_spool->lastsent = sc->lastsent; /* Now lets remember whats needed for the actual work... */ for (i=0; i < 4; i++) { aggregate_recipients(&sc->Users[SpoolCfgs[i]], SpoolCfgs[i], sc->RNCfg, SpoolCfgsCopyN[i]); } if (StrLength(sc->RNCfg->Sender) > 0) { sc->Users[roommailalias] = NewStrBufDup(sc->RNCfg->Sender); } sc->next = *pSC; *pSC = sc; FreeRoomNetworkStruct(&sc->RNCfg); // done with this for now, we'll grab it again next time sc->RNCfg = NULL; } void CalcListID(SpoolControl *sc) { StrBuf *RoomName; struct CitContext *CCC = CC; #define MAX_LISTIDLENGTH 150 // Load the room banner as the list description struct CtdlMessage *msg = CtdlFetchMessage(sc->room.msgnum_info, 1, 1); if (msg != NULL) { CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputPreLoadedMsg(msg, MT_CITADEL, HEADERS_NONE, 0, 0, 0); CM_Free(msg); sc->RoomInfo = CC->redirect_buffer; CC->redirect_buffer = NULL; } else { sc->RoomInfo = NewStrBufPlain(NULL, SIZ); } // Calculate the List ID sc->ListID = NewStrBufPlain(NULL, 1024); if (StrLength(sc->RoomInfo) > 0) { const char *Pos = NULL; StrBufSipLine(sc->ListID, sc->RoomInfo, &Pos); if (StrLength(sc->ListID) > MAX_LISTIDLENGTH) { StrBufCutAt(sc->ListID, MAX_LISTIDLENGTH, NULL); StrBufAppendBufPlain(sc->ListID, HKEY("..."), 0); } StrBufAsciify(sc->ListID, ' '); } else { StrBufAppendBufPlain(sc->ListID, CCC->room.QRname, -1, 0); } StrBufAppendBufPlain(sc->ListID, HKEY("<"), 0); RoomName = NewStrBufPlain (sc->room.QRname, -1); StrBufAsciify(RoomName, '_'); StrBufReplaceChars(RoomName, ' ', '_'); if (StrLength(sc->Users[roommailalias]) > 0) { long Pos; const char *AtPos; Pos = StrLength(sc->ListID); StrBufAppendBuf(sc->ListID, sc->Users[roommailalias], 0); AtPos = strchr(ChrPtr(sc->ListID) + Pos, '@'); if (AtPos != NULL) { StrBufPeek(sc->ListID, AtPos, 0, '.'); } } else { StrBufAppendBufPlain(sc->ListID, HKEY("room_"), 0); StrBufAppendBuf(sc->ListID, RoomName, 0); StrBufAppendBufPlain(sc->ListID, HKEY("."), 0); StrBufAppendBufPlain(sc->ListID, CtdlGetConfigStr("c_fqdn"), -1, 0); /* * this used to be: * roomname * according to rfc2919.txt it only has to be a uniq identifier * under the domain of the system; * in general MUAs use it to calculate the reply address nowadays. */ } StrBufAppendBufPlain(sc->ListID, HKEY(">"), 0); if (StrLength(sc->Users[roommailalias]) == 0) { sc->Users[roommailalias] = NewStrBuf(); StrBufAppendBufPlain(sc->Users[roommailalias], HKEY("room_"), 0); StrBufAppendBuf(sc->Users[roommailalias], RoomName, 0); StrBufAppendBufPlain(sc->Users[roommailalias], HKEY("@"), 0); StrBufAppendBufPlain(sc->Users[roommailalias], CtdlGetConfigStr("c_fqdn"), -1, 0); StrBufLowerCase(sc->Users[roommailalias]); } FreeStrBuf(&RoomName); } /* * Batch up and send all outbound traffic from the current room */ void network_spoolout_room(SpoolControl *sc) { struct CitContext *CCC = CC; char buf[SIZ]; int i; long lastsent; /* * If the room doesn't exist, don't try to perform its networking tasks. * Normally this should never happen, but once in a while maybe a room gets * queued for networking and then deleted before it can happen. */ memcpy (&CCC->room, &sc->room, sizeof(ctdlroom)); syslog(LOG_INFO, "network_spoolout_room(room=%s, lastsent=%ld)", CCC->room.QRname, sc->lastsent); CalcListID(sc); /* remember where we started... */ lastsent = sc->lastsent; /* Fetch the messages we ought to send & prepare them. */ CtdlForEachMessage(MSGS_GT, sc->lastsent, NULL, NULL, NULL, network_spool_msg, sc); if (StrLength(sc->Users[roommailalias]) > 0) { long len; len = StrLength(sc->Users[roommailalias]); if (len + 1 > sizeof(buf)) len = sizeof(buf) - 1; memcpy(buf, ChrPtr(sc->Users[roommailalias]), len); buf[len] = '\0'; } else { snprintf(buf, sizeof buf, "room_%s@%s", CCC->room.QRname, CtdlGetConfigStr("c_fqdn")); } for (i=0; buf[i]; ++i) { buf[i] = tolower(buf[i]); if (isspace(buf[i])) buf[i] = '_'; } /* If we wrote a digest, deliver it and then close it */ if ( (sc->Users[digestrecp] != NULL) && (sc->digestfp != NULL) ) { fprintf(sc->digestfp, " ------------------------------------------------------------------------------\n" "You are subscribed to the '%s' list.\n" "To post to the list: %s\n", CCC->room.QRname, buf ); network_deliver_digest(sc); /* deliver */ fclose(sc->digestfp); sc->digestfp = NULL; remove_digest_file(&sc->room); } /* Now rewrite the netconfig */ syslog(LOG_DEBUG, "lastsent was %ld , now it is %ld", lastsent, sc->lastsent); if (sc->lastsent != lastsent) { OneRoomNetCfg *r; begin_critical_section(S_NETCONFIGS); r = CtdlGetNetCfgForRoom(sc->room.QRnumber); r->lastsent = sc->lastsent; SaveRoomNetConfigFile(r, sc->room.QRnumber); FreeRoomNetworkStruct(&r); end_critical_section(S_NETCONFIGS); } } /* * Check the use table. This is a list of messages which have recently * arrived on the system. It is maintained and queried to prevent the same * message from being entered into the database multiple times if it happens * to arrive multiple times by accident. */ int network_usetable(struct CtdlMessage *msg) { StrBuf *msgid; struct CitContext *CCC = CC; time_t now; /* Bail out if we can't generate a message ID */ if ((msg == NULL) || CM_IsEmpty(msg, emessageId)) { return(0); } /* Generate the message ID */ msgid = NewStrBufPlain(CM_KEY(msg, emessageId)); if (haschar(ChrPtr(msgid), '@') == 0) { StrBufAppendBufPlain(msgid, HKEY("@"), 0); if (!CM_IsEmpty(msg, eNodeName)) { StrBufAppendBufPlain(msgid, CM_KEY(msg, eNodeName), 0); } else { FreeStrBuf(&msgid); return(0); } } now = time(NULL); if (CheckIfAlreadySeen("Networker Import", msgid, now, 0, eUpdate, CCC->cs_pid, 0) != 0) { FreeStrBuf(&msgid); return(1); } FreeStrBuf(&msgid); return(0); } /* * Process a buffer containing a single message from a single file * from the inbound queue */ void network_process_buffer(char *buffer, long size, HashList *working_ignetcfg, HashList *the_netmap, int *netmap_changed) { long len; StrBuf *Buf = NULL; struct CtdlMessage *msg = NULL; long pos; int field; recptypes *recp = NULL; char target_room[ROOMNAMELEN]; struct ser_ret sermsg; char filename[PATH_MAX]; FILE *fp; const StrBuf *nexthop = NULL; unsigned char firstbyte; unsigned char lastbyte; syslog(LOG_DEBUG, "network_process_buffer() processing %ld bytes", size); /* Validate just a little bit. First byte should be FF and * last byte should be 00. */ firstbyte = buffer[0]; lastbyte = buffer[size-1]; if ( (firstbyte != 255) || (lastbyte != 0) ) { syslog(LOG_ERR, "Corrupt message ignored. Length=%ld, firstbyte = %d, lastbyte = %d", size, firstbyte, lastbyte); return; } /* Set default target room to trash */ strcpy(target_room, TWITROOM); /* Load the message into memory */ msg = (struct CtdlMessage *) malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = buffer[1]; msg->cm_format_type = buffer[2]; for (pos = 3; pos < size; ++pos) { field = buffer[pos]; len = strlen(buffer + pos + 1); CM_SetField(msg, field, buffer + pos + 1, len); pos = pos + len + 1; } /* Check for message routing */ if (!CM_IsEmpty(msg, eDestination)) { if (strcasecmp(msg->cm_fields[eDestination], CtdlGetConfigStr("c_nodename"))) { /* route the message */ Buf = NewStrBufPlain(CM_KEY(msg,eDestination)); if (CtdlIsValidNode(&nexthop, NULL, Buf, working_ignetcfg, the_netmap) == 0) { Netmap_AddMe(msg, HKEY("unknown_user")); /* serialize the message */ CtdlSerializeMessage(&sermsg, msg); /* now send it */ if (StrLength(nexthop) == 0) { nexthop = Buf; } snprintf(filename, sizeof filename, "%s/%s@%lx%x", ctdl_netout_dir, ChrPtr(nexthop), time(NULL), rand() ); syslog(LOG_DEBUG, "Appending to %s", filename); fp = fopen(filename, "ab"); if (fp != NULL) { fwrite(sermsg.ser, sermsg.len, 1, fp); fclose(fp); } else { syslog(LOG_ERR, "%s: %s", filename, strerror(errno)); } free(sermsg.ser); CM_Free(msg); FreeStrBuf(&Buf); return; } else { /* invalid destination node name */ FreeStrBuf(&Buf); network_bounce(&msg, "A message you sent could not be delivered due to an invalid destination node" " name. Please check the address and try sending the message again.\n"); return; } } } /* * Check to see if we already have a copy of this message, and * abort its processing if so. (We used to post a warning to Aide> * every time this happened, but the network is now so densely * connected that it's inevitable.) */ if (network_usetable(msg) != 0) { CM_Free(msg); return; } /* Learn network topology from the path */ if (!CM_IsEmpty(msg, eNodeName) && !CM_IsEmpty(msg, eMessagePath)) { NetworkLearnTopology(msg->cm_fields[eNodeName], msg->cm_fields[eMessagePath], the_netmap, netmap_changed); } /* Is the sending node giving us a very persuasive suggestion about * which room this message should be saved in? If so, go with that. */ if (!CM_IsEmpty(msg, eRemoteRoom)) { safestrncpy(target_room, msg->cm_fields[eRemoteRoom], sizeof target_room); } /* Otherwise, does it have a recipient? If so, validate it... */ else if (!CM_IsEmpty(msg, eRecipient)) { recp = validate_recipients(msg->cm_fields[eRecipient], NULL, 0); if (recp != NULL) if (recp->num_error != 0) { network_bounce(&msg, "A message you sent could not be delivered due to an invalid address.\n" "Please check the address and try sending the message again.\n"); free_recipients(recp); syslog(LOG_DEBUG, "Bouncing message due to invalid recipient address."); return; } strcpy(target_room, ""); /* no target room if mail */ } /* Our last shot at finding a home for this message is to see if * it has the eOriginalRoom (O) field (Originating room) set. */ else if (!CM_IsEmpty(msg, eOriginalRoom)) { safestrncpy(target_room, msg->cm_fields[eOriginalRoom], sizeof target_room); } /* Strip out fields that are only relevant during transit */ CM_FlushField(msg, eDestination); CM_FlushField(msg, eRemoteRoom); /* save the message into a room */ if (PerformNetprocHooks(msg, target_room) == 0) { msg->cm_flags = CM_SKIP_HOOKS; CtdlSubmitMsg(msg, recp, target_room, 0); } CM_Free(msg); free_recipients(recp); } /* * Process a single message from a single file from the inbound queue */ void network_process_message(FILE *fp, long msgstart, long msgend, HashList *working_ignetcfg, HashList *the_netmap, int *netmap_changed) { long hold_pos; long size; char *buffer; hold_pos = ftell(fp); size = msgend - msgstart + 1; buffer = malloc(size); if (buffer != NULL) { fseek(fp, msgstart, SEEK_SET); if (fread(buffer, size, 1, fp) > 0) { network_process_buffer(buffer, size, working_ignetcfg, the_netmap, netmap_changed); } free(buffer); } fseek(fp, hold_pos, SEEK_SET); } /* * Process a single file from the inbound queue */ void network_process_file(char *filename, HashList *working_ignetcfg, HashList *the_netmap, int *netmap_changed) { FILE *fp; long msgstart = (-1L); long msgend = (-1L); long msgcur = 0L; int ch; int nMessages = 0; fp = fopen(filename, "rb"); if (fp == NULL) { syslog(LOG_CRIT, "Error opening %s: %s", filename, strerror(errno)); return; } fseek(fp, 0L, SEEK_END); syslog(LOG_INFO, "network: processing %ld bytes from %s", ftell(fp), filename); rewind(fp); /* Look for messages in the data stream and break them out */ while (ch = getc(fp), ch >= 0) { if (ch == 255) { if (msgstart >= 0L) { msgend = msgcur - 1; network_process_message(fp, msgstart, msgend, working_ignetcfg, the_netmap, netmap_changed); } msgstart = msgcur; } ++msgcur; nMessages ++; } msgend = msgcur - 1; if (msgstart >= 0L) { network_process_message(fp, msgstart, msgend, working_ignetcfg, the_netmap, netmap_changed); nMessages ++; } if (nMessages > 0) syslog(LOG_INFO, "network: processed %d messages in %s", nMessages, filename); fclose(fp); unlink(filename); } /* * Process anything in the inbound queue */ void network_do_spoolin(HashList *working_ignetcfg, HashList *the_netmap, int *netmap_changed) { DIR *dp; struct dirent *d; struct dirent *filedir_entry; struct stat statbuf; char filename[PATH_MAX]; static time_t last_spoolin_mtime = 0L; int d_type = 0; int d_namelen; /* * Check the spoolin directory's modification time. If it hasn't * been touched, we don't need to scan it. */ if (stat(ctdl_netin_dir, &statbuf)) return; if (statbuf.st_mtime == last_spoolin_mtime) { MARKM_syslog(LOG_DEBUG, "network: nothing in inbound queue"); return; } last_spoolin_mtime = statbuf.st_mtime; MARKM_syslog(LOG_DEBUG, "network: processing inbound queue"); /* * Ok, there's something interesting in there, so scan it. */ dp = opendir(ctdl_netin_dir); if (dp == NULL) return; d = (struct dirent *)malloc(offsetof(struct dirent, d_name) + PATH_MAX + 1); if (d == NULL) { closedir(dp); return; } while ((readdir_r(dp, d, &filedir_entry) == 0) && (filedir_entry != NULL)) { #ifdef _DIRENT_HAVE_D_NAMLEN d_namelen = filedir_entry->d_namlen; #else d_namelen = strlen(filedir_entry->d_name); #endif #ifdef _DIRENT_HAVE_D_TYPE d_type = filedir_entry->d_type; #else d_type = DT_UNKNOWN; #endif if ((d_namelen > 1) && filedir_entry->d_name[d_namelen - 1] == '~') continue; /* Ignore backup files... */ if ((d_namelen == 1) && (filedir_entry->d_name[0] == '.')) continue; if ((d_namelen == 2) && (filedir_entry->d_name[0] == '.') && (filedir_entry->d_name[1] == '.')) continue; if (d_type == DT_UNKNOWN) { struct stat s; char path[PATH_MAX]; snprintf(path, PATH_MAX, "%s/%s", ctdl_netin_dir, filedir_entry->d_name); if (lstat(path, &s) == 0) { d_type = IFTODT(s.st_mode); } } switch (d_type) { case DT_DIR: break; case DT_LNK: /* TODO: check whether its a file or a directory */ case DT_REG: snprintf(filename, sizeof filename, "%s/%s", ctdl_netin_dir, d->d_name ); network_process_file(filename, working_ignetcfg, the_netmap, netmap_changed); } } closedir(dp); free(d); } /* * Step 1: consolidate files in the outbound queue into one file per neighbor node * Step 2: delete any files in the outbound queue that were for neighbors who no longer exist. */ void network_consolidate_spoolout(HashList *working_ignetcfg, HashList *the_netmap) { IOBuffer IOB; FDIOBuffer FDIO; int d_namelen; DIR *dp; struct dirent *d; struct dirent *filedir_entry; const char *pch; char spooloutfilename[PATH_MAX]; char filename[PATH_MAX]; const StrBuf *nexthop; StrBuf *NextHop; int i; struct stat statbuf; int nFailed = 0; int d_type = 0; /* Step 1: consolidate files in the outbound queue into one file per neighbor node */ d = (struct dirent *)malloc(offsetof(struct dirent, d_name) + PATH_MAX + 1); if (d == NULL) return; dp = opendir(ctdl_netout_dir); if (dp == NULL) { free(d); return; } NextHop = NewStrBuf(); memset(&IOB, 0, sizeof(IOBuffer)); memset(&FDIO, 0, sizeof(FDIOBuffer)); FDIO.IOB = &IOB; while ((readdir_r(dp, d, &filedir_entry) == 0) && (filedir_entry != NULL)) { #ifdef _DIRENT_HAVE_D_NAMLEN d_namelen = filedir_entry->d_namlen; #else d_namelen = strlen(filedir_entry->d_name); #endif #ifdef _DIRENT_HAVE_D_TYPE d_type = filedir_entry->d_type; #else d_type = DT_UNKNOWN; #endif if (d_type == DT_DIR) continue; if ((d_namelen > 1) && filedir_entry->d_name[d_namelen - 1] == '~') continue; /* Ignore backup files... */ if ((d_namelen == 1) && (filedir_entry->d_name[0] == '.')) continue; if ((d_namelen == 2) && (filedir_entry->d_name[0] == '.') && (filedir_entry->d_name[1] == '.')) continue; pch = strchr(filedir_entry->d_name, '@'); if (pch == NULL) continue; snprintf(filename, sizeof filename, "%s/%s", ctdl_netout_dir, filedir_entry->d_name); StrBufPlain(NextHop, filedir_entry->d_name, pch - filedir_entry->d_name); snprintf(spooloutfilename, sizeof spooloutfilename, "%s/%s", ctdl_netout_dir, ChrPtr(NextHop)); syslog(LOG_DEBUG, "Consolidate %s to %s", filename, ChrPtr(NextHop)); if (CtdlNetworkTalkingTo(SKEY(NextHop), NTT_CHECK)) { nFailed++; syslog(LOG_DEBUG, "Currently online with %s - skipping for now", ChrPtr(NextHop)); } else { size_t dsize; size_t fsize; int infd, outfd; const char *err = NULL; CtdlNetworkTalkingTo(SKEY(NextHop), NTT_ADD); infd = open(filename, O_RDONLY); if (infd == -1) { nFailed++; syslog(LOG_ERR, "failed to open %s for reading due to %s; skipping.", filename, strerror(errno) ); CtdlNetworkTalkingTo(SKEY(NextHop), NTT_REMOVE); continue; } outfd = open(spooloutfilename, O_EXCL|O_CREAT|O_NONBLOCK|O_WRONLY, S_IRUSR|S_IWUSR); if (outfd == -1) { outfd = open(spooloutfilename, O_EXCL|O_NONBLOCK|O_WRONLY, S_IRUSR | S_IWUSR); } if (outfd == -1) { nFailed++; syslog(LOG_ERR, "failed to open %s for reading due to %s; skipping.", spooloutfilename, strerror(errno) ); close(infd); CtdlNetworkTalkingTo(SKEY(NextHop), NTT_REMOVE); continue; } dsize = lseek(outfd, 0, SEEK_END); lseek(outfd, -dsize, SEEK_SET); fstat(infd, &statbuf); fsize = statbuf.st_size; /* fsize = lseek(infd, 0, SEEK_END); */ IOB.fd = infd; FDIOBufferInit(&FDIO, &IOB, outfd, fsize + dsize); FDIO.ChunkSendRemain = fsize; FDIO.TotalSentAlready = dsize; err = NULL; errno = 0; do {} while ((FileMoveChunked(&FDIO, &err) > 0) && (err == NULL)); if (err == NULL) { unlink(filename); syslog(LOG_DEBUG, "Spoolfile %s now "SIZE_T_FMT" KB", spooloutfilename, (dsize + fsize)/1024); } else { nFailed++; syslog(LOG_ERR, "failed to append to %s [%s]; rolling back..", spooloutfilename, strerror(errno)); /* whoops partial append?? truncate spooloutfilename again! */ ftruncate(outfd, dsize); } FDIOBufferDelete(&FDIO); close(infd); close(outfd); CtdlNetworkTalkingTo(SKEY(NextHop), NTT_REMOVE); } } closedir(dp); if (nFailed > 0) { FreeStrBuf(&NextHop); syslog(LOG_INFO, "skipping Spoolcleanup because of %d files unprocessed.", nFailed); return; } /* Step 2: delete any files in the outbound queue that were for neighbors who no longer exist */ dp = opendir(ctdl_netout_dir); if (dp == NULL) { FreeStrBuf(&NextHop); free(d); return; } while ((readdir_r(dp, d, &filedir_entry) == 0) && (filedir_entry != NULL)) { #ifdef _DIRENT_HAVE_D_NAMLEN d_namelen = filedir_entry->d_namlen; #else d_namelen = strlen(filedir_entry->d_name); #endif #ifdef _DIRENT_HAVE_D_TYPE d_type = filedir_entry->d_type; #else d_type = DT_UNKNOWN; #endif if (d_type == DT_DIR) continue; if ((d_namelen == 1) && (filedir_entry->d_name[0] == '.')) continue; if ((d_namelen == 2) && (filedir_entry->d_name[0] == '.') && (filedir_entry->d_name[1] == '.')) continue; pch = strchr(filedir_entry->d_name, '@'); if (pch == NULL) /* no @ in name? consolidated file. */ continue; StrBufPlain(NextHop, filedir_entry->d_name, pch - filedir_entry->d_name); snprintf(filename, sizeof filename, "%s/%s", ctdl_netout_dir, filedir_entry->d_name ); i = CtdlIsValidNode(&nexthop, NULL, NextHop, working_ignetcfg, the_netmap); if ( (i != 0) || (StrLength(nexthop) > 0) ) { unlink(filename); } } FreeStrBuf(&NextHop); free(d); closedir(dp); } void free_spoolcontrol_struct(SpoolControl **sc) { free_spoolcontrol_struct_members(*sc); free(*sc); *sc = NULL; } void free_spoolcontrol_struct_members(SpoolControl *sc) { int i; FreeStrBuf(&sc->RoomInfo); FreeStrBuf(&sc->ListID); for (i = 0; i < maxRoomNetCfg; i++) FreeStrBuf(&sc->Users[i]); } /* * It's ok if these directories already exist. Just fail silently. */ void create_spool_dirs(void) { if ((mkdir(ctdl_spool_dir, 0700) != 0) && (errno != EEXIST)) syslog(LOG_EMERG, "unable to create directory [%s]: %s", ctdl_spool_dir, strerror(errno)); if (chown(ctdl_spool_dir, CTDLUID, (-1)) != 0) syslog(LOG_EMERG, "unable to set the access rights for [%s]: %s", ctdl_spool_dir, strerror(errno)); if ((mkdir(ctdl_netin_dir, 0700) != 0) && (errno != EEXIST)) syslog(LOG_EMERG, "unable to create directory [%s]: %s", ctdl_netin_dir, strerror(errno)); if (chown(ctdl_netin_dir, CTDLUID, (-1)) != 0) syslog(LOG_EMERG, "unable to set the access rights for [%s]: %s", ctdl_netin_dir, strerror(errno)); if ((mkdir(ctdl_nettmp_dir, 0700) != 0) && (errno != EEXIST)) syslog(LOG_EMERG, "unable to create directory [%s]: %s", ctdl_nettmp_dir, strerror(errno)); if (chown(ctdl_nettmp_dir, CTDLUID, (-1)) != 0) syslog(LOG_EMERG, "unable to set the access rights for [%s]: %s", ctdl_nettmp_dir, strerror(errno)); if ((mkdir(ctdl_netout_dir, 0700) != 0) && (errno != EEXIST)) syslog(LOG_EMERG, "unable to create directory [%s]: %s", ctdl_netout_dir, strerror(errno)); if (chown(ctdl_netout_dir, CTDLUID, (-1)) != 0) syslog(LOG_EMERG, "unable to set the access rights for [%s]: %s", ctdl_netout_dir, strerror(errno)); } /* * Module entry point */ CTDL_MODULE_INIT(network_spool) { if (!threading) { CtdlREGISTERRoomCfgType(subpending, ParseSubPendingLine, 0, 5, SerializeGeneric, DeleteGenericCfgLine); /// todo: move this to mailinglist manager CtdlREGISTERRoomCfgType(unsubpending, ParseUnSubPendingLine, 0, 4, SerializeGeneric, DeleteGenericCfgLine); /// todo: move this to mailinglist manager CtdlREGISTERRoomCfgType(lastsent, ParseLastSent, 1, 1, SerializeLastSent, DeleteLastSent); CtdlREGISTERRoomCfgType(ignet_push_share, ParseGeneric, 0, 2, SerializeGeneric, DeleteGenericCfgLine); // [remotenode|remoteroomname (optional)]// todo: move this to the ignet client CtdlREGISTERRoomCfgType(listrecp, ParseGeneric, 0, 1, SerializeGeneric, DeleteGenericCfgLine); CtdlREGISTERRoomCfgType(digestrecp, ParseGeneric, 0, 1, SerializeGeneric, DeleteGenericCfgLine); CtdlREGISTERRoomCfgType(participate, ParseGeneric, 0, 1, SerializeGeneric, DeleteGenericCfgLine); CtdlREGISTERRoomCfgType(roommailalias, ParseRoomAlias, 0, 1, SerializeGeneric, DeleteGenericCfgLine); create_spool_dirs(); //////todo CtdlRegisterCleanupHook(destroy_network_queue_room); } return "network_spool"; } citadel-902/modules/network/serv_network.c000066400000000000000000000334551271512031400210360ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. * * ** NOTE ** A word on the S_NETCONFIGS semaphore: * This is a fairly high-level type of critical section. It ensures that no * two threads work on the netconfigs files at the same time. Since we do * so many things inside these, here are the rules: * 1. begin_critical_section(S_NETCONFIGS) *before* begin_ any others. * 2. Do *not* perform any I/O with the client during these sections. */ /* * Duration of time (in seconds) after which pending list subscribe/unsubscribe * requests that have not been confirmed will be deleted. */ #define EXP 259200 /* three days */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #ifdef HAVE_SYSCALL_H # include #else # if HAVE_SYS_SYSCALL_H # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "serv_network.h" #include "clientsocket.h" #include "citadel_dirs.h" #include "threads.h" #include "context.h" #include "ctdl_module.h" #include "netspool.h" #include "netmail.h" int NetQDebugEnabled = 0; struct CitContext networker_spool_CC; /* comes from lookup3.c from libcitadel... */ extern uint32_t hashlittle( const void *key, size_t length, uint32_t initval); typedef struct __roomlists { RoomProcList *rplist; } roomlists; /* * When we do network processing, it's accomplished in two passes; one to * gather a list of rooms and one to actually do them. It's ok that rplist * is global; we have a mutex that keeps it safe. */ struct RoomProcList *rplist = NULL; /* * Send the *entire* contents of the current room to one specific network node, * ignoring anything we know about which messages have already undergone * network processing. This can be used to bring a new node into sync. */ int network_sync_to(char *target_node, long len) { struct CitContext *CCC = CC; OneRoomNetCfg OneRNCFG; OneRoomNetCfg *pRNCFG; const RoomNetCfgLine *pCfgLine; SpoolControl sc; int num_spooled = 0; /* Load the netconfig for this room */ pRNCFG = CtdlGetNetCfgForRoom(CCC->room.QRnumber); if (pRNCFG == NULL) { // no netconfig at all? return -1; } if (pRNCFG->NetConfigs[ignet_push_share] == NULL) // no ignet push shares? { FreeRoomNetworkStruct(&pRNCFG); return -1; } /* Search for an ignet_oush_share configuration bearing the target node's name */ for (pCfgLine = pRNCFG->NetConfigs[ignet_push_share]; pCfgLine != NULL; pCfgLine = pCfgLine->next) { if (!strcmp(ChrPtr(pCfgLine->Value[0]), target_node)) break; } /* If we aren't sharing with that node, bail out */ if (pCfgLine == NULL) { FreeRoomNetworkStruct(&pRNCFG); return -1; } /* If we got here, we're good to go ... make up a dummy spoolconfig and roll with it */ begin_critical_section(S_NETCONFIGS); memset(&sc, 0, sizeof(SpoolControl)); memset(&OneRNCFG, 0, sizeof(OneRoomNetCfg)); sc.RNCfg = &OneRNCFG; sc.RNCfg->NetConfigs[ignet_push_share] = DuplicateOneGenericCfgLine(pCfgLine); sc.Users[ignet_push_share] = NewStrBufPlain(NULL, (StrLength(pCfgLine->Value[0]) + StrLength(pCfgLine->Value[1]) + 10) ); StrBufAppendBuf(sc.Users[ignet_push_share], pCfgLine->Value[0], 0); StrBufAppendBufPlain(sc.Users[ignet_push_share], HKEY(","), 0); StrBufAppendBuf(sc.Users[ignet_push_share], pCfgLine->Value[1], 0); CalcListID(&sc); end_critical_section(S_NETCONFIGS); sc.working_ignetcfg = CtdlLoadIgNetCfg(); sc.the_netmap = CtdlReadNetworkMap(); /* Send ALL messages */ num_spooled = CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, network_spool_msg, &sc); /* Concise cleanup because we know there's only one node in the sc */ DeleteGenericCfgLine(NULL, &sc.RNCfg->NetConfigs[ignet_push_share]); DeleteHash(&sc.working_ignetcfg); DeleteHash(&sc.the_netmap); free_spoolcontrol_struct_members(&sc); QN_syslog(LOG_NOTICE, "Synchronized %d messages to <%s>", num_spooled, target_node); return(num_spooled); } /* * Implements the NSYN command */ void cmd_nsyn(char *argbuf) { int num_spooled; long len; char target_node[256]; if (CtdlAccessCheck(ac_aide)) return; len = extract_token(target_node, argbuf, 0, '|', sizeof target_node); num_spooled = network_sync_to(target_node, len); if (num_spooled >= 0) { cprintf("%d Spooled %d messages.\n", CIT_OK, num_spooled); } else { cprintf("%d No such room/node share exists.\n", ERROR + ROOM_NOT_FOUND); } } RoomProcList *CreateRoomProcListEntry(struct ctdlroom *qrbuf, OneRoomNetCfg *OneRNCFG) { int i; struct RoomProcList *ptr; ptr = (struct RoomProcList *) malloc(sizeof (struct RoomProcList)); if (ptr == NULL) { return NULL; } ptr->namelen = strlen(qrbuf->QRname); if (ptr->namelen > ROOMNAMELEN) { ptr->namelen = ROOMNAMELEN - 1; } memcpy (ptr->name, qrbuf->QRname, ptr->namelen); ptr->name[ptr->namelen] = '\0'; ptr->QRNum = qrbuf->QRnumber; for (i = 0; i < ptr->namelen; i++) { ptr->lcname[i] = tolower(ptr->name[i]); } ptr->lcname[ptr->namelen] = '\0'; ptr->key = hashlittle(ptr->lcname, ptr->namelen, 9872345); return ptr; } /* * Batch up and send all outbound traffic from the current room */ void network_queue_interesting_rooms(struct ctdlroom *qrbuf, void *data, OneRoomNetCfg *OneRNCfg) { struct RoomProcList *ptr; roomlists *RP = (roomlists*) data; if (!HaveSpoolConfig(OneRNCfg)) { return; } ptr = CreateRoomProcListEntry(qrbuf, OneRNCfg); if (ptr != NULL) { ptr->next = RP->rplist; RP->rplist = ptr; } } /* * Batch up and send all outbound traffic from the current room */ int network_room_handler(struct ctdlroom *qrbuf) { struct RoomProcList *ptr; OneRoomNetCfg *RNCfg; if (qrbuf->QRdefaultview == VIEW_QUEUE) { return 1; } RNCfg = CtdlGetNetCfgForRoom(qrbuf->QRnumber); if (RNCfg == NULL) { return 1; } if (!HaveSpoolConfig(RNCfg)) { FreeRoomNetworkStruct(&RNCfg); return 1; } ptr = CreateRoomProcListEntry(qrbuf, RNCfg); if (ptr == NULL) { FreeRoomNetworkStruct(&RNCfg); return 1; } begin_critical_section(S_RPLIST); ptr->next = rplist; rplist = ptr; end_critical_section(S_RPLIST); FreeRoomNetworkStruct(&RNCfg); return 1; } void destroy_network_queue_room(RoomProcList *rplist) { struct RoomProcList *cur, *p; cur = rplist; while (cur != NULL) { p = cur->next; free (cur); cur = p; } } void destroy_network_queue_room_locked (void) { begin_critical_section(S_RPLIST); destroy_network_queue_room(rplist); end_critical_section(S_RPLIST); } /* * network_do_queue() * * Run through the rooms doing various types of network stuff. */ void network_do_queue(void) { struct CitContext *CCC = CC; static time_t last_run = 0L; int full_processing = 1; HashList *working_ignetcfg; HashList *the_netmap = NULL; int netmap_changed = 0; roomlists RL; SpoolControl *sc = NULL; SpoolControl *pSC; /* * Run the full set of processing tasks no more frequently * than once every n seconds */ if ( (time(NULL) - last_run) < CtdlGetConfigLong("c_net_freq") ) { full_processing = 0; MARK_syslog(LOG_DEBUG, "Network full processing in %ld seconds.", CtdlGetConfigLong("c_net_freq") - (time(NULL)- last_run) ); } become_session(&networker_spool_CC); begin_critical_section(S_RPLIST); RL.rplist = rplist; rplist = NULL; end_critical_section(S_RPLIST); // TODO hm, check whether we have a config at all here? /* Load the IGnet Configuration into memory */ working_ignetcfg = CtdlLoadIgNetCfg(); /* * Load the network map and filter list into memory. */ if (!server_shutting_down) { the_netmap = CtdlReadNetworkMap(); } /* * Go ahead and run the queue */ if (full_processing && !server_shutting_down) { QNM_syslog(LOG_DEBUG, "network: loading outbound queue"); CtdlForEachNetCfgRoom(network_queue_interesting_rooms, &RL); } if ((RL.rplist != NULL) && (!server_shutting_down)) { RoomProcList *ptr, *cmp; ptr = RL.rplist; QNM_syslog(LOG_DEBUG, "network: running outbound queue"); while (ptr != NULL && !server_shutting_down) { cmp = ptr->next; /* filter duplicates from the list... */ while (cmp != NULL) { if ((cmp->namelen > 0) && (cmp->key == ptr->key) && (cmp->namelen == ptr->namelen) && (strcmp(cmp->lcname, ptr->lcname) == 0)) { cmp->namelen = 0; } cmp = cmp->next; } if (ptr->namelen > 0) { InspectQueuedRoom(&sc, ptr, working_ignetcfg, the_netmap); } ptr = ptr->next; } } pSC = sc; while (pSC != NULL) { network_spoolout_room(pSC); pSC = pSC->next; } pSC = sc; while (pSC != NULL) { sc = pSC->next; free_spoolcontrol_struct(&pSC); pSC = sc; } /* If there is anything in the inbound queue, process it */ if (!server_shutting_down) { network_do_spoolin(working_ignetcfg, the_netmap, &netmap_changed); } /* Free the filter list in memory */ free_netfilter_list(); /* Save the network map back to disk */ if (netmap_changed) { StrBuf *MapStr = CtdlSerializeNetworkMap(the_netmap); char *pMapStr = SmashStrBuf(&MapStr); CtdlPutSysConfig(IGNETMAP, pMapStr); free(pMapStr); } /* combine single message files into one spool entry per remote node. */ network_consolidate_spoolout(working_ignetcfg, the_netmap); /* shut down. */ DeleteHash(&the_netmap); DeleteHash(&working_ignetcfg); QNM_syslog(LOG_DEBUG, "network: queue run completed"); if (full_processing) { last_run = time(NULL); } destroy_network_queue_room(RL.rplist); } void network_logout_hook(void) { CitContext *CCC = MyContext(); /* * If we were talking to a network node, we're not anymore... */ if (!IsEmptyStr(CCC->net_node)) { CtdlNetworkTalkingTo(CCC->net_node, strlen(CCC->net_node), NTT_REMOVE); CCC->net_node[0] = '\0'; } } void network_cleanup_function(void) { struct CitContext *CCC = CC; if (!IsEmptyStr(CCC->net_node)) { CtdlNetworkTalkingTo(CCC->net_node, strlen(CCC->net_node), NTT_REMOVE); CCC->net_node[0] = '\0'; } } int ignet_aftersave(struct CtdlMessage *msg, recptypes *recps) { /* For IGnet mail, we have to save a new copy into the spooler for * each recipient, with the R and D fields set to the recipient and * destination-node. This has two ugly side effects: all other * recipients end up being unlisted in this recipient's copy of the * message, and it has to deliver multiple messages to the same * node. We'll revisit this again in a year or so when everyone has * a network spool receiver that can handle the new style messages. */ if ((recps != NULL) && (recps->num_ignet > 0)) { char *recipient; int rv = 0; struct ser_ret smr; FILE *network_fp = NULL; char submit_filename[128]; static int seqnum = 1; int i; char *hold_R, *hold_D, *RBuf, *DBuf; long hrlen, hdlen, rblen, dblen, count, rlen; CitContext *CCC = MyContext(); CM_GetAsField(msg, eRecipient, &hold_R, &hrlen);; CM_GetAsField(msg, eDestination, &hold_D, &hdlen);; count = num_tokens(recps->recp_ignet, '|'); rlen = strlen(recps->recp_ignet); recipient = malloc(rlen + 1); RBuf = malloc(rlen + 1); DBuf = malloc(rlen + 1); for (i=0; irecp_ignet, i, '|', rlen + 1); rblen = extract_token(RBuf, recipient, 0, '@', rlen + 1); dblen = extract_token(DBuf, recipient, 1, '@', rlen + 1); CM_SetAsField(msg, eRecipient, &RBuf, rblen);; CM_SetAsField(msg, eDestination, &DBuf, dblen);; CtdlSerializeMessage(&smr, msg); if (smr.len > 0) { snprintf(submit_filename, sizeof submit_filename, "%s/netmail.%04lx.%04x.%04x", ctdl_netin_dir, (long) getpid(), CCC->cs_pid, ++seqnum); network_fp = fopen(submit_filename, "wb+"); if (network_fp != NULL) { rv = fwrite(smr.ser, smr.len, 1, network_fp); if (rv == -1) { MSG_syslog(LOG_EMERG, "CtdlSubmitMsg(): Couldn't write network spool file: %s", strerror(errno)); } fclose(network_fp); } free(smr.ser); } CM_GetAsField(msg, eRecipient, &RBuf, &rblen);; CM_GetAsField(msg, eDestination, &DBuf, &dblen);; } free(RBuf); free(DBuf); free(recipient); CM_SetAsField(msg, eRecipient, &hold_R, hrlen); CM_SetAsField(msg, eDestination, &hold_D, hdlen); return 1; } return 0; } /* * Module entry point */ void SetNetQDebugEnabled(const int n) { NetQDebugEnabled = n; } CTDL_MODULE_INIT(network) { if (!threading) { CtdlRegisterMessageHook(ignet_aftersave, EVT_AFTERSAVE); CtdlFillSystemContext(&networker_spool_CC, "CitNetSpool"); CtdlRegisterDebugFlagHook(HKEY("networkqueue"), SetNetQDebugEnabled, &NetQDebugEnabled); CtdlRegisterSessionHook(network_cleanup_function, EVT_STOP, PRIO_STOP + 30); CtdlRegisterSessionHook(network_logout_hook, EVT_LOGOUT, PRIO_LOGOUT + 10); CtdlRegisterProtoHook(cmd_nsyn, "NSYN", "Synchronize room to node"); CtdlRegisterRoomHook(network_room_handler); CtdlRegisterCleanupHook(destroy_network_queue_room_locked); CtdlRegisterSessionHook(network_do_queue, EVT_TIMER, PRIO_QUEUE + 10); } return "network"; } citadel-902/modules/network/serv_network.h000066400000000000000000000024621271512031400210350ustar00rootroot00000000000000/* * Copyright (c) 2000-2012 by the citadel.org team * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ extern int NetQDebugEnabled; #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (NetQDebugEnabled != 0)) #define QN_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "CC[%d]" FORMAT, \ CCC->cs_pid, __VA_ARGS__) #define QNM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "CC[%d]" FORMAT, \ CCC->cs_pid) void free_netfilter_list(void); void load_network_filter_list(void); void network_queue_room(struct ctdlroom *, void *); ////void destroy_network_queue_room(void); citadel-902/modules/networkclient/000077500000000000000000000000001271512031400173275ustar00rootroot00000000000000citadel-902/modules/networkclient/serv_networkclient.c000066400000000000000000000645411271512031400234340ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. * * ** NOTE ** A word on the S_NETCONFIGS semaphore: * This is a fairly high-level type of critical section. It ensures that no * two threads work on the netconfigs files at the same time. Since we do * so many things inside these, here are the rules: * 1. begin_critical_section(S_NETCONFIGS) *before* begin_ any others. * 2. Do *not* perform any I/O with the client during these sections. * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #ifdef HAVE_SYSCALL_H # include #else # if HAVE_SYS_SYSCALL_H # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "clientsocket.h" #include "citadel_dirs.h" #include "threads.h" #include "context.h" #include "ctdl_module.h" struct CitContext networker_client_CC; #define NODE ChrPtr(((AsyncNetworker*)IO->Data)->node) #define N ((AsyncNetworker*)IO->Data)->n int NetworkClientDebugEnabled = 0; #define NCDBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (NetworkClientDebugEnabled != 0)) #define EVN_syslog(LEVEL, FORMAT, ...) \ NCDBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d]NW[%s][%ld]" FORMAT, \ IOSTR, IO->ID, CCID, NODE, N, __VA_ARGS__) #define EVNM_syslog(LEVEL, FORMAT) \ NCDBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d]NW[%s][%ld]" FORMAT, \ IOSTR, IO->ID, CCID, NODE, N) #define EVNCS_syslog(LEVEL, FORMAT, ...) \ NCDBGLOG(LEVEL) syslog(LEVEL, "%s[%ld]NW[%s][%ld]" FORMAT, \ IOSTR, IO->ID, NODE, N, __VA_ARGS__) #define EVNCSM_syslog(LEVEL, FORMAT) \ NCDBGLOG(LEVEL) syslog(LEVEL, "%s[%ld]NW[%s][%ld]" FORMAT, \ IOSTR, IO->ID, NODE, N) typedef enum _eNWCState { eGreating, eAuth, eNDOP, eREAD, eReadBLOB, eCLOS, eNUOP, eWRIT, eWriteBLOB, eUCLS, eQUIT }eNWCState; typedef enum _eNWCVState { eNWCVSLookup, eNWCVSConnecting, eNWCVSConnFail, eNWCVSGreating, eNWCVSAuth, eNWCVSAuthFailNTT, eNWCVSAuthFail, eNWCVSNDOP, eNWCVSNDOPDone, eNWCVSNUOP, eNWCVSNUOPDone, eNWCVSFail }eNWCVState; ConstStr NWCStateStr[] = { {HKEY("Looking up Host")}, {HKEY("Connecting host")}, {HKEY("Failed to connect")}, {HKEY("Rread Greeting")}, {HKEY("Authenticating")}, {HKEY("Auth failed by NTT")}, {HKEY("Auth failed")}, {HKEY("Downloading")}, {HKEY("Downloading Success")}, {HKEY("Uploading Spoolfile")}, {HKEY("Uploading done")}, {HKEY("failed")} }; void SetNWCState(AsyncIO *IO, eNWCVState State) { CitContext* CCC = IO->CitContext; memcpy(CCC->cs_clientname, NWCStateStr[State].Key, NWCStateStr[State].len + 1); } typedef struct _async_networker { AsyncIO IO; DNSQueryParts HostLookup; eNWCState State; long n; StrBuf *SpoolFileName; StrBuf *tempFileName; StrBuf *node; StrBuf *host; StrBuf *port; StrBuf *secret; StrBuf *Url; } AsyncNetworker; typedef eNextState(*NWClientHandler)(AsyncNetworker* NW); eNextState nwc_get_one_host_ip(AsyncIO *IO); eNextState nwc_connect_ip(AsyncIO *IO); eNextState NWC_SendQUIT(AsyncNetworker *NW); eNextState NWC_DispatchWriteDone(AsyncIO *IO); void DeleteNetworker(void *vptr) { AsyncNetworker *NW = (AsyncNetworker *)vptr; FreeStrBuf(&NW->SpoolFileName); FreeStrBuf(&NW->tempFileName); FreeStrBuf(&NW->node); FreeStrBuf(&NW->host); FreeStrBuf(&NW->port); FreeStrBuf(&NW->secret); FreeStrBuf(&NW->Url); FreeStrBuf(&NW->IO.ErrMsg); FreeAsyncIOContents(&NW->IO); if (NW->HostLookup.VParsedDNSReply != NULL) { NW->HostLookup.DNSReplyFree(NW->HostLookup.VParsedDNSReply); NW->HostLookup.VParsedDNSReply = NULL; } free(NW); } #define NWC_DBG_SEND() EVN_syslog(LOG_DEBUG, ": > %s", ChrPtr(NW->IO.SendBuf.Buf)) #define NWC_DBG_READ() EVN_syslog(LOG_DEBUG, ": < %s\n", ChrPtr(NW->IO.IOBuf)) #define NWC_OK (strncasecmp(ChrPtr(NW->IO.IOBuf), "+OK", 3) == 0) eNextState NWC_SendFailureMessage(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; long lens[2]; const char *strs[2]; EVN_syslog(LOG_DEBUG, "NWC: %s\n", __FUNCTION__); strs[0] = ChrPtr(NW->node); lens[0] = StrLength(NW->node); strs[1] = ChrPtr(NW->IO.ErrMsg); lens[1] = StrLength(NW->IO.ErrMsg); CtdlAideFPMessage( ChrPtr(NW->IO.ErrMsg), "Networker error", 2, strs, (long*) &lens, CCID, IO->ID, EvGetNow(IO)); return eAbort; } eNextState FinalizeNetworker(AsyncIO *IO) { AsyncNetworker *NW = (AsyncNetworker *)IO->Data; CtdlNetworkTalkingTo(SKEY(NW->node), NTT_REMOVE); DeleteNetworker(IO->Data); return eAbort; } eNextState NWC_ReadGreeting(AsyncNetworker *NW) { char connected_to[SIZ]; AsyncIO *IO = &NW->IO; SetNWCState(IO, eNWCVSGreating); NWC_DBG_READ(); /* Read the server greeting */ /* Check that the remote is who we think it is and warn the Aide if not */ extract_token (connected_to, ChrPtr(NW->IO.IOBuf), 1, ' ', sizeof connected_to); if (strcmp(connected_to, ChrPtr(NW->node)) != 0) { if (NW->IO.ErrMsg == NULL) NW->IO.ErrMsg = NewStrBuf(); StrBufPrintf(NW->IO.ErrMsg, "Connected to node \"%s\" but I was expecting to connect to node \"%s\".", connected_to, ChrPtr(NW->node)); EVN_syslog(LOG_ERR, "%s\n", ChrPtr(NW->IO.ErrMsg)); return EventQueueDBOperation(IO, NWC_SendFailureMessage, 1); } return eSendReply; } eNextState NWC_SendAuth(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; SetNWCState(IO, eNWCVSAuth); /* We're talking to the correct node. Now identify ourselves. */ StrBufPrintf(NW->IO.SendBuf.Buf, "NETP %s|%s\n", CtdlGetConfigStr("c_nodename"), ChrPtr(NW->secret)); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadAuthReply(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); if (ChrPtr(NW->IO.IOBuf)[0] == '2') { return eSendReply; } else { int Error = atol(ChrPtr(NW->IO.IOBuf)); if (NW->IO.ErrMsg == NULL) NW->IO.ErrMsg = NewStrBuf(); StrBufPrintf(NW->IO.ErrMsg, "Connected to node \"%s\" but my secret wasn't accurate.\nReason was:%s\n", ChrPtr(NW->node), ChrPtr(NW->IO.IOBuf) + 4); if (Error == 552) { SetNWCState(IO, eNWCVSAuthFailNTT); EVN_syslog(LOG_INFO, "Already talking to %s; skipping this time.\n", ChrPtr(NW->node)); } else { SetNWCState(IO, eNWCVSAuthFailNTT); EVN_syslog(LOG_ERR, "%s\n", ChrPtr(NW->IO.ErrMsg)); return EventQueueDBOperation(IO, NWC_SendFailureMessage, 1); } return eAbort; } } eNextState NWC_SendNDOP(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; SetNWCState(IO, eNWCVSNDOP); NW->tempFileName = NewStrBuf(); NW->SpoolFileName = NewStrBuf(); StrBufPrintf(NW->SpoolFileName, "%s/%s.%lx%x", ctdl_netin_dir, ChrPtr(NW->node), time(NULL),// TODO: get time from libev rand()); StrBufStripSlashes(NW->SpoolFileName, 1); StrBufPrintf(NW->tempFileName, "%s/%s.%lx%x", ctdl_nettmp_dir, ChrPtr(NW->node), time(NULL),// TODO: get time from libev rand()); StrBufStripSlashes(NW->tempFileName, 1); /* We're talking to the correct node. Now identify ourselves. */ StrBufPlain(NW->IO.SendBuf.Buf, HKEY("NDOP\n")); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadNDOPReply(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; int TotalSendSize; NWC_DBG_READ(); if (ChrPtr(NW->IO.IOBuf)[0] == '2') { int LogLevel = LOG_DEBUG; NW->IO.IOB.TotalSentAlready = 0; TotalSendSize = atol (ChrPtr(NW->IO.IOBuf) + 4); if (TotalSendSize > 0) LogLevel = LOG_INFO; EVN_syslog(LogLevel, "Expecting to transfer %d bytes to %s\n", TotalSendSize, ChrPtr(NW->tempFileName)); if (TotalSendSize <= 0) { NW->State = eNUOP - 1; } else { int fd; fd = open(ChrPtr(NW->tempFileName), O_EXCL|O_CREAT|O_NONBLOCK|O_WRONLY, S_IRUSR|S_IWUSR); if (fd < 0) { SetNWCState(IO, eNWCVSFail); EVN_syslog(LOG_CRIT, "cannot open %s: %s\n", ChrPtr(NW->tempFileName), strerror(errno)); NW->State = eQUIT - 1; return eAbort; } FDIOBufferInit(&NW->IO.IOB, &NW->IO.RecvBuf, fd, TotalSendSize); } return eSendReply; } else { SetNWCState(IO, eNWCVSFail); return eAbort; } } eNextState NWC_SendREAD(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; eNextState rc; if (NW->IO.IOB.TotalSentAlready < NW->IO.IOB.TotalSendSize) { /* * If shutting down we can exit here and unlink the temp file. * this shouldn't loose us any messages. */ if (server_shutting_down) { FDIOBufferDelete(&NW->IO.IOB); unlink(ChrPtr(NW->tempFileName)); FDIOBufferDelete(&IO->IOB); SetNWCState(IO, eNWCVSFail); return eAbort; } StrBufPrintf(NW->IO.SendBuf.Buf, "READ "LOFF_T_FMT"|%ld\n", NW->IO.IOB.TotalSentAlready, NW->IO.IOB.TotalSendSize); /* ((NW->IO.IOB.TotalSendSize - NW->IO.IOB.TotalSentAlready > IGNET_PACKET_SIZE) ? IGNET_PACKET_SIZE : (NW->IO.IOB.TotalSendSize - NW->IO.IOB.TotalSentAlready)) ); */ NWC_DBG_SEND(); return eSendReply; } else { NW->State = eCLOS; rc = NWC_DispatchWriteDone(&NW->IO); NWC_DBG_SEND(); return rc; } } eNextState NWC_ReadREADState(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); if (ChrPtr(NW->IO.IOBuf)[0] == '6') { NW->IO.IOB.ChunkSendRemain = NW->IO.IOB.ChunkSize = atol(ChrPtr(NW->IO.IOBuf)+4); return eReadFile; } FDIOBufferDelete(&IO->IOB); return eAbort; } eNextState NWC_ReadREADBlobDone(AsyncNetworker *NW); eNextState NWC_ReadREADBlob(AsyncNetworker *NW) { eNextState rc; AsyncIO *IO = &NW->IO; NWC_DBG_READ(); if (NW->IO.IOB.TotalSendSize == NW->IO.IOB.TotalSentAlready) { NW->State ++; FDIOBufferDelete(&NW->IO.IOB); if (link(ChrPtr(NW->tempFileName), ChrPtr(NW->SpoolFileName)) != 0) { EVN_syslog(LOG_ALERT, "Could not link %s to %s: %s\n", ChrPtr(NW->tempFileName), ChrPtr(NW->SpoolFileName), strerror(errno)); } else { EVN_syslog(LOG_INFO, "moved %s to %s\n", ChrPtr(NW->tempFileName), ChrPtr(NW->SpoolFileName)); } unlink(ChrPtr(NW->tempFileName)); rc = NWC_DispatchWriteDone(&NW->IO); NW->State --; return rc; } else { NW->State --; NW->IO.IOB.ChunkSendRemain = NW->IO.IOB.ChunkSize; return eSendReply; //NWC_DispatchWriteDone(&NW->IO); } } eNextState NWC_ReadREADBlobDone(AsyncNetworker *NW) { eNextState rc; AsyncIO *IO = &NW->IO; /* we don't have any data to debug print here. */ if (NW->IO.IOB.TotalSentAlready >= NW->IO.IOB.TotalSendSize) { NW->State ++; FDIOBufferDelete(&NW->IO.IOB); if (link(ChrPtr(NW->tempFileName), ChrPtr(NW->SpoolFileName)) != 0) { EVN_syslog(LOG_ALERT, "Could not link %s to %s: %s\n", ChrPtr(NW->tempFileName), ChrPtr(NW->SpoolFileName), strerror(errno)); } else { EVN_syslog(LOG_INFO, "moved %s to %s\n", ChrPtr(NW->tempFileName), ChrPtr(NW->SpoolFileName)); } unlink(ChrPtr(NW->tempFileName)); rc = NWC_DispatchWriteDone(&NW->IO); NW->State --; return rc; } else { NW->State --; NW->IO.IOB.ChunkSendRemain = NW->IO.IOB.ChunkSize; return NWC_DispatchWriteDone(&NW->IO); } } eNextState NWC_SendCLOS(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; SetNWCState(IO, eNWCVSNDOPDone); StrBufPlain(NW->IO.SendBuf.Buf, HKEY("CLOS\n")); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadCLOSReply(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); FDIOBufferDelete(&IO->IOB); if (ChrPtr(NW->IO.IOBuf)[0] != '2') return eTerminateConnection; return eSendReply; } eNextState NWC_SendNUOP(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; eNextState rc; long TotalSendSize; struct stat statbuf; int fd; SetNWCState(IO, eNWCVSNUOP); StrBufPrintf(NW->SpoolFileName, "%s/%s", ctdl_netout_dir, ChrPtr(NW->node)); StrBufStripSlashes(NW->SpoolFileName, 1); fd = open(ChrPtr(NW->SpoolFileName), O_EXCL|O_NONBLOCK|O_RDONLY); if (fd < 0) { if (errno != ENOENT) { EVN_syslog(LOG_CRIT, "cannot open %s: %s\n", ChrPtr(NW->SpoolFileName), strerror(errno)); } NW->State = eQUIT; rc = NWC_SendQUIT(NW); NWC_DBG_SEND(); return rc; } if (fstat(fd, &statbuf) == -1) { EVN_syslog(LOG_CRIT, "FSTAT FAILED %s [%s]--\n", ChrPtr(NW->SpoolFileName), strerror(errno)); if (fd > 0) close(fd); return eAbort; } TotalSendSize = statbuf.st_size; if (TotalSendSize == 0) { EVNM_syslog(LOG_DEBUG, "Nothing to send.\n"); NW->State = eQUIT; rc = NWC_SendQUIT(NW); NWC_DBG_SEND(); if (fd > 0) close(fd); return rc; } else { EVN_syslog(LOG_INFO, "sending %s to %s\n", ChrPtr(NW->SpoolFileName), ChrPtr(NW->node)); } FDIOBufferInit(&NW->IO.IOB, &NW->IO.SendBuf, fd, TotalSendSize); StrBufPlain(NW->IO.SendBuf.Buf, HKEY("NUOP\n")); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadNUOPReply(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); if (ChrPtr(NW->IO.IOBuf)[0] != '2') { FDIOBufferDelete(&IO->IOB); return eAbort; } return eSendReply; } eNextState NWC_SendWRIT(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; StrBufPrintf(NW->IO.SendBuf.Buf, "WRIT "LOFF_T_FMT"\n", NW->IO.IOB.TotalSendSize - NW->IO.IOB.TotalSentAlready); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadWRITReply(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); if (ChrPtr(NW->IO.IOBuf)[0] != '7') { FDIOBufferDelete(&IO->IOB); return eAbort; } NW->IO.IOB.ChunkSendRemain = NW->IO.IOB.ChunkSize = atol(ChrPtr(NW->IO.IOBuf)+4); return eSendFile; } eNextState NWC_SendBlobDone(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; eNextState rc; if (NW->IO.IOB.TotalSentAlready >= IO->IOB.TotalSendSize) { NW->State ++; FDIOBufferDelete(&IO->IOB); rc = NWC_DispatchWriteDone(IO); NW->State --; return rc; } else { NW->State --; IO->IOB.ChunkSendRemain = IO->IOB.ChunkSize; rc = NWC_DispatchWriteDone(IO); NW->State --; return rc; } } eNextState NWC_SendUCLS(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; StrBufPlain(NW->IO.SendBuf.Buf, HKEY("UCLS 1\n")); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadUCLS(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); EVN_syslog(LOG_NOTICE, "Sent %s [%ld] octets to <%s>\n", ChrPtr(NW->SpoolFileName), NW->IO.IOB.ChunkSize, ChrPtr(NW->node)); if (ChrPtr(NW->IO.IOBuf)[0] == '2') { EVN_syslog(LOG_DEBUG, "Removing <%s>\n", ChrPtr(NW->SpoolFileName)); unlink(ChrPtr(NW->SpoolFileName)); } FDIOBufferDelete(&IO->IOB); SetNWCState(IO, eNWCVSNUOPDone); return eSendReply; } eNextState NWC_SendQUIT(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; StrBufPlain(NW->IO.SendBuf.Buf, HKEY("QUIT\n")); NWC_DBG_SEND(); return eSendReply; } eNextState NWC_ReadQUIT(AsyncNetworker *NW) { AsyncIO *IO = &NW->IO; NWC_DBG_READ(); return eAbort; } NWClientHandler NWC_ReadHandlers[] = { NWC_ReadGreeting, NWC_ReadAuthReply, NWC_ReadNDOPReply, NWC_ReadREADState, NWC_ReadREADBlob, NWC_ReadCLOSReply, NWC_ReadNUOPReply, NWC_ReadWRITReply, NWC_SendBlobDone, NWC_ReadUCLS, NWC_ReadQUIT}; long NWC_ConnTimeout = 100; const long NWC_SendTimeouts[] = { 100, 100, 100, 100, 100, 100, 100, 100 }; const ConstStr NWC[] = { {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")} }; NWClientHandler NWC_SendHandlers[] = { NULL, NWC_SendAuth, NWC_SendNDOP, NWC_SendREAD, NWC_ReadREADBlobDone, NWC_SendCLOS, NWC_SendNUOP, NWC_SendWRIT, NWC_SendBlobDone, NWC_SendUCLS, NWC_SendQUIT }; const long NWC_ReadTimeouts[] = { 100, 100, 100, 100, 100, 100, 100, 100, 100, 100 }; eNextState nwc_get_one_host_ip_done(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; struct hostent *hostent; QueryCbDone(IO); hostent = NW->HostLookup.VParsedDNSReply; if ((NW->HostLookup.DNSStatus == ARES_SUCCESS) && (hostent != NULL) ) { memset(&NW->IO.ConnectMe->Addr, 0, sizeof(struct in6_addr)); if (NW->IO.ConnectMe->IPv6) { memcpy(&NW->IO.ConnectMe->Addr.sin6_addr.s6_addr, &hostent->h_addr_list[0], sizeof(struct in6_addr)); NW->IO.ConnectMe->Addr.sin6_family = hostent->h_addrtype; NW->IO.ConnectMe->Addr.sin6_port = htons(atol(ChrPtr(NW->port)));//// TODO use the one from the URL. } else { struct sockaddr_in *addr = (struct sockaddr_in*) &NW->IO.ConnectMe->Addr; /* Bypass the ns lookup result like this: IO->Addr.sin_addr.s_addr = inet_addr("127.0.0.1"); */ // addr->sin_addr.s_addr = htonl((uint32_t)&hostent->h_addr_list[0]); memcpy(&addr->sin_addr.s_addr, hostent->h_addr_list[0], sizeof(uint32_t)); addr->sin_family = hostent->h_addrtype; addr->sin_port = htons(504);/// default citadel port } return nwc_connect_ip(IO); } else return eAbort; } eNextState nwc_get_one_host_ip(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; /* * here we start with the lookup of one host. */ EVN_syslog(LOG_DEBUG, "NWC: %s\n", __FUNCTION__); EVN_syslog(LOG_DEBUG, "NWC client[%ld]: looking up %s-Record %s : %d ...\n", NW->n, (NW->IO.ConnectMe->IPv6)? "aaaa": "a", NW->IO.ConnectMe->Host, NW->IO.ConnectMe->Port); QueueQuery((NW->IO.ConnectMe->IPv6)? ns_t_aaaa : ns_t_a, NW->IO.ConnectMe->Host, &NW->IO, &NW->HostLookup, nwc_get_one_host_ip_done); IO->NextState = eReadDNSReply; return IO->NextState; } /** * @brief lineread Handler; understands when to read more POP3 lines, and when this is a one-lined reply. */ eReadState NWC_ReadServerStatus(AsyncIO *IO) { // AsyncNetworker *NW = IO->Data; eReadState Finished = eBufferNotEmpty; switch (IO->NextState) { case eSendDNSQuery: case eReadDNSReply: case eDBQuery: case eConnect: case eTerminateConnection: case eAbort: Finished = eReadFail; break; case eSendReply: case eSendMore: case eReadMore: case eReadMessage: Finished = StrBufChunkSipLine(IO->IOBuf, &IO->RecvBuf); break; case eReadFile: case eSendFile: case eReadPayload: break; } return Finished; } eNextState NWC_FailNetworkConnection(AsyncIO *IO) { SetNWCState(IO, eNWCVSConnFail); return EventQueueDBOperation(IO, NWC_SendFailureMessage, 1); } void NWC_SetTimeout(eNextState NextTCPState, AsyncNetworker *NW) { double Timeout = 0.0; //EVN_syslog(LOG_DEBUG, "%s - %d\n", __FUNCTION__, NextTCPState); switch (NextTCPState) { case eSendMore: case eSendReply: case eReadMessage: Timeout = NWC_ReadTimeouts[NW->State]; break; case eReadFile: case eSendFile: case eReadPayload: Timeout = 100000; break; case eSendDNSQuery: case eReadDNSReply: case eDBQuery: case eReadMore: case eConnect: case eTerminateConnection: case eAbort: return; } if (Timeout > 0) { AsyncIO *IO = &NW->IO; EVN_syslog(LOG_DEBUG, "%s - %d %f\n", __FUNCTION__, NextTCPState, Timeout); SetNextTimeout(&NW->IO, Timeout*100); } } eNextState NWC_DispatchReadDone(AsyncIO *IO) { EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); AsyncNetworker *NW = IO->Data; eNextState rc; rc = NWC_ReadHandlers[NW->State](NW); if ((rc != eReadMore) && (rc != eAbort) && (rc != eDBQuery)) { NW->State++; } NWC_SetTimeout(rc, NW); return rc; } eNextState NWC_DispatchWriteDone(AsyncIO *IO) { EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); AsyncNetworker *NW = IO->Data; eNextState rc; rc = NWC_SendHandlers[NW->State](NW); NWC_SetTimeout(rc, NW); return rc; } /*****************************************************************************/ /* Networker CLIENT ERROR CATCHERS */ /*****************************************************************************/ eNextState NWC_Terminate(AsyncIO *IO) { EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); FinalizeNetworker(IO); return eAbort; } eNextState NWC_TerminateDB(AsyncIO *IO) { EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); FinalizeNetworker(IO); return eAbort; } eNextState NWC_Timeout(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); if (NW->IO.ErrMsg == NULL) NW->IO.ErrMsg = NewStrBuf(); StrBufPrintf(NW->IO.ErrMsg, "Timeout while talking to %s \r\n", ChrPtr(NW->host)); return NWC_FailNetworkConnection(IO); } eNextState NWC_ConnFail(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); if (NW->IO.ErrMsg == NULL) NW->IO.ErrMsg = NewStrBuf(); StrBufPrintf(NW->IO.ErrMsg, "failed to connect %s \r\n", ChrPtr(NW->host)); return NWC_FailNetworkConnection(IO); } eNextState NWC_DNSFail(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); if (NW->IO.ErrMsg == NULL) NW->IO.ErrMsg = NewStrBuf(); StrBufPrintf(NW->IO.ErrMsg, "failed to look up %s \r\n", ChrPtr(NW->host)); return NWC_FailNetworkConnection(IO); } eNextState NWC_Shutdown(AsyncIO *IO) { EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); FinalizeNetworker(IO); return eAbort; } eNextState nwc_connect_ip(AsyncIO *IO) { AsyncNetworker *NW = IO->Data; SetNWCState(&NW->IO, eNWCVSConnecting); EVN_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); EVN_syslog(LOG_NOTICE, "Connecting to <%s> at %s:%s\n", ChrPtr(NW->node), ChrPtr(NW->host), ChrPtr(NW->port)); return EvConnectSock(IO, NWC_ConnTimeout, NWC_ReadTimeouts[0], 1); } static int NetworkerCount = 0; void RunNetworker(AsyncNetworker *NW) { NW->n = NetworkerCount++; CtdlNetworkTalkingTo(SKEY(NW->node), NTT_ADD); syslog(LOG_DEBUG, "NW[%s][%ld]: polling\n", ChrPtr(NW->node), NW->n); ParseURL(&NW->IO.ConnectMe, NW->Url, 504); InitIOStruct(&NW->IO, NW, eReadMessage, NWC_ReadServerStatus, NWC_DNSFail, NWC_DispatchWriteDone, NWC_DispatchReadDone, NWC_Terminate, NWC_TerminateDB, NWC_ConnFail, NWC_Timeout, NWC_Shutdown); safestrncpy(((CitContext *)NW->IO.CitContext)->cs_host, ChrPtr(NW->host), sizeof(((CitContext *)NW->IO.CitContext)->cs_host)); if (NW->IO.ConnectMe->IsIP) { SetNWCState(&NW->IO, eNWCVSLookup); QueueEventContext(&NW->IO, nwc_connect_ip); } else { /* uneducated admin has chosen to add DNS to the equation... */ SetNWCState(&NW->IO, eNWCVSConnecting); QueueEventContext(&NW->IO, nwc_get_one_host_ip); } } /* * Poll other Citadel nodes and transfer inbound/outbound network data. * Set "full" to nonzero to force a poll of every node, or to zero to poll * only nodes to which we have data to send. */ void network_poll_other_citadel_nodes(int full_poll, HashList *ignetcfg) { const char *key; long len; HashPos *Pos; void *vCfg; AsyncNetworker *NW; StrBuf *SpoolFileName; int poll = 0; if (GetCount(ignetcfg) ==0) { MARKM_syslog(LOG_DEBUG, "network: no neighbor nodes are configured - not polling.\n"); return; } become_session(&networker_client_CC); SpoolFileName = NewStrBufPlain(ctdl_netout_dir, -1); Pos = GetNewHashPos(ignetcfg, 0); while (GetNextHashPos(ignetcfg, Pos, &len, &key, &vCfg)) { /* Use the string tokenizer to grab one line at a time */ if(server_shutting_down) return;/* TODO free stuff*/ CtdlNodeConf *pNode = (CtdlNodeConf*) vCfg; poll = 0; NW = (AsyncNetworker*)malloc(sizeof(AsyncNetworker)); memset(NW, 0, sizeof(AsyncNetworker)); NW->node = NewStrBufDup(pNode->NodeName); NW->host = NewStrBufDup(pNode->Host); NW->port = NewStrBufDup(pNode->Port); NW->secret = NewStrBufDup(pNode->Secret); if ( (StrLength(NW->node) != 0) && (StrLength(NW->secret) != 0) && (StrLength(NW->host) != 0) && (StrLength(NW->port) != 0)) { poll = full_poll; if (poll == 0) { StrBufAppendBufPlain(SpoolFileName, HKEY("/"), 0); StrBufAppendBuf(SpoolFileName, NW->node, 0); StrBufStripSlashes(SpoolFileName, 1); if (access(ChrPtr(SpoolFileName), R_OK) == 0) { poll = 1; } } } if (poll && (StrLength(NW->host) > 0) && strcmp("0.0.0.0", ChrPtr(NW->host))) { NW->Url = NewStrBuf(); StrBufPrintf(NW->Url, "citadel://%s@%s:%s", ChrPtr(NW->secret), ChrPtr(NW->host), ChrPtr(NW->port)); if (!CtdlNetworkTalkingTo(SKEY(NW->node), NTT_CHECK)) { RunNetworker(NW); continue; } } DeleteNetworker(NW); } FreeStrBuf(&SpoolFileName); DeleteHashPos(&Pos); } void network_do_clientqueue(void) { HashList *working_ignetcfg; int full_processing = 1; static time_t last_run = 0L; /* * Run the full set of processing tasks no more frequently * than once every n seconds */ if ( (time(NULL) - last_run) < CtdlGetConfigLong("c_net_freq") ) { full_processing = 0; syslog(LOG_DEBUG, "Network full processing in %ld seconds.\n", CtdlGetConfigLong("c_net_freq") - (time(NULL)- last_run) ); } working_ignetcfg = CtdlLoadIgNetCfg(); /* * Poll other Citadel nodes. Maybe. If "full_processing" is set * then we poll everyone. Otherwise we only poll nodes we have stuff * to send to. */ network_poll_other_citadel_nodes(full_processing, working_ignetcfg); DeleteHash(&working_ignetcfg); } void LogDebugEnableNetworkClient(const int n) { NetworkClientDebugEnabled = n; } /* * Module entry point */ CTDL_MODULE_INIT(network_client) { if (!threading) { CtdlFillSystemContext(&networker_client_CC, "CitNetworker"); CtdlRegisterSessionHook(network_do_clientqueue, EVT_TIMER, PRIO_SEND + 10); CtdlRegisterDebugFlagHook(HKEY("networkclient"), LogDebugEnableNetworkClient, &NetworkClientDebugEnabled); } return "networkclient"; } citadel-902/modules/newuser/000077500000000000000000000000001271512031400161275ustar00rootroot00000000000000citadel-902/modules/newuser/serv_newuser.c000066400000000000000000000047311271512031400210270ustar00rootroot00000000000000/* * Automatically copies the contents of a "New User Greetings" room to the * inbox of any new user upon account creation. * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ /* * Name of the New User Greetings room. */ #define NEWUSERGREETINGS "New User Greetings" #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include "ctdl_module.h" #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" /* * Copy the contents of the New User Greetings> room to the user's Mail> room. */ void CopyNewUserGreetings(void) { struct cdbdata *cdbfr; long *msglist = NULL; int num_msgs = 0; char mailboxname[ROOMNAMELEN]; /* Only do this for new users. */ if (CC->user.timescalled != 1) return; /* This user's mailbox. */ CtdlMailboxName(mailboxname, sizeof mailboxname, &CC->user, MAILROOM); /* Go to the source room ... bail out silently if it's not there, * or if it's not private. */ if (CtdlGetRoom(&CC->room, NEWUSERGREETINGS) != 0) return; if ((CC->room.QRflags & QR_PRIVATE) == 0) return; cdbfr = cdb_fetch(CDB_MSGLISTS, &CC->room.QRnumber, sizeof(long)); if (cdbfr != NULL) { msglist = malloc(cdbfr->len); memcpy(msglist, cdbfr->ptr, cdbfr->len); num_msgs = cdbfr->len / sizeof(long); cdb_free(cdbfr); } if (num_msgs > 0) { CtdlSaveMsgPointersInRoom(mailboxname, msglist, num_msgs, 1, NULL, 0); } /* Now free the memory we used, and go away. */ if (msglist != NULL) free(msglist); } CTDL_MODULE_INIT(newuser) { if (!threading) { CtdlRegisterSessionHook(CopyNewUserGreetings, EVT_LOGIN, PRIO_LOGIN + 1); } /* return our module name for the log */ return "newuser"; } citadel-902/modules/nntp/000077500000000000000000000000001271512031400154165ustar00rootroot00000000000000citadel-902/modules/nntp/serv_nntp.c000066400000000000000000000716031271512031400176070ustar00rootroot00000000000000// // NNTP server module (RFC 3977) // // Copyright (c) 2014-2015 by the citadel.org team // // This program is open source software; you can redistribute it and/or modify // it under the terms of the GNU General Public License version 3. // // 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. // #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "room_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "serv_nntp.h" extern long timezone; // ***************** BEGIN UTILITY FUNCTIONS THAT COULD BE MOVED ELSEWHERE LATER ************** // // Tests whether the supplied string is a valid newsgroup name // Returns true (nonzero) or false (0) // int is_valid_newsgroup_name(char *name) { char *ptr = name; int has_a_letter = 0; int num_dots = 0; if (!ptr) return(0); if (!strncasecmp(name, "ctdl.", 5)) return(0); while (*ptr != 0) { if (isalpha(ptr[0])) { has_a_letter = 1; } if (ptr[0] == '.') { ++num_dots; } if ( (isalnum(ptr[0])) || (ptr[0] == '.') || (ptr[0] == '+') || (ptr[0] == '-') ) { ++ptr; } else { return(0); } } return( (has_a_letter) && (num_dots >= 1) ) ; } // // Convert a Citadel room name to a valid newsgroup name // void room_to_newsgroup(char *target, char *source, size_t target_size) { if (!target) return; if (!source) return; if (is_valid_newsgroup_name(source)) { strncpy(target, source, target_size); return; } strcpy(target, "ctdl."); int len = 5; char *ptr = source; char ch; while (ch=*ptr++, ch!=0) { if (len >= target_size) return; if ( (isalnum(ch)) || (ch == '.') || (ch == '-') ) { target[len++] = tolower(ch); target[len] = 0; } else { target[len++] = '+' ; sprintf(&target[len], "%02x", ch); len += 2; target[len] = 0; } } } // // Convert a newsgroup name to a Citadel room name. // This function recognizes names converted with room_to_newsgroup() and restores them with full fidelity. // void newsgroup_to_room(char *target, char *source, size_t target_size) { if (!target) return; if (!source) return; if (strncasecmp(source, "ctdl.", 5)) { // not a converted room name; pass through as-is strncpy(target, source, target_size); return; } target[0] = 0; int len = 0; char *ptr = &source[5]; char ch; while (ch=*ptr++, ch!=0) { if (len >= target_size) return; if (ch == '+') { char hex[3]; long digit; hex[0] = *ptr++; hex[1] = *ptr++; hex[2] = 0; digit = strtol(hex, NULL, 16); ch = (char)digit; } target[len++] = ch; target[len] = 0; } } // ***************** END UTILITY FUNCTIONS THAT COULD BE MOVED ELSEWHERE LATER ************** // // Here's where our NNTP session begins its happy day. // void nntp_greeting(void) { strcpy(CC->cs_clientname, "NNTP session"); CC->cs_flags |= CS_STEALTH; CC->session_specific_data = malloc(sizeof(citnntp)); citnntp *nntpstate = (citnntp *) CC->session_specific_data; memset(nntpstate, 0, sizeof(citnntp)); if (CC->nologin==1) { cprintf("451 Too many connections are already open; please try again later.\r\n"); CC->kill_me = KILLME_MAX_SESSIONS_EXCEEDED; return; } // Display the standard greeting cprintf("200 %s NNTP Citadel server is not finished yet\r\n", CtdlGetConfigStr("c_fqdn")); } // // NNTPS is just like NNTP, except it goes crypto right away. // void nntps_greeting(void) { CtdlModuleStartCryptoMsgs(NULL, NULL, NULL); #ifdef HAVE_OPENSSL if (!CC->redirect_ssl) CC->kill_me = KILLME_NO_CRYPTO; /* kill session if no crypto */ #endif nntp_greeting(); } // // implements the STARTTLS command // void nntp_starttls(void) { char ok_response[SIZ]; char nosup_response[SIZ]; char error_response[SIZ]; sprintf(ok_response, "382 Begin TLS negotiation now\r\n"); sprintf(nosup_response, "502 Can not initiate TLS negotiation\r\n"); sprintf(error_response, "580 Internal error\r\n"); CtdlModuleStartCryptoMsgs(ok_response, nosup_response, error_response); } // // Implements the CAPABILITY command // void nntp_capabilities(void) { cprintf("101 Capability list:\r\n"); cprintf("IMPLEMENTATION Citadel %d\r\n", REV_LEVEL); cprintf("VERSION 2\r\n"); cprintf("READER\r\n"); cprintf("MODE-READER\r\n"); cprintf("LIST ACTIVE NEWSGROUPS\r\n"); cprintf("OVER\r\n"); #ifdef HAVE_OPENSSL cprintf("STARTTLS\r\n"); #endif if (!CC->logged_in) { cprintf("AUTHINFO USER\r\n"); } cprintf(".\r\n"); } // // Implements the QUIT command // void nntp_quit(void) { cprintf("221 Goodbye...\r\n"); CC->kill_me = KILLME_CLIENT_LOGGED_OUT; } // // Cleanup hook for this module // void nntp_cleanup(void) { /* nothing here yet */ } // // Implements the AUTHINFO USER command (RFC 4643) // void nntp_authinfo_user(const char *username) { int a = CtdlLoginExistingUser(NULL, username); switch (a) { case login_already_logged_in: cprintf("482 Already logged in\r\n"); return; case login_too_many_users: cprintf("481 Too many users are already online (maximum is %d)\r\n", CtdlGetConfigInt("c_maxsessions")); return; case login_ok: cprintf("381 Password required for %s\r\n", CC->curr_user); return; case login_not_found: cprintf("481 %s not found\r\n", username); return; default: cprintf("502 Internal error\r\n"); } } // // Implements the AUTHINFO PASS command (RFC 4643) // void nntp_authinfo_pass(const char *buf) { int a; a = CtdlTryPassword(buf, strlen(buf)); switch (a) { case pass_already_logged_in: cprintf("482 Already logged in\r\n"); return; case pass_no_user: cprintf("482 Authentication commands issued out of sequence\r\n"); return; case pass_wrong_password: cprintf("481 Authentication failed\r\n"); return; case pass_ok: cprintf("281 Authentication accepted\r\n"); return; } } // // Implements the AUTHINFO extension (RFC 4643) in USER/PASS mode // void nntp_authinfo(const char *cmd) { if (!strncasecmp(cmd, "authinfo user ", 14)) { nntp_authinfo_user(&cmd[14]); } else if (!strncasecmp(cmd, "authinfo pass ", 14)) { nntp_authinfo_pass(&cmd[14]); } else { cprintf("502 command unavailable\r\n"); } } // // Utility function to fetch the current list of message numbers in a room // struct nntp_msglist nntp_fetch_msglist(struct ctdlroom *qrbuf) { struct nntp_msglist nm; struct cdbdata *cdbfr; cdbfr = cdb_fetch(CDB_MSGLISTS, &qrbuf->QRnumber, sizeof(long)); if (cdbfr != NULL) { nm.msgnums = (long*)cdbfr->ptr; cdbfr->ptr = NULL; nm.num_msgs = cdbfr->len / sizeof(long); cdbfr->len = 0; cdb_free(cdbfr); } else { nm.num_msgs = 0; nm.msgnums = NULL; } return(nm); } // // Output a room name (newsgroup name) in formats required for LIST and NEWGROUPS command // void output_roomname_in_list_format(struct ctdlroom *qrbuf, int which_format, char *wildmat_pattern) { char n_name[1024]; struct nntp_msglist nm; long low_water_mark = 0; long high_water_mark = 0; room_to_newsgroup(n_name, qrbuf->QRname, sizeof n_name); if ((wildmat_pattern != NULL) && (!IsEmptyStr(wildmat_pattern))) { if (!wildmat(n_name, wildmat_pattern)) { return; } } nm = nntp_fetch_msglist(qrbuf); if ((nm.num_msgs > 0) && (nm.msgnums != NULL)) { low_water_mark = nm.msgnums[0]; high_water_mark = nm.msgnums[nm.num_msgs - 1]; } // Only the mandatory formats are supported switch(which_format) { case NNTP_LIST_ACTIVE: // FIXME we have hardcoded "n" for "no posting allowed" -- fix when we add posting cprintf("%s %ld %ld n\r\n", n_name, high_water_mark, low_water_mark); break; case NNTP_LIST_NEWSGROUPS: cprintf("%s %s\r\n", n_name, qrbuf->QRname); break; } if (nm.msgnums != NULL) { free(nm.msgnums); } } // // Called once per room by nntp_newgroups() to qualify and possibly output a single room // void nntp_newgroups_backend(struct ctdlroom *qrbuf, void *data) { int ra; int view; time_t thetime = *(time_t *)data; CtdlRoomAccess(qrbuf, &CC->user, &ra, &view); /* * The "created after " heuristics depend on the happy coincidence * that for a very long time we have used a unix timestamp as the room record's * generation number (QRgen). When this module is merged into the master * source tree we should rename QRgen to QR_create_time or something like that. */ if (ra & UA_KNOWN) { if (qrbuf->QRgen >= thetime) { output_roomname_in_list_format(qrbuf, NNTP_LIST_ACTIVE, NULL); } } } // // Implements the NEWGROUPS command // void nntp_newgroups(const char *cmd) { if (CtdlAccessCheck(ac_logged_in_or_guest)) return; char stringy_date[16]; char stringy_time[16]; char stringy_gmt[16]; struct tm tm; time_t thetime; extract_token(stringy_date, cmd, 1, ' ', sizeof stringy_date); extract_token(stringy_time, cmd, 2, ' ', sizeof stringy_time); extract_token(stringy_gmt, cmd, 3, ' ', sizeof stringy_gmt); memset(&tm, 0, sizeof tm); if (strlen(stringy_date) == 6) { sscanf(stringy_date, "%2d%2d%2d", &tm.tm_year, &tm.tm_mon, &tm.tm_mday); tm.tm_year += 100; } else { sscanf(stringy_date, "%4d%2d%2d", &tm.tm_year, &tm.tm_mon, &tm.tm_mday); tm.tm_year -= 1900; } tm.tm_mon -= 1; // tm_mon is zero based (0=January) tm.tm_isdst = (-1); // let the C library figure out whether DST is in effect sscanf(stringy_time, "%2d%2d%2d", &tm.tm_hour, &tm.tm_min ,&tm.tm_sec); thetime = mktime(&tm); if (!strcasecmp(stringy_gmt, "GMT")) { tzset(); thetime += timezone; } cprintf("231 list of new newsgroups follows\r\n"); CtdlGetUser(&CC->user, CC->curr_user); CtdlForEachRoom(nntp_newgroups_backend, &thetime); cprintf(".\r\n"); } // // Called once per room by nntp_list() to qualify and possibly output a single room // void nntp_list_backend(struct ctdlroom *qrbuf, void *data) { int ra; int view; struct nntp_list_data *nld = (struct nntp_list_data *)data; CtdlRoomAccess(qrbuf, &CC->user, &ra, &view); if (ra & UA_KNOWN) { output_roomname_in_list_format(qrbuf, nld->list_format, nld->wildmat_pattern); } } // // Implements the LIST commands // void nntp_list(const char *cmd) { if (CtdlAccessCheck(ac_logged_in_or_guest)) return; char list_format[64]; char wildmat_pattern[1024]; struct nntp_list_data nld; extract_token(list_format, cmd, 1, ' ', sizeof list_format); extract_token(wildmat_pattern, cmd, 2, ' ', sizeof wildmat_pattern); if (strlen(wildmat_pattern) > 0) { nld.wildmat_pattern = wildmat_pattern; } else { nld.wildmat_pattern = NULL; } if ( (strlen(cmd) < 6) || (!strcasecmp(list_format, "ACTIVE")) ) { nld.list_format = NNTP_LIST_ACTIVE; } else if (!strcasecmp(list_format, "NEWSGROUPS")) { nld.list_format = NNTP_LIST_NEWSGROUPS; } else if (!strcasecmp(list_format, "OVERVIEW.FMT")) { nld.list_format = NNTP_LIST_OVERVIEW_FMT; } else { cprintf("501 syntax error , unsupported list format\r\n"); return; } // OVERVIEW.FMT delivers a completely different type of data than all of the // other LIST commands. It's a stupid place to put it. But that's how it's // written into RFC3977, so we have to handle it here. if (nld.list_format == NNTP_LIST_OVERVIEW_FMT) { cprintf("215 Order of fields in overview database.\r\n"); cprintf("Subject:\r\n"); cprintf("From:\r\n"); cprintf("Date:\r\n"); cprintf("Message-ID:\r\n"); cprintf("References:\r\n"); cprintf("Bytes:\r\n"); cprintf("Lines:\r\n"); cprintf(".\r\n"); return; } cprintf("215 list of newsgroups follows\r\n"); CtdlGetUser(&CC->user, CC->curr_user); CtdlForEachRoom(nntp_list_backend, &nld); cprintf(".\r\n"); } // // Implement HELP command. // void nntp_help(void) { cprintf("100 This is the Citadel NNTP service.\r\n"); cprintf("RTFM http://www.ietf.org/rfc/rfc3977.txt\r\n"); cprintf(".\r\n"); } // // Implement DATE command. // void nntp_date(void) { time_t now; struct tm nowLocal; struct tm nowUtc; char tsFromUtc[32]; now = time(NULL); localtime_r(&now, &nowLocal); gmtime_r(&now, &nowUtc); strftime(tsFromUtc, sizeof(tsFromUtc), "%Y%m%d%H%M%S", &nowUtc); cprintf("111 %s\r\n", tsFromUtc); } // // back end for the LISTGROUP command , called for each message number // void nntp_listgroup_backend(long msgnum, void *userdata) { struct listgroup_range *lr = (struct listgroup_range *)userdata; // check range if supplied if (msgnum < lr->lo) return; if ((lr->hi != 0) && (msgnum > lr->hi)) return; cprintf("%ld\r\n", msgnum); } // // Implements the GROUP and LISTGROUP commands // void nntp_group(const char *cmd) { if (CtdlAccessCheck(ac_logged_in_or_guest)) return; citnntp *nntpstate = (citnntp *) CC->session_specific_data; char verb[16]; char requested_group[1024]; char message_range[256]; char range_lo[256]; char range_hi[256]; char requested_room[ROOMNAMELEN]; char augmented_roomname[ROOMNAMELEN]; int c = 0; int ok = 0; int ra = 0; struct ctdlroom QRscratch; int msgs, new; long oldest,newest; struct listgroup_range lr; extract_token(verb, cmd, 0, ' ', sizeof verb); extract_token(requested_group, cmd, 1, ' ', sizeof requested_group); extract_token(message_range, cmd, 2, ' ', sizeof message_range); extract_token(range_lo, message_range, 0, '-', sizeof range_lo); extract_token(range_hi, message_range, 1, '-', sizeof range_hi); lr.lo = atoi(range_lo); lr.hi = atoi(range_hi); /* In LISTGROUP mode we can specify an empty name for 'currently selected' */ if ((!strcasecmp(verb, "LISTGROUP")) && (IsEmptyStr(requested_group))) { room_to_newsgroup(requested_group, CC->room.QRname, sizeof requested_group); } /* First try a regular match */ newsgroup_to_room(requested_room, requested_group, sizeof requested_room); c = CtdlGetRoom(&QRscratch, requested_room); /* Then try a mailbox name match */ if (c != 0) { CtdlMailboxName(augmented_roomname, sizeof augmented_roomname, &CC->user, requested_room); c = CtdlGetRoom(&QRscratch, augmented_roomname); if (c == 0) { safestrncpy(requested_room, augmented_roomname, sizeof(requested_room)); } } /* If the room exists, check security/access */ if (c == 0) { /* See if there is an existing user/room relationship */ CtdlRoomAccess(&QRscratch, &CC->user, &ra, NULL); /* normal clients have to pass through security */ if (ra & UA_KNOWN) { ok = 1; } } /* Fail here if no such room */ if (!ok) { cprintf("411 no such newsgroup\r\n"); return; } /* * CtdlUserGoto() formally takes us to the desired room, happily returning * the number of messages and number of new messages. */ memcpy(&CC->room, &QRscratch, sizeof(struct ctdlroom)); CtdlUserGoto(NULL, 0, 0, &msgs, &new, &oldest, &newest); cprintf("211 %d %ld %ld %s\r\n", msgs, oldest, newest, requested_group); // If this is a GROUP command, set the "current article number" to zero, and then stop here. if (!strcasecmp(verb, "GROUP")) { nntpstate->current_article_number = oldest; return; } // If we get to this point we are running a LISTGROUP command. Fetch those message numbers. CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, nntp_listgroup_backend, &lr); cprintf(".\r\n"); } // // Implements the MODE command // void nntp_mode(const char *cmd) { char which_mode[16]; extract_token(which_mode, cmd, 1, ' ', sizeof which_mode); if (!strcasecmp(which_mode, "reader")) { // FIXME implement posting and change to 200 cprintf("201 Reader mode activated\r\n"); } else { cprintf("501 unknown mode\r\n"); } } // // Implements the ARTICLE, HEAD, BODY, and STAT commands. // (These commands all accept the same parameters; they differ only in how they output the retrieved message.) // void nntp_article(const char *cmd) { if (CtdlAccessCheck(ac_logged_in_or_guest)) return; citnntp *nntpstate = (citnntp *) CC->session_specific_data; char which_command[16]; int acmd = 0; char requested_article[256]; long requested_msgnum = 0; char *lb, *rb = NULL; int must_change_currently_selected_article = 0; // We're going to store one of these values in the variable 'acmd' so that // we can quickly check later which version of the output we want. enum { ARTICLE, HEAD, BODY, STAT }; extract_token(which_command, cmd, 0, ' ', sizeof which_command); if (!strcasecmp(which_command, "article")) { acmd = ARTICLE; } else if (!strcasecmp(which_command, "head")) { acmd = HEAD; } else if (!strcasecmp(which_command, "body")) { acmd = BODY; } else if (!strcasecmp(which_command, "stat")) { acmd = STAT; } else { cprintf("500 I'm afraid I can't do that.\r\n"); return; } // Which NNTP command was issued, determines whether we will fetch headers, body, or both. int headers_only = HEADERS_ALL; if (acmd == HEAD) headers_only = HEADERS_FAST; else if (acmd == BODY) headers_only = HEADERS_NONE; else if (acmd == STAT) headers_only = HEADERS_FAST; // now figure out what the client is asking for. extract_token(requested_article, cmd, 1, ' ', sizeof requested_article); lb = strchr(requested_article, '<'); rb = strchr(requested_article, '>'); requested_msgnum = atol(requested_article); // If no article number or message-id is specified, the client wants the "currently selected article" if (IsEmptyStr(requested_article)) { if (nntpstate->current_article_number < 1) { cprintf("420 No current article selected\r\n"); return; } requested_msgnum = nntpstate->current_article_number; must_change_currently_selected_article = 1; // got it -- now fall through and keep going } // If the requested article is numeric, it maps directly to a message number. Good. else if (requested_msgnum > 0) { must_change_currently_selected_article = 1; // good -- fall through and keep going } // If the requested article has angle brackets, the client wants a specific message-id. // We don't know how to do that yet. else if ( (lb != NULL) && (rb != NULL) && (lb < rb) ) { must_change_currently_selected_article = 0; cprintf("500 I don't know how to fetch by message-id yet.\r\n"); // FIXME return; } // Anything else is noncompliant gobbledygook and should die in a car fire. else { must_change_currently_selected_article = 0; cprintf("500 syntax error\r\n"); return; } // At this point we know the message number of the "article" being requested. // We have an awesome API call that does all the heavy lifting for us. char *fetched_message_id = NULL; CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); int fetch = CtdlOutputMsg(requested_msgnum, MT_RFC822, // output in RFC822 format ... sort of headers_only, // headers, body, or both? 0, // don't do Citadel protocol responses 1, // CRLF newlines NULL, // teh whole thing, not just a section 0, // no flags yet ... maybe new ones for Path: etc ? NULL, NULL, &fetched_message_id // extract the message ID from the message as we go... ); StrBuf *msgtext = CC->redirect_buffer; CC->redirect_buffer = NULL; if (fetch != om_ok) { cprintf("423 no article with that number\r\n"); FreeStrBuf(&msgtext); return; } // RFC3977 6.2.1.2 specifes conditions under which the "currently selected article" // MUST or MUST NOT be set to the message we just referenced. if (must_change_currently_selected_article) { nntpstate->current_article_number = requested_msgnum; } // Now give the client what it asked for. if (acmd == ARTICLE) { cprintf("220 %ld <%s>\r\n", requested_msgnum, fetched_message_id); } if (acmd == HEAD) { cprintf("221 %ld <%s>\r\n", requested_msgnum, fetched_message_id); } if (acmd == BODY) { cprintf("222 %ld <%s>\r\n", requested_msgnum, fetched_message_id); } if (acmd == STAT) { cprintf("223 %ld <%s>\r\n", requested_msgnum, fetched_message_id); FreeStrBuf(&msgtext); return; } client_write(SKEY(msgtext)); cprintf(".\r\n"); // this protocol uses a dot terminator FreeStrBuf(&msgtext); if (fetched_message_id) free(fetched_message_id); } // // Utility function for nntp_last_next() that turns a msgnum into a message ID. // The memory for the returned string is pwnz0red by the caller. // char *message_id_from_msgnum(long msgnum) { char *fetched_message_id = NULL; CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputMsg(msgnum, MT_RFC822, // output in RFC822 format ... sort of HEADERS_FAST, // headers, body, or both? 0, // don't do Citadel protocol responses 1, // CRLF newlines NULL, // teh whole thing, not just a section 0, // no flags yet ... maybe new ones for Path: etc ? NULL, NULL, &fetched_message_id // extract the message ID from the message as we go... ); StrBuf *msgtext = CC->redirect_buffer; CC->redirect_buffer = NULL; FreeStrBuf(&msgtext); return(fetched_message_id); } // // The LAST and NEXT commands are so similar that they are handled by a single function. // void nntp_last_next(const char *cmd) { if (CtdlAccessCheck(ac_logged_in_or_guest)) return; citnntp *nntpstate = (citnntp *) CC->session_specific_data; char which_command[16]; int acmd = 0; // We're going to store one of these values in the variable 'acmd' so that // we can quickly check later which version of the output we want. enum { NNTP_LAST, NNTP_NEXT }; extract_token(which_command, cmd, 0, ' ', sizeof which_command); if (!strcasecmp(which_command, "last")) { acmd = NNTP_LAST; } else if (!strcasecmp(which_command, "next")) { acmd = NNTP_NEXT; } else { cprintf("500 I'm afraid I can't do that.\r\n"); return; } // ok, here we go ... fetch the msglist so we can figure out our place in the universe struct nntp_msglist nm; int i = 0; long selected_msgnum = 0; char *message_id = NULL; nm = nntp_fetch_msglist(&CC->room); if ((nm.num_msgs < 0) || (nm.msgnums == NULL)) { cprintf("500 something bad happened\r\n"); return; } if ( (acmd == NNTP_LAST) && (nm.num_msgs == 0) ) { cprintf("422 no previous article in this group\r\n"); // nothing here } else if ( (acmd == NNTP_LAST) && (nntpstate->current_article_number <= nm.msgnums[0]) ) { cprintf("422 no previous article in this group\r\n"); // already at the beginning } else if (acmd == NNTP_LAST) { for (i=0; ((i= nntpstate->current_article_number) && (i > 0) ) { selected_msgnum = nm.msgnums[i-1]; } } if (selected_msgnum > 0) { nntpstate->current_article_number = selected_msgnum; message_id = message_id_from_msgnum(nntpstate->current_article_number); cprintf("223 %ld <%s>\r\n", nntpstate->current_article_number, message_id); if (message_id) free(message_id); } else { cprintf("422 no previous article in this group\r\n"); } } else if ( (acmd == NNTP_NEXT) && (nm.num_msgs == 0) ) { cprintf("421 no next article in this group\r\n"); // nothing here } else if ( (acmd == NNTP_NEXT) && (nntpstate->current_article_number >= nm.msgnums[nm.num_msgs-1]) ) { cprintf("421 no next article in this group\r\n"); // already at the end } else if (acmd == NNTP_NEXT) { for (i=0; ((i nntpstate->current_article_number) { selected_msgnum = nm.msgnums[i]; } } if (selected_msgnum > 0) { nntpstate->current_article_number = selected_msgnum; message_id = message_id_from_msgnum(nntpstate->current_article_number); cprintf("223 %ld <%s>\r\n", nntpstate->current_article_number, message_id); if (message_id) free(message_id); } else { cprintf("421 no next article in this group\r\n"); } } // should never get here else { cprintf("500 internal error\r\n"); } if (nm.msgnums != NULL) { free(nm.msgnums); } } // // back end for the XOVER command , called for each message number // void nntp_xover_backend(long msgnum, void *userdata) { struct listgroup_range *lr = (struct listgroup_range *)userdata; // check range if supplied if (msgnum < lr->lo) return; if ((lr->hi != 0) && (msgnum > lr->hi)) return; struct CtdlMessage *msg = CtdlFetchMessage(msgnum, 0, 1); if (msg == NULL) { return; } // Teh RFC says we need: // ------------------------- // Subject header content // From header content // Date header content // Message-ID header content // References header content // :bytes metadata item // :lines metadata item time_t msgtime = atol(msg->cm_fields[eTimestamp]); char strtimebuf[26]; ctime_r(&msgtime, strtimebuf); // here we go -- print the line o'data cprintf("%ld\t%s\t%s <%s>\t%s\t%s\t%s\t100\t10\r\n", msgnum, msg->cm_fields[eMsgSubject], msg->cm_fields[eAuthor], msg->cm_fields[erFc822Addr], strtimebuf, msg->cm_fields[emessageId], msg->cm_fields[eWeferences] ); CM_Free(msg); } // // // XOVER is used by some clients, even if we don't offer it // void nntp_xover(const char *cmd) { if (CtdlAccessCheck(ac_logged_in_or_guest)) return; citnntp *nntpstate = (citnntp *) CC->session_specific_data; char range[256]; struct listgroup_range lr; extract_token(range, cmd, 1, ' ', sizeof range); lr.lo = atol(range); if (lr.lo <= 0) { lr.lo = nntpstate->current_article_number; lr.hi = nntpstate->current_article_number; } else { char *dash = strchr(range, '-'); if (dash != NULL) { ++dash; lr.hi = atol(dash); if (lr.hi == 0) { lr.hi = LONG_MAX; } if (lr.hi < lr.lo) { lr.hi = lr.lo; } } else { lr.hi = lr.lo; } } cprintf("224 Overview information follows\r\n"); CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, nntp_xover_backend, &lr); cprintf(".\r\n"); } // // Main command loop for NNTP server sessions. // void nntp_command_loop(void) { StrBuf *Cmd = NewStrBuf(); char cmdname[16]; time(&CC->lastcmd); if (CtdlClientGetLine(Cmd) < 1) { syslog(LOG_CRIT, "NNTP: client disconnected: ending session.\n"); CC->kill_me = KILLME_CLIENT_DISCONNECTED; FreeStrBuf(&Cmd); return; } syslog(LOG_DEBUG, "NNTP: %s\n", ((!strncasecmp(ChrPtr(Cmd), "AUTHINFO", 8)) ? "AUTHINFO ..." : ChrPtr(Cmd))); extract_token(cmdname, ChrPtr(Cmd), 0, ' ', sizeof cmdname); // Rumpelstiltskin lookups are *awesome* if (!strcasecmp(cmdname, "quit")) { nntp_quit(); } else if (!strcasecmp(cmdname, "help")) { nntp_help(); } else if (!strcasecmp(cmdname, "date")) { nntp_date(); } else if (!strcasecmp(cmdname, "capabilities")) { nntp_capabilities(); } else if (!strcasecmp(cmdname, "starttls")) { nntp_starttls(); } else if (!strcasecmp(cmdname, "authinfo")) { nntp_authinfo(ChrPtr(Cmd)); } else if (!strcasecmp(cmdname, "newgroups")) { nntp_newgroups(ChrPtr(Cmd)); } else if (!strcasecmp(cmdname, "list")) { nntp_list(ChrPtr(Cmd)); } else if (!strcasecmp(cmdname, "group")) { nntp_group(ChrPtr(Cmd)); } else if (!strcasecmp(cmdname, "listgroup")) { nntp_group(ChrPtr(Cmd)); } else if (!strcasecmp(cmdname, "mode")) { nntp_mode(ChrPtr(Cmd)); } else if ( (!strcasecmp(cmdname, "article")) || (!strcasecmp(cmdname, "head")) || (!strcasecmp(cmdname, "body")) || (!strcasecmp(cmdname, "stat")) ) { nntp_article(ChrPtr(Cmd)); } else if ( (!strcasecmp(cmdname, "last")) || (!strcasecmp(cmdname, "next")) ) { nntp_last_next(ChrPtr(Cmd)); } else if ( (!strcasecmp(cmdname, "xover")) || (!strcasecmp(cmdname, "over")) ) { nntp_xover(ChrPtr(Cmd)); } else { cprintf("500 I'm afraid I can't do that.\r\n"); } FreeStrBuf(&Cmd); } // **************************************************************************** // MODULE INITIALIZATION STUFF // **************************************************************************** // // This cleanup function blows away the temporary memory used by // the NNTP server. // void nntp_cleanup_function(void) { /* Don't do this stuff if this is not an NNTP session! */ if (CC->h_command_function != nntp_command_loop) return; syslog(LOG_DEBUG, "Performing NNTP cleanup hook\n"); citnntp *nntpstate = (citnntp *) CC->session_specific_data; if (nntpstate != NULL) { free(nntpstate); nntpstate = NULL; } } const char *CitadelServiceNNTP="NNTP"; const char *CitadelServiceNNTPS="NNTPS"; CTDL_MODULE_INIT(nntp) { if (!threading) { CtdlRegisterServiceHook(CtdlGetConfigInt("c_nntp_port"), NULL, nntp_greeting, nntp_command_loop, NULL, CitadelServiceNNTP); #ifdef HAVE_OPENSSL CtdlRegisterServiceHook(CtdlGetConfigInt("c_nntps_port"), NULL, nntps_greeting, nntp_command_loop, NULL, CitadelServiceNNTPS); #endif CtdlRegisterCleanupHook(nntp_cleanup); CtdlRegisterSessionHook(nntp_cleanup_function, EVT_STOP, PRIO_STOP + 250); } /* return our module name for the log */ return "nntp"; } citadel-902/modules/nntp/serv_nntp.h000066400000000000000000000022711271512031400176070ustar00rootroot00000000000000// // Header file for NNTP server module // // Copyright (c) 2014 by the citadel.org team // // This program is open source software; you can redistribute it and/or modify // it under the terms of the GNU General Public License version 3. // // 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. // // data returned by a message list fetch struct nntp_msglist { int num_msgs; long *msgnums; }; // data passed by the LIST commands to its helper function struct nntp_list_data { int list_format; char *wildmat_pattern; }; // // data passed between nntp_listgroup() and nntp_listgroup_backend() // struct listgroup_range { long lo; long hi; }; typedef struct _citnntp { // Information about the current session long current_article_number; } citnntp; // // Various output formats for the LIST commands // enum { NNTP_LIST_ACTIVE, NNTP_LIST_ACTIVE_TIMES, NNTP_LIST_DISTRIB_PATS, NNTP_LIST_HEADERS, NNTP_LIST_NEWSGROUPS, NNTP_LIST_OVERVIEW_FMT }; int wildmat(const char *text, const char *p); citadel-902/modules/nntp/wildmat.c000066400000000000000000000134361271512031400172320ustar00rootroot00000000000000/* wildmat.h - NNTP wildmat processing functions * * Copyright (c) 1994-2008 Carnegie Mellon University. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in * the documentation and/or other materials provided with the * distribution. * * 3. The name "Carnegie Mellon University" must not be used to * endorse or promote products derived from this software without * prior written permission. For permission or any legal * details, please contact * Carnegie Mellon University * Center for Technology Transfer and Enterprise Creation * 4615 Forbes Avenue * Suite 302 * Pittsburgh, PA 15213 * (412) 268-7393, fax: (412) 268-7395 * innovation@andrew.cmu.edu * * 4. Redistributions of any form whatsoever must retain the following * acknowledgment: * "This product includes software developed by Computing Services * at Carnegie Mellon University (http://www.cmu.edu/computing/)." * * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. * * $Id: wildmat.c,v 1.4 2010/01/06 17:01:47 murch Exp $ */ /* ** ** Do shell-style pattern matching for ?, \, [], and * characters. ** Might not be robust in face of malformed patterns; e.g., "foo[a-" ** could cause a segmentation violation. It is 8bit clean. ** ** Written by Rich $alz, mirror!rs, Wed Nov 26 19:03:17 EST 1986. ** Rich $alz is now . ** April, 1991: Replaced mutually-recursive calls with in-line code ** for the star character. ** ** Special thanks to Lars Mathiesen for the ABORT code. ** This can greatly speed up failing wildcard patterns. For example: ** pattern: -*-*-*-*-*-*-12-*-*-*-m-*-*-* ** text 1: -adobe-courier-bold-o-normal--12-120-75-75-m-70-iso8859-1 ** text 2: -adobe-courier-bold-o-normal--12-120-75-75-X-70-iso8859-1 ** Text 1 matches with 51 calls, while text 2 fails with 54 calls. Without ** the ABORT code, it takes 22310 calls to fail. Ugh. The following ** explanation is from Lars: ** The precondition that must be fulfilled is that DoMatch will consume ** at least one character in text. This is true if *p is neither '*' nor ** '\0'.) The last return has ABORT instead of FALSE to avoid quadratic ** behaviour in cases like pattern "*a*b*c*d" with text "abcxxxxx". With ** FALSE, each star-loop has to run to the end of the text; with ABORT ** only the last one does. ** ** Once the control of one instance of DoMatch enters the star-loop, that ** instance will return either TRUE or ABORT, and any calling instance ** will therefore return immediately after (without calling recursively ** again). In effect, only one star-loop is ever active. It would be ** possible to modify the code to maintain this context explicitly, ** eliminating all recursive calls at the cost of some complication and ** loss of clarity (and the ABORT stuff seems to be unclear enough by ** itself). I think it would be unwise to try to get this into a ** released version unless you have a good test data base to try it out ** on. */ #include #include #define TRUE 1 #define FALSE 0 #define ABORT -1 /* What character marks an inverted character class? */ #define NEGATE_CLASS '^' /* Is "*" a common pattern? */ #define OPTIMIZE_JUST_STAR /* Do tar(1) matching rules, which ignore a trailing slash? */ #undef MATCH_TAR_PATTERN /* ** Match text and p, return TRUE, FALSE, or ABORT. */ static int DoMatch(const char *text, const char *p) { int last; int matched; int reverse; for ( ; *p; text++, p++) { if (*text == '\0' && *p != '*') return ABORT; switch (*p) { case '\\': /* Literal match with following character. */ p++; /* FALLTHROUGH */ default: if (*text != *p) return FALSE; continue; case '?': /* Match anything. */ continue; case '*': while (*++p == '*') /* Consecutive stars act just like one. */ continue; if (*p == '\0') /* Trailing star matches everything. */ return TRUE; while (*text) if ((matched = DoMatch(text++, p)) != FALSE) return matched; return ABORT; case '[': reverse = p[1] == NEGATE_CLASS ? TRUE : FALSE; if (reverse) /* Inverted character class. */ p++; matched = FALSE; if (p[1] == ']' || p[1] == '-') if (*++p == *text) matched = TRUE; for (last = *p; *++p && *p != ']'; last = *p) /* This next line requires a good C compiler. */ if (*p == '-' && p[1] != ']' ? *text <= *++p && *text >= last : *text == *p) matched = TRUE; if (matched == reverse) return FALSE; continue; } } #ifdef MATCH_TAR_PATTERN if (*text == '/') return TRUE; #endif /* MATCH_TAR_ATTERN */ return *text == '\0'; } /* ** User-level routine. Returns TRUE or FALSE. */ int wildmat(const char *text, const char *p) { #ifdef OPTIMIZE_JUST_STAR if (p[0] == '*' && p[1] == '\0') return TRUE; #endif /* OPTIMIZE_JUST_STAR */ return DoMatch(text, p) == TRUE; } citadel-902/modules/notes/000077500000000000000000000000001271512031400155675ustar00rootroot00000000000000citadel-902/modules/notes/serv_notes.c000066400000000000000000000103121271512031400201170ustar00rootroot00000000000000/* * Handles functions related to yellow sticky notes. * * Copyright (c) 2007-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "ctdl_module.h" /* * Callback function for serv_notes_beforesave() hunts for a vNote in the MIME structure */ void notes_extract_vnote(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct vnote **v = (struct vnote **) cbuserdata; if (!strcasecmp(cbtype, "text/vnote")) { syslog(LOG_DEBUG, "Part %s contains a vNote! Loading...\n", partnum); if (*v != NULL) { vnote_free(*v); } *v = vnote_new_from_str(content); } } /* * Before-save hook searches for two different types of notes (legacy Kolab/Aethera notes * and modern vNote format notes) and does its best to learn the subject (summary) * and EUID (uid) of the note for Citadel's own nefarious purposes. */ int serv_notes_beforesave(struct CtdlMessage *msg, recptypes *recp) { char *p; int a, i; char uuid[512]; struct vnote *v = NULL; /* First determine if this room has the "notes" view set */ if (CC->room.QRdefaultview != VIEW_NOTES) { return(0); /* not notes; do nothing */ } /* It must be an RFC822 message! */ if (msg->cm_format_type != 4) { return(0); /* You tried to save a non-RFC822 message! */ } /* * If we are in a "notes" view room, and the client has sent an RFC822 * message containing an X-KOrg-Note-Id: field (Aethera does this, as * do some Kolab clients) then set both the Subject and the Exclusive ID * of the message to that. It's going to be a UUID so we want to replace * any existing message containing that UUID. */ strcpy(uuid, ""); p = msg->cm_fields[eMesageText]; a = msg->cm_lengths[eMesageText]; while (--a > 0) { if (!strncasecmp(p, "X-KOrg-Note-Id: ", 16)) { /* Found it */ safestrncpy(uuid, p + 16, sizeof(uuid)); for (i = 0; uuid[i]; ++i) { if ( (uuid[i] == '\r') || (uuid[i] == '\n') ) { uuid[i] = 0; break; } } syslog(LOG_DEBUG, "UUID of note is: %s\n", uuid); if (!IsEmptyStr(uuid)) { CM_SetField(msg, eExclusiveID, uuid, strlen(uuid)); CM_CopyField(msg, eMsgSubject, eExclusiveID); } } p++; } /* Modern clients are using vNote format. Check for one... */ mime_parser(CM_RANGE(msg, eMesageText), *notes_extract_vnote, NULL, NULL, &v, /* user data ptr - put the vnote here */ 0 ); if (v == NULL) return(0); /* no vNotes were found in this message */ /* Set the message EUID to the vNote UID */ if ((v->uid) && (!IsEmptyStr(v->uid))) { syslog(LOG_DEBUG, "UID of vNote is: %s\n", v->uid); CM_SetField(msg, eExclusiveID, v->uid, strlen(v->uid)); } /* Set the message Subject to the vNote Summary */ if ((v->summary) && (!IsEmptyStr(v->summary))) { CM_SetField(msg, eMsgSubject, v->summary, strlen(v->summary)); if (msg->cm_lengths[eMsgSubject] > 72) { strcpy(&msg->cm_fields[eMsgSubject][68], "..."); CM_CutFieldAt(msg, eMsgSubject, 72); } } vnote_free(v); return(0); } CTDL_MODULE_INIT(notes) { if (!threading) { CtdlRegisterMessageHook(serv_notes_beforesave, EVT_BEFORESAVE); } /* return our module name for the log */ return "notes"; } citadel-902/modules/openid/000077500000000000000000000000001271512031400157155ustar00rootroot00000000000000citadel-902/modules/openid/serv_openid_rp.c000066400000000000000000001017361271512031400211070ustar00rootroot00000000000000/* * This is an implementation of OpenID 2.0 relying party support in stateless mode. * * Copyright (c) 2007-2015 by the citadel.org team * * This program is open source 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 . */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include "ctdl_module.h" #include "config.h" #include "citserver.h" #include "user_ops.h" typedef struct _ctdl_openid { StrBuf *op_url; /* OpenID Provider Endpoint URL */ StrBuf *claimed_id; /* Claimed Identifier */ int verified; HashList *sreg_keys; } ctdl_openid; enum { openid_disco_none, openid_disco_xrds, openid_disco_html }; void Free_ctdl_openid(ctdl_openid **FreeMe) { if (*FreeMe == NULL) { return; } FreeStrBuf(&(*FreeMe)->op_url); FreeStrBuf(&(*FreeMe)->claimed_id); DeleteHash(&(*FreeMe)->sreg_keys); free(*FreeMe); *FreeMe = NULL; } /* * This cleanup function blows away the temporary memory used by this module. */ void openid_cleanup_function(void) { struct CitContext *CCC = CC; /* CachedCitContext - performance boost */ if (CCC->openid_data != NULL) { syslog(LOG_DEBUG, "Clearing OpenID session state"); Free_ctdl_openid((ctdl_openid **) &CCC->openid_data); } } /**************************************************************************/ /* */ /* Functions in this section handle Citadel internal OpenID mapping stuff */ /* */ /**************************************************************************/ /* * The structure of an openid record *key* is: * * |--------------claimed_id-------------| * (actual length of claimed id) * * * The structure of an openid record *value* is: * * |-----user_number----|------------claimed_id---------------| * (sizeof long) (actual length of claimed id) * */ /* * Attach an OpenID to a Citadel account */ int attach_openid(struct ctdluser *who, StrBuf *claimed_id) { struct cdbdata *cdboi; long fetched_usernum; char *data; int data_len; char buf[2048]; if (!who) return(1); if (StrLength(claimed_id)==0) return(1); /* Check to see if this OpenID is already in the database */ cdboi = cdb_fetch(CDB_OPENID, ChrPtr(claimed_id), StrLength(claimed_id)); if (cdboi != NULL) { memcpy(&fetched_usernum, cdboi->ptr, sizeof(long)); cdb_free(cdboi); if (fetched_usernum == who->usernum) { syslog(LOG_INFO, "%s already associated; no action is taken", ChrPtr(claimed_id)); return(0); } else { syslog(LOG_INFO, "%s already belongs to another user", ChrPtr(claimed_id)); return(3); } } /* Not already in the database, so attach it now */ data_len = sizeof(long) + StrLength(claimed_id) + 1; data = malloc(data_len); memcpy(data, &who->usernum, sizeof(long)); memcpy(&data[sizeof(long)], ChrPtr(claimed_id), StrLength(claimed_id) + 1); cdb_store(CDB_OPENID, ChrPtr(claimed_id), StrLength(claimed_id), data, data_len); free(data); snprintf(buf, sizeof buf, "User <%s> (#%ld) has claimed the OpenID URL %s\n", who->fullname, who->usernum, ChrPtr(claimed_id)); CtdlAideMessage(buf, "OpenID claim"); syslog(LOG_INFO, "%s", buf); return(0); } /* * When a user is being deleted, we have to delete any OpenID associations */ void openid_purge(struct ctdluser *usbuf) { struct cdbdata *cdboi; HashList *keys = NULL; HashPos *HashPos; char *deleteme = NULL; long len; void *Value; const char *Key; long usernum = 0L; keys = NewHash(1, NULL); if (!keys) return; cdb_rewind(CDB_OPENID); while (cdboi = cdb_next_item(CDB_OPENID), cdboi != NULL) { if (cdboi->len > sizeof(long)) { memcpy(&usernum, cdboi->ptr, sizeof(long)); if (usernum == usbuf->usernum) { deleteme = strdup(cdboi->ptr + sizeof(long)), Put(keys, deleteme, strlen(deleteme), deleteme, NULL); } } cdb_free(cdboi); } /* Go through the hash list, deleting keys we stored in it */ HashPos = GetNewHashPos(keys, 0); while (GetNextHashPos(keys, HashPos, &len, &Key, &Value)!=0) { syslog(LOG_DEBUG, "Deleting associated OpenID <%s>", (char*)Value); cdb_delete(CDB_OPENID, Value, strlen(Value)); /* note: don't free(Value) -- deleting the hash list will handle this for us */ } DeleteHashPos(&HashPos); DeleteHash(&keys); } /* * List the OpenIDs associated with the currently logged in account */ void cmd_oidl(char *argbuf) { struct cdbdata *cdboi; long usernum = 0L; if (CtdlGetConfigInt("c_disable_newu")) { cprintf("%d this system does not support openid.\n", ERROR + CMD_NOT_SUPPORTED); return; } if (CtdlAccessCheck(ac_logged_in)) return; cdb_rewind(CDB_OPENID); cprintf("%d Associated OpenIDs:\n", LISTING_FOLLOWS); while (cdboi = cdb_next_item(CDB_OPENID), cdboi != NULL) { if (cdboi->len > sizeof(long)) { memcpy(&usernum, cdboi->ptr, sizeof(long)); if (usernum == CC->user.usernum) { cprintf("%s\n", cdboi->ptr + sizeof(long)); } } cdb_free(cdboi); } cprintf("000\n"); } /* * List ALL OpenIDs in the database */ void cmd_oida(char *argbuf) { struct cdbdata *cdboi; long usernum; struct ctdluser usbuf; if (CtdlGetConfigInt("c_disable_newu")) { cprintf("%d this system does not support openid.\n", ERROR + CMD_NOT_SUPPORTED); return; } if (CtdlAccessCheck(ac_aide)) return; cdb_rewind(CDB_OPENID); cprintf("%d List of all OpenIDs in the database:\n", LISTING_FOLLOWS); while (cdboi = cdb_next_item(CDB_OPENID), cdboi != NULL) { if (cdboi->len > sizeof(long)) { memcpy(&usernum, cdboi->ptr, sizeof(long)); if (CtdlGetUserByNumber(&usbuf, usernum) != 0) { usbuf.fullname[0] = 0; } cprintf("%s|%ld|%s\n", cdboi->ptr + sizeof(long), usernum, usbuf.fullname ); } cdb_free(cdboi); } cprintf("000\n"); } /* * Create a new user account, manually specifying the name, after successfully * verifying an OpenID (which will of course be attached to the account) */ void cmd_oidc(char *argbuf) { ctdl_openid *oiddata = (ctdl_openid *) CC->openid_data; if (CtdlGetConfigInt("c_disable_newu")) { cprintf("%d this system does not support openid.\n", ERROR + CMD_NOT_SUPPORTED); return; } if ( (!oiddata) || (!oiddata->verified) ) { cprintf("%d You have not verified an OpenID yet.\n", ERROR); return; } /* We can make the semantics of OIDC exactly the same as NEWU, simply * by _calling_ cmd_newu() and letting it run. Very clever! */ cmd_newu(argbuf); /* Now, if this logged us in, we have to attach the OpenID */ if (CC->logged_in) { attach_openid(&CC->user, oiddata->claimed_id); } } /* * Detach an OpenID from the currently logged in account */ void cmd_oidd(char *argbuf) { struct cdbdata *cdboi; char id_to_detach[1024]; int this_is_mine = 0; long usernum = 0L; if (CtdlGetConfigInt("c_disable_newu")) { cprintf("%d this system does not support openid.\n", ERROR + CMD_NOT_SUPPORTED); return; } if (CtdlAccessCheck(ac_logged_in)) return; extract_token(id_to_detach, argbuf, 0, '|', sizeof id_to_detach); if (IsEmptyStr(id_to_detach)) { cprintf("%d An empty OpenID URL is not allowed.\n", ERROR + ILLEGAL_VALUE); } cdb_rewind(CDB_OPENID); while (cdboi = cdb_next_item(CDB_OPENID), cdboi != NULL) { if (cdboi->len > sizeof(long)) { memcpy(&usernum, cdboi->ptr, sizeof(long)); if (usernum == CC->user.usernum) { this_is_mine = 1; } } cdb_free(cdboi); } if (!this_is_mine) { cprintf("%d That OpenID was not found or not associated with your account.\n", ERROR + ILLEGAL_VALUE); return; } cdb_delete(CDB_OPENID, id_to_detach, strlen(id_to_detach)); cprintf("%d %s detached from your account.\n", CIT_OK, id_to_detach); } /* * Attempt to auto-create a new Citadel account using the nickname from Attribute Exchange */ int openid_create_user_via_ax(StrBuf *claimed_id, HashList *sreg_keys) { char *nickname = NULL; char *firstname = NULL; char *lastname = NULL; char new_password[32]; long len; const char *Key; void *Value; if (CtdlGetConfigInt("c_auth_mode") != AUTHMODE_NATIVE) return(1); if (CtdlGetConfigInt("c_disable_newu")) return(2); if (CC->logged_in) return(3); HashPos *HashPos = GetNewHashPos(sreg_keys, 0); while (GetNextHashPos(sreg_keys, HashPos, &len, &Key, &Value) != 0) { syslog(LOG_DEBUG, "%s = %s", Key, (char *)Value); if (cbmstrcasestr(Key, "value.nickname") != NULL) { nickname = (char *)Value; } else if ( (nickname == NULL) && (cbmstrcasestr(Key, "value.nickname") != NULL)) { nickname = (char *)Value; } else if (cbmstrcasestr(Key, "value.firstname") != NULL) { firstname = (char *)Value; } else if (cbmstrcasestr(Key, "value.lastname") != NULL) { lastname = (char *)Value; } } DeleteHashPos(&HashPos); if (nickname == NULL) { if ((firstname != NULL) || (lastname != NULL)) { char fullname[1024] = ""; if (firstname) strcpy(fullname, firstname); if (firstname && lastname) strcat(fullname, " "); if (lastname) strcat(fullname, lastname); nickname = fullname; } } if (nickname == NULL) { return(4); } syslog(LOG_DEBUG, "The desired account name is <%s>", nickname); len = cutuserkey(nickname); if (!CtdlGetUser(&CC->user, nickname)) { syslog(LOG_DEBUG, "<%s> is already taken by another user.", nickname); memset(&CC->user, 0, sizeof(struct ctdluser)); return(5); } /* The desired account name is available. Create the account and log it in! */ if (create_user(nickname, len, 1)) return(6); /* Generate a random password. * The user doesn't care what the password is since he is using OpenID. */ snprintf(new_password, sizeof new_password, "%08lx%08lx", random(), random()); CtdlSetPassword(new_password); /* Now attach the verified OpenID to this account. */ attach_openid(&CC->user, claimed_id); return(0); } /* * If a user account exists which is associated with the Claimed ID, log it in and return zero. * Otherwise it returns nonzero. */ int login_via_openid(StrBuf *claimed_id) { struct cdbdata *cdboi; long usernum = 0; cdboi = cdb_fetch(CDB_OPENID, ChrPtr(claimed_id), StrLength(claimed_id)); if (cdboi == NULL) { return(-1); } memcpy(&usernum, cdboi->ptr, sizeof(long)); cdb_free(cdboi); if (!CtdlGetUserByNumber(&CC->user, usernum)) { /* Now become the user we just created */ safestrncpy(CC->curr_user, CC->user.fullname, sizeof CC->curr_user); do_login(); return(0); } else { memset(&CC->user, 0, sizeof(struct ctdluser)); return(-1); } } /**************************************************************************/ /* */ /* Functions in this section handle OpenID protocol */ /* */ /**************************************************************************/ /* * Locate a tag and, given its 'rel=' parameter, return its 'href' parameter */ void extract_link(StrBuf *target_buf, const char *rel, long repllen, StrBuf *source_buf) { int i; const char *ptr; const char *href_start = NULL; const char *href_end = NULL; const char *link_tag_start = NULL; const char *link_tag_end = NULL; const char *rel_start = NULL; const char *rel_end = NULL; if (!target_buf) return; if (!rel) return; if (!source_buf) return; ptr = ChrPtr(source_buf); FlushStrBuf(target_buf); while (ptr = cbmstrcasestr(ptr, "'); if (link_tag_end == NULL) break; for (i=0; i < 1; i++ ){ rel_start = cbmstrcasestr(link_tag_start, "rel="); if ((rel_start == NULL) || (rel_start > link_tag_end)) continue; rel_start = strchr(rel_start, '\"'); if ((rel_start == NULL) || (rel_start > link_tag_end)) continue; ++rel_start; rel_end = strchr(rel_start, '\"'); if ((rel_end == NULL) || (rel_end == rel_start) || (rel_end >= link_tag_end) ) continue; if (strncasecmp(rel, rel_start, repllen)!= 0) continue; /* didn't match? never mind... */ href_start = cbmstrcasestr(link_tag_start, "href="); if ((href_start == NULL) || (href_start >= link_tag_end)) continue; href_start = strchr(href_start, '\"'); if ((href_start == NULL) | (href_start >= link_tag_end)) continue; ++href_start; href_end = strchr(href_start, '\"'); if ((href_end == NULL) || (href_end == href_start) || (href_start >= link_tag_end)) continue; StrBufPlain(target_buf, href_start, href_end - href_start); } ptr = link_tag_end; } } /* * Wrapper for curl_easy_init() that includes the options common to all calls * used in this module. */ CURL *ctdl_openid_curl_easy_init(char *errmsg) { CURL *curl; curl = curl_easy_init(); if (!curl) { return(curl); } curl_easy_setopt(curl, CURLOPT_SSL_VERIFYPEER, 0); curl_easy_setopt(curl, CURLOPT_SSL_VERIFYHOST, 0); if (errmsg) { curl_easy_setopt(curl, CURLOPT_ERRORBUFFER, errmsg); } curl_easy_setopt(curl, CURLOPT_FOLLOWLOCATION, 1); #ifdef CURLOPT_HTTP_CONTENT_DECODING curl_easy_setopt(curl, CURLOPT_HTTP_CONTENT_DECODING, 1); curl_easy_setopt(curl, CURLOPT_ENCODING, ""); #endif curl_easy_setopt(curl, CURLOPT_USERAGENT, CITADEL); curl_easy_setopt(curl, CURLOPT_TIMEOUT, 30); /* die after 30 seconds */ if ( (!IsEmptyStr(CtdlGetConfigStr("c_ip_addr"))) && (strcmp(CtdlGetConfigStr("c_ip_addr"), "*")) && (strcmp(CtdlGetConfigStr("c_ip_addr"), "::")) && (strcmp(CtdlGetConfigStr("c_ip_addr"), "0.0.0.0")) ) { curl_easy_setopt(curl, CURLOPT_INTERFACE, CtdlGetConfigStr("c_ip_addr")); } return(curl); } struct xrds { StrBuf *CharData; int nesting_level; int in_xrd; int current_service_priority; int selected_service_priority; StrBuf *current_service_uri; StrBuf *selected_service_uri; int current_service_is_oid2auth; }; void xrds_xml_start(void *data, const char *supplied_el, const char **attr) { struct xrds *xrds = (struct xrds *) data; int i; ++xrds->nesting_level; if (!strcasecmp(supplied_el, "XRD")) { ++xrds->in_xrd; } else if (!strcasecmp(supplied_el, "service")) { xrds->current_service_priority = 0; xrds->current_service_is_oid2auth = 0; for (i=0; attr[i] != NULL; i+=2) { if (!strcasecmp(attr[i], "priority")) { xrds->current_service_priority = atoi(attr[i+1]); } } } FlushStrBuf(xrds->CharData); } void xrds_xml_end(void *data, const char *supplied_el) { struct xrds *xrds = (struct xrds *) data; --xrds->nesting_level; if (!strcasecmp(supplied_el, "XRD")) { --xrds->in_xrd; } else if (!strcasecmp(supplied_el, "type")) { if ( (xrds->in_xrd) && (!strcasecmp(ChrPtr(xrds->CharData), "http://specs.openid.net/auth/2.0/server")) ) { xrds->current_service_is_oid2auth = 1; } if ( (xrds->in_xrd) && (!strcasecmp(ChrPtr(xrds->CharData), "http://specs.openid.net/auth/2.0/signon")) ) { xrds->current_service_is_oid2auth = 1; /* FIXME in this case, the Claimed ID should be considered immutable */ } } else if (!strcasecmp(supplied_el, "uri")) { if (xrds->in_xrd) { FlushStrBuf(xrds->current_service_uri); StrBufAppendBuf(xrds->current_service_uri, xrds->CharData, 0); } } else if (!strcasecmp(supplied_el, "service")) { if ( (xrds->in_xrd) && (xrds->current_service_priority < xrds->selected_service_priority) && (xrds->current_service_is_oid2auth) ) { xrds->selected_service_priority = xrds->current_service_priority; FlushStrBuf(xrds->selected_service_uri); StrBufAppendBuf(xrds->selected_service_uri, xrds->current_service_uri, 0); } } FlushStrBuf(xrds->CharData); } void xrds_xml_chardata(void *data, const XML_Char *s, int len) { struct xrds *xrds = (struct xrds *) data; StrBufAppendBufPlain (xrds->CharData, s, len, 0); } /* * Parse an XRDS document. * If an OpenID Provider URL is discovered, op_url to that value and return nonzero. * If nothing useful happened, return 0. */ int parse_xrds_document(StrBuf *ReplyBuf) { ctdl_openid *oiddata = (ctdl_openid *) CC->openid_data; struct xrds xrds; int return_value = 0; memset(&xrds, 0, sizeof (struct xrds)); xrds.selected_service_priority = INT_MAX; xrds.CharData = NewStrBuf(); xrds.current_service_uri = NewStrBuf(); xrds.selected_service_uri = NewStrBuf(); XML_Parser xp = XML_ParserCreate(NULL); if (xp) { XML_SetUserData(xp, &xrds); XML_SetElementHandler(xp, xrds_xml_start, xrds_xml_end); XML_SetCharacterDataHandler(xp, xrds_xml_chardata); XML_Parse(xp, ChrPtr(ReplyBuf), StrLength(ReplyBuf), 0); XML_Parse(xp, "", 0, 1); XML_ParserFree(xp); } else { syslog(LOG_ALERT, "Cannot create XML parser"); } if (xrds.selected_service_priority < INT_MAX) { if (oiddata->op_url == NULL) { oiddata->op_url = NewStrBuf(); } FlushStrBuf(oiddata->op_url); StrBufAppendBuf(oiddata->op_url, xrds.selected_service_uri, 0); return_value = openid_disco_xrds; } FreeStrBuf(&xrds.CharData); FreeStrBuf(&xrds.current_service_uri); FreeStrBuf(&xrds.selected_service_uri); return(return_value); } /* * Callback function for perform_openid2_discovery() * We're interested in the X-XRDS-Location: header. */ size_t yadis_headerfunction(void *ptr, size_t size, size_t nmemb, void *userdata) { char hdr[1024]; StrBuf **x_xrds_location = (StrBuf **) userdata; memcpy(hdr, ptr, (size*nmemb)); hdr[size*nmemb] = 0; if (!strncasecmp(hdr, "X-XRDS-Location:", 16)) { *x_xrds_location = NewStrBufPlain(&hdr[16], ((size*nmemb)-16)); StrBufTrim(*x_xrds_location); } return(size * nmemb); } /* Attempt to perform Yadis discovery as specified in Yadis 1.0 section 6.2.5. * * If Yadis fails, we then attempt HTML discovery using the same document. * * If successful, returns nonzero and calls parse_xrds_document() to act upon the received data. * If fails, returns 0 and does nothing else. */ int perform_openid2_discovery(StrBuf *SuppliedURL) { ctdl_openid *oiddata = (ctdl_openid *) CC->openid_data; int docbytes = (-1); StrBuf *ReplyBuf = NULL; int return_value = 0; CURL *curl; CURLcode result; char errmsg[1024] = ""; struct curl_slist *my_headers = NULL; StrBuf *x_xrds_location = NULL; if (!SuppliedURL) return(0); syslog(LOG_DEBUG, "perform_openid2_discovery(%s)", ChrPtr(SuppliedURL)); if (StrLength(SuppliedURL) == 0) return(0); ReplyBuf = NewStrBuf(); if (!ReplyBuf) return(0); curl = ctdl_openid_curl_easy_init(errmsg); if (!curl) return(0); curl_easy_setopt(curl, CURLOPT_URL, ChrPtr(SuppliedURL)); curl_easy_setopt(curl, CURLOPT_WRITEDATA, ReplyBuf); curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, CurlFillStrBuf_callback); my_headers = curl_slist_append(my_headers, "Accept:"); /* disable the default Accept: header */ my_headers = curl_slist_append(my_headers, "Accept: application/xrds+xml"); curl_easy_setopt(curl, CURLOPT_HTTPHEADER, my_headers); curl_easy_setopt(curl, CURLOPT_WRITEHEADER, &x_xrds_location); curl_easy_setopt(curl, CURLOPT_HEADERFUNCTION, yadis_headerfunction); result = curl_easy_perform(curl); if (result) { syslog(LOG_DEBUG, "libcurl error %d: %s", result, errmsg); } curl_slist_free_all(my_headers); curl_easy_cleanup(curl); docbytes = StrLength(ReplyBuf); /* * The response from the server will be one of: * * Option 1: An HTML document with a element that includes a element with http-equiv * attribute, X-XRDS-Location, * * Does any provider actually do this? If so then we will implement it in the future. */ /* * Option 2: HTTP response-headers that include an X-XRDS-Location response-header, * together with a document. * Option 3: HTTP response-headers only, which MAY include an X-XRDS-Location response-header, * a contenttype response-header specifying MIME media type, * application/xrds+xml, or both. * * If the X-XRDS-Location header was delivered, we know about it at this point... */ if ( (x_xrds_location) && (strcmp(ChrPtr(x_xrds_location), ChrPtr(SuppliedURL))) ) { syslog(LOG_DEBUG, "X-XRDS-Location: %s ... recursing!", ChrPtr(x_xrds_location)); return_value = perform_openid2_discovery(x_xrds_location); FreeStrBuf(&x_xrds_location); } /* * Option 4: the returned web page may *be* an XRDS document. Try to parse it. */ if ( (return_value == 0) && (docbytes >= 0)) { return_value = parse_xrds_document(ReplyBuf); } /* * Option 5: if all else fails, attempt HTML based discovery. */ if ( (return_value == 0) && (docbytes >= 0)) { if (oiddata->op_url == NULL) { oiddata->op_url = NewStrBuf(); } extract_link(oiddata->op_url, HKEY("openid2.provider"), ReplyBuf); if (StrLength(oiddata->op_url) > 0) { return_value = openid_disco_html; } } if (ReplyBuf != NULL) { FreeStrBuf(&ReplyBuf); } return(return_value); } /* * Setup an OpenID authentication */ void cmd_oids(char *argbuf) { struct CitContext *CCC = CC; /* CachedCitContext - performance boost */ const char *Pos = NULL; StrBuf *ArgBuf = NULL; StrBuf *ReplyBuf = NULL; StrBuf *return_to = NULL; StrBuf *RedirectUrl = NULL; ctdl_openid *oiddata; int discovery_succeeded = 0; if (CtdlGetConfigInt("c_disable_newu")) { cprintf("%d this system does not support openid.\n", ERROR + CMD_NOT_SUPPORTED); return; } Free_ctdl_openid ((ctdl_openid**)&CCC->openid_data); CCC->openid_data = oiddata = malloc(sizeof(ctdl_openid)); if (oiddata == NULL) { syslog(LOG_ALERT, "malloc() failed: %s", strerror(errno)); cprintf("%d malloc failed\n", ERROR + INTERNAL_ERROR); return; } memset(oiddata, 0, sizeof(ctdl_openid)); ArgBuf = NewStrBufPlain(argbuf, -1); oiddata->verified = 0; oiddata->claimed_id = NewStrBufPlain(NULL, StrLength(ArgBuf)); return_to = NewStrBufPlain(NULL, StrLength(ArgBuf)); StrBufExtract_NextToken(oiddata->claimed_id, ArgBuf, &Pos, '|'); StrBufExtract_NextToken(return_to, ArgBuf, &Pos, '|'); syslog(LOG_DEBUG, "User-Supplied Identifier is: %s", ChrPtr(oiddata->claimed_id)); /********** OpenID 2.0 section 7.3 - Discovery **********/ /* Section 7.3.1 says we have to attempt XRI based discovery. * No one is using this, no one is asking for it, no one wants it. * So we're not even going to bother attempting this mode. */ /* Attempt section 7.3.2 (Yadis discovery) and section 7.3.3 (HTML discovery); */ discovery_succeeded = perform_openid2_discovery(oiddata->claimed_id); if (discovery_succeeded == 0) { cprintf("%d There is no OpenID identity provider at this location.\n", ERROR); } else { /* * If we get to this point we are in possession of a valid OpenID Provider URL. */ syslog(LOG_DEBUG, "OP URI '%s' discovered using method %d", ChrPtr(oiddata->op_url), discovery_succeeded ); /* We have to "normalize" our Claimed ID otherwise it will cause some OP's to barf */ if (cbmstrcasestr(ChrPtr(oiddata->claimed_id), "://") == NULL) { StrBuf *cid = oiddata->claimed_id; oiddata->claimed_id = NewStrBufPlain(HKEY("http://")); StrBufAppendBuf(oiddata->claimed_id, cid, 0); FreeStrBuf(&cid); } /* * OpenID 2.0 section 9: request authentication * Assemble a URL to which the user-agent will be redirected. */ RedirectUrl = NewStrBufDup(oiddata->op_url); StrBufAppendBufPlain(RedirectUrl, HKEY("?openid.ns="), 0); StrBufUrlescAppend(RedirectUrl, NULL, "http://specs.openid.net/auth/2.0"); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.mode=checkid_setup"), 0); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.claimed_id="), 0); StrBufUrlescAppend(RedirectUrl, oiddata->claimed_id, NULL); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.identity="), 0); StrBufUrlescAppend(RedirectUrl, oiddata->claimed_id, NULL); /* return_to tells the provider how to complete the round trip back to our site */ StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.return_to="), 0); StrBufUrlescAppend(RedirectUrl, return_to, NULL); /* Attribute Exchange * See: * http://openid.net/specs/openid-attribute-exchange-1_0.html * http://code.google.com/apis/accounts/docs/OpenID.html#endpoint * http://test-id.net/OP/AXFetch.aspx */ StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ns.ax="), 0); StrBufUrlescAppend(RedirectUrl, NULL, "http://openid.net/srv/ax/1.0"); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ax.mode=fetch_request"), 0); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ax.required=firstname,lastname,friendly,nickname"), 0); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ax.type.firstname="), 0); StrBufUrlescAppend(RedirectUrl, NULL, "http://axschema.org/namePerson/first"); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ax.type.lastname="), 0); StrBufUrlescAppend(RedirectUrl, NULL, "http://axschema.org/namePerson/last"); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ax.type.friendly="), 0); StrBufUrlescAppend(RedirectUrl, NULL, "http://axschema.org/namePerson/friendly"); StrBufAppendBufPlain(RedirectUrl, HKEY("&openid.ax.type.nickname="), 0); StrBufUrlescAppend(RedirectUrl, NULL, "http://axschema.org/namePerson/nickname"); syslog(LOG_DEBUG, "OpenID: redirecting client to %s", ChrPtr(RedirectUrl)); cprintf("%d %s\n", CIT_OK, ChrPtr(RedirectUrl)); } FreeStrBuf(&ArgBuf); FreeStrBuf(&ReplyBuf); FreeStrBuf(&return_to); FreeStrBuf(&RedirectUrl); } /* * Finalize an OpenID authentication */ void cmd_oidf(char *argbuf) { long len; char buf[2048]; char thiskey[1024]; char thisdata[1024]; HashList *keys = NULL; const char *Key; void *Value; ctdl_openid *oiddata = (ctdl_openid *) CC->openid_data; if (CtdlGetConfigInt("c_disable_newu")) { cprintf("%d this system does not support openid.\n", ERROR + CMD_NOT_SUPPORTED); return; } if (oiddata == NULL) { cprintf("%d run OIDS first.\n", ERROR + INTERNAL_ERROR); return; } if (StrLength(oiddata->op_url) == 0){ cprintf("%d No OpenID Endpoint URL has been obtained.\n", ERROR + ILLEGAL_VALUE); return; } keys = NewHash(1, NULL); if (!keys) { cprintf("%d NewHash() failed\n", ERROR + INTERNAL_ERROR); return; } cprintf("%d Transmit OpenID data now\n", START_CHAT_MODE); while (client_getln(buf, sizeof buf), strcmp(buf, "000")) { len = extract_token(thiskey, buf, 0, '|', sizeof thiskey); if (len < 0) { len = sizeof(thiskey) - 1; } extract_token(thisdata, buf, 1, '|', sizeof thisdata); Put(keys, thiskey, len, strdup(thisdata), NULL); } /* Check to see if this is a correct response. * Start with verified=1 but then set it to 0 if anything looks wrong. */ oiddata->verified = 1; char *openid_ns = NULL; if ( (!GetHash(keys, "ns", 2, (void *) &openid_ns)) || (strcasecmp(openid_ns, "http://specs.openid.net/auth/2.0")) ) { syslog(LOG_DEBUG, "This is not an an OpenID assertion"); oiddata->verified = 0; } char *openid_mode = NULL; if ( (!GetHash(keys, "mode", 4, (void *) &openid_mode)) || (strcasecmp(openid_mode, "id_res")) ) { oiddata->verified = 0; } char *openid_claimed_id = NULL; if (GetHash(keys, "claimed_id", 10, (void *) &openid_claimed_id)) { FreeStrBuf(&oiddata->claimed_id); oiddata->claimed_id = NewStrBufPlain(openid_claimed_id, -1); syslog(LOG_DEBUG, "Provider is asserting the Claimed ID '%s'", ChrPtr(oiddata->claimed_id)); } /* Validate the assertion against the server */ syslog(LOG_DEBUG, "Validating..."); CURL *curl; CURLcode res; struct curl_httppost *formpost = NULL; struct curl_httppost *lastptr = NULL; char errmsg[1024] = ""; StrBuf *ReplyBuf = NewStrBuf(); curl_formadd(&formpost, &lastptr, CURLFORM_COPYNAME, "openid.mode", CURLFORM_COPYCONTENTS, "check_authentication", CURLFORM_END ); HashPos *HashPos = GetNewHashPos(keys, 0); while (GetNextHashPos(keys, HashPos, &len, &Key, &Value) != 0) { if (strcasecmp(Key, "mode")) { char k_o_keyname[1024]; snprintf(k_o_keyname, sizeof k_o_keyname, "openid.%s", (const char *)Key); curl_formadd(&formpost, &lastptr, CURLFORM_COPYNAME, k_o_keyname, CURLFORM_COPYCONTENTS, (char *)Value, CURLFORM_END ); } } DeleteHashPos(&HashPos); curl = ctdl_openid_curl_easy_init(errmsg); curl_easy_setopt(curl, CURLOPT_URL, ChrPtr(oiddata->op_url)); curl_easy_setopt(curl, CURLOPT_WRITEDATA, ReplyBuf); curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, CurlFillStrBuf_callback); curl_easy_setopt(curl, CURLOPT_HTTPPOST, formpost); res = curl_easy_perform(curl); if (res) { syslog(LOG_DEBUG, "cmd_oidf() libcurl error %d: %s", res, errmsg); oiddata->verified = 0; } curl_easy_cleanup(curl); curl_formfree(formpost); /* syslog(LOG_DEBUG, "Validation reply: \n%s", ChrPtr(ReplyBuf)); */ if (cbmstrcasestr(ChrPtr(ReplyBuf), "is_valid:true") == NULL) { oiddata->verified = 0; } FreeStrBuf(&ReplyBuf); syslog(LOG_DEBUG, "OpenID authentication %s", (oiddata->verified ? "succeeded" : "failed") ); /* Respond to the client */ if (oiddata->verified) { /* If we were already logged in, attach the OpenID to the user's account */ if (CC->logged_in) { if (attach_openid(&CC->user, oiddata->claimed_id) == 0) { cprintf("attach\n"); syslog(LOG_DEBUG, "OpenID attach succeeded"); } else { cprintf("fail\n"); syslog(LOG_DEBUG, "OpenID attach failed"); } } /* Otherwise, a user is attempting to log in using the verified OpenID */ else { /* * Existing user who has claimed this OpenID? * * Note: if you think that sending the password back over the wire is insecure, * check your assumptions. If someone has successfully asserted an OpenID that * is associated with the account, they already have password equivalency and can * login, so they could just as easily change the password, etc. */ if (login_via_openid(oiddata->claimed_id) == 0) { cprintf("authenticate\n%s\n%s\n", CC->user.fullname, CC->user.password); logged_in_response(); syslog(LOG_DEBUG, "Logged in using previously claimed OpenID"); } /* * If this system does not allow self-service new user registration, the * remaining modes do not apply, so fail here and now. */ else if (CtdlGetConfigInt("c_disable_newu")) { cprintf("fail\n"); syslog(LOG_DEBUG, "Creating user failed due to local policy"); } /* * New user whose OpenID is verified and Attribute Exchange gave us a name? */ else if (openid_create_user_via_ax(oiddata->claimed_id, keys) == 0) { cprintf("authenticate\n%s\n%s\n", CC->user.fullname, CC->user.password); logged_in_response(); syslog(LOG_DEBUG, "Successfully auto-created new user"); } /* * OpenID is verified, but the desired username either was not specified or * conflicts with an existing user. Manual account creation is required. */ else { char *desired_name = NULL; cprintf("verify_only\n"); cprintf("%s\n", ChrPtr(oiddata->claimed_id)); if (GetHash(keys, "sreg.nickname", 13, (void *) &desired_name)) { cprintf("%s\n", desired_name); } else { cprintf("\n"); } syslog(LOG_DEBUG, "The desired display name is already taken."); } } } else { cprintf("fail\n"); } cprintf("000\n"); if (oiddata->sreg_keys != NULL) { DeleteHash(&oiddata->sreg_keys); oiddata->sreg_keys = NULL; } oiddata->sreg_keys = keys; } /**************************************************************************/ /* */ /* Functions in this section handle module initialization and shutdown */ /* */ /**************************************************************************/ CTDL_MODULE_INIT(openid_rp) { if (!threading) { // evcurl call this for us. curl_global_init(CURL_GLOBAL_ALL); /* Only enable the OpenID command set when native mode authentication is in use. */ if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_NATIVE) { CtdlRegisterProtoHook(cmd_oids, "OIDS", "Setup OpenID authentication"); CtdlRegisterProtoHook(cmd_oidf, "OIDF", "Finalize OpenID authentication"); CtdlRegisterProtoHook(cmd_oidl, "OIDL", "List OpenIDs associated with an account"); CtdlRegisterProtoHook(cmd_oidd, "OIDD", "Detach an OpenID from an account"); CtdlRegisterProtoHook(cmd_oidc, "OIDC", "Create new user after validating OpenID"); CtdlRegisterProtoHook(cmd_oida, "OIDA", "List all OpenIDs in the database"); } CtdlRegisterSessionHook(openid_cleanup_function, EVT_LOGOUT, PRIO_LOGOUT + 10); CtdlRegisterUserHook(openid_purge, EVT_PURGEUSER); openid_level_supported = 1; /* This module supports OpenID 1.0 only */ } /* return our module name for the log */ return "openid_rp"; } citadel-902/modules/pop3/000077500000000000000000000000001271512031400153205ustar00rootroot00000000000000citadel-902/modules/pop3/serv_pop3.c000066400000000000000000000365571271512031400174240ustar00rootroot00000000000000/* * POP3 service for the Citadel system * * Copyright (c) 1998-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. * * Current status of standards conformance: * * -> All required POP3 commands described in RFC1939 are implemented. * -> All optional POP3 commands described in RFC1939 are also implemented. * -> The deprecated "LAST" command is included in this implementation, because * there exist mail clients which insist on using it (such as Bynari * TradeMail, and certain versions of Eudora). * -> Capability detection via the method described in RFC2449 is implemented. * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "serv_pop3.h" #include "md5.h" #include "ctdl_module.h" int POP3DebugEnabled = 0; #define POP3DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (POP3DebugEnabled != 0)) #define CCCID CCC->cs_pid #define POP3_syslog(LEVEL, FORMAT, ...) \ POP3DBGLOG(LEVEL) syslog(LEVEL, \ "POP3CC[%d] " FORMAT, \ CCCID, __VA_ARGS__) #define POP3M_syslog(LEVEL, FORMAT) \ POP3DBGLOG(LEVEL) syslog(LEVEL, \ "POP3CC[%d] " FORMAT, \ CCCID) /* * This cleanup function blows away the temporary memory and files used by * the POP3 server. */ void pop3_cleanup_function(void) { struct CitContext *CCC = CC; /* Don't do this stuff if this is not a POP3 session! */ if (CCC->h_command_function != pop3_command_loop) return; struct citpop3 *pop3 = ((struct citpop3 *)CCC->session_specific_data); POP3M_syslog(LOG_DEBUG, "Performing POP3 cleanup hook"); if (pop3->msgs != NULL) { free(pop3->msgs); } free(pop3); } /* * Here's where our POP3 session begins its happy day. */ void pop3_greeting(void) { struct CitContext *CCC = CC; strcpy(CCC->cs_clientname, "POP3 session"); CCC->internal_pgm = 1; CCC->session_specific_data = malloc(sizeof(struct citpop3)); memset(POP3, 0, sizeof(struct citpop3)); cprintf("+OK Citadel POP3 server ready.\r\n"); } /* * POP3S is just like POP3, except it goes crypto right away. */ void pop3s_greeting(void) { struct CitContext *CCC = CC; CtdlModuleStartCryptoMsgs(NULL, NULL, NULL); /* kill session if no crypto */ #ifdef HAVE_OPENSSL if (!CCC->redirect_ssl) CCC->kill_me = KILLME_NO_CRYPTO; #else CCC->kill_me = KILLME_NO_CRYPTO; #endif pop3_greeting(); } /* * Specify user name (implements POP3 "USER" command) */ void pop3_user(char *argbuf) { struct CitContext *CCC = CC; char username[SIZ]; if (CCC->logged_in) { cprintf("-ERR You are already logged in.\r\n"); return; } strcpy(username, argbuf); striplt(username); /* POP3_syslog(LOG_DEBUG, "Trying <%s>", username); */ if (CtdlLoginExistingUser(NULL, username) == login_ok) { cprintf("+OK Password required for %s\r\n", username); } else { cprintf("-ERR No such user.\r\n"); } } /* * Back end for pop3_grab_mailbox() */ void pop3_add_message(long msgnum, void *userdata) { struct CitContext *CCC = CC; struct MetaData smi; ++POP3->num_msgs; if (POP3->num_msgs < 2) POP3->msgs = malloc(sizeof(struct pop3msg)); else POP3->msgs = realloc(POP3->msgs, (POP3->num_msgs * sizeof(struct pop3msg)) ) ; POP3->msgs[POP3->num_msgs-1].msgnum = msgnum; POP3->msgs[POP3->num_msgs-1].deleted = 0; /* We need to know the length of this message when it is printed in * RFC822 format. Perhaps we have cached this length in the message's * metadata record. If so, great; if not, measure it and then cache * it for next time. */ GetMetaData(&smi, msgnum); if (smi.meta_rfc822_length <= 0L) { CCC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputMsg(msgnum, MT_RFC822, HEADERS_ALL, 0, 1, NULL, SUPPRESS_ENV_TO, NULL, NULL, NULL); smi.meta_rfc822_length = StrLength(CCC->redirect_buffer); FreeStrBuf(&CCC->redirect_buffer); /* TODO: WHEW, all this for just knowing the length???? */ PutMetaData(&smi); } POP3->msgs[POP3->num_msgs-1].rfc822_length = smi.meta_rfc822_length; } /* * Open the inbox and read its contents. * (This should be called only once, by pop3_pass(), and returns the number * of messages in the inbox, or -1 for error) */ int pop3_grab_mailbox(void) { struct CitContext *CCC = CC; visit vbuf; int i; if (CtdlGetRoom(&CCC->room, MAILROOM) != 0) return(-1); /* Load up the messages */ CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, pop3_add_message, NULL); /* Figure out which are old and which are new */ CtdlGetRelationship(&vbuf, &CCC->user, &CCC->room); POP3->lastseen = (-1); if (POP3->num_msgs) for (i=0; inum_msgs; ++i) { if (is_msg_in_sequence_set(vbuf.v_seen, (POP3->msgs[POP3->num_msgs-1].msgnum) )) { POP3->lastseen = i; } } return(POP3->num_msgs); } void pop3_login(void) { struct CitContext *CCC = CC; int msgs; msgs = pop3_grab_mailbox(); if (msgs >= 0) { cprintf("+OK %s is logged in (%d messages)\r\n", CCC->user.fullname, msgs); POP3_syslog(LOG_DEBUG, "POP3 authenticated %s", CCC->user.fullname); } else { cprintf("-ERR Can't open your mailbox\r\n"); } } /* * Authorize with password (implements POP3 "PASS" command) */ void pop3_pass(char *argbuf) { char password[SIZ]; safestrncpy(password, argbuf, sizeof password); striplt(password); /* POP3_syslog(LOG_DEBUG, "Trying <%s>", password); */ if (CtdlTryPassword(password, strlen(password)) == pass_ok) { pop3_login(); } else { cprintf("-ERR That is NOT the password.\r\n"); } } /* * list available msgs */ void pop3_list(char *argbuf) { int i; int which_one; which_one = atoi(argbuf); /* "list one" mode */ if (which_one > 0) { if (which_one > POP3->num_msgs) { cprintf("-ERR no such message, only %d are here\r\n", POP3->num_msgs); return; } else if (POP3->msgs[which_one-1].deleted) { cprintf("-ERR Sorry, you deleted that message.\r\n"); return; } else { cprintf("+OK %d %ld\r\n", which_one, (long)POP3->msgs[which_one-1].rfc822_length ); return; } } /* "list all" (scan listing) mode */ else { cprintf("+OK Here's your mail:\r\n"); if (POP3->num_msgs > 0) for (i=0; inum_msgs; ++i) { if (! POP3->msgs[i].deleted) { cprintf("%d %ld\r\n", i+1, (long)POP3->msgs[i].rfc822_length); } } cprintf(".\r\n"); } } /* * STAT (tally up the total message count and byte count) command */ void pop3_stat(char *argbuf) { int total_msgs = 0; size_t total_octets = 0; int i; if (POP3->num_msgs > 0) for (i=0; inum_msgs; ++i) { if (! POP3->msgs[i].deleted) { ++total_msgs; total_octets += POP3->msgs[i].rfc822_length; } } cprintf("+OK %d %ld\r\n", total_msgs, (long)total_octets); } /* * RETR command (fetch a message) */ void pop3_retr(char *argbuf) { int which_one; which_one = atoi(argbuf); if ( (which_one < 1) || (which_one > POP3->num_msgs) ) { cprintf("-ERR No such message.\r\n"); return; } if (POP3->msgs[which_one - 1].deleted) { cprintf("-ERR Sorry, you deleted that message.\r\n"); return; } cprintf("+OK Message %d:\r\n", which_one); CtdlOutputMsg(POP3->msgs[which_one - 1].msgnum, MT_RFC822, HEADERS_ALL, 0, 1, NULL, (ESC_DOT|SUPPRESS_ENV_TO), NULL, NULL, NULL); cprintf(".\r\n"); } /* * TOP command (dumb way of fetching a partial message or headers-only) */ void pop3_top(char *argbuf) { struct CitContext *CCC = CC; int which_one; int lines_requested = 0; int lines_dumped = 0; char buf[1024]; StrBuf *msgtext; const char *ptr; int in_body = 0; int done = 0; sscanf(argbuf, "%d %d", &which_one, &lines_requested); if ( (which_one < 1) || (which_one > POP3->num_msgs) ) { cprintf("-ERR No such message.\r\n"); return; } if (POP3->msgs[which_one - 1].deleted) { cprintf("-ERR Sorry, you deleted that message.\r\n"); return; } CCC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputMsg(POP3->msgs[which_one - 1].msgnum, MT_RFC822, HEADERS_ALL, 0, 1, NULL, SUPPRESS_ENV_TO, NULL, NULL, NULL); msgtext = CCC->redirect_buffer; CCC->redirect_buffer = NULL; cprintf("+OK Message %d:\r\n", which_one); ptr = ChrPtr(msgtext); while (ptr = cmemreadline(ptr, buf, (sizeof buf - 2)), ( (*ptr != 0) && (done == 0))) { strcat(buf, "\r\n"); if (in_body == 1) { if (lines_dumped >= lines_requested) { done = 1; } } if ((in_body == 0) || (done == 0)) { client_write(buf, strlen(buf)); } if (in_body) { ++lines_dumped; } if ((buf[0]==13)||(buf[0]==10)) in_body = 1; } if (buf[strlen(buf)-1] != 10) cprintf("\n"); FreeStrBuf(&msgtext); cprintf(".\r\n"); } /* * DELE (delete message from mailbox) */ void pop3_dele(char *argbuf) { int which_one; which_one = atoi(argbuf); if ( (which_one < 1) || (which_one > POP3->num_msgs) ) { cprintf("-ERR No such message.\r\n"); return; } if (POP3->msgs[which_one - 1].deleted) { cprintf("-ERR You already deleted that message.\r\n"); return; } /* Flag the message as deleted. Will expunge during QUIT command. */ POP3->msgs[which_one - 1].deleted = 1; cprintf("+OK Message %d deleted.\r\n", which_one); } /* Perform "UPDATE state" stuff */ void pop3_update(void) { struct CitContext *CCC = CC; int i; visit vbuf; long *deletemsgs = NULL; int num_deletemsgs = 0; /* Remove messages marked for deletion */ if (POP3->num_msgs > 0) { deletemsgs = malloc(POP3->num_msgs * sizeof(long)); for (i=0; inum_msgs; ++i) { if (POP3->msgs[i].deleted) { deletemsgs[num_deletemsgs++] = POP3->msgs[i].msgnum; } } if (num_deletemsgs > 0) { CtdlDeleteMessages(MAILROOM, deletemsgs, num_deletemsgs, ""); } free(deletemsgs); } /* Set last read pointer */ if (POP3->num_msgs > 0) { CtdlLockGetCurrentUser(); CtdlGetRelationship(&vbuf, &CCC->user, &CCC->room); snprintf(vbuf.v_seen, sizeof vbuf.v_seen, "*:%ld", POP3->msgs[POP3->num_msgs-1].msgnum); CtdlSetRelationship(&vbuf, &CCC->user, &CCC->room); CtdlPutCurrentUserLock(); } } /* * RSET (reset, i.e. undelete any deleted messages) command */ void pop3_rset(char *argbuf) { int i; if (POP3->num_msgs > 0) for (i=0; inum_msgs; ++i) { if (POP3->msgs[i].deleted) { POP3->msgs[i].deleted = 0; } } cprintf("+OK Reset completed.\r\n"); } /* * LAST (Determine which message is the last unread message) */ void pop3_last(char *argbuf) { cprintf("+OK %d\r\n", POP3->lastseen + 1); } /* * CAPA is a command which tells the client which POP3 extensions * are supported. */ void pop3_capa(void) { cprintf("+OK Capability list follows\r\n" "TOP\r\n" "USER\r\n" "UIDL\r\n" "IMPLEMENTATION %s\r\n" ".\r\n" , CITADEL ); } /* * UIDL (Universal IDentifier Listing) is easy. Our 'unique' message * identifiers are simply the Citadel message numbers in the database. */ void pop3_uidl(char *argbuf) { int i; int which_one; which_one = atoi(argbuf); /* "list one" mode */ if (which_one > 0) { if (which_one > POP3->num_msgs) { cprintf("-ERR no such message, only %d are here\r\n", POP3->num_msgs); return; } else if (POP3->msgs[which_one-1].deleted) { cprintf("-ERR Sorry, you deleted that message.\r\n"); return; } else { cprintf("+OK %d %ld\r\n", which_one, POP3->msgs[which_one-1].msgnum ); return; } } /* "list all" (scan listing) mode */ else { cprintf("+OK Here's your mail:\r\n"); if (POP3->num_msgs > 0) for (i=0; inum_msgs; ++i) { if (! POP3->msgs[i].deleted) { cprintf("%d %ld\r\n", i+1, POP3->msgs[i].msgnum); } } cprintf(".\r\n"); } } /* * implements the STLS command (Citadel API version) */ void pop3_stls(void) { char ok_response[SIZ]; char nosup_response[SIZ]; char error_response[SIZ]; sprintf(ok_response, "+OK Begin TLS negotiation now\r\n"); sprintf(nosup_response, "-ERR TLS not supported here\r\n"); sprintf(error_response, "-ERR Internal error\r\n"); CtdlModuleStartCryptoMsgs(ok_response, nosup_response, error_response); } /* * Main command loop for POP3 sessions. */ void pop3_command_loop(void) { struct CitContext *CCC = CC; char cmdbuf[SIZ]; time(&CCC->lastcmd); memset(cmdbuf, 0, sizeof cmdbuf); /* Clear it, just in case */ if (client_getln(cmdbuf, sizeof cmdbuf) < 1) { POP3M_syslog(LOG_INFO, "POP3 client disconnected: ending session."); CCC->kill_me = KILLME_CLIENT_DISCONNECTED; return; } if (!strncasecmp(cmdbuf, "PASS", 4)) { POP3M_syslog(LOG_DEBUG, "POP3: PASS..."); } else { POP3_syslog(LOG_DEBUG, "POP3: %s", cmdbuf); } while (strlen(cmdbuf) < 5) strcat(cmdbuf, " "); if (!strncasecmp(cmdbuf, "NOOP", 4)) { cprintf("+OK No operation.\r\n"); } else if (!strncasecmp(cmdbuf, "CAPA", 4)) { pop3_capa(); } else if (!strncasecmp(cmdbuf, "QUIT", 4)) { cprintf("+OK Goodbye...\r\n"); pop3_update(); CCC->kill_me = KILLME_CLIENT_LOGGED_OUT; return; } else if (!strncasecmp(cmdbuf, "USER", 4)) { pop3_user(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "PASS", 4)) { pop3_pass(&cmdbuf[5]); } #ifdef HAVE_OPENSSL else if (!strncasecmp(cmdbuf, "STLS", 4)) { pop3_stls(); } #endif else if (!CCC->logged_in) { cprintf("-ERR Not logged in.\r\n"); } else if (CCC->nologin) { cprintf("-ERR System busy, try later.\r\n"); CCC->kill_me = KILLME_NOLOGIN; } else if (!strncasecmp(cmdbuf, "LIST", 4)) { pop3_list(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "STAT", 4)) { pop3_stat(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "RETR", 4)) { pop3_retr(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "DELE", 4)) { pop3_dele(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "RSET", 4)) { pop3_rset(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "UIDL", 4)) { pop3_uidl(&cmdbuf[5]); } else if (!strncasecmp(cmdbuf, "TOP", 3)) { pop3_top(&cmdbuf[4]); } else if (!strncasecmp(cmdbuf, "LAST", 4)) { pop3_last(&cmdbuf[4]); } else { cprintf("-ERR I'm afraid I can't do that.\r\n"); } } const char *CitadelServicePop3="POP3"; const char *CitadelServicePop3S="POP3S"; void SetPOP3DebugEnabled(const int n) { POP3DebugEnabled = n; } CTDL_MODULE_INIT(pop3) { if(!threading) { CtdlRegisterDebugFlagHook(HKEY("pop3srv"), SetPOP3DebugEnabled, &POP3DebugEnabled); CtdlRegisterServiceHook(CtdlGetConfigInt("c_pop3_port"), NULL, pop3_greeting, pop3_command_loop, NULL, CitadelServicePop3); #ifdef HAVE_OPENSSL CtdlRegisterServiceHook(CtdlGetConfigInt("c_pop3s_port"), NULL, pop3s_greeting, pop3_command_loop, NULL, CitadelServicePop3S); #endif CtdlRegisterSessionHook(pop3_cleanup_function, EVT_STOP, PRIO_STOP + 30); } /* return our module name for the log */ return "pop3"; } citadel-902/modules/pop3/serv_pop3.h000066400000000000000000000023171271512031400174140ustar00rootroot00000000000000/* * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ struct pop3msg { long msgnum; size_t rfc822_length; int deleted; }; struct citpop3 { /* Information about the current session */ struct pop3msg *msgs; /* Array of message pointers */ int num_msgs; /* Number of messages in array */ int lastseen; /* Offset of last-read message in array */ }; /* Note: the "lastseen" is represented as the * offset in this array (zero-based), so when * displaying it to a POP3 client, it must be * incremented by one. */ #define POP3 ((struct citpop3 *)CC->session_specific_data) void pop3_cleanup_function(void); void pop3_greeting(void); void pop3_user(char *argbuf); void pop3_pass(char *argbuf); void pop3_list(char *argbuf); void pop3_command_loop(void); void pop3_login(void); citadel-902/modules/pop3client/000077500000000000000000000000001271512031400165175ustar00rootroot00000000000000citadel-902/modules/pop3client/serv_pop3client.c000066400000000000000000000724321271512031400220120ustar00rootroot00000000000000/* * Consolidate mail from remote POP3 accounts. * * Copyright (c) 2007-2015 by the citadel.org team * * This program is open source 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. */ #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "ctdl_module.h" #include "clientsocket.h" #include "msgbase.h" #include "internet_addressing.h" #include "database.h" #include "citadel_dirs.h" #include "event_client.h" #define POP3C_OK (strncasecmp(ChrPtr(RecvMsg->IO.IOBuf), "+OK", 3) == 0) int Pop3ClientID = 0; int POP3ClientDebugEnabled = 0; #define N ((pop3aggr*)IO->Data)->n #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (POP3ClientDebugEnabled != 0)) #define EVP3C_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d][%ld]POP3: " FORMAT, \ IOSTR, IO->ID, CCID, N, __VA_ARGS__) #define EVP3CM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d][%ld]POP3: " FORMAT, \ IOSTR, IO->ID, CCID, N) #define EVP3CQ_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s P3Q:" FORMAT, \ IOSTR, __VA_ARGS__) #define EVP3CQM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s P3Q" FORMAT, \ IOSTR) #define EVP3CCS_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, "%s[%ld][%ld]POP3: " FORMAT, \ IOSTR, IO->ID, N, __VA_ARGS__) #define EVP3CCSM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, "%s[%ld][%ld]POP3: " FORMAT, \ IOSTR, IO->ID, N) #define POP3C_DBG_SEND() \ EVP3C_syslog(LOG_DEBUG, \ "%s[%ld]CC[%d][%ld]POP3: > %s\n", \ IOSTR, IO->ID, CCID, N, \ ChrPtr(RecvMsg->IO.SendBuf.Buf)) #define POP3C_DBG_READ() \ EVP3C_syslog(LOG_DEBUG, \ "%s[%ld]CC[%d][%ld]POP3: < %s\n", \ IOSTR, IO->ID, CCID, N, \ ChrPtr(RecvMsg->IO.IOBuf)) struct CitContext pop3_client_CC; pthread_mutex_t POP3QueueMutex; /* locks the access to the following vars: */ HashList *POP3QueueRooms = NULL; HashList *POP3FetchUrls = NULL; typedef struct pop3aggr pop3aggr; typedef eNextState(*Pop3ClientHandler)(pop3aggr* RecvMsg); eNextState POP3_C_Shutdown(AsyncIO *IO); eNextState POP3_C_Timeout(AsyncIO *IO); eNextState POP3_C_ConnFail(AsyncIO *IO); eNextState POP3_C_DNSFail(AsyncIO *IO); eNextState POP3_C_DispatchReadDone(AsyncIO *IO); eNextState POP3_C_DispatchWriteDone(AsyncIO *IO); eNextState POP3_C_Terminate(AsyncIO *IO); eReadState POP3_C_ReadServerStatus(AsyncIO *IO); eNextState POP3_C_ReAttachToFetchMessages(AsyncIO *IO); typedef struct __pop3_room_counter { int count; long QRnumber; }pop3_room_counter; typedef enum ePOP3_C_States { ReadGreeting, GetUserState, GetPassState, GetListCommandState, GetListOneLine, GetOneMessageIDState, ReadMessageBodyFollowing, ReadMessageBody, GetDeleteState, ReadQuitState, POP3C_MaxRead }ePOP3_C_States; typedef struct _FetchItem { long MSGID; long MSGSize; StrBuf *MsgUIDL; StrBuf *MsgUID; int NeedFetch; struct CtdlMessage *Msg; } FetchItem; void HfreeFetchItem(void *vItem) { FetchItem *Item = (FetchItem*) vItem; FreeStrBuf(&Item->MsgUIDL); FreeStrBuf(&Item->MsgUID); free(Item); } typedef enum _POP3State { eCreated, eGreeting, eUser, ePassword, eListing, eUseTable, eGetMsgID, eGetMsg, eStoreMsg, eDelete, eQuit } POP3State; ConstStr POP3States[] = { {HKEY("Aggregator created")}, {HKEY("Reading Greeting")}, {HKEY("Sending User")}, {HKEY("Sending Password")}, {HKEY("Listing")}, {HKEY("Fetching Usetable")}, {HKEY("Get MSG ID")}, {HKEY("Get Message")}, {HKEY("Store Msg")}, {HKEY("Delete Upstream")}, {HKEY("Quit")} }; static void SetPOP3State(AsyncIO *IO, POP3State State) { CitContext* CCC = IO->CitContext; if (CCC != NULL) memcpy(CCC->cs_clientname, POP3States[State].Key, POP3States[State].len + 1); } struct pop3aggr { AsyncIO IO; long n; double IOStart; long count; long RefCount; DNSQueryParts HostLookup; long QRnumber; HashList *OtherQRnumbers; StrBuf *Url; StrBuf *pop3user; StrBuf *pop3pass; StrBuf *Host; StrBuf *RoomName; // TODO: fill me int keep; time_t interval; ePOP3_C_States State; HashList *MsgNumbers; HashPos *Pos; FetchItem *CurrMsg; }; void DeletePOP3Aggregator(void *vptr) { pop3aggr *ptr = vptr; DeleteHashPos(&ptr->Pos); DeleteHash(&ptr->MsgNumbers); // FreeStrBuf(&ptr->rooms); FreeStrBuf(&ptr->pop3user); FreeStrBuf(&ptr->pop3pass); FreeStrBuf(&ptr->Host); FreeStrBuf(&ptr->RoomName); FreeURL(&ptr->IO.ConnectMe); FreeStrBuf(&ptr->Url); FreeStrBuf(&ptr->IO.IOBuf); FreeStrBuf(&ptr->IO.SendBuf.Buf); FreeStrBuf(&ptr->IO.RecvBuf.Buf); DeleteAsyncMsg(&ptr->IO.ReadMsg); if (((struct CitContext*)ptr->IO.CitContext)) { ((struct CitContext*)ptr->IO.CitContext)->state = CON_IDLE; ((struct CitContext*)ptr->IO.CitContext)->kill_me = 1; } FreeAsyncIOContents(&ptr->IO); free(ptr); } eNextState FinalizePOP3AggrRun(AsyncIO *IO) { HashPos *It; pop3aggr *cpptr = (pop3aggr *)IO->Data; EVP3C_syslog(LOG_INFO, "%s@%s: fetched %ld new of %d messages in %fs. bye.", ChrPtr(cpptr->pop3user), ChrPtr(cpptr->Host), cpptr->count, GetCount(cpptr->MsgNumbers), IO->Now - cpptr->IOStart ); It = GetNewHashPos(POP3FetchUrls, 0); pthread_mutex_lock(&POP3QueueMutex); { if (GetHashPosFromKey(POP3FetchUrls, SKEY(cpptr->Url), It)) DeleteEntryFromHash(POP3FetchUrls, It); } pthread_mutex_unlock(&POP3QueueMutex); DeleteHashPos(&It); return eAbort; } eNextState FailAggregationRun(AsyncIO *IO) { return eAbort; } eNextState POP3C_ReadGreeting(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; SetPOP3State(IO, eGreeting); POP3C_DBG_READ(); /* Read the server greeting */ if (!POP3C_OK) return eTerminateConnection; else return eSendReply; } eNextState POP3C_SendUser(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; SetPOP3State(IO, eUser); /* Identify ourselves. NOTE: we have to append a CR to each command. * The LF will automatically be appended by sock_puts(). Believe it * or not, leaving out the CR will cause problems if the server happens * to be Exchange, which is so b0rken it actually barfs on * LF-terminated newlines. */ StrBufPrintf(RecvMsg->IO.SendBuf.Buf, "USER %s\r\n", ChrPtr(RecvMsg->pop3user)); POP3C_DBG_SEND(); return eReadMessage; } eNextState POP3C_GetUserState(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; POP3C_DBG_READ(); if (!POP3C_OK) return eTerminateConnection; else return eSendReply; } eNextState POP3C_SendPassword(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; SetPOP3State(IO, ePassword); /* Password */ StrBufPrintf(RecvMsg->IO.SendBuf.Buf, "PASS %s\r\n", ChrPtr(RecvMsg->pop3pass)); EVP3CM_syslog(LOG_DEBUG, "\n"); // POP3C_DBG_SEND(); No, we won't write the passvoid to syslog... return eReadMessage; } eNextState POP3C_GetPassState(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; POP3C_DBG_READ(); if (!POP3C_OK) return eTerminateConnection; else return eSendReply; } eNextState POP3C_SendListCommand(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; SetPOP3State(IO, eListing); /* Get the list of messages */ StrBufPlain(RecvMsg->IO.SendBuf.Buf, HKEY("LIST\r\n")); POP3C_DBG_SEND(); return eReadMessage; } eNextState POP3C_GetListCommandState(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; POP3C_DBG_READ(); if (!POP3C_OK) return eTerminateConnection; RecvMsg->MsgNumbers = NewHash(1, NULL); RecvMsg->State++; return eReadMore; } eNextState POP3C_GetListOneLine(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; #if 0 int rc; #endif const char *pch; FetchItem *OneMsg = NULL; POP3C_DBG_READ(); if ((StrLength(RecvMsg->IO.IOBuf) == 1) && (ChrPtr(RecvMsg->IO.IOBuf)[0] == '.')) { if (GetCount(RecvMsg->MsgNumbers) == 0) { //// RecvMsg->Sate = ReadQuitState; } else { RecvMsg->Pos = GetNewHashPos(RecvMsg->MsgNumbers, 0); } return eSendReply; } /* * work around buggy pop3 servers which send * empty lines in their listings. */ if ((StrLength(RecvMsg->IO.IOBuf) == 0) || !isdigit(ChrPtr(RecvMsg->IO.IOBuf)[0])) { return eReadMore; } OneMsg = (FetchItem*) malloc(sizeof(FetchItem)); memset(OneMsg, 0, sizeof(FetchItem)); OneMsg->MSGID = atol(ChrPtr(RecvMsg->IO.IOBuf)); pch = strchr(ChrPtr(RecvMsg->IO.IOBuf), ' '); if (pch != NULL) { OneMsg->MSGSize = atol(pch + 1); } #if 0 rc = TestValidateHash(RecvMsg->MsgNumbers); if (rc != 0) EVP3CCS_syslog(LOG_DEBUG, "Hash Invalid: %d\n", rc); #endif Put(RecvMsg->MsgNumbers, LKEY(OneMsg->MSGID), OneMsg, HfreeFetchItem); #if 0 rc = TestValidateHash(RecvMsg->MsgNumbers); if (rc != 0) EVP3CCS_syslog(LOG_DEBUG, "Hash Invalid: %d\n", rc); #endif //RecvMsg->State --; /* read next Line */ return eReadMore; } eNextState POP3_FetchNetworkUsetableEntry(AsyncIO *IO) { long HKLen; const char *HKey; void *vData; pop3aggr *RecvMsg = (pop3aggr *) IO->Data; time_t seenstamp = 0; SetPOP3State(IO, eUseTable); if((RecvMsg->Pos != NULL) && GetNextHashPos(RecvMsg->MsgNumbers, RecvMsg->Pos, &HKLen, &HKey, &vData)) { if (server_shutting_down) return eAbort; RecvMsg->CurrMsg = (FetchItem*)vData; seenstamp = CheckIfAlreadySeen("POP3 Item Seen", RecvMsg->CurrMsg->MsgUID, EvGetNow(IO), EvGetNow(IO) - USETABLE_ANTIEXPIRE, eCheckUpdate, IO->ID, CCID); if (seenstamp != 0) { /* Item has already been seen */ RecvMsg->CurrMsg->NeedFetch = 0; } else { EVP3CCSM_syslog(LOG_DEBUG, "NO\n"); RecvMsg->CurrMsg->NeedFetch = 1; } return NextDBOperation(&RecvMsg->IO, POP3_FetchNetworkUsetableEntry); } else { /* ok, now we know them all, * continue with reading the actual messages. */ DeleteHashPos(&RecvMsg->Pos); return DBQueueEventContext(IO, POP3_C_ReAttachToFetchMessages); } } eNextState POP3C_GetOneMessagID(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; long HKLen; const char *HKey; void *vData; SetPOP3State(IO, eGetMsgID); #if 0 int rc; rc = TestValidateHash(RecvMsg->MsgNumbers); if (rc != 0) EVP3CCS_syslog(LOG_DEBUG, "Hash Invalid: %d\n", rc); #endif if((RecvMsg->Pos != NULL) && GetNextHashPos(RecvMsg->MsgNumbers, RecvMsg->Pos, &HKLen, &HKey, &vData)) { RecvMsg->CurrMsg = (FetchItem*) vData; /* Find out the UIDL of the message, * to determine whether we've already downloaded it */ StrBufPrintf(RecvMsg->IO.SendBuf.Buf, "UIDL %ld\r\n", RecvMsg->CurrMsg->MSGID); POP3C_DBG_SEND(); } else { RecvMsg->State++; DeleteHashPos(&RecvMsg->Pos); /// done receiving uidls.. start looking them up now. RecvMsg->Pos = GetNewHashPos(RecvMsg->MsgNumbers, 0); return EventQueueDBOperation(&RecvMsg->IO, POP3_FetchNetworkUsetableEntry, 0); } return eReadMore; /* TODO */ } eNextState POP3C_GetOneMessageIDState(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; #if 0 int rc; rc = TestValidateHash(RecvMsg->MsgNumbers); if (rc != 0) EVP3CCS_syslog(LOG_DEBUG, "Hash Invalid: %d\n", rc); #endif POP3C_DBG_READ(); if (!POP3C_OK) return eTerminateConnection; RecvMsg->CurrMsg->MsgUIDL = NewStrBufPlain(NULL, StrLength(RecvMsg->IO.IOBuf)); RecvMsg->CurrMsg->MsgUID = NewStrBufPlain(NULL, StrLength(RecvMsg->IO.IOBuf) * 2); StrBufExtract_token(RecvMsg->CurrMsg->MsgUIDL, RecvMsg->IO.IOBuf, 2, ' '); StrBufPrintf(RecvMsg->CurrMsg->MsgUID, "pop3/%s/%s:%s@%s", ChrPtr(RecvMsg->RoomName), ChrPtr(RecvMsg->CurrMsg->MsgUIDL), RecvMsg->IO.ConnectMe->User, RecvMsg->IO.ConnectMe->Host); RecvMsg->State --; return eSendReply; } eNextState POP3C_SendGetOneMsg(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; long HKLen; const char *HKey; void *vData; SetPOP3State(IO, eGetMsg); EVP3CM_syslog(LOG_DEBUG, "fast forwarding to the next unknown message"); RecvMsg->CurrMsg = NULL; while ((RecvMsg->Pos != NULL) && GetNextHashPos(RecvMsg->MsgNumbers, RecvMsg->Pos, &HKLen, &HKey, &vData) && (RecvMsg->CurrMsg = (FetchItem*) vData, RecvMsg->CurrMsg->NeedFetch == 0)) {} if ((RecvMsg->CurrMsg != NULL ) && (RecvMsg->CurrMsg->NeedFetch == 1)) { EVP3CM_syslog(LOG_DEBUG, "fetching next"); /* Message has not been seen. * Tell the server to fetch the message... */ StrBufPrintf(RecvMsg->IO.SendBuf.Buf, "RETR %ld\r\n", RecvMsg->CurrMsg->MSGID); POP3C_DBG_SEND(); return eReadMessage; } else { EVP3CM_syslog(LOG_DEBUG, "no more messages to fetch."); RecvMsg->State = ReadQuitState; return POP3_C_DispatchWriteDone(&RecvMsg->IO); } } eNextState POP3C_ReadMessageBodyFollowing(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; POP3C_DBG_READ(); if (!POP3C_OK) return eTerminateConnection; RecvMsg->IO.ReadMsg = NewAsyncMsg(HKEY("."), RecvMsg->CurrMsg->MSGSize, CtdlGetConfigLong("c_maxmsglen"), NULL, -1, 1); return eReadPayload; } eNextState POP3C_StoreMsgRead(AsyncIO *IO) { pop3aggr *RecvMsg = (pop3aggr *) IO->Data; SetPOP3State(IO, eStoreMsg); EVP3CCS_syslog(LOG_DEBUG, "MARKING: %s as seen: ", ChrPtr(RecvMsg->CurrMsg->MsgUID)); CheckIfAlreadySeen("POP3 Item Seen", RecvMsg->CurrMsg->MsgUID, EvGetNow(IO), EvGetNow(IO) - USETABLE_ANTIEXPIRE, eWrite, IO->ID, CCID); return DBQueueEventContext(&RecvMsg->IO, POP3_C_ReAttachToFetchMessages); } eNextState POP3C_SaveMsg(AsyncIO *IO) { long msgnum; pop3aggr *RecvMsg = (pop3aggr *) IO->Data; /* Do Something With It (tm) */ msgnum = CtdlSubmitMsg(RecvMsg->CurrMsg->Msg, NULL, ChrPtr(RecvMsg->RoomName), 0); if (msgnum > 0L) { /* Message has been committed to the store * write the uidl to the use table * so we don't fetch this message again */ } CM_Free(RecvMsg->CurrMsg->Msg); RecvMsg->count ++; return NextDBOperation(&RecvMsg->IO, POP3C_StoreMsgRead); } eNextState POP3C_ReadMessageBody(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; EVP3CM_syslog(LOG_DEBUG, "Converting message..."); RecvMsg->CurrMsg->Msg = convert_internet_message_buf(&RecvMsg->IO.ReadMsg->MsgBuf); return EventQueueDBOperation(&RecvMsg->IO, POP3C_SaveMsg, 0); } eNextState POP3C_SendDelete(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; SetPOP3State(IO, eDelete); if (!RecvMsg->keep) { StrBufPrintf(RecvMsg->IO.SendBuf.Buf, "DELE %ld\r\n", RecvMsg->CurrMsg->MSGID); POP3C_DBG_SEND(); return eReadMessage; } else { RecvMsg->State = ReadMessageBodyFollowing; return POP3_C_DispatchWriteDone(&RecvMsg->IO); } } eNextState POP3C_ReadDeleteState(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; POP3C_DBG_READ(); RecvMsg->State = GetOneMessageIDState; return POP3_C_DispatchWriteDone(&RecvMsg->IO); } eNextState POP3C_SendQuit(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; SetPOP3State(IO, eQuit); /* Log out */ StrBufPlain(RecvMsg->IO.SendBuf.Buf, HKEY("QUIT\r\n3)")); POP3C_DBG_SEND(); return eReadMessage; } eNextState POP3C_ReadQuitState(pop3aggr *RecvMsg) { AsyncIO *IO = &RecvMsg->IO; POP3C_DBG_READ(); return eTerminateConnection; } const long POP3_C_ConnTimeout = 1000; const long DefaultPOP3Port = 110; Pop3ClientHandler POP3C_ReadHandlers[] = { POP3C_ReadGreeting, POP3C_GetUserState, POP3C_GetPassState, POP3C_GetListCommandState, POP3C_GetListOneLine, POP3C_GetOneMessageIDState, POP3C_ReadMessageBodyFollowing, POP3C_ReadMessageBody, POP3C_ReadDeleteState, POP3C_ReadQuitState, }; const long POP3_C_SendTimeouts[POP3C_MaxRead] = { 100, 100, 100, 100, 100, 100, 100, 100 }; const ConstStr POP3C_ReadErrors[POP3C_MaxRead] = { {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")}, {HKEY("Connection broken during ")} }; Pop3ClientHandler POP3C_SendHandlers[] = { NULL, /* we don't send a greeting */ POP3C_SendUser, POP3C_SendPassword, POP3C_SendListCommand, NULL, POP3C_GetOneMessagID, POP3C_SendGetOneMsg, NULL, POP3C_SendDelete, POP3C_SendQuit }; const long POP3_C_ReadTimeouts[] = { 100, 100, 100, 100, 100, 100, 100, 100, 100, 100 }; /*****************************************************************************/ /* POP3 CLIENT DISPATCHER */ /*****************************************************************************/ void POP3SetTimeout(eNextState NextTCPState, pop3aggr *pMsg) { AsyncIO *IO = &pMsg->IO; double Timeout = 0.0; EVP3C_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); switch (NextTCPState) { case eSendFile: case eSendReply: case eSendMore: Timeout = POP3_C_SendTimeouts[pMsg->State]; /* if (pMsg->State == eDATABody) { / * if we're sending a huge message, we need more time. * / Timeout += StrLength(pMsg->msgtext) / 1024; } */ break; case eReadFile: case eReadMessage: Timeout = POP3_C_ReadTimeouts[pMsg->State]; /* if (pMsg->State == eDATATerminateBody) { / * * some mailservers take a nap before accepting the message * content inspection and such. * / Timeout += StrLength(pMsg->msgtext) / 1024; } */ break; case eReadPayload: Timeout = 100000; /* TODO!!! */ break; case eSendDNSQuery: case eReadDNSReply: case eConnect: case eTerminateConnection: case eDBQuery: case eAbort: case eReadMore://// TODO return; } SetNextTimeout(&pMsg->IO, Timeout); } eNextState POP3_C_DispatchReadDone(AsyncIO *IO) { /* EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); to noisy anyways. */ pop3aggr *pMsg = IO->Data; eNextState rc; rc = POP3C_ReadHandlers[pMsg->State](pMsg); if (rc != eReadMore) pMsg->State++; POP3SetTimeout(rc, pMsg); return rc; } eNextState POP3_C_DispatchWriteDone(AsyncIO *IO) { pop3aggr *pMsg = IO->Data; eNextState rc; /* EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); to noisy anyways. */ rc = POP3C_SendHandlers[pMsg->State](pMsg); POP3SetTimeout(rc, pMsg); return rc; } /*****************************************************************************/ /* POP3 CLIENT ERROR CATCHERS */ /*****************************************************************************/ eNextState POP3_C_Terminate(AsyncIO *IO) { /// pop3aggr *pMsg = (pop3aggr *)IO->Data; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); FinalizePOP3AggrRun(IO); return eAbort; } eNextState POP3_C_TerminateDB(AsyncIO *IO) { /// pop3aggr *pMsg = (pop3aggr *)IO->Data; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); FinalizePOP3AggrRun(IO); return eAbort; } eNextState POP3_C_Timeout(AsyncIO *IO) { pop3aggr *pMsg = IO->Data; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); StrBufPlain(IO->ErrMsg, CKEY(POP3C_ReadErrors[pMsg->State])); return FailAggregationRun(IO); } eNextState POP3_C_ConnFail(AsyncIO *IO) { pop3aggr *pMsg = (pop3aggr *)IO->Data; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); StrBufPlain(IO->ErrMsg, CKEY(POP3C_ReadErrors[pMsg->State])); return FailAggregationRun(IO); } eNextState POP3_C_DNSFail(AsyncIO *IO) { pop3aggr *pMsg = (pop3aggr *)IO->Data; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); StrBufPlain(IO->ErrMsg, CKEY(POP3C_ReadErrors[pMsg->State])); return FailAggregationRun(IO); } eNextState POP3_C_Shutdown(AsyncIO *IO) { EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); //// pop3aggr *pMsg = IO->Data; ////pMsg->MyQEntry->Status = 3; ///StrBufPlain(pMsg->MyQEntry->StatusMessage, HKEY("server shutdown during message retrieval.")); FinalizePOP3AggrRun(IO); return eAbort; } /** * @brief lineread Handler; understands when to read more POP3 lines, * and when this is a one-lined reply. */ eReadState POP3_C_ReadServerStatus(AsyncIO *IO) { eReadState Finished = eBufferNotEmpty; switch (IO->NextState) { case eSendDNSQuery: case eReadDNSReply: case eDBQuery: case eConnect: case eTerminateConnection: case eAbort: Finished = eReadFail; break; case eSendFile: case eSendReply: case eSendMore: case eReadMore: case eReadMessage: Finished = StrBufChunkSipLine(IO->IOBuf, &IO->RecvBuf); break; case eReadFile: case eReadPayload: Finished = CtdlReadMessageBodyAsync(IO); break; } return Finished; } /***************************************************************************** * So we connect our Server IP here. * *****************************************************************************/ eNextState POP3_C_ReAttachToFetchMessages(AsyncIO *IO) { pop3aggr *cpptr = IO->Data; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); ////??? cpptr->State ++; if (cpptr->Pos == NULL) cpptr->Pos = GetNewHashPos(cpptr->MsgNumbers, 0); POP3_C_DispatchWriteDone(IO); ReAttachIO(IO, cpptr, 0); IO->NextState = eReadMessage; return IO->NextState; } eNextState pop3_connect_ip(AsyncIO *IO) { pop3aggr *cpptr = IO->Data; if (cpptr->IOStart == 0.0) /* whith or without DNS? */ cpptr->IOStart = IO->Now; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); return EvConnectSock(IO, POP3_C_ConnTimeout, POP3_C_ReadTimeouts[0], 1); } eNextState pop3_get_one_host_ip_done(AsyncIO *IO) { pop3aggr *cpptr = IO->Data; struct hostent *hostent; QueryCbDone(IO); hostent = cpptr->HostLookup.VParsedDNSReply; if ((cpptr->HostLookup.DNSStatus == ARES_SUCCESS) && (hostent != NULL) ) { memset(&cpptr->IO.ConnectMe->Addr, 0, sizeof(struct in6_addr)); if (cpptr->IO.ConnectMe->IPv6) { memcpy(&cpptr->IO.ConnectMe->Addr.sin6_addr.s6_addr, &hostent->h_addr_list[0], sizeof(struct in6_addr)); cpptr->IO.ConnectMe->Addr.sin6_family = hostent->h_addrtype; cpptr->IO.ConnectMe->Addr.sin6_port = htons(DefaultPOP3Port); } else { struct sockaddr_in *addr = (struct sockaddr_in*) &cpptr->IO.ConnectMe->Addr; memcpy(&addr->sin_addr.s_addr, hostent->h_addr_list[0], sizeof(uint32_t)); addr->sin_family = hostent->h_addrtype; addr->sin_port = htons(DefaultPOP3Port); } return pop3_connect_ip(IO); } else return eAbort; } eNextState pop3_get_one_host_ip(AsyncIO *IO) { pop3aggr *cpptr = IO->Data; cpptr->IOStart = IO->Now; EVP3CCS_syslog(LOG_DEBUG, "POP3: %s\n", __FUNCTION__); EVP3CCS_syslog(LOG_DEBUG, "POP3 client[%ld]: looking up %s-Record %s : %d ...\n", cpptr->n, (cpptr->IO.ConnectMe->IPv6)? "aaaa": "a", cpptr->IO.ConnectMe->Host, cpptr->IO.ConnectMe->Port); QueueQuery((cpptr->IO.ConnectMe->IPv6)? ns_t_aaaa : ns_t_a, cpptr->IO.ConnectMe->Host, &cpptr->IO, &cpptr->HostLookup, pop3_get_one_host_ip_done); IO->NextState = eReadDNSReply; return IO->NextState; } int pop3_do_fetching(pop3aggr *cpptr) { AsyncIO *IO = &cpptr->IO; InitIOStruct(IO, cpptr, eReadMessage, POP3_C_ReadServerStatus, POP3_C_DNSFail, POP3_C_DispatchWriteDone, POP3_C_DispatchReadDone, POP3_C_Terminate, POP3_C_TerminateDB, POP3_C_ConnFail, POP3_C_Timeout, POP3_C_Shutdown); safestrncpy(((CitContext *)cpptr->IO.CitContext)->cs_host, ChrPtr(cpptr->Url), sizeof(((CitContext *)cpptr->IO.CitContext)->cs_host)); if (cpptr->IO.ConnectMe->IsIP) { QueueEventContext(&cpptr->IO, pop3_connect_ip); } else { QueueEventContext(&cpptr->IO, pop3_get_one_host_ip); } return 1; } /* * Scan a room's netconfig to determine whether it requires POP3 aggregation */ void pop3client_scan_room(struct ctdlroom *qrbuf, void *data, OneRoomNetCfg *OneRNCFG) { const RoomNetCfgLine *pLine; void *vptr; pthread_mutex_lock(&POP3QueueMutex); if (GetHash(POP3QueueRooms, LKEY(qrbuf->QRnumber), &vptr)) { pthread_mutex_unlock(&POP3QueueMutex); EVP3CQ_syslog(LOG_DEBUG, "pop3client: [%ld] %s already in progress.", qrbuf->QRnumber, qrbuf->QRname); return; } pthread_mutex_unlock(&POP3QueueMutex); if (server_shutting_down) return; pLine = OneRNCFG->NetConfigs[pop3client]; while (pLine != NULL) { pop3aggr *cptr; cptr = (pop3aggr *) malloc(sizeof(pop3aggr)); memset(cptr, 0, sizeof(pop3aggr)); ///TODO do we need this? cptr->roomlist_parts=1; cptr->RoomName = NewStrBufPlain(qrbuf->QRname, -1); cptr->pop3user = NewStrBufDup(pLine->Value[1]); cptr->pop3pass = NewStrBufDup(pLine->Value[2]); cptr->Url = NewStrBuf(); cptr->Host = NewStrBufDup(pLine->Value[0]); cptr->keep = atol(ChrPtr(pLine->Value[3])); cptr->interval = atol(ChrPtr(pLine->Value[4])); StrBufAppendBufPlain(cptr->Url, HKEY("pop3://"), 0); StrBufUrlescUPAppend(cptr->Url, cptr->pop3user, NULL); StrBufAppendBufPlain(cptr->Url, HKEY(":"), 0); StrBufUrlescUPAppend(cptr->Url, cptr->pop3pass, NULL); StrBufAppendBufPlain(cptr->Url, HKEY("@"), 0); StrBufAppendBuf(cptr->Url, cptr->Host, 0); StrBufAppendBufPlain(cptr->Url, HKEY("/"), 0); StrBufUrlescAppend(cptr->Url, cptr->RoomName, NULL); ParseURL(&cptr->IO.ConnectMe, cptr->Url, 110); #if 0 /* todo: we need to reunite the url to be shure. */ pthread_mutex_lock(&POP3ueueMutex); GetHash(POP3FetchUrls, SKEY(ptr->Url), &vptr); use_this_cptr = (pop3aggr *)vptr; if (use_this_rncptr != NULL) { /* mustn't attach to an active session */ if (use_this_cptr->RefCount > 0) { DeletePOP3Cfg(cptr); /// Count->count--; } else { long *QRnumber; StrBufAppendBufPlain( use_this_cptr->rooms, qrbuf->QRname, -1, 0); if (use_this_cptr->roomlist_parts == 1) { use_this_cptr->OtherQRnumbers = NewHash(1, lFlathash); } QRnumber = (long*)malloc(sizeof(long)); *QRnumber = qrbuf->QRnumber; Put(use_this_cptr->OtherQRnumbers, LKEY(qrbuf->QRnumber), QRnumber, NULL); use_this_cptr->roomlist_parts++; } pthread_mutex_unlock(&POP3QueueMutex); continue; } pthread_mutex_unlock(&RSSQueueMutex); #endif cptr->n = Pop3ClientID++; pthread_mutex_lock(&POP3QueueMutex); Put(POP3FetchUrls, SKEY(cptr->Url), cptr, DeletePOP3Aggregator); pthread_mutex_unlock(&POP3QueueMutex); pLine = pLine->next; } } static int doing_pop3client = 0; void pop3client_scan(void) { static time_t last_run = 0L; time_t fastest_scan; HashPos *it; long len; const char *Key; void *vrptr; pop3aggr *cptr; become_session(&pop3_client_CC); if (CtdlGetConfigLong("c_pop3_fastest") < CtdlGetConfigLong("c_pop3_fetch")) fastest_scan = CtdlGetConfigLong("c_pop3_fastest"); else fastest_scan = CtdlGetConfigLong("c_pop3_fetch"); /* * Run POP3 aggregation no more frequently than once every n seconds */ if ( (time(NULL) - last_run) < fastest_scan ) { return; } /* * This is a simple concurrency check to make sure only one pop3client * run is done at a time. We could do this with a mutex, but since we * don't really require extremely fine granularity here, we'll do it * with a static variable instead. */ if (doing_pop3client) return; doing_pop3client = 1; EVP3CQM_syslog(LOG_DEBUG, "pop3client started"); CtdlForEachNetCfgRoom(pop3client_scan_room, NULL); pthread_mutex_lock(&POP3QueueMutex); it = GetNewHashPos(POP3FetchUrls, 0); while (!server_shutting_down && GetNextHashPos(POP3FetchUrls, it, &len, &Key, &vrptr) && (vrptr != NULL)) { cptr = (pop3aggr *)vrptr; if (cptr->RefCount == 0) if (!pop3_do_fetching(cptr)) DeletePOP3Aggregator(cptr);////TODO /* if ((palist->interval && time(NULL) > (last_run + palist->interval)) || (time(NULL) > last_run + CtdlGetConfigLong("c_pop3_fetch"))) pop3_do_fetching(palist->roomname, palist->pop3host, palist->pop3user, palist->pop3pass, palist->keep); pptr = palist; palist = palist->next; free(pptr); */ } DeleteHashPos(&it); pthread_mutex_unlock(&POP3QueueMutex); EVP3CQM_syslog(LOG_DEBUG, "pop3client ended"); last_run = time(NULL); doing_pop3client = 0; } void pop3_cleanup(void) { /* citthread_mutex_destroy(&POP3QueueMutex); TODO */ while (doing_pop3client != 0) ; DeleteHash(&POP3FetchUrls); DeleteHash(&POP3QueueRooms); } void LogDebugEnablePOP3Client(const int n) { POP3ClientDebugEnabled = n; } CTDL_MODULE_INIT(pop3client) { if (!threading) { CtdlFillSystemContext(&pop3_client_CC, "POP3aggr"); CtdlREGISTERRoomCfgType(pop3client, ParseGeneric, 0, 5, SerializeGeneric, DeleteGenericCfgLine); pthread_mutex_init(&POP3QueueMutex, NULL); POP3QueueRooms = NewHash(1, lFlathash); POP3FetchUrls = NewHash(1, NULL); CtdlRegisterSessionHook(pop3client_scan, EVT_TIMER, PRIO_AGGR + 50); CtdlRegisterEVCleanupHook(pop3_cleanup); CtdlRegisterDebugFlagHook(HKEY("pop3client"), LogDebugEnablePOP3Client, &POP3ClientDebugEnabled); } /* return our module id for the log */ return "pop3client"; } citadel-902/modules/roomchat/000077500000000000000000000000001271512031400162535ustar00rootroot00000000000000citadel-902/modules/roomchat/serv_roomchat.c000066400000000000000000000130571271512031400213000ustar00rootroot00000000000000/* * This module handles instant messaging between users. * * Copyright (c) 2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "msgbase.h" #include "user_ops.h" #include "ctdl_module.h" struct chatmsg { struct chatmsg *next; time_t timestamp; int seq; long roomnum; char *sender; char *msgtext; }; struct chatmsg *first_chat_msg = NULL; struct chatmsg *last_chat_msg = NULL; /* * Periodically called for housekeeping. Expire old chat messages so they don't take up memory forever. */ void roomchat_timer(void) { struct chatmsg *ptr; begin_critical_section(S_CHATQUEUE); while ((first_chat_msg != NULL) && ((time(NULL) - first_chat_msg->timestamp) > 300)) { ptr = first_chat_msg->next; free(first_chat_msg->sender); free(first_chat_msg->msgtext); free(first_chat_msg); first_chat_msg = ptr; if (first_chat_msg == NULL) { last_chat_msg = NULL; } } end_critical_section(S_CHATQUEUE); } /* * Perform shutdown-related activities... */ void roomchat_shutdown(void) { /* if we ever start logging chats, we have to flush them to disk here .*/ } /* * Add a message into the chat queue */ void add_to_chat_queue(char *msg) { static int seq = 0; struct chatmsg *m = malloc(sizeof(struct chatmsg)); if (!m) return; m->next = NULL; m->timestamp = time(NULL); m->roomnum = CC->room.QRnumber; m->sender = strdup(CC->user.fullname); m->msgtext = strdup(msg); if ((m->sender == NULL) || (m->msgtext == NULL)) { free(m->sender); free(m->msgtext); free(m); return; } begin_critical_section(S_CHATQUEUE); m->seq = ++seq; if (first_chat_msg == NULL) { assert(last_chat_msg == NULL); first_chat_msg = m; last_chat_msg = m; } else { assert(last_chat_msg != NULL); assert(last_chat_msg->next == NULL); last_chat_msg->next = m; last_chat_msg = m; } end_critical_section(S_CHATQUEUE); } /* * Transmit a message into a room chat */ void roomchat_send(char *argbuf) { char buf[1024]; if ((CC->cs_flags & CS_CHAT) == 0) { cprintf("%d Session is not in chat mode.\n", ERROR); return; } cprintf("%d send now\n", SEND_LISTING); while (client_getln(buf, sizeof buf) >= 0 && strcmp(buf, "000")) { add_to_chat_queue(buf); } } /* * Poll room for incoming chat messages */ void roomchat_poll(char *argbuf) { int newer_than = 0; struct chatmsg *found = NULL; struct chatmsg *ptr = NULL; newer_than = extract_int(argbuf, 1); if ((CC->cs_flags & CS_CHAT) == 0) { cprintf("%d Session is not in chat mode.\n", ERROR); return; } begin_critical_section(S_CHATQUEUE); for (ptr = first_chat_msg; ((ptr != NULL) && (found == NULL)); ptr = ptr->next) { if ((ptr->seq > newer_than) && (ptr->roomnum == CC->room.QRnumber)) { found = ptr; } } end_critical_section(S_CHATQUEUE); if (found == NULL) { cprintf("%d no messages\n", ERROR + MESSAGE_NOT_FOUND); return; } cprintf("%d %d|%ld|%s\n", LISTING_FOLLOWS, found->seq, found->timestamp, found->sender); cprintf("%s\n", found->msgtext); cprintf("000\n"); } /* * list users in chat in this room */ void roomchat_rwho(char *argbuf) { struct CitContext *nptr; int nContexts, i; if ((CC->cs_flags & CS_CHAT) == 0) { cprintf("%d Session is not in chat mode.\n", ERROR); return; } cprintf("%d%c \n", LISTING_FOLLOWS, CtdlCheckExpress() ); nptr = CtdlGetContextArray(&nContexts) ; // grab a copy of the wholist if (nptr) { for (i=0; iroom.QRnumber) && (nptr[i].cs_flags & CS_CHAT) ) { cprintf("%s\n", nptr[i].user.fullname); } } free(nptr); // free our copy } cprintf("000\n"); } /* * Participate in real time chat in a room */ void cmd_rcht(char *argbuf) { char subcmd[16]; if (CtdlAccessCheck(ac_logged_in)) return; extract_token(subcmd, argbuf, 0, '|', sizeof subcmd); if (!strcasecmp(subcmd, "enter")) { CC->cs_flags |= CS_CHAT; cprintf("%d Entering chat mode.\n", CIT_OK); } else if (!strcasecmp(subcmd, "exit")) { CC->cs_flags &= ~CS_CHAT; cprintf("%d Exiting chat mode.\n", CIT_OK); } else if (!strcasecmp(subcmd, "send")) { roomchat_send(argbuf); } else if (!strcasecmp(subcmd, "poll")) { roomchat_poll(argbuf); } else if (!strcasecmp(subcmd, "rwho")) { roomchat_rwho(argbuf); } else { cprintf("%d Invalid subcommand\n", ERROR + CMD_NOT_SUPPORTED); } } CTDL_MODULE_INIT(roomchat) { if (!threading) { CtdlRegisterProtoHook(cmd_rcht, "RCHT", "Participate in real time chat in a room"); CtdlRegisterSessionHook(roomchat_timer, EVT_TIMER, PRIO_CLEANUP + 400); CtdlRegisterSessionHook(roomchat_shutdown, EVT_SHUTDOWN, PRIO_SHUTDOWN + 55); } /* return our module name for the log */ return "roomchat"; } citadel-902/modules/rssclient/000077500000000000000000000000001271512031400164455ustar00rootroot00000000000000citadel-902/modules/rssclient/rss_atom_parser.c000066400000000000000000000711661271512031400220270ustar00rootroot00000000000000/* * Bring external RSS feeds into rooms. * * Copyright (c) 2007-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "threads.h" #include "ctdl_module.h" #include "clientsocket.h" #include "msgbase.h" #include "parsedate.h" #include "database.h" #include "citadel_dirs.h" #include "md5.h" #include "context.h" #include "event_client.h" #include "rss_atom_parser.h" void rss_remember_item(rss_item *ri, rss_aggregator *Cfg); int RSSAtomParserDebugEnabled = 0; #define N ((rss_aggregator*)IO->Data)->Cfg.QRnumber #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (RSSAtomParserDebugEnabled != 0)) #define EVRSSATOM_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d][%ld]RSSP" FORMAT, \ IOSTR, IO->ID, CCID, N, __VA_ARGS__) #define EVRSSATOMM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d][%ld]RSSP" FORMAT, \ IOSTR, IO->ID, CCID, N) #define EVRSSATOMCS_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, "%s[%ld][%ld]RSSP" FORMAT, \ IOSTR, IO->ID, N, __VA_ARGS__) #define EVRSSATOMSM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, "%s[%ld][%ld]RSSP" FORMAT, \ IOSTR, IO->ID, N) /* * Convert an RDF/RSS datestamp into a time_t */ time_t rdf_parsedate(const char *p) { struct tm tm; time_t t = 0; if (!p) return 0L; if (strlen(p) < 10) return 0L; memset(&tm, 0, sizeof tm); /* * If the timestamp appears to be in W3C datetime format, try to * parse it. See also: http://www.w3.org/TR/NOTE-datetime * * This code, along with parsedate.c, is a potential candidate for * moving into libcitadel. */ if ( (p[4] == '-') && (p[7] == '-') ) { tm.tm_year = atoi(&p[0]) - 1900; tm.tm_mon = atoi(&p[5]) - 1; tm.tm_mday = atoi(&p[8]); if ( (p[10] == 'T') && (p[13] == ':') ) { tm.tm_hour = atoi(&p[11]); tm.tm_min = atoi(&p[14]); } return mktime(&tm); } /* hmm... try RFC822 date stamp format */ t = parsedate(p); if (t > 0) return(t); /* yeesh. ok, just return the current date and time. */ return(time(NULL)); } void flush_rss_item(rss_item *ri) { /* Initialize the feed item data structure */ FreeStrBuf(&ri->guid); FreeStrBuf(&ri->title); FreeStrBuf(&ri->link); FreeStrBuf(&ri->author_or_creator); FreeStrBuf(&ri->author_email); FreeStrBuf(&ri->author_url); FreeStrBuf(&ri->description); FreeStrBuf(&ri->linkTitle); FreeStrBuf(&ri->reLink); FreeStrBuf(&ri->reLinkTitle); FreeStrBuf(&ri->channel_title); } /****************************************************************************** * XML-Handler * ******************************************************************************/ void RSS_item_rss_start (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { AsyncIO *IO = &RSSAggr->IO; EVRSSATOMM_syslog(LOG_DEBUG, "RSS: This is an RSS feed.\n"); RSSAggr->ItemType = RSS_RSS; } void RSS_item_rdf_start(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { AsyncIO *IO = &RSSAggr->IO; EVRSSATOMM_syslog(LOG_DEBUG, "RSS: This is an RDF feed.\n"); RSSAggr->ItemType = RSS_RSS; } void ATOM_item_feed_start(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { AsyncIO *IO = &RSSAggr->IO; EVRSSATOMM_syslog(LOG_DEBUG, "RSS: This is an ATOM feed.\n"); RSSAggr->ItemType = RSS_ATOM; } void RSS_item_item_start(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { ri->item_tag_nesting ++; flush_rss_item(ri); } void ATOM_item_entry_start(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { /* Atom feed... */ ri->item_tag_nesting ++; flush_rss_item(ri); } void ATOM_item_link_start (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { int i; const char *pHref = NULL; const char *pType = NULL; const char *pRel = NULL; const char *pTitle = NULL; for (i = 0; Attr[i] != NULL; i+=2) { if (!strcmp(Attr[i], "href")) { pHref = Attr[i+1]; } else if (!strcmp(Attr[i], "rel")) { pRel = Attr[i+1]; } else if (!strcmp(Attr[i], "type")) { pType = Attr[i+1]; } else if (!strcmp(Attr[i], "title")) { pTitle = Attr[i+1]; } } if (pHref == NULL) return; /* WHUT? Pointing... where? */ if ((pType != NULL) && !strcasecmp(pType, "application/atom+xml")) return; /* these just point to other rss resources, we're not interested in them. */ if (pRel != NULL) { if (!strcasecmp (pRel, "replies")) { NewStrBufDupAppendFlush(&ri->reLink, NULL, pHref, -1); StrBufTrim(ri->link); NewStrBufDupAppendFlush(&ri->reLinkTitle, NULL, pTitle, -1); } else if (!strcasecmp(pRel, "alternate")) { /* Alternative representation of this Item... */ NewStrBufDupAppendFlush(&ri->link, NULL, pHref, -1); StrBufTrim(ri->link); NewStrBufDupAppendFlush(&ri->linkTitle, NULL, pTitle, -1); } #if 0 /* these are also defined, but dunno what to do with them.. */ else if (!strcasecmp(pRel, "related")) { } else if (!strcasecmp(pRel, "self")) { } else if (!strcasecmp(pRel, "enclosure")) {/*...reference can get big, and is probably the full article*/ } else if (!strcasecmp(pRel, "via")) {/* this article was provided via... */ } #endif } else if (StrLength(ri->link) == 0) { NewStrBufDupAppendFlush(&ri->link, NULL, pHref, -1); StrBufTrim(ri->link); NewStrBufDupAppendFlush(&ri->linkTitle, NULL, pTitle, -1); } } void ATOMRSS_item_title_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if ((ri->item_tag_nesting == 0) && (StrLength(CData) > 0)) { NewStrBufDupAppendFlush(&ri->channel_title, CData, NULL, 0); StrBufTrim(ri->channel_title); } } void RSS_item_guid_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->guid, CData, NULL, 0); } } void ATOM_item_id_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->guid, CData, NULL, 0); } } void RSS_item_link_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->link, CData, NULL, 0); StrBufTrim(ri->link); } } void RSS_item_relink_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->reLink, CData, NULL, 0); StrBufTrim(ri->reLink); } } void RSSATOM_item_title_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->title, CData, NULL, 0); StrBufTrim(ri->title); } } void ATOM_item_content_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { long olen = StrLength (ri->description); long clen = StrLength (CData); if (clen > 0) { if (olen == 0) { NewStrBufDupAppendFlush(&ri->description, CData, NULL, 0); StrBufTrim(ri->description); } else if (olen < clen) { FlushStrBuf(ri->description); NewStrBufDupAppendFlush(&ri->description, CData, NULL, 0); StrBufTrim(ri->description); } } } void ATOM_item_summary_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { /* * this can contain an abstract of the article. * but we don't want to verwrite a full document if we already have it. */ if ((StrLength(CData) > 0) && (StrLength(ri->description) == 0)) { NewStrBufDupAppendFlush(&ri->description, CData, NULL, 0); StrBufTrim(ri->description); } } void RSS_item_description_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { long olen = StrLength (ri->description); long clen = StrLength (CData); if (clen > 0) { if (olen == 0) { NewStrBufDupAppendFlush(&ri->description, CData, NULL, 0); StrBufTrim(ri->description); } else if (olen < clen) { FlushStrBuf(ri->description); NewStrBufDupAppendFlush(&ri->description, CData, NULL, 0); StrBufTrim(ri->description); } } } void ATOM_item_published_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { StrBufTrim(CData); ri->pubdate = rdf_parsedate(ChrPtr(CData)); } } void ATOM_item_updated_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { StrBufTrim(CData); ri->pubdate = rdf_parsedate(ChrPtr(CData)); } } void RSS_item_pubdate_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { StrBufTrim(CData); ri->pubdate = rdf_parsedate(ChrPtr(CData)); } } void RSS_item_date_end (StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { StrBufTrim(CData); ri->pubdate = rdf_parsedate(ChrPtr(CData)); } } void RSS_item_author_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->author_or_creator, CData, NULL, 0); StrBufTrim(ri->author_or_creator); } } void ATOM_item_name_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->author_or_creator, CData, NULL, 0); StrBufTrim(ri->author_or_creator); } } void ATOM_item_email_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->author_email, CData, NULL, 0); StrBufTrim(ri->author_email); } } void RSS_item_creator_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if ((StrLength(CData) > 0) && (StrLength(ri->author_or_creator) == 0)) { NewStrBufDupAppendFlush(&ri->author_or_creator, CData, NULL, 0); StrBufTrim(ri->author_or_creator); } } void ATOM_item_uri_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { if (StrLength(CData) > 0) { NewStrBufDupAppendFlush(&ri->author_url, CData, NULL, 0); StrBufTrim(ri->author_url); } } void RSS_item_item_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { --ri->item_tag_nesting; rss_remember_item(ri, RSSAggr); } void ATOM_item_entry_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { --ri->item_tag_nesting; rss_remember_item(ri, RSSAggr); } void RSS_item_rss_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { AsyncIO *IO = &RSSAggr->IO; EVRSSATOMM_syslog(LOG_DEBUG, "End of feed detected. Closing parser.\n"); ri->done_parsing = 1; } void RSS_item_rdf_end(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { AsyncIO *IO = &RSSAggr->IO; EVRSSATOMM_syslog(LOG_DEBUG, "End of feed detected. Closing parser.\n"); ri->done_parsing = 1; } void RSSATOM_item_ignore(StrBuf *CData, rss_item *ri, rss_aggregator *RSSAggr, const char** Attr) { } /* * This callback stores up the data which appears in between tags. */ void rss_xml_cdata_start(void *data) { rss_aggregator *RSSAggr = (rss_aggregator*) data; FlushStrBuf(RSSAggr->CData); } void rss_xml_cdata_end(void *data) { } void rss_xml_chardata(void *data, const XML_Char *s, int len) { rss_aggregator *RSSAggr = (rss_aggregator*) data; StrBufAppendBufPlain (RSSAggr->CData, s, len, 0); } /****************************************************************************** * RSS parser logic * ******************************************************************************/ extern pthread_mutex_t RSSQueueMutex; HashList *StartHandlers = NULL; HashList *EndHandlers = NULL; HashList *KnownNameSpaces = NULL; void FreeNetworkSaveMessage (void *vMsg) { networker_save_message *Msg = (networker_save_message *) vMsg; CM_FreeContents(&Msg->Msg); FreeStrBuf(&Msg->Message); FreeStrBuf(&Msg->MsgGUID); FreeStrBuf(&Msg->author_email); FreeStrBuf(&Msg->author_or_creator); FreeStrBuf(&Msg->title); FreeStrBuf(&Msg->description); FreeStrBuf(&Msg->link); FreeStrBuf(&Msg->linkTitle); FreeStrBuf(&Msg->reLink); FreeStrBuf(&Msg->reLinkTitle); free(Msg); } /* * Commit a fetched and parsed RSS item to disk */ void rss_remember_item(rss_item *ri, rss_aggregator *RSSAggr) { networker_save_message *SaveMsg; struct MD5Context md5context; u_char rawdigest[MD5_DIGEST_LEN]; StrBuf *guid; AsyncIO *IO = &RSSAggr->IO; int n; SaveMsg = (networker_save_message *) malloc(sizeof(networker_save_message)); memset(SaveMsg, 0, sizeof(networker_save_message)); /* Construct a GUID to use in the S_USETABLE table. * If one is not present in the item itself, make one up. */ if (ri->guid != NULL) { StrBufSpaceToBlank(ri->guid); StrBufTrim(ri->guid); guid = NewStrBufPlain(HKEY("rss/")); StrBufAppendBuf(guid, ri->guid, 0); } else { MD5Init(&md5context); if (ri->title != NULL) { MD5Update(&md5context, (const unsigned char*)SKEY(ri->title)); } if (ri->link != NULL) { MD5Update(&md5context, (const unsigned char*)SKEY(ri->link)); } MD5Final(rawdigest, &md5context); guid = NewStrBufPlain(NULL, MD5_DIGEST_LEN * 2 + 12 /* _rss2ctdl*/); StrBufHexEscAppend(guid, NULL, rawdigest, MD5_DIGEST_LEN); StrBufAppendBufPlain(guid, HKEY("_rss2ctdl"), 0); } /* translate Item into message. */ EVRSSATOMM_syslog(LOG_DEBUG, "RSS: translating item...\n"); if (ri->description == NULL) ri->description = NewStrBufPlain(HKEY("")); StrBufSpaceToBlank(ri->description); SaveMsg->Msg.cm_magic = CTDLMESSAGE_MAGIC; SaveMsg->Msg.cm_anon_type = MES_NORMAL; SaveMsg->Msg.cm_format_type = FMT_RFC822; /* gather the cheaply computed information now... */ if (ri->guid != NULL) { CM_SetField(&SaveMsg->Msg, eExclusiveID, SKEY(ri->guid)); } SaveMsg->MsgGUID = guid; if (ri->pubdate <= 0) { ri->pubdate = time(NULL); } CM_SetFieldLONG(&SaveMsg->Msg, eTimestamp, ri->pubdate); if (ri->channel_title != NULL) { if (StrLength(ri->channel_title) > 0) { CM_SetField(&SaveMsg->Msg, eOriginalRoom, SKEY(ri->channel_title)); } } /* remember the ones for defferred processing to save computing power after we know if we realy need it. */ SaveMsg->author_or_creator = ri->author_or_creator; ri->author_or_creator = NULL; SaveMsg->author_email = ri->author_email; ri->author_email = NULL; SaveMsg->title = ri->title; ri->title = NULL; SaveMsg->link = ri->link; ri->link = NULL; SaveMsg->description = ri->description; ri->description = NULL; SaveMsg->linkTitle = ri->linkTitle; ri->linkTitle = NULL; SaveMsg->reLink = ri->reLink; ri->reLink = NULL; SaveMsg->reLinkTitle = ri->reLinkTitle; ri->reLinkTitle = NULL; n = GetCount(RSSAggr->Messages) + 1; Put(RSSAggr->Messages, IKEY(n), SaveMsg, FreeNetworkSaveMessage); } void rss_xml_start(void *data, const char *supplied_el, const char **attr) { rss_xml_handler *h; rss_aggregator *RSSAggr = (rss_aggregator*) data; AsyncIO *IO = &RSSAggr->IO; rss_item *ri = RSSAggr->Item; void *pv; const char *pel; char *sep = NULL; /* Axe the namespace, we don't care about it */ /* syslog(LOG_DEBUG, "RSS: supplied el %d: %s\n", RSSAggr->RSSAggr->ItemType, supplied_el); */ pel = supplied_el; while (sep = strchr(pel, ':'), sep) { pel = sep + 1; } if (pel != supplied_el) { void *v; if (!GetHash(KnownNameSpaces, supplied_el, pel - supplied_el - 1, &v)) { EVRSSATOM_syslog(LOG_DEBUG, "RSS: START ignoring " "because of wrong namespace [%s]\n", supplied_el); return; } } StrBufPlain(RSSAggr->Key, pel, -1); StrBufLowerCase(RSSAggr->Key); if (GetHash(StartHandlers, SKEY(RSSAggr->Key), &pv)) { h = (rss_xml_handler*) pv; if (((h->Flags & RSS_UNSET) != 0) && (RSSAggr->ItemType == RSS_UNSET)) { h->Handler(RSSAggr->CData, ri, RSSAggr, attr); } else if (((h->Flags & RSS_RSS) != 0) && (RSSAggr->ItemType == RSS_RSS)) { h->Handler(RSSAggr->CData, ri, RSSAggr, attr); } else if (((h->Flags & RSS_ATOM) != 0) && (RSSAggr->ItemType == RSS_ATOM)) { h->Handler(RSSAggr->CData, ri, RSSAggr, attr); } else EVRSSATOM_syslog(LOG_DEBUG, "RSS: START unhandled: [%s] [%s]...\n", pel, supplied_el); } else EVRSSATOM_syslog(LOG_DEBUG, "RSS: START unhandled: [%s] [%s]...\n", pel, supplied_el); } void rss_xml_end(void *data, const char *supplied_el) { rss_xml_handler *h; rss_aggregator *RSSAggr = (rss_aggregator*) data; AsyncIO *IO = &RSSAggr->IO; rss_item *ri = RSSAggr->Item; const char *pel; char *sep = NULL; void *pv; /* Axe the namespace, we don't care about it */ pel = supplied_el; while (sep = strchr(pel, ':'), sep) { pel = sep + 1; } EVRSSATOM_syslog(LOG_DEBUG, "RSS: END %s...\n", supplied_el); if (pel != supplied_el) { void *v; if (!GetHash(KnownNameSpaces, supplied_el, pel - supplied_el - 1, &v)) { EVRSSATOM_syslog(LOG_DEBUG, "RSS: END ignoring because of wrong namespace" "[%s] = [%s]\n", supplied_el, ChrPtr(RSSAggr->CData)); FlushStrBuf(RSSAggr->CData); return; } } StrBufPlain(RSSAggr->Key, pel, -1); StrBufLowerCase(RSSAggr->Key); if (GetHash(EndHandlers, SKEY(RSSAggr->Key), &pv)) { h = (rss_xml_handler*) pv; if (((h->Flags & RSS_UNSET) != 0) && (RSSAggr->ItemType == RSS_UNSET)) { h->Handler(RSSAggr->CData, ri, RSSAggr, NULL); } else if (((h->Flags & RSS_RSS) != 0) && (RSSAggr->ItemType == RSS_RSS)) { h->Handler(RSSAggr->CData, ri, RSSAggr, NULL); } else if (((h->Flags & RSS_ATOM) != 0) && (RSSAggr->ItemType == RSS_ATOM)) { h->Handler(RSSAggr->CData, ri, RSSAggr, NULL); } else EVRSSATOM_syslog(LOG_DEBUG, "RSS: END unhandled: [%s] [%s] = [%s]...\n", pel, supplied_el, ChrPtr(RSSAggr->CData)); } else EVRSSATOM_syslog(LOG_DEBUG, "RSS: END unhandled: [%s] [%s] = [%s]...\n", pel, supplied_el, ChrPtr(RSSAggr->CData)); FlushStrBuf(RSSAggr->CData); } /* * Callback function for passing libcurl's output to expat for parsing * we don't do streamed parsing so expat can handle non-utf8 documents size_t rss_libcurl_callback(void *ptr, size_t size, size_t nmemb, void *stream) { XML_Parse((XML_Parser)stream, ptr, (size * nmemb), 0); return (size*nmemb); } */ eNextState RSSAggregator_ParseReply(AsyncIO *IO) { StrBuf *Buf; rss_aggregator *RSSAggr; rss_item *ri; const char *at; char *ptr; long len; const char *Key; RSSAggr = IO->Data; ri = RSSAggr->Item; RSSAggr->CData = NewStrBufPlain(NULL, SIZ); RSSAggr->Key = NewStrBuf(); at = NULL; StrBufSipLine(RSSAggr->Key, IO->HttpReq.ReplyData, &at); ptr = NULL; #define encoding "encoding=\"" ptr = strstr(ChrPtr(RSSAggr->Key), encoding); if (ptr != NULL) { char *pche; ptr += sizeof (encoding) - 1; pche = strchr(ptr, '"'); if (pche != NULL) StrBufCutAt(RSSAggr->Key, -1, pche); else ptr = "UTF-8"; } else ptr = "UTF-8"; EVRSSATOM_syslog(LOG_DEBUG, "RSS: Now parsing [%s] \n", ChrPtr(RSSAggr->Url)); RSSAggr->xp = XML_ParserCreateNS(ptr, ':'); if (!RSSAggr->xp) { EVRSSATOMM_syslog(LOG_ALERT, "Cannot create XML parser!\n"); return eAbort; } FlushStrBuf(RSSAggr->Key); RSSAggr->Messages = NewHash(1, Flathash); XML_SetElementHandler(RSSAggr->xp, rss_xml_start, rss_xml_end); XML_SetCharacterDataHandler(RSSAggr->xp, rss_xml_chardata); XML_SetUserData(RSSAggr->xp, RSSAggr); XML_SetCdataSectionHandler(RSSAggr->xp, rss_xml_cdata_start, rss_xml_cdata_end); len = StrLength(IO->HttpReq.ReplyData); ptr = SmashStrBuf(&IO->HttpReq.ReplyData); XML_Parse(RSSAggr->xp, ptr, len, 0); free (ptr); if (ri->done_parsing == 0) XML_Parse(RSSAggr->xp, "", 0, 1); EVRSSATOM_syslog(LOG_DEBUG, "RSS: XML Status [%s] \n", XML_ErrorString(XML_GetErrorCode(RSSAggr->xp))); XML_ParserFree(RSSAggr->xp); flush_rss_item(ri); Buf = NewStrBufDup(RSSAggr->rooms); RSSAggr->recp.recp_room = SmashStrBuf(&Buf); RSSAggr->recp.num_room = RSSAggr->roomlist_parts; RSSAggr->recp.recptypes_magic = RECPTYPES_MAGIC; RSSAggr->Pos = GetNewHashPos(RSSAggr->Messages, 1); if (GetNextHashPos(RSSAggr->Messages, RSSAggr->Pos, &len, &Key, (void**) &RSSAggr->ThisMsg)) { return NextDBOperation(IO, RSS_FetchNetworkUsetableEntry); } else { return eAbort; } } /****************************************************************************** * RSS handler registering logic * ******************************************************************************/ void AddRSSStartHandler(rss_handler_func Handler, int Flags, const char *key, long len) { rss_xml_handler *h; h = (rss_xml_handler*) malloc(sizeof (rss_xml_handler)); h->Flags = Flags; h->Handler = Handler; Put(StartHandlers, key, len, h, NULL); } void AddRSSEndHandler(rss_handler_func Handler, int Flags, const char *key, long len) { rss_xml_handler *h; h = (rss_xml_handler*) malloc(sizeof (rss_xml_handler)); h->Flags = Flags; h->Handler = Handler; Put(EndHandlers, key, len, h, NULL); } void rss_parser_cleanup(void) { DeleteHash(&StartHandlers); DeleteHash(&EndHandlers); DeleteHash(&KnownNameSpaces); } void LogDebugEnableRSSATOMParser(const int n) { RSSAtomParserDebugEnabled = n; } CTDL_MODULE_INIT(rssparser) { if (!threading) { StartHandlers = NewHash(1, NULL); EndHandlers = NewHash(1, NULL); AddRSSStartHandler(RSS_item_rss_start, RSS_UNSET, HKEY("rss")); AddRSSStartHandler(RSS_item_rdf_start, RSS_UNSET, HKEY("rdf")); AddRSSStartHandler(ATOM_item_feed_start, RSS_UNSET, HKEY("feed")); AddRSSStartHandler(RSS_item_item_start, RSS_RSS, HKEY("item")); AddRSSStartHandler(ATOM_item_entry_start, RSS_ATOM, HKEY("entry")); AddRSSStartHandler(ATOM_item_link_start, RSS_ATOM, HKEY("link")); AddRSSEndHandler(ATOMRSS_item_title_end, RSS_ATOM|RSS_RSS|RSS_REQUIRE_BUF, HKEY("title")); AddRSSEndHandler(RSS_item_guid_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("guid")); AddRSSEndHandler(ATOM_item_id_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("id")); AddRSSEndHandler(RSS_item_link_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("link")); #if 0 // hm, rss to the comments of that blog, might be interesting in future, but... AddRSSEndHandler(RSS_item_relink_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("commentrss")); // comment count... AddRSSEndHandler(RSS_item_relink_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("comments")); #endif AddRSSEndHandler(RSSATOM_item_title_end, RSS_ATOM|RSS_RSS|RSS_REQUIRE_BUF, HKEY("title")); AddRSSEndHandler(ATOM_item_content_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("content")); AddRSSEndHandler(RSS_item_description_end, RSS_RSS|RSS_ATOM|RSS_REQUIRE_BUF, HKEY("encoded")); AddRSSEndHandler(ATOM_item_summary_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("summary")); AddRSSEndHandler(RSS_item_description_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("description")); AddRSSEndHandler(ATOM_item_published_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("published")); AddRSSEndHandler(ATOM_item_updated_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("updated")); AddRSSEndHandler(RSS_item_pubdate_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("pubdate")); AddRSSEndHandler(RSS_item_date_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("date")); AddRSSEndHandler(RSS_item_author_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("author")); AddRSSEndHandler(RSS_item_creator_end, RSS_RSS|RSS_REQUIRE_BUF, HKEY("creator")); /* */ AddRSSEndHandler(ATOM_item_email_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("email")); AddRSSEndHandler(ATOM_item_name_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("name")); AddRSSEndHandler(ATOM_item_uri_end, RSS_ATOM|RSS_REQUIRE_BUF, HKEY("uri")); /* */ AddRSSEndHandler(RSS_item_item_end, RSS_RSS, HKEY("item")); AddRSSEndHandler(RSS_item_rss_end, RSS_RSS, HKEY("rss")); AddRSSEndHandler(RSS_item_rdf_end, RSS_RSS, HKEY("rdf")); AddRSSEndHandler(ATOM_item_entry_end, RSS_ATOM, HKEY("entry")); /* at the start of atoms:
  • link to resource
    •  ignore them. */ AddRSSStartHandler(RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("seq")); AddRSSEndHandler (RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("seq")); AddRSSStartHandler(RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("li")); AddRSSEndHandler (RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("li")); /* links to other feed generators... */ AddRSSStartHandler(RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("feedflare")); AddRSSEndHandler (RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("feedflare")); AddRSSStartHandler(RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("browserfriendly")); AddRSSEndHandler (RSSATOM_item_ignore, RSS_RSS|RSS_ATOM, HKEY("browserfriendly")); KnownNameSpaces = NewHash(1, NULL); Put(KnownNameSpaces, HKEY("http://a9.com/-/spec/opensearch/1.1/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://a9.com/-/spec/opensearchrss/1.0/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://backend.userland.com/creativeCommonsRssModule"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/atom/ns#"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/dc/elements/1.1/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/rss/1.0/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/rss/1.0/modules/content/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/rss/1.0/modules/slash/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/rss/1.0/modules/syndication/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/rss/1.0/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://purl.org/syndication/thread/1.0"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://rssnamespace.org/feedburner/ext/1.0"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://schemas.google.com/g/2005"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://webns.net/mvcb/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://web.resource.org/cc/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://wellformedweb.org/CommentAPI/"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://www.georss.org/georss"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://www.w3.org/1999/xhtml"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://www.w3.org/1999/02/22-rdf-syntax-ns#"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://www.w3.org/1999/02/22-rdf-syntax-ns#"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://www.w3.org/2003/01/geo/wgs84_pos#"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("http://www.w3.org/2005/Atom"), NULL, reference_free_handler); Put(KnownNameSpaces, HKEY("urn:flickr:"), NULL, reference_free_handler); #if 0 /* we don't like these namespaces because of they shadow our usefull parameters. */ Put(KnownNameSpaces, HKEY("http://search.yahoo.com/mrss/"), NULL, reference_free_handler); #endif CtdlRegisterDebugFlagHook(HKEY("RSSAtomParser"), LogDebugEnableRSSATOMParser, &RSSAtomParserDebugEnabled); CtdlRegisterCleanupHook(rss_parser_cleanup); } return "rssparser"; } citadel-902/modules/rssclient/rss_atom_parser.h000066400000000000000000000046711271512031400220310ustar00rootroot00000000000000/* * Bring external RSS feeds into rooms. * * Copyright (c) 2007-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ #include "internet_addressing.h" #define RSS_UNSET (1<<0) #define RSS_RSS (1<<1) #define RSS_ATOM (1<<2) #define RSS_REQUIRE_BUF (1<<3) typedef struct rss_aggregator rss_aggregator; typedef struct rss_item rss_item; typedef struct rss_room_counter rss_room_counter; typedef void (*rss_handler_func)(StrBuf *CData, rss_item *ri, rss_aggregator *Cfg, const char** Attr); typedef struct __rss_xml_handler { int Flags; rss_handler_func Handler; }rss_xml_handler; struct rss_item { int done_parsing; int item_tag_nesting; time_t pubdate; StrBuf *guid; StrBuf *title; StrBuf *link; StrBuf *linkTitle; StrBuf *reLink; StrBuf *reLinkTitle; StrBuf *description; StrBuf *channel_title; StrBuf *author_or_creator; StrBuf *author_url; StrBuf *author_email; }; void flush_rss_item(rss_item *ri); struct rss_room_counter { int count; long QRnumber; }; typedef struct __networker_save_message { struct CtdlMessage Msg; StrBuf *MsgGUID; StrBuf *Message; StrBuf *author_email; StrBuf *author_or_creator; StrBuf *title; StrBuf *description; StrBuf *link; StrBuf *linkTitle; StrBuf *reLink; StrBuf *reLinkTitle; } networker_save_message; typedef struct RSSCfgLine RSSCfgLine; struct RSSCfgLine { RSSCfgLine *next; StrBuf *Url; time_t last_known_good; }; typedef struct __pRSSConfig { const RSSCfgLine *pCfg; long QRnumber; }pRSSConfig; struct rss_aggregator { AsyncIO IO; XML_Parser xp; int ItemType; int roomlist_parts; time_t last_error_when; time_t next_poll; StrBuf *Url; StrBuf *RedirectUrl; StrBuf *rooms; pRSSConfig Cfg; HashList *OtherQRnumbers; StrBuf *CData; StrBuf *Key; rss_item *Item; recptypes recp; HashPos *Pos; HashList *Messages; networker_save_message *ThisMsg; }; eNextState RSSAggregator_ParseReply(AsyncIO *IO); eNextState RSS_FetchNetworkUsetableEntry(AsyncIO *IO); citadel-902/modules/rssclient/serv_rssclient.c000066400000000000000000000611051271512031400216610ustar00rootroot00000000000000/* * Bring external RSS feeds into rooms. * * Copyright (c) 2007-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H #include # else #include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "threads.h" #include "ctdl_module.h" #include "msgbase.h" #include "parsedate.h" #include "database.h" #include "citadel_dirs.h" #include "md5.h" #include "context.h" #include "event_client.h" #include "rss_atom_parser.h" #define TMP_MSGDATA 0xFF #define TMP_SHORTER_URL_OFFSET 0xFE #define TMP_SHORTER_URLS 0xFD time_t last_run = 0L; pthread_mutex_t RSSQueueMutex; /* locks the access to the following vars: */ HashList *RSSQueueRooms = NULL; /* rss_room_counter */ HashList *RSSFetchUrls = NULL; /*->rss_aggregator;->RefCount access locked*/ eNextState RSSAggregator_Terminate(AsyncIO *IO); eNextState RSSAggregator_TerminateDB(AsyncIO *IO); eNextState RSSAggregator_ShutdownAbort(AsyncIO *IO); struct CitContext rss_CC; struct rssnetcfg *rnclist = NULL; int RSSClientDebugEnabled = 0; #define N ((rss_aggregator*)IO->Data)->Cfg.QRnumber #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (RSSClientDebugEnabled != 0)) #define EVRSSC_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d][%ld]RSS" FORMAT, \ IOSTR, IO->ID, CCID, N, __VA_ARGS__) #define EVRSSCM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "%s[%ld]CC[%d][%ld]RSS" FORMAT, \ IOSTR, IO->ID, CCID, N) #define EVRSSQ_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, "RSS" FORMAT, \ __VA_ARGS__) #define EVRSSQM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, "RSS" FORMAT) #define EVRSSCSM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, "%s[%ld][%ld]RSS" FORMAT, \ IOSTR, IO->ID, N) typedef enum _RSSState { eRSSCreated, eRSSFetching, eRSSFailure, eRSSParsing, eRSSUT } RSSState; ConstStr RSSStates[] = { {HKEY("Aggregator created")}, {HKEY("Fetching content")}, {HKEY("Failed")}, {HKEY("parsing content")}, {HKEY("checking usetable")} }; static size_t GetLocationString( void *ptr, size_t size, size_t nmemb, void *userdata) { #define LOCATION "location" if (strncasecmp((char*)ptr, LOCATION, sizeof(LOCATION) - 1) == 0) { AsyncIO *IO = (AsyncIO *) userdata; rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data; char *pch = (char*) ptr; char *pche; pche = pch + (size * nmemb); pch += sizeof(LOCATION); while (isspace(*pch) || (*pch == ':')) pch ++; while (isspace(*pche) || (*pche == '\0')) pche--; if (RSSAggr->RedirectUrl == NULL) { RSSAggr->RedirectUrl = NewStrBufPlain(pch, pche - pch + 1); } else { FlushStrBuf(RSSAggr->RedirectUrl); StrBufPlain(RSSAggr->RedirectUrl, pch, pche - pch + 1); } } return size * nmemb; } static void SetRSSState(AsyncIO *IO, RSSState State) { CitContext* CCC = IO->CitContext; if (CCC != NULL) { memcpy(CCC->cs_clientname, RSSStates[State].Key, RSSStates[State].len + 1); } } void DeleteRoomReference(long QRnumber) { HashPos *At; long HKLen; const char *HK; void *vData = NULL; rss_room_counter *pRoomC; At = GetNewHashPos(RSSQueueRooms, 0); if (GetHashPosFromKey(RSSQueueRooms, LKEY(QRnumber), At)) { GetHashPos(RSSQueueRooms, At, &HKLen, &HK, &vData); if (vData != NULL) { pRoomC = (rss_room_counter *) vData; pRoomC->count --; if (pRoomC->count == 0) DeleteEntryFromHash(RSSQueueRooms, At); } } DeleteHashPos(&At); } void UnlinkRooms(rss_aggregator *RSSAggr) { DeleteRoomReference(RSSAggr->Cfg.QRnumber); if (RSSAggr->OtherQRnumbers != NULL) { long HKLen; const char *HK; HashPos *At; void *vData; At = GetNewHashPos(RSSAggr->OtherQRnumbers, 0); while (! server_shutting_down && GetNextHashPos(RSSAggr->OtherQRnumbers, At, &HKLen, &HK, &vData) && (vData != NULL)) { pRSSConfig *Data = (pRSSConfig*) vData; DeleteRoomReference(Data->QRnumber); } DeleteHashPos(&At); } } void UnlinkRSSAggregator(rss_aggregator *RSSAggr) { HashPos *At; pthread_mutex_lock(&RSSQueueMutex); UnlinkRooms(RSSAggr); At = GetNewHashPos(RSSFetchUrls, 0); if (GetHashPosFromKey(RSSFetchUrls, SKEY(RSSAggr->Url), At)) { DeleteEntryFromHash(RSSFetchUrls, At); } DeleteHashPos(&At); last_run = time(NULL); pthread_mutex_unlock(&RSSQueueMutex); } void DeleteRssCfg(void *vptr) { rss_aggregator *RSSAggr = (rss_aggregator *)vptr; AsyncIO *IO = &RSSAggr->IO; if (IO->CitContext != NULL) { EVRSSCM_syslog(LOG_DEBUG, "RSS: destroying"); } FreeStrBuf(&RSSAggr->Url); FreeStrBuf(&RSSAggr->RedirectUrl); FreeStrBuf(&RSSAggr->rooms); FreeStrBuf(&RSSAggr->CData); FreeStrBuf(&RSSAggr->Key); DeleteHash(&RSSAggr->OtherQRnumbers); DeleteHashPos (&RSSAggr->Pos); DeleteHash (&RSSAggr->Messages); if (RSSAggr->recp.recp_room != NULL) free(RSSAggr->recp.recp_room); if (RSSAggr->Item != NULL) { flush_rss_item(RSSAggr->Item); free(RSSAggr->Item); } FreeAsyncIOContents(&RSSAggr->IO); memset(RSSAggr, 0, sizeof(rss_aggregator)); free(RSSAggr); } eNextState RSSAggregator_Terminate(AsyncIO *IO) { rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data; EVRSSCM_syslog(LOG_DEBUG, "RSS: Terminating."); StopCurlWatchers(IO); UnlinkRSSAggregator(RSSAggr); return eAbort; } eNextState RSSAggregator_TerminateDB(AsyncIO *IO) { rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data; EVRSSCM_syslog(LOG_DEBUG, "RSS: Terminating."); StopDBWatchers(&RSSAggr->IO); UnlinkRSSAggregator(RSSAggr); return eAbort; } eNextState RSSAggregator_ShutdownAbort(AsyncIO *IO) { const char *pUrl; rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data; pUrl = IO->ConnectMe->PlainUrl; if (pUrl == NULL) pUrl = ""; EVRSSC_syslog(LOG_DEBUG, "RSS: Aborting by shutdown: %s.", pUrl); StopCurlWatchers(IO); UnlinkRSSAggregator(RSSAggr); return eAbort; } void AppendLink(StrBuf *Message, StrBuf *link, StrBuf *LinkTitle, const char *Title) { if (StrLength(link) > 0) { StrBufAppendBufPlain(Message, HKEY(""), 0); if (StrLength(LinkTitle) > 0) StrBufAppendBuf(Message, LinkTitle, 0); else if ((Title != NULL) && !IsEmptyStr(Title)) StrBufAppendBufPlain(Message, Title, -1, 0); else StrBufAppendBuf(Message, link, 0); StrBufAppendBufPlain(Message, HKEY("
    \n"), 0); } } int rss_format_item(AsyncIO *IO, networker_save_message *SaveMsg) { StrBuf *Message; int msglen = 0; if (StrLength(SaveMsg->description) + StrLength(SaveMsg->link) + StrLength(SaveMsg->linkTitle) + StrLength(SaveMsg->reLink) + StrLength(SaveMsg->reLinkTitle) + StrLength(SaveMsg->title) == 0) { EVRSSCM_syslog(LOG_INFO, "Refusing to save empty message."); return 0; } CM_Flush(&SaveMsg->Msg); if (SaveMsg->author_or_creator != NULL) { char *From; StrBuf *Encoded = NULL; int FromAt; From = html_to_ascii(ChrPtr(SaveMsg->author_or_creator), StrLength(SaveMsg->author_or_creator), 512, 0); StrBufPlain(SaveMsg->author_or_creator, From, -1); StrBufTrim(SaveMsg->author_or_creator); free(From); FromAt = strchr(ChrPtr(SaveMsg->author_or_creator), '@') != NULL; if (!FromAt && StrLength (SaveMsg->author_email) > 0) { StrBufRFC2047encode(&Encoded, SaveMsg->author_or_creator); CM_SetAsFieldSB(&SaveMsg->Msg, eAuthor, &Encoded); CM_SetAsFieldSB(&SaveMsg->Msg, eMessagePath, &SaveMsg->author_email); } else { if (FromAt) { CM_SetAsFieldSB(&SaveMsg->Msg, eAuthor, &SaveMsg->author_or_creator); CM_CopyField(&SaveMsg->Msg, eMessagePath, eAuthor); } else { StrBufRFC2047encode(&Encoded, SaveMsg->author_or_creator); CM_SetAsFieldSB(&SaveMsg->Msg, eAuthor, &Encoded); CM_SetField(&SaveMsg->Msg, eMessagePath, HKEY("rss@localhost")); } } } else { CM_SetField(&SaveMsg->Msg, eAuthor, HKEY("rss")); } CM_SetField(&SaveMsg->Msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); if (SaveMsg->title != NULL) { long len; char *Sbj; StrBuf *Encoded, *QPEncoded; QPEncoded = NULL; StrBufSpaceToBlank(SaveMsg->title); len = StrLength(SaveMsg->title); Sbj = html_to_ascii(ChrPtr(SaveMsg->title), len, 512, 0); if (!IsEmptyStr(Sbj)) { len = strlen(Sbj); if ((Sbj[len - 1] == '\n')) { len --; Sbj[len] = '\0'; } Encoded = NewStrBufPlain(Sbj, len); StrBufTrim(Encoded); StrBufRFC2047encode(&QPEncoded, Encoded); CM_SetAsFieldSB(&SaveMsg->Msg, eMsgSubject, &QPEncoded); FreeStrBuf(&Encoded); } if (Sbj != NULL) { free(Sbj); } } if (SaveMsg->link == NULL) SaveMsg->link = NewStrBufPlain(HKEY("")); #if 0 /* temporarily disable shorter urls. */ SaveMsg->Msg.cm_fields[TMP_SHORTER_URLS] = GetShorterUrls(SaveMsg->description); #endif msglen += 1024 + StrLength(SaveMsg->link) + StrLength(SaveMsg->description) ; Message = NewStrBufPlain(NULL, msglen); StrBufPlain(Message, HKEY( "Content-type: text/html; charset=\"UTF-8\"\r\n\r\n" "\n")); #if 0 /* disable shorter url for now. */ SaveMsg->Msg.cm_fields[TMP_SHORTER_URL_OFFSET] = StrLength(Message); #endif StrBufAppendBuf(Message, SaveMsg->description, 0); StrBufAppendBufPlain(Message, HKEY("

    \n"), 0); AppendLink(Message, SaveMsg->link, SaveMsg->linkTitle, NULL); AppendLink(Message, SaveMsg->reLink, SaveMsg->reLinkTitle, "Reply to this"); StrBufAppendBufPlain(Message, HKEY("\n"), 0); SaveMsg->Message = Message; return 1; } eNextState RSSSaveMessage(AsyncIO *IO) { long len; const char *Key; rss_aggregator *RSSAggr = (rss_aggregator *) IO->Data; if (rss_format_item(IO, RSSAggr->ThisMsg)) { CM_SetAsFieldSB(&RSSAggr->ThisMsg->Msg, eMesageText, &RSSAggr->ThisMsg->Message); CtdlSubmitMsg(&RSSAggr->ThisMsg->Msg, &RSSAggr->recp, NULL, 0); /* write the uidl to the use table so we don't store this item again */ CheckIfAlreadySeen("RSS Item Insert", RSSAggr->ThisMsg->MsgGUID, EvGetNow(IO), 0, eWrite, CCID, IO->ID); } if (GetNextHashPos(RSSAggr->Messages, RSSAggr->Pos, &len, &Key, (void**) &RSSAggr->ThisMsg)) return NextDBOperation(IO, RSS_FetchNetworkUsetableEntry); else return eAbort; } eNextState RSS_FetchNetworkUsetableEntry(AsyncIO *IO) { static const time_t antiExpire = USETABLE_ANTIEXPIRE_HIRES; #ifndef DEBUG_RSS time_t seenstamp = 0; const char *Key; long len; rss_aggregator *Ctx = (rss_aggregator *) IO->Data; /* Find out if we've already seen this item */ // todo: expiry? SetRSSState(IO, eRSSUT); seenstamp = CheckIfAlreadySeen("RSS Item Seen", Ctx->ThisMsg->MsgGUID, EvGetNow(IO), antiExpire, eCheckUpdate, CCID, IO->ID); if (seenstamp != 0) { /* Item has already been seen */ EVRSSC_syslog(LOG_DEBUG, "%s has already been seen - %ld < %ld", ChrPtr(Ctx->ThisMsg->MsgGUID), seenstamp, antiExpire); SetRSSState(IO, eRSSParsing); if (GetNextHashPos(Ctx->Messages, Ctx->Pos, &len, &Key, (void**) &Ctx->ThisMsg)) return NextDBOperation( IO, RSS_FetchNetworkUsetableEntry); else return eAbort; } else #endif { /* Item has already been seen */ EVRSSC_syslog(LOG_DEBUG, "%s Parsing - %ld >= %ld", ChrPtr(Ctx->ThisMsg->MsgGUID), seenstamp, antiExpire); SetRSSState(IO, eRSSParsing); NextDBOperation(IO, RSSSaveMessage); return eSendMore; } return eSendMore; } void UpdateLastKnownGood(pRSSConfig *pCfg, time_t now) { OneRoomNetCfg *pRNCfg; begin_critical_section(S_NETCONFIGS); pRNCfg = CtdlGetNetCfgForRoom(pCfg->QRnumber); if (pRNCfg != NULL) { RSSCfgLine *RSSCfg = (RSSCfgLine *)pRNCfg->NetConfigs[rssclient]; while (RSSCfg != NULL) { if (RSSCfg == pCfg->pCfg) break; RSSCfg = RSSCfg->next; } if (RSSCfg != NULL) { RSSCfg->last_known_good = now; } } SaveRoomNetConfigFile(pRNCfg, pCfg->QRnumber); FreeRoomNetworkStruct(&pRNCfg); end_critical_section(S_NETCONFIGS); } eNextState RSSAggregator_AnalyseReply(AsyncIO *IO) { HashPos *it = NULL; long len; const char *Key; pRSSConfig *pCfg; u_char rawdigest[MD5_DIGEST_LEN]; struct MD5Context md5context; StrBuf *guid; rss_aggregator *Ctx = (rss_aggregator *) IO->Data; if ((IO->HttpReq.httpcode >= 300) && (IO->HttpReq.httpcode < 400) && (Ctx->RedirectUrl != NULL)) { StrBuf *ErrMsg; long lens[2]; const char *strs[2]; SetRSSState(IO, eRSSFailure); ErrMsg = NewStrBuf(); if (IO) { EVRSSC_syslog(LOG_INFO, "need a 200, got a %ld !", IO->HttpReq.httpcode); } strs[0] = ChrPtr(Ctx->Url); lens[0] = StrLength(Ctx->Url); strs[1] = ChrPtr(Ctx->rooms); lens[1] = StrLength(Ctx->rooms); if (IO->HttpReq.CurlError == NULL) IO->HttpReq.CurlError = ""; StrBufPrintf(ErrMsg, "Error while RSS-Aggregation Run of %s\n" " need a 200, got a %ld !\n" " Curl Error message: \n%s / %s\n" " Redirect header points to: %s\n" " Response text was: \n" " \n %s\n", ChrPtr(Ctx->Url), IO->HttpReq.httpcode, IO->HttpReq.errdesc, IO->HttpReq.CurlError, ChrPtr(Ctx->RedirectUrl), ChrPtr(IO->HttpReq.ReplyData) ); CtdlAideFPMessage( ChrPtr(ErrMsg), "RSS Aggregation run failure", 2, strs, (long*) &lens, CCID, IO->ID, EvGetNow(IO)); FreeStrBuf(&ErrMsg); EVRSSC_syslog(LOG_DEBUG, "RSS feed returned an invalid http status code. <%s>", ChrPtr(Ctx->Url), IO->HttpReq.httpcode); return eAbort; } else if (IO->HttpReq.httpcode != 200) { StrBuf *ErrMsg; long lens[2]; const char *strs[2]; SetRSSState(IO, eRSSFailure); ErrMsg = NewStrBuf(); if (IO) { EVRSSC_syslog(LOG_ALERT, "need a 200, got a %ld !", IO->HttpReq.httpcode); } strs[0] = ChrPtr(Ctx->Url); lens[0] = StrLength(Ctx->Url); strs[1] = ChrPtr(Ctx->rooms); lens[1] = StrLength(Ctx->rooms); if (IO->HttpReq.CurlError == NULL) IO->HttpReq.CurlError = ""; StrBufPrintf(ErrMsg, "Error while RSS-Aggregation Run of %s\n" " need a 200, got a %ld !\n" " Curl Error message: \n%s / %s\n" " Response text was: \n" " \n %s\n", ChrPtr(Ctx->Url), IO->HttpReq.httpcode, IO->HttpReq.errdesc, IO->HttpReq.CurlError, ChrPtr(IO->HttpReq.ReplyData) ); CtdlAideFPMessage( ChrPtr(ErrMsg), "RSS Aggregation run failure", 2, strs, (long*) &lens, CCID, IO->ID, EvGetNow(IO)); FreeStrBuf(&ErrMsg); EVRSSC_syslog(LOG_DEBUG, "RSS feed returned an invalid http status code. <%s>", ChrPtr(Ctx->Url), IO->HttpReq.httpcode); return eAbort; } pCfg = &Ctx->Cfg; while (pCfg != NULL) { UpdateLastKnownGood (pCfg, EvGetNow(IO)); if ((Ctx->roomlist_parts > 1) && (it == NULL)) { it = GetNewHashPos(RSSFetchUrls, 0); } if (it != NULL) { void *vptr; if (GetNextHashPos(Ctx->OtherQRnumbers, it, &len, &Key, &vptr)) pCfg = vptr; else pCfg = NULL; } else pCfg = NULL; } DeleteHashPos (&it); SetRSSState(IO, eRSSUT); MD5Init(&md5context); MD5Update(&md5context, (const unsigned char*)SKEY(IO->HttpReq.ReplyData)); MD5Update(&md5context, (const unsigned char*)SKEY(Ctx->Url)); MD5Final(rawdigest, &md5context); guid = NewStrBufPlain(NULL, MD5_DIGEST_LEN * 2 + 12 /* _rss2ctdl*/); StrBufHexEscAppend(guid, NULL, rawdigest, MD5_DIGEST_LEN); StrBufAppendBufPlain(guid, HKEY("_rssFM"), 0); if (StrLength(guid) > 40) StrBufCutAt(guid, 40, NULL); /* Find out if we've already seen this item */ #ifndef DEBUG_RSS if (CheckIfAlreadySeen("RSS Whole", guid, EvGetNow(IO), EvGetNow(IO) - USETABLE_ANTIEXPIRE, eUpdate, CCID, IO->ID) != 0) { FreeStrBuf(&guid); EVRSSC_syslog(LOG_DEBUG, "RSS feed already seen. <%s>", ChrPtr(Ctx->Url)); return eAbort; } FreeStrBuf(&guid); #endif SetRSSState(IO, eRSSParsing); return RSSAggregator_ParseReply(IO); } eNextState RSSAggregator_FinishHttp(AsyncIO *IO) { return CurlQueueDBOperation(IO, RSSAggregator_AnalyseReply); } /* * Begin a feed parse */ int rss_do_fetching(rss_aggregator *RSSAggr) { AsyncIO *IO = &RSSAggr->IO; rss_item *ri; time_t now; CURLcode sta; CURL *chnd; now = time(NULL); if ((RSSAggr->next_poll != 0) && (now < RSSAggr->next_poll)) return 0; ri = (rss_item*) malloc(sizeof(rss_item)); memset(ri, 0, sizeof(rss_item)); RSSAggr->Item = ri; if (! InitcURLIOStruct(&RSSAggr->IO, RSSAggr, "Citadel RSS Client", RSSAggregator_FinishHttp, RSSAggregator_Terminate, RSSAggregator_TerminateDB, RSSAggregator_ShutdownAbort)) { EVRSSCM_syslog(LOG_ALERT, "Unable to initialize libcurl."); return 0; } chnd = IO->HttpReq.chnd; OPT(HEADERDATA, IO); OPT(HEADERFUNCTION, GetLocationString); SetRSSState(IO, eRSSCreated); safestrncpy(((CitContext*)RSSAggr->IO.CitContext)->cs_host, ChrPtr(RSSAggr->Url), sizeof(((CitContext*)RSSAggr->IO.CitContext)->cs_host)); EVRSSC_syslog(LOG_DEBUG, "Fetching RSS feed <%s>", ChrPtr(RSSAggr->Url)); ParseURL(&RSSAggr->IO.ConnectMe, RSSAggr->Url, 80); CurlPrepareURL(RSSAggr->IO.ConnectMe); SetRSSState(IO, eRSSFetching); QueueCurlContext(&RSSAggr->IO); return 1; } /* * Scan a room's netconfig to determine whether it is requesting any RSS feeds */ void rssclient_scan_room(struct ctdlroom *qrbuf, void *data, OneRoomNetCfg *OneRNCFG) { const RSSCfgLine *RSSCfg = (RSSCfgLine *)OneRNCFG->NetConfigs[rssclient]; rss_aggregator *RSSAggr = NULL; rss_aggregator *use_this_RSSAggr = NULL; void *vptr; EVRSSQ_syslog(LOG_DEBUG, "rssclient_scan_room(%s)", qrbuf->QRname); pthread_mutex_lock(&RSSQueueMutex); if (GetHash(RSSQueueRooms, LKEY(qrbuf->QRnumber), &vptr)) { EVRSSQ_syslog(LOG_DEBUG, "rssclient: [%ld] %s already in progress.", qrbuf->QRnumber, qrbuf->QRname); pthread_mutex_unlock(&RSSQueueMutex); return; } pthread_mutex_unlock(&RSSQueueMutex); if (server_shutting_down) return; while (RSSCfg != NULL) { pthread_mutex_lock(&RSSQueueMutex); GetHash(RSSFetchUrls, SKEY(RSSCfg->Url), &vptr); use_this_RSSAggr = (rss_aggregator *)vptr; if (use_this_RSSAggr != NULL) { pRSSConfig *pRSSCfg; StrBufAppendBufPlain(use_this_RSSAggr->rooms, qrbuf->QRname, -1, 0); if (use_this_RSSAggr->roomlist_parts==1) { use_this_RSSAggr->OtherQRnumbers = NewHash(1, lFlathash); } pRSSCfg = (pRSSConfig *) malloc(sizeof(pRSSConfig)); pRSSCfg->QRnumber = qrbuf->QRnumber; pRSSCfg->pCfg = RSSCfg; Put(use_this_RSSAggr->OtherQRnumbers, LKEY(qrbuf->QRnumber), pRSSCfg, NULL); use_this_RSSAggr->roomlist_parts++; pthread_mutex_unlock(&RSSQueueMutex); RSSCfg = RSSCfg->next; continue; } pthread_mutex_unlock(&RSSQueueMutex); RSSAggr = (rss_aggregator *) malloc( sizeof(rss_aggregator)); memset (RSSAggr, 0, sizeof(rss_aggregator)); RSSAggr->Cfg.QRnumber = qrbuf->QRnumber; RSSAggr->Cfg.pCfg = RSSCfg; RSSAggr->roomlist_parts = 1; RSSAggr->Url = NewStrBufDup(RSSCfg->Url); RSSAggr->ItemType = RSS_UNSET; RSSAggr->rooms = NewStrBufPlain( qrbuf->QRname, -1); pthread_mutex_lock(&RSSQueueMutex); Put(RSSFetchUrls, SKEY(RSSAggr->Url), RSSAggr, DeleteRssCfg); pthread_mutex_unlock(&RSSQueueMutex); RSSCfg = RSSCfg->next; } } /* * Scan for rooms that have RSS client requests configured */ void rssclient_scan(void) { int RSSRoomCount, RSSCount; rss_aggregator *rptr = NULL; void *vrptr = NULL; HashPos *it; long len; const char *Key; time_t now = time(NULL); /* Run no more than once every 15 minutes. */ if ((now - last_run) < 900) { EVRSSQ_syslog(LOG_DEBUG, "Client: polling interval not yet reached; last run was %ldm%lds ago", ((now - last_run) / 60), ((now - last_run) % 60) ); return; } /* * This is a simple concurrency check to make sure only one rssclient * run is done at a time. */ pthread_mutex_lock(&RSSQueueMutex); RSSCount = GetCount(RSSFetchUrls); RSSRoomCount = GetCount(RSSQueueRooms); pthread_mutex_unlock(&RSSQueueMutex); if ((RSSRoomCount > 0) || (RSSCount > 0)) { EVRSSQ_syslog(LOG_DEBUG, "rssclient: concurrency check failed; %d rooms and %d url's are queued", RSSRoomCount, RSSCount ); abort(); return; } become_session(&rss_CC); EVRSSQM_syslog(LOG_DEBUG, "rssclient started"); CtdlForEachNetCfgRoom(rssclient_scan_room, NULL); if (GetCount(RSSFetchUrls) > 0) { pthread_mutex_lock(&RSSQueueMutex); EVRSSQ_syslog(LOG_DEBUG, "rssclient starting %d Clients", GetCount(RSSFetchUrls)); it = GetNewHashPos(RSSFetchUrls, 0); while (!server_shutting_down && GetNextHashPos(RSSFetchUrls, it, &len, &Key, &vrptr) && (vrptr != NULL)) { rptr = (rss_aggregator *)vrptr; if (!rss_do_fetching(rptr)) UnlinkRSSAggregator(rptr); } DeleteHashPos(&it); pthread_mutex_unlock(&RSSQueueMutex); } else EVRSSQM_syslog(LOG_DEBUG, "Nothing to do."); EVRSSQM_syslog(LOG_DEBUG, "rssclient ended"); return; } void rss_cleanup(void) { /* citthread_mutex_destroy(&RSSQueueMutex); TODO */ DeleteHash(&RSSFetchUrls); DeleteHash(&RSSQueueRooms); } void LogDebugEnableRSSClient(const int n) { RSSClientDebugEnabled = n; } typedef struct __RSSVetoInfo { StrBuf *ErrMsg; time_t Now; int Veto; }RSSVetoInfo; void rssclient_veto_scan_room(struct ctdlroom *qrbuf, void *data, OneRoomNetCfg *OneRNCFG) { RSSVetoInfo *Info = (RSSVetoInfo *) data; const RSSCfgLine *RSSCfg = (RSSCfgLine *)OneRNCFG->NetConfigs[rssclient]; while (RSSCfg != NULL) { if ((RSSCfg->last_known_good != 0) && (RSSCfg->last_known_good + USETABLE_ANTIEXPIRE < Info->Now)) { StrBufAppendPrintf(Info->ErrMsg, "RSS feed not seen for a %d days:: <", (Info->Now - RSSCfg->last_known_good) / (24 * 60 * 60)); StrBufAppendBuf(Info->ErrMsg, RSSCfg->Url, 0); StrBufAppendBufPlain(Info->ErrMsg, HKEY(">\n"), 0); } RSSCfg = RSSCfg->next; } } int RSSCheckUsetableVeto(StrBuf *ErrMsg) { RSSVetoInfo Info; Info.ErrMsg = ErrMsg; Info.Now = time (NULL); Info.Veto = 0; CtdlForEachNetCfgRoom(rssclient_veto_scan_room, &Info); return Info.Veto;; } void ParseRSSClientCfgLine(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *OneRNCFG) { RSSCfgLine *RSSCfg; RSSCfg = (RSSCfgLine *) malloc (sizeof(RSSCfgLine)); RSSCfg->Url = NewStrBufPlain (NULL, StrLength (Line)); StrBufExtract_NextToken(RSSCfg->Url, Line, &LinePos, '|'); RSSCfg->last_known_good = StrBufExtractNext_long(Line, &LinePos, '|'); RSSCfg->next = (RSSCfgLine *)OneRNCFG->NetConfigs[ThisOne->C]; OneRNCFG->NetConfigs[ThisOne->C] = (RoomNetCfgLine*) RSSCfg; } void SerializeRSSClientCfgLine(const CfgLineType *ThisOne, StrBuf *OutputBuffer, OneRoomNetCfg *RNCfg, RoomNetCfgLine *data) { RSSCfgLine *RSSCfg = (RSSCfgLine*) data; StrBufAppendBufPlain(OutputBuffer, CKEY(ThisOne->Str), 0); StrBufAppendBufPlain(OutputBuffer, HKEY("|"), 0); StrBufAppendBufPlain(OutputBuffer, SKEY(RSSCfg->Url), 0); StrBufAppendPrintf(OutputBuffer, "|%ld\n", RSSCfg->last_known_good); } void DeleteRSSClientCfgLine(const CfgLineType *ThisOne, RoomNetCfgLine **data) { RSSCfgLine *RSSCfg = (RSSCfgLine*) *data; FreeStrBuf(&RSSCfg->Url); free(*data); *data = NULL; } CTDL_MODULE_INIT(rssclient) { if (!threading) { CtdlRegisterTDAPVetoHook (RSSCheckUsetableVeto, CDB_USETABLE, 0); CtdlREGISTERRoomCfgType(rssclient, ParseRSSClientCfgLine, 0, 1, SerializeRSSClientCfgLine, DeleteRSSClientCfgLine); pthread_mutex_init(&RSSQueueMutex, NULL); RSSQueueRooms = NewHash(1, lFlathash); RSSFetchUrls = NewHash(1, NULL); syslog(LOG_INFO, "%s\n", curl_version()); CtdlRegisterSessionHook(rssclient_scan, EVT_TIMER, PRIO_AGGR + 300); CtdlRegisterEVCleanupHook(rss_cleanup); CtdlRegisterDebugFlagHook(HKEY("rssclient"), LogDebugEnableRSSClient, &RSSClientDebugEnabled); } else { CtdlFillSystemContext(&rss_CC, "rssclient"); } return "rssclient"; } citadel-902/modules/rwho/000077500000000000000000000000001271512031400154165ustar00rootroot00000000000000citadel-902/modules/rwho/serv_rwho.c000066400000000000000000000201651271512031400176040ustar00rootroot00000000000000/* * This module implements server commands related to the display and * manipulation of the "Who's online" list. * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "ctdl_module.h" /* Don't show the names of private rooms unless the viewing * user also knows the rooms. */ void GenerateRoomDisplay(char *real_room, CitContext *viewed, CitContext *viewer) { int ra; strcpy(real_room, viewed->room.QRname); if (viewed->room.QRflags & QR_MAILBOX) { strcpy(real_room, &real_room[11]); } if (viewed->room.QRflags & QR_PRIVATE) { CtdlRoomAccess(&viewed->room, &viewer->user, &ra, NULL); if ( (ra & UA_KNOWN) == 0) { strcpy(real_room, " "); } } if (viewed->cs_flags & CS_CHAT) { while (strlen(real_room) < 14) { strcat(real_room, " "); } strcpy(&real_room[14], ""); } } /* * display who's online */ void cmd_rwho(char *argbuf) { struct CitContext *nptr; int nContexts, i; int spoofed = 0; int user_spoofed = 0; int room_spoofed = 0; int host_spoofed = 0; int aide; char un[40]; char real_room[ROOMNAMELEN], room[ROOMNAMELEN]; char host[64], flags[5]; /* So that we don't keep the context list locked for a long time * we create a copy of it first */ nptr = CtdlGetContextArray(&nContexts) ; if (!nptr) { /* Couldn't malloc so we have to bail but stick to the protocol */ cprintf("%d%c \n", LISTING_FOLLOWS, CtdlCheckExpress() ); cprintf("000\n"); return; } aide = ( (CC->user.axlevel >= AxAideU) || (CC->internal_pgm) ) ; cprintf("%d%c \n", LISTING_FOLLOWS, CtdlCheckExpress() ); for (i=0; ifake_roomname, newroomname, sizeof(CC->fake_roomname) ); } else { safestrncpy(CC->fake_roomname, "", sizeof CC->fake_roomname); } cprintf("%d OK\n", CIT_OK); } /* * Masquerade hostname */ void cmd_hchg(char *argbuf) { char newhostname[64]; extract_token(newhostname, argbuf, 0, '|', sizeof newhostname); if (!IsEmptyStr(newhostname)) { safestrncpy(CC->fake_hostname, newhostname, sizeof(CC->fake_hostname) ); } else { safestrncpy(CC->fake_hostname, "", sizeof CC->fake_hostname); } cprintf("%d OK\n", CIT_OK); } /* * Masquerade username (aides only) */ void cmd_uchg(char *argbuf) { char newusername[USERNAME_SIZE]; extract_token(newusername, argbuf, 0, '|', sizeof newusername); if (CtdlAccessCheck(ac_aide)) return; if (!IsEmptyStr(newusername)) { CC->cs_flags &= ~CS_STEALTH; memset(CC->fake_username, 0, 32); if (strncasecmp(newusername, CC->curr_user, strlen(CC->curr_user))) safestrncpy(CC->fake_username, newusername, sizeof(CC->fake_username)); } else { CC->fake_username[0] = '\0'; CC->cs_flags |= CS_STEALTH; } cprintf("%d\n",CIT_OK); } /* * enter or exit "stealth mode" */ void cmd_stel(char *cmdbuf) { int requested_mode; requested_mode = extract_int(cmdbuf,0); if (CtdlAccessCheck(ac_logged_in)) return; if (requested_mode == 1) { CC->cs_flags = CC->cs_flags | CS_STEALTH; PerformSessionHooks(EVT_STEALTH); } if (requested_mode == 0) { CC->cs_flags = CC->cs_flags & ~CS_STEALTH; PerformSessionHooks(EVT_UNSTEALTH); } cprintf("%d %d\n", CIT_OK, ((CC->cs_flags & CS_STEALTH) ? 1 : 0) ); } CTDL_MODULE_INIT(rwho) { if(!threading) { CtdlRegisterProtoHook(cmd_rwho, "RWHO", "Display who is online"); CtdlRegisterProtoHook(cmd_hchg, "HCHG", "Masquerade hostname"); CtdlRegisterProtoHook(cmd_rchg, "RCHG", "Masquerade roomname"); CtdlRegisterProtoHook(cmd_uchg, "UCHG", "Masquerade username"); CtdlRegisterProtoHook(cmd_stel, "STEL", "Enter/exit stealth mode"); CtdlRegisterSessionHook(dead_io_check, EVT_TIMER, PRIO_QUEUE + 50); } /* return our module name for the log */ return "rwho"; } citadel-902/modules/sieve/000077500000000000000000000000001271512031400155525ustar00rootroot00000000000000citadel-902/modules/sieve/serv_sieve.c000066400000000000000000001046571271512031400201050ustar00rootroot00000000000000/* * This module glues libSieve to the Citadel server in order to implement * the Sieve mailbox filtering language (RFC 3028). * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "ctdl_module.h" #include "serv_sieve.h" struct RoomProcList *sieve_list = NULL; char *msiv_extensions = NULL; int SieveDebugEnable = 0; #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (SieveDebugEnable != 0)) #define SV_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "Sieve: " FORMAT, __VA_ARGS__) #define SVM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "Sieve: " FORMAT); /* * Callback function to send libSieve trace messages to Citadel log facility */ int ctdl_debug(sieve2_context_t *s, void *my) { SV_syslog(LOG_DEBUG, "%s", sieve2_getvalue_string(s, "message")); return SIEVE2_OK; } /* * Callback function to log script parsing errors */ int ctdl_errparse(sieve2_context_t *s, void *my) { SV_syslog(LOG_WARNING, "Error in script, line %d: %s", sieve2_getvalue_int(s, "lineno"), sieve2_getvalue_string(s, "message") ); return SIEVE2_OK; } /* * Callback function to log script execution errors */ int ctdl_errexec(sieve2_context_t *s, void *my) { SV_syslog(LOG_WARNING, "Error executing script: %s", sieve2_getvalue_string(s, "message") ); return SIEVE2_OK; } /* * Callback function to redirect a message to a different folder */ int ctdl_redirect(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; struct CtdlMessage *msg = NULL; recptypes *valid = NULL; char recp[256]; safestrncpy(recp, sieve2_getvalue_string(s, "address"), sizeof recp); SV_syslog(LOG_DEBUG, "Action is REDIRECT, recipient <%s>", recp); valid = validate_recipients(recp, NULL, 0); if (valid == NULL) { SV_syslog(LOG_WARNING, "REDIRECT failed: bad recipient <%s>", recp); return SIEVE2_ERROR_BADARGS; } if (valid->num_error > 0) { SV_syslog(LOG_WARNING, "REDIRECT failed: bad recipient <%s>", recp); free_recipients(valid); return SIEVE2_ERROR_BADARGS; } msg = CtdlFetchMessage(cs->msgnum, 1, 1); if (msg == NULL) { SV_syslog(LOG_WARNING, "REDIRECT failed: unable to fetch msg %ld", cs->msgnum); free_recipients(valid); return SIEVE2_ERROR_BADARGS; } CtdlSubmitMsg(msg, valid, NULL, 0); cs->cancel_implicit_keep = 1; free_recipients(valid); CM_Free(msg); return SIEVE2_OK; } /* * Callback function to indicate that a message *will* be kept in the inbox */ int ctdl_keep(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; SVM_syslog(LOG_DEBUG, "Action is KEEP"); cs->keep = 1; cs->cancel_implicit_keep = 1; return SIEVE2_OK; } /* * Callback function to file a message into a different mailbox */ int ctdl_fileinto(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; const char *dest_folder = sieve2_getvalue_string(s, "mailbox"); int c; char foldername[256]; char original_room_name[ROOMNAMELEN]; SV_syslog(LOG_DEBUG, "Action is FILEINTO, destination is <%s>", dest_folder); /* FILEINTO 'INBOX' is the same thing as KEEP */ if ( (!strcasecmp(dest_folder, "INBOX")) || (!strcasecmp(dest_folder, MAILROOM)) ) { cs->keep = 1; cs->cancel_implicit_keep = 1; return SIEVE2_OK; } /* Remember what room we came from */ safestrncpy(original_room_name, CC->room.QRname, sizeof original_room_name); /* First try a mailbox name match (check personal mail folders first) */ snprintf(foldername, sizeof foldername, "%010ld.%s", cs->usernum, dest_folder); c = CtdlGetRoom(&CC->room, foldername); /* Then a regular room name match (public and private rooms) */ if (c != 0) { safestrncpy(foldername, dest_folder, sizeof foldername); c = CtdlGetRoom(&CC->room, foldername); } if (c != 0) { SV_syslog(LOG_WARNING, "FILEINTO failed: target <%s> does not exist", dest_folder); return SIEVE2_ERROR_BADARGS; } /* Yes, we actually have to go there */ CtdlUserGoto(NULL, 0, 0, NULL, NULL, NULL, NULL); c = CtdlSaveMsgPointersInRoom(NULL, &cs->msgnum, 1, 0, NULL, 0); /* Go back to the room we came from */ if (strcasecmp(original_room_name, CC->room.QRname)) { CtdlUserGoto(original_room_name, 0, 0, NULL, NULL, NULL, NULL); } if (c == 0) { cs->cancel_implicit_keep = 1; return SIEVE2_OK; } else { return SIEVE2_ERROR_BADARGS; } } /* * Callback function to indicate that a message should be discarded. */ int ctdl_discard(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; SVM_syslog(LOG_DEBUG, "Action is DISCARD"); /* Cancel the implicit keep. That's all there is to it. */ cs->cancel_implicit_keep = 1; return SIEVE2_OK; } /* * Callback function to indicate that a message should be rejected */ int ctdl_reject(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; char *reject_text = NULL; SVM_syslog(LOG_DEBUG, "Action is REJECT"); /* If we don't know who sent the message, do a DISCARD instead. */ if (IsEmptyStr(cs->sender)) { SVM_syslog(LOG_INFO, "Unknown sender. Doing DISCARD instead of REJECT."); return ctdl_discard(s, my); } /* Assemble the reject message. */ reject_text = malloc(strlen(sieve2_getvalue_string(s, "message")) + 1024); if (reject_text == NULL) { return SIEVE2_ERROR_FAIL; } sprintf(reject_text, "Content-type: text/plain\n" "\n" "The message was refused by the recipient's mail filtering program.\n" "The reason given was as follows:\n" "\n" "%s\n" "\n" , sieve2_getvalue_string(s, "message") ); quickie_message( /* This delivers the message */ NULL, cs->envelope_to, cs->sender, NULL, reject_text, FMT_RFC822, "Delivery status notification" ); free(reject_text); cs->cancel_implicit_keep = 1; return SIEVE2_OK; } /* * Callback function to indicate that a vacation message should be generated */ int ctdl_vacation(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; struct sdm_vacation *vptr; int days = 1; const char *message; char *vacamsg_text = NULL; char vacamsg_subject[1024]; SVM_syslog(LOG_DEBUG, "Action is VACATION"); message = sieve2_getvalue_string(s, "message"); if (message == NULL) return SIEVE2_ERROR_BADARGS; if (sieve2_getvalue_string(s, "subject") != NULL) { safestrncpy(vacamsg_subject, sieve2_getvalue_string(s, "subject"), sizeof vacamsg_subject); } else { snprintf(vacamsg_subject, sizeof vacamsg_subject, "Re: %s", cs->subject); } days = sieve2_getvalue_int(s, "days"); if (days < 1) days = 1; if (days > MAX_VACATION) days = MAX_VACATION; /* Check to see whether we've already alerted this sender that we're on vacation. */ for (vptr = cs->u->first_vacation; vptr != NULL; vptr = vptr->next) { if (!strcasecmp(vptr->fromaddr, cs->sender)) { if ( (time(NULL) - vptr->timestamp) < (days * 86400) ) { SV_syslog(LOG_DEBUG, "Already alerted <%s> recently.", cs->sender); return SIEVE2_OK; } } } /* Assemble the reject message. */ vacamsg_text = malloc(strlen(message) + 1024); if (vacamsg_text == NULL) { return SIEVE2_ERROR_FAIL; } sprintf(vacamsg_text, "Content-type: text/plain charset=utf-8\n" "\n" "%s\n" "\n" , message ); quickie_message( /* This delivers the message */ NULL, cs->envelope_to, cs->sender, NULL, vacamsg_text, FMT_RFC822, vacamsg_subject ); free(vacamsg_text); /* Now update the list to reflect the fact that we've alerted this sender. * If they're already in the list, just update the timestamp. */ for (vptr = cs->u->first_vacation; vptr != NULL; vptr = vptr->next) { if (!strcasecmp(vptr->fromaddr, cs->sender)) { vptr->timestamp = time(NULL); return SIEVE2_OK; } } /* If we get to this point, create a new record. */ vptr = malloc(sizeof(struct sdm_vacation)); memset(vptr, 0, sizeof(struct sdm_vacation)); vptr->timestamp = time(NULL); safestrncpy(vptr->fromaddr, cs->sender, sizeof vptr->fromaddr); vptr->next = cs->u->first_vacation; cs->u->first_vacation = vptr; return SIEVE2_OK; } /* * Callback function to parse addresses per local system convention * It is disabled because we don't support subaddresses. */ #if 0 int ctdl_getsubaddress(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; /* libSieve does not take ownership of the memory used here. But, since we * are just pointing to locations inside a struct which we are going to free * later, we're ok. */ sieve2_setvalue_string(s, "user", cs->recp_user); sieve2_setvalue_string(s, "detail", ""); sieve2_setvalue_string(s, "localpart", cs->recp_user); sieve2_setvalue_string(s, "domain", cs->recp_node); return SIEVE2_OK; } #endif /* * Callback function to parse message envelope */ int ctdl_getenvelope(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; SVM_syslog(LOG_DEBUG, "Action is GETENVELOPE"); SV_syslog(LOG_DEBUG, "EnvFrom: %s", cs->envelope_from); SV_syslog(LOG_DEBUG, "EnvTo: %s", cs->envelope_to); if (cs->envelope_from != NULL) { if ((cs->envelope_from[0] != '@')&&(cs->envelope_from[strlen(cs->envelope_from)-1] != '@')) { sieve2_setvalue_string(s, "from", cs->envelope_from); } else { sieve2_setvalue_string(s, "from", "invalid_envelope_from@example.org"); } } else { sieve2_setvalue_string(s, "from", "null_envelope_from@example.org"); } if (cs->envelope_to != NULL) { if ((cs->envelope_to[0] != '@') && (cs->envelope_to[strlen(cs->envelope_to)-1] != '@')) { sieve2_setvalue_string(s, "to", cs->envelope_to); } else { sieve2_setvalue_string(s, "to", "invalid_envelope_to@example.org"); } } else { sieve2_setvalue_string(s, "to", "null_envelope_to@example.org"); } return SIEVE2_OK; } /* * Callback function to fetch message body * (Uncomment the code if we implement this extension) * int ctdl_getbody(sieve2_context_t *s, void *my) { return SIEVE2_ERROR_UNSUPPORTED; } * */ /* * Callback function to fetch message size */ int ctdl_getsize(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; struct MetaData smi; GetMetaData(&smi, cs->msgnum); if (smi.meta_rfc822_length > 0L) { sieve2_setvalue_int(s, "size", (int)smi.meta_rfc822_length); return SIEVE2_OK; } return SIEVE2_ERROR_UNSUPPORTED; } /* * Return a pointer to the active Sieve script. * (Caller does NOT own the memory and should not free the returned pointer.) */ char *get_active_script(struct sdm_userdata *u) { struct sdm_script *sptr; for (sptr=u->first_script; sptr!=NULL; sptr=sptr->next) { if (sptr->script_active > 0) { SV_syslog(LOG_DEBUG, "get_active_script() is using script '%s'", sptr->script_name); return(sptr->script_content); } } SVM_syslog(LOG_DEBUG, "get_active_script() found no active script"); return(NULL); } /* * Callback function to retrieve the sieve script */ int ctdl_getscript(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; char *active_script = get_active_script(cs->u); if (active_script != NULL) { sieve2_setvalue_string(s, "script", active_script); return SIEVE2_OK; } return SIEVE2_ERROR_GETSCRIPT; } /* * Callback function to retrieve message headers */ int ctdl_getheaders(sieve2_context_t *s, void *my) { struct ctdl_sieve *cs = (struct ctdl_sieve *)my; SVM_syslog(LOG_DEBUG, "ctdl_getheaders() was called"); sieve2_setvalue_string(s, "allheaders", cs->rfc822headers); return SIEVE2_OK; } /* * Add a room to the list of those rooms which potentially require sieve processing */ void sieve_queue_room(struct ctdlroom *which_room) { struct RoomProcList *ptr; ptr = (struct RoomProcList *) malloc(sizeof (struct RoomProcList)); if (ptr == NULL) return; safestrncpy(ptr->name, which_room->QRname, sizeof ptr->name); begin_critical_section(S_SIEVELIST); ptr->next = sieve_list; sieve_list = ptr; end_critical_section(S_SIEVELIST); SV_syslog(LOG_DEBUG, "<%s> queued for Sieve processing", which_room->QRname); } /* * Perform sieve processing for one message (called by sieve_do_room() for each message) */ void sieve_do_msg(long msgnum, void *userdata) { struct sdm_userdata *u = (struct sdm_userdata *) userdata; sieve2_context_t *sieve2_context; struct ctdl_sieve my; int res; struct CtdlMessage *msg; int i; size_t headers_len = 0; int len = 0; if (u == NULL) { SV_syslog(LOG_EMERG, "Can't process message <%ld> without userdata!", msgnum); return; } sieve2_context = u->sieve2_context; SV_syslog(LOG_DEBUG, "Performing sieve processing on msg <%ld>", msgnum); /* * Make sure you include message body so you can get those second-level headers ;) */ msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; /* * Grab the message headers so we can feed them to libSieve. * Use HEADERS_ONLY rather than HEADERS_FAST in order to include second-level headers. */ CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputPreLoadedMsg(msg, MT_RFC822, HEADERS_ONLY, 0, 1, 0); headers_len = StrLength(CC->redirect_buffer); my.rfc822headers = SmashStrBuf(&CC->redirect_buffer); /* * libSieve clobbers the stack if it encounters badly formed * headers. Sanitize our headers by stripping nonprintable * characters. */ for (i=0; iroom.QRname); /* Keep track of the owner of the room's namespace */ my.msgnum = msgnum; /* Keep track of the message number in our local store */ my.u = u; /* Hand off a pointer to the rest of this info */ /* Keep track of the recipient so we can do handling based on it later */ process_rfc822_addr(msg->cm_fields[eRecipient], my.recp_user, my.recp_node, my.recp_name); /* Keep track of the sender so we can use it for REJECT and VACATION responses */ if (!CM_IsEmpty(msg, erFc822Addr)) { safestrncpy(my.sender, msg->cm_fields[erFc822Addr], sizeof my.sender); } else if ( (!CM_IsEmpty(msg, eAuthor)) && (!CM_IsEmpty(msg, eNodeName)) ) { snprintf(my.sender, sizeof my.sender, "%s@%s", msg->cm_fields[eAuthor], msg->cm_fields[eNodeName]); } else if (!CM_IsEmpty(msg, eAuthor)) { safestrncpy(my.sender, msg->cm_fields[eAuthor], sizeof my.sender); } else { strcpy(my.sender, ""); } /* Keep track of the subject so we can use it for VACATION responses */ if (!CM_IsEmpty(msg, eMsgSubject)) { safestrncpy(my.subject, msg->cm_fields[eMsgSubject], sizeof my.subject); } else { strcpy(my.subject, ""); } /* Keep track of the envelope-from address (use body-from if not found) */ if (!CM_IsEmpty(msg, eMessagePath)) { safestrncpy(my.envelope_from, msg->cm_fields[eMessagePath], sizeof my.envelope_from); stripallbut(my.envelope_from, '<', '>'); } else if (!CM_IsEmpty(msg, erFc822Addr)) { safestrncpy(my.envelope_from, msg->cm_fields[erFc822Addr], sizeof my.envelope_from); stripallbut(my.envelope_from, '<', '>'); } else { strcpy(my.envelope_from, ""); } len = strlen(my.envelope_from); for (i=0; icm_fields[eenVelopeTo], sizeof my.envelope_to); stripallbut(my.envelope_to, '<', '>'); } else if (!CM_IsEmpty(msg, eRecipient)) { safestrncpy(my.envelope_to, msg->cm_fields[eRecipient], sizeof my.envelope_to); if (!CM_IsEmpty(msg, eDestination)) { strcat(my.envelope_to, "@"); strcat(my.envelope_to, msg->cm_fields[eDestination]); } stripallbut(my.envelope_to, '<', '>'); } else { strcpy(my.envelope_to, ""); } len = strlen(my.envelope_to); for (i=0; iroom.QRname, &msgnum, 1, ""); } SV_syslog(LOG_DEBUG, "Completed sieve processing on msg <%ld>", msgnum); u->lastproc = msgnum; return; } /* * Given the on-disk representation of our Sieve config, load * it into an in-memory data structure. */ void parse_sieve_config(char *conf, struct sdm_userdata *u) { char *ptr; char *c, *vacrec; char keyword[256]; struct sdm_script *sptr; struct sdm_vacation *vptr; ptr = conf; while (c = ptr, ptr = bmstrcasestr(ptr, CTDLSIEVECONFIGSEPARATOR), ptr != NULL) { *ptr = 0; ptr += strlen(CTDLSIEVECONFIGSEPARATOR); extract_token(keyword, c, 0, '|', sizeof keyword); if (!strcasecmp(keyword, "lastproc")) { u->lastproc = extract_long(c, 1); } else if (!strcasecmp(keyword, "script")) { sptr = malloc(sizeof(struct sdm_script)); extract_token(sptr->script_name, c, 1, '|', sizeof sptr->script_name); sptr->script_active = extract_int(c, 2); remove_token(c, 0, '|'); remove_token(c, 0, '|'); remove_token(c, 0, '|'); sptr->script_content = strdup(c); sptr->next = u->first_script; u->first_script = sptr; } else if (!strcasecmp(keyword, "vacation")) { if (c != NULL) while (vacrec=c, c=strchr(c, '\n'), (c != NULL)) { *c = 0; ++c; if (strncasecmp(vacrec, "vacation|", 9)) { vptr = malloc(sizeof(struct sdm_vacation)); extract_token(vptr->fromaddr, vacrec, 0, '|', sizeof vptr->fromaddr); vptr->timestamp = extract_long(vacrec, 1); vptr->next = u->first_vacation; u->first_vacation = vptr; } } } /* ignore unknown keywords */ } } /* * We found the Sieve configuration for this user. * Now do something with it. */ void get_sieve_config_backend(long msgnum, void *userdata) { struct sdm_userdata *u = (struct sdm_userdata *) userdata; struct CtdlMessage *msg; char *conf; long conflen; u->config_msgnum = msgnum; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { u->config_msgnum = (-1) ; return; } CM_GetAsField(msg, eMesageText, &conf, &conflen); CM_Free(msg); if (conf != NULL) { parse_sieve_config(conf, u); free(conf); } } /* * Write our citadel sieve config back to disk * * (Set yes_write_to_disk to nonzero to make it actually write the config; * otherwise it just frees the data structures.) */ void rewrite_ctdl_sieve_config(struct sdm_userdata *u, int yes_write_to_disk) { StrBuf *text; struct sdm_script *sptr; struct sdm_vacation *vptr; text = NewStrBufPlain(NULL, SIZ); StrBufPrintf(text, "Content-type: application/x-citadel-sieve-config\n" "\n" CTDLSIEVECONFIGSEPARATOR "lastproc|%ld" CTDLSIEVECONFIGSEPARATOR , u->lastproc ); while (u->first_script != NULL) { StrBufAppendPrintf(text, "script|%s|%d|%s" CTDLSIEVECONFIGSEPARATOR, u->first_script->script_name, u->first_script->script_active, u->first_script->script_content ); sptr = u->first_script; u->first_script = u->first_script->next; free(sptr->script_content); free(sptr); } if (u->first_vacation != NULL) { StrBufAppendPrintf(text, "vacation|\n"); while (u->first_vacation != NULL) { if ( (time(NULL) - u->first_vacation->timestamp) < (MAX_VACATION * 86400)) { StrBufAppendPrintf(text, "%s|%ld\n", u->first_vacation->fromaddr, u->first_vacation->timestamp ); } vptr = u->first_vacation; u->first_vacation = u->first_vacation->next; free(vptr); } StrBufAppendPrintf(text, CTDLSIEVECONFIGSEPARATOR); } if (yes_write_to_disk) { /* Save the config */ quickie_message("Citadel", NULL, NULL, u->config_roomname, ChrPtr(text), 4, "Sieve configuration" ); /* And delete the old one */ if (u->config_msgnum > 0) { CtdlDeleteMessages(u->config_roomname, &u->config_msgnum, 1, ""); } } FreeStrBuf (&text); } /* * This is our callback registration table for libSieve. */ sieve2_callback_t ctdl_sieve_callbacks[] = { { SIEVE2_ACTION_REJECT, ctdl_reject }, { SIEVE2_ACTION_VACATION, ctdl_vacation }, { SIEVE2_ERRCALL_PARSE, ctdl_errparse }, { SIEVE2_ERRCALL_RUNTIME, ctdl_errexec }, { SIEVE2_ACTION_FILEINTO, ctdl_fileinto }, { SIEVE2_ACTION_REDIRECT, ctdl_redirect }, { SIEVE2_ACTION_DISCARD, ctdl_discard }, { SIEVE2_ACTION_KEEP, ctdl_keep }, { SIEVE2_SCRIPT_GETSCRIPT, ctdl_getscript }, { SIEVE2_DEBUG_TRACE, ctdl_debug }, { SIEVE2_MESSAGE_GETALLHEADERS, ctdl_getheaders }, { SIEVE2_MESSAGE_GETSIZE, ctdl_getsize }, { SIEVE2_MESSAGE_GETENVELOPE, ctdl_getenvelope }, /* * These actions are unsupported by Citadel so we don't declare them. * { SIEVE2_ACTION_NOTIFY, ctdl_notify }, { SIEVE2_MESSAGE_GETSUBADDRESS, ctdl_getsubaddress }, { SIEVE2_MESSAGE_GETBODY, ctdl_getbody }, * */ { 0 } }; /* * Perform sieve processing for a single room */ void sieve_do_room(char *roomname) { struct sdm_userdata u; sieve2_context_t *sieve2_context = NULL; /* Context for sieve parser */ int res; /* Return code from libsieve calls */ long orig_lastproc = 0; memset(&u, 0, sizeof u); /* See if the user who owns this 'mailbox' has any Sieve scripts that * require execution. */ snprintf(u.config_roomname, sizeof u.config_roomname, "%010ld.%s", atol(roomname), USERCONFIGROOM); if (CtdlGetRoom(&CC->room, u.config_roomname) != 0) { SV_syslog(LOG_DEBUG, "<%s> does not exist. No processing is required.", u.config_roomname); return; } /* * Find the sieve scripts and control record and do something */ u.config_msgnum = (-1); CtdlForEachMessage(MSGS_LAST, 1, NULL, SIEVECONFIG, NULL, get_sieve_config_backend, (void *)&u ); if (u.config_msgnum < 0) { SVM_syslog(LOG_DEBUG, "No Sieve rules exist. No processing is required."); return; } /* * Check to see whether the script is empty and should not be processed. * A script is considered non-empty if it contains at least one semicolon. */ if ( (get_active_script(&u) == NULL) || (strchr(get_active_script(&u), ';') == NULL) ) { SVM_syslog(LOG_DEBUG, "Sieve script is empty. No processing is required."); return; } SV_syslog(LOG_DEBUG, "Rules found. Performing Sieve processing for <%s>", roomname); if (CtdlGetRoom(&CC->room, roomname) != 0) { SV_syslog(LOG_CRIT, "ERROR: cannot load <%s>", roomname); return; } /* Initialize the Sieve parser */ res = sieve2_alloc(&sieve2_context); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_alloc() returned %d: %s", res, sieve2_errstr(res)); return; } res = sieve2_callbacks(sieve2_context, ctdl_sieve_callbacks); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_callbacks() returned %d: %s", res, sieve2_errstr(res)); goto BAIL; } /* Validate the script */ struct ctdl_sieve my; /* dummy ctdl_sieve struct just to pass "u" slong */ memset(&my, 0, sizeof my); my.u = &u; res = sieve2_validate(sieve2_context, &my); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_validate() returned %d: %s", res, sieve2_errstr(res)); goto BAIL; } /* Do something useful */ u.sieve2_context = sieve2_context; orig_lastproc = u.lastproc; CtdlForEachMessage(MSGS_GT, u.lastproc, NULL, NULL, NULL, sieve_do_msg, (void *) &u ); BAIL: res = sieve2_free(&sieve2_context); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_free() returned %d: %s", res, sieve2_errstr(res)); } /* Rewrite the config if we have to */ rewrite_ctdl_sieve_config(&u, (u.lastproc > orig_lastproc) ) ; } /* * Perform sieve processing for all rooms which require it */ void perform_sieve_processing(void) { struct RoomProcList *ptr = NULL; if (sieve_list != NULL) { SVM_syslog(LOG_DEBUG, "Begin Sieve processing"); while (sieve_list != NULL) { char spoolroomname[ROOMNAMELEN]; safestrncpy(spoolroomname, sieve_list->name, sizeof spoolroomname); begin_critical_section(S_SIEVELIST); /* pop this record off the list */ ptr = sieve_list; sieve_list = sieve_list->next; free(ptr); /* invalidate any duplicate entries to prevent double processing */ for (ptr=sieve_list; ptr!=NULL; ptr=ptr->next) { if (!strcasecmp(ptr->name, spoolroomname)) { ptr->name[0] = 0; } } end_critical_section(S_SIEVELIST); if (spoolroomname[0] != 0) { sieve_do_room(spoolroomname); } } } } void msiv_load(struct sdm_userdata *u) { char hold_rm[ROOMNAMELEN]; strcpy(hold_rm, CC->room.QRname); /* save current room */ /* Take a spin through the user's personal address book */ if (CtdlGetRoom(&CC->room, USERCONFIGROOM) == 0) { u->config_msgnum = (-1); strcpy(u->config_roomname, CC->room.QRname); CtdlForEachMessage(MSGS_LAST, 1, NULL, SIEVECONFIG, NULL, get_sieve_config_backend, (void *)u ); } if (strcmp(CC->room.QRname, hold_rm)) { CtdlGetRoom(&CC->room, hold_rm); /* return to saved room */ } } void msiv_store(struct sdm_userdata *u, int yes_write_to_disk) { /* * Initialise the sieve configs last processed message number. * We don't need to get the highest message number for the users inbox since the systems * highest message number will be higher than that and loer than this scripts message number * This prevents this new script from processing any old messages in the inbox. * Most importantly it will prevent vacation messages being sent to lots of old messages * in the inbox. */ u->lastproc = CtdlGetCurrentMessageNumber(); rewrite_ctdl_sieve_config(u, yes_write_to_disk); } /* * Select the active script. * (Set script_name to an empty string to disable all scripts) * * Returns 0 on success or nonzero for error. */ int msiv_setactive(struct sdm_userdata *u, char *script_name) { int ok = 0; struct sdm_script *s; /* First see if the supplied value is ok */ if (IsEmptyStr(script_name)) { ok = 1; } else { for (s=u->first_script; s!=NULL; s=s->next) { if (!strcasecmp(s->script_name, script_name)) { ok = 1; } } } if (!ok) return(-1); /* Now set the active script */ for (s=u->first_script; s!=NULL; s=s->next) { if (!strcasecmp(s->script_name, script_name)) { s->script_active = 1; } else { s->script_active = 0; } } return(0); } /* * Fetch a script by name. * * Returns NULL if the named script was not found, or a pointer to the script * if it was found. NOTE: the caller does *not* own the memory returned by * this function. Copy it if you need to keep it. */ char *msiv_getscript(struct sdm_userdata *u, char *script_name) { struct sdm_script *s; for (s=u->first_script; s!=NULL; s=s->next) { if (!strcasecmp(s->script_name, script_name)) { if (s->script_content != NULL) { return (s->script_content); } } } return(NULL); } /* * Delete a script by name. * * Returns 0 if the script was deleted. * 1 if the script was not found. * 2 if the script cannot be deleted because it is active. */ int msiv_deletescript(struct sdm_userdata *u, char *script_name) { struct sdm_script *s = NULL; struct sdm_script *script_to_delete = NULL; for (s=u->first_script; s!=NULL; s=s->next) { if (!strcasecmp(s->script_name, script_name)) { script_to_delete = s; if (s->script_active) { return(2); } } } if (script_to_delete == NULL) return(1); if (u->first_script == script_to_delete) { u->first_script = u->first_script->next; } else for (s=u->first_script; s!=NULL; s=s->next) { if (s->next == script_to_delete) { s->next = s->next->next; } } free(script_to_delete->script_content); free(script_to_delete); return(0); } /* * Add or replace a new script. * NOTE: after this function returns, "u" owns the memory that "script_content" * was pointing to. */ void msiv_putscript(struct sdm_userdata *u, char *script_name, char *script_content) { int replaced = 0; struct sdm_script *s, *sptr; for (s=u->first_script; s!=NULL; s=s->next) { if (!strcasecmp(s->script_name, script_name)) { if (s->script_content != NULL) { free(s->script_content); } s->script_content = script_content; replaced = 1; } } if (replaced == 0) { sptr = malloc(sizeof(struct sdm_script)); safestrncpy(sptr->script_name, script_name, sizeof sptr->script_name); sptr->script_content = script_content; sptr->script_active = 0; sptr->next = u->first_script; u->first_script = sptr; } } /* * Citadel protocol to manage sieve scripts. * This is basically a simplified (read: doesn't resemble IMAP) version * of the 'managesieve' protocol. */ void cmd_msiv(char *argbuf) { char subcmd[256]; struct sdm_userdata u; char script_name[256]; char *script_content = NULL; struct sdm_script *s; int i; int changes_made = 0; memset(&u, 0, sizeof(struct sdm_userdata)); if (CtdlAccessCheck(ac_logged_in)) return; extract_token(subcmd, argbuf, 0, '|', sizeof subcmd); msiv_load(&u); if (!strcasecmp(subcmd, "putscript")) { extract_token(script_name, argbuf, 1, '|', sizeof script_name); if (!IsEmptyStr(script_name)) { cprintf("%d Transmit script now\n", SEND_LISTING); script_content = CtdlReadMessageBody(HKEY("000"), CtdlGetConfigLong("c_maxmsglen"), NULL, 0, 0); msiv_putscript(&u, script_name, script_content); changes_made = 1; } else { cprintf("%d Invalid script name.\n", ERROR + ILLEGAL_VALUE); } } else if (!strcasecmp(subcmd, "listscripts")) { cprintf("%d Scripts:\n", LISTING_FOLLOWS); for (s=u.first_script; s!=NULL; s=s->next) { if (s->script_content != NULL) { cprintf("%s|%d|\n", s->script_name, s->script_active); } } cprintf("000\n"); } else if (!strcasecmp(subcmd, "setactive")) { extract_token(script_name, argbuf, 1, '|', sizeof script_name); if (msiv_setactive(&u, script_name) == 0) { cprintf("%d ok\n", CIT_OK); changes_made = 1; } else { cprintf("%d Script '%s' does not exist.\n", ERROR + ILLEGAL_VALUE, script_name ); } } else if (!strcasecmp(subcmd, "getscript")) { extract_token(script_name, argbuf, 1, '|', sizeof script_name); script_content = msiv_getscript(&u, script_name); if (script_content != NULL) { int script_len; cprintf("%d Script:\n", LISTING_FOLLOWS); script_len = strlen(script_content); client_write(script_content, script_len); if (script_content[script_len-1] != '\n') { cprintf("\n"); } cprintf("000\n"); } else { cprintf("%d Invalid script name.\n", ERROR + ILLEGAL_VALUE); } } else if (!strcasecmp(subcmd, "deletescript")) { extract_token(script_name, argbuf, 1, '|', sizeof script_name); i = msiv_deletescript(&u, script_name); if (i == 0) { cprintf("%d ok\n", CIT_OK); changes_made = 1; } else if (i == 1) { cprintf("%d Script '%s' does not exist.\n", ERROR + ILLEGAL_VALUE, script_name ); } else if (i == 2) { cprintf("%d Script '%s' is active and cannot be deleted.\n", ERROR + ILLEGAL_VALUE, script_name ); } else { cprintf("%d unknown error\n", ERROR); } } else { cprintf("%d Invalid subcommand\n", ERROR + CMD_NOT_SUPPORTED); } msiv_store(&u, changes_made); } void ctdl_sieve_init(void) { char *cred = NULL; sieve2_context_t *sieve2_context = NULL; int res; /* * We don't really care about dumping the entire credits to the log * every time the server is initialized. The documentation will suffice * for that purpose. We are making a call to sieve2_credits() in order * to demonstrate that we have successfully linked in to libsieve. */ cred = strdup(sieve2_credits()); if (cred == NULL) return; if (strlen(cred) > 60) { strcpy(&cred[55], "..."); } SV_syslog(LOG_INFO, "%s",cred); free(cred); /* Briefly initialize a Sieve parser instance just so we can list the * extensions that are available. */ res = sieve2_alloc(&sieve2_context); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_alloc() returned %d: %s", res, sieve2_errstr(res)); return; } res = sieve2_callbacks(sieve2_context, ctdl_sieve_callbacks); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_callbacks() returned %d: %s", res, sieve2_errstr(res)); goto BAIL; } msiv_extensions = strdup(sieve2_listextensions(sieve2_context)); SV_syslog(LOG_INFO, "Extensions: %s", msiv_extensions); BAIL: res = sieve2_free(&sieve2_context); if (res != SIEVE2_OK) { SV_syslog(LOG_CRIT, "sieve2_free() returned %d: %s", res, sieve2_errstr(res)); } } void cleanup_sieve(void) { struct RoomProcList *ptr, *ptr2; if (msiv_extensions != NULL) free(msiv_extensions); msiv_extensions = NULL; begin_critical_section(S_SIEVELIST); ptr=sieve_list; while (ptr != NULL) { ptr2 = ptr->next; free(ptr); ptr = ptr2; } sieve_list = NULL; end_critical_section(S_SIEVELIST); } int serv_sieve_room(struct ctdlroom *room) { if (!strcasecmp(&room->QRname[11], MAILROOM)) { sieve_queue_room(room); } return 0; } void LogSieveDebugEnable(const int n) { SieveDebugEnable = n; } CTDL_MODULE_INIT(sieve) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("sieve"), LogSieveDebugEnable, &SieveDebugEnable); ctdl_sieve_init(); CtdlRegisterProtoHook(cmd_msiv, "MSIV", "Manage Sieve scripts"); CtdlRegisterRoomHook(serv_sieve_room); CtdlRegisterSessionHook(perform_sieve_processing, EVT_HOUSE, PRIO_HOUSE + 10); CtdlRegisterCleanupHook(cleanup_sieve); } /* return our module name for the log */ return "sieve"; } citadel-902/modules/smtp/000077500000000000000000000000001271512031400154225ustar00rootroot00000000000000citadel-902/modules/smtp/serv_smtp.c000066400000000000000000000744761271512031400176320ustar00rootroot00000000000000/* * This module is an SMTP and ESMTP server for the Citadel system. * It is compliant with all of the following: * * RFC 821 - Simple Mail Transfer Protocol * RFC 876 - Survey of SMTP Implementations * RFC 1047 - Duplicate messages and SMTP * RFC 1652 - 8 bit MIME * RFC 1869 - Extended Simple Mail Transfer Protocol * RFC 1870 - SMTP Service Extension for Message Size Declaration * RFC 2033 - Local Mail Transfer Protocol * RFC 2197 - SMTP Service Extension for Command Pipelining * RFC 2476 - Message Submission * RFC 2487 - SMTP Service Extension for Secure SMTP over TLS * RFC 2554 - SMTP Service Extension for Authentication * RFC 2821 - Simple Mail Transfer Protocol * RFC 2822 - Internet Message Format * RFC 2920 - SMTP Service Extension for Command Pipelining * * The VRFY and EXPN commands have been removed from this implementation * because nobody uses these commands anymore, except for spammers. * * Copyright (c) 1998-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "room_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "smtp_util.h" enum { /* Command states for login authentication */ smtp_command, smtp_user, smtp_password, smtp_plain }; enum SMTP_FLAGS { HELO, EHLO, LHLO }; typedef void (*smtp_handler)(long offest, long Flags); typedef struct _smtp_handler_hook { smtp_handler h; int Flags; } smtp_handler_hook; int EnableSMTPLog = 0; #define SMTPLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (EnableSMTPLog != 0)) #define SMTP_syslog(LEVEL, FORMAT, ...) \ SMTPLOG(LEVEL) syslog(LEVEL, \ "%s CC[%d]: " FORMAT, IOSTR, CCCID, __VA_ARGS__) #define SMTPM_syslog(LEVEL, FORMAT) \ SMTPLOG(LEVEL) syslog(LEVEL, \ "%s CC[%d]: " FORMAT, IOSTR, CCCID); HashList *SMTPCmds = NULL; #define MaxSMTPCmdLen 10 #define RegisterSmtpCMD(First, H, Flags) \ registerSmtpCMD(HKEY(First), H, Flags) void registerSmtpCMD(const char *First, long FLen, smtp_handler H, int Flags) { smtp_handler_hook *h; if (FLen >= MaxSMTPCmdLen) cit_panic_backtrace (0); h = (smtp_handler_hook*) malloc(sizeof(smtp_handler_hook)); memset(h, 0, sizeof(smtp_handler_hook)); h->Flags = Flags; h->h = H; Put(SMTPCmds, First, FLen, h, NULL); } void smtp_cleanup(void) { DeleteHash(&SMTPCmds); } /* * Here's where our SMTP session begins its happy day. */ void smtp_greeting(int is_msa) { citsmtp *sSMTP; char message_to_spammer[1024]; strcpy(CC->cs_clientname, "SMTP session"); CC->internal_pgm = 1; CC->cs_flags |= CS_STEALTH; CC->session_specific_data = malloc(sizeof(citsmtp)); memset(SMTP, 0, sizeof(citsmtp)); sSMTP = SMTP; sSMTP->is_msa = is_msa; sSMTP->Cmd = NewStrBufPlain(NULL, SIZ); sSMTP->helo_node = NewStrBuf(); sSMTP->from = NewStrBufPlain(NULL, SIZ); sSMTP->recipients = NewStrBufPlain(NULL, SIZ); sSMTP->OneRcpt = NewStrBufPlain(NULL, SIZ); sSMTP->preferred_sender_email = NULL; sSMTP->preferred_sender_name = NULL; /* If this config option is set, reject connections from problem * addresses immediately instead of after they execute a RCPT */ if ( (CtdlGetConfigInt("c_rbl_at_greeting")) && (sSMTP->is_msa == 0) ) { if (rbl_check(message_to_spammer)) { if (server_shutting_down) cprintf("421 %s\r\n", message_to_spammer); else cprintf("550 %s\r\n", message_to_spammer); CC->kill_me = KILLME_SPAMMER; /* no need to free_recipients(valid), it's not allocated yet */ return; } } /* Otherwise we're either clean or we check later. */ if (CC->nologin==1) { cprintf("451 Too many connections are already open; please try again later.\r\n"); CC->kill_me = KILLME_MAX_SESSIONS_EXCEEDED; /* no need to free_recipients(valid), it's not allocated yet */ return; } /* Note: the FQDN *must* appear as the first thing after the 220 code. * Some clients (including citmail.c) depend on it being there. */ cprintf("220 %s ESMTP Citadel server ready.\r\n", CtdlGetConfigStr("c_fqdn")); } /* * SMTPS is just like SMTP, except it goes crypto right away. */ void smtps_greeting(void) { CtdlModuleStartCryptoMsgs(NULL, NULL, NULL); #ifdef HAVE_OPENSSL if (!CC->redirect_ssl) CC->kill_me = KILLME_NO_CRYPTO; /* kill session if no crypto */ #endif smtp_greeting(0); } /* * SMTP MSA port requires authentication. */ void smtp_msa_greeting(void) { smtp_greeting(1); } /* * LMTP is like SMTP but with some extra bonus footage added. */ void lmtp_greeting(void) { smtp_greeting(0); SMTP->is_lmtp = 1; } /* * Generic SMTP MTA greeting */ void smtp_mta_greeting(void) { smtp_greeting(0); } /* * We also have an unfiltered LMTP socket that bypasses spam filters. */ void lmtp_unfiltered_greeting(void) { citsmtp *sSMTP; smtp_greeting(0); sSMTP = SMTP; sSMTP->is_lmtp = 1; sSMTP->is_unfiltered = 1; } /* * Login greeting common to all auth methods */ void smtp_auth_greeting(long offset, long Flags) { struct CitContext *CCC = CC; cprintf("235 Hello, %s\r\n", CCC->user.fullname); SMTP_syslog(LOG_NOTICE, "SMTP authenticated %s", CCC->user.fullname); CCC->internal_pgm = 0; CCC->cs_flags &= ~CS_STEALTH; } /* * Implement HELO and EHLO commands. * * which_command: 0=HELO, 1=EHLO, 2=LHLO */ void smtp_hello(long offset, long which_command) { struct CitContext *CCC = CC; citsmtp *sSMTP = SMTP; StrBufAppendBuf (sSMTP->helo_node, sSMTP->Cmd, offset); if ( (which_command != LHLO) && (sSMTP->is_lmtp) ) { cprintf("500 Only LHLO is allowed when running LMTP\r\n"); return; } if ( (which_command == LHLO) && (sSMTP->is_lmtp == 0) ) { cprintf("500 LHLO is only allowed when running LMTP\r\n"); return; } if (which_command == HELO) { cprintf("250 Hello %s (%s [%s])\r\n", ChrPtr(sSMTP->helo_node), CCC->cs_host, CCC->cs_addr ); } else { if (which_command == EHLO) { cprintf("250-Hello %s (%s [%s])\r\n", ChrPtr(sSMTP->helo_node), CCC->cs_host, CCC->cs_addr ); } else { cprintf("250-Greetings and joyous salutations.\r\n"); } cprintf("250-HELP\r\n"); cprintf("250-SIZE %ld\r\n", CtdlGetConfigLong("c_maxmsglen")); #ifdef HAVE_OPENSSL /* * Offer TLS, but only if TLS is not already active. * Furthermore, only offer TLS when running on * the SMTP-MSA port, not on the SMTP-MTA port, due to * questionable reliability of TLS in certain sending MTA's. */ if ( (!CCC->redirect_ssl) && (sSMTP->is_msa) ) { cprintf("250-STARTTLS\r\n"); } #endif /* HAVE_OPENSSL */ cprintf("250-AUTH LOGIN PLAIN\r\n" "250-AUTH=LOGIN PLAIN\r\n" "250 8BITMIME\r\n" ); } } /* * Backend function for smtp_webcit_preferences_hack(). * Look at a message and determine if it's the preferences file. */ void smtp_webcit_preferences_hack_backend(long msgnum, void *userdata) { struct CtdlMessage *msg; char **webcit_conf = (char **) userdata; if (*webcit_conf) { return; // already got it } msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { return; } if ( !CM_IsEmpty(msg, eMsgSubject) && (!strcasecmp(msg->cm_fields[eMsgSubject], "__ WebCit Preferences __"))) { /* This is it! Change ownership of the message text so it doesn't get freed. */ *webcit_conf = (char *)msg->cm_fields[eMesageText]; msg->cm_fields[eMesageText] = NULL; } CM_Free(msg); } /* * The configuration item for the user's preferred display name for outgoing email is, unfortunately, * stored in the account's WebCit configuration. We have to fetch it now. */ void smtp_webcit_preferences_hack(void) { struct CitContext *CCC = CC; char config_roomname[ROOMNAMELEN]; char *webcit_conf = NULL; citsmtp *sSMTP = SMTP; snprintf(config_roomname, sizeof config_roomname, "%010ld.%s", CCC->user.usernum, USERCONFIGROOM); if (CtdlGetRoom(&CCC->room, config_roomname) != 0) { return; } /* * Find the WebCit configuration message */ CtdlForEachMessage(MSGS_ALL, 1, NULL, NULL, NULL, smtp_webcit_preferences_hack_backend, (void *)&webcit_conf); if (!webcit_conf) { return; } /* Parse the webcit configuration and attempt to do something useful with it */ char *str = webcit_conf; char *saveptr = str; char *this_line = NULL; while (this_line = strtok_r(str, "\n", &saveptr), this_line != NULL) { str = NULL; if (!strncasecmp(this_line, "defaultfrom|", 12)) { sSMTP->preferred_sender_email = NewStrBufPlain(&this_line[12], -1); } if (!strncasecmp(this_line, "defaultname|", 12)) { sSMTP->preferred_sender_name = NewStrBufPlain(&this_line[12], -1); } if ((!strncasecmp(this_line, "defaultname|", 12)) && (sSMTP->preferred_sender_name == NULL)) { sSMTP->preferred_sender_name = NewStrBufPlain(&this_line[12], -1); } } free(webcit_conf); } /* * Implement HELP command. */ void smtp_help(long offset, long Flags) { cprintf("214 RTFM http://www.ietf.org/rfc/rfc2821.txt\r\n"); } /* * */ void smtp_get_user(long offset) { char buf[SIZ]; citsmtp *sSMTP = SMTP; StrBufDecodeBase64(sSMTP->Cmd); if (CtdlLoginExistingUser(NULL, ChrPtr(sSMTP->Cmd)) == login_ok) { size_t len = CtdlEncodeBase64(buf, "Password:", 9, 0); if (buf[len - 1] == '\n') { buf[len - 1] = '\0'; } cprintf("334 %s\r\n", buf); sSMTP->command_state = smtp_password; } else { cprintf("500 No such user.\r\n"); sSMTP->command_state = smtp_command; } } /* * */ void smtp_get_pass(long offset, long Flags) { struct CitContext *CCC = CC; citsmtp *sSMTP = SMTP; char password[SIZ]; memset(password, 0, sizeof(password)); StrBufDecodeBase64(sSMTP->Cmd); SMTP_syslog(LOG_DEBUG, "Trying <%s>", password); if (CtdlTryPassword(SKEY(sSMTP->Cmd)) == pass_ok) { smtp_auth_greeting(offset, Flags); } else { cprintf("535 Authentication failed.\r\n"); } sSMTP->command_state = smtp_command; } /* * Back end for PLAIN auth method (either inline or multistate) */ void smtp_try_plain(long offset, long Flags) { citsmtp *sSMTP = SMTP; const char*decoded_authstring; char ident[256] = ""; char user[256] = ""; char pass[256] = ""; int result; long decoded_len; long len = 0; long plen = 0; memset(pass, 0, sizeof(pass)); decoded_len = StrBufDecodeBase64(sSMTP->Cmd); if (decoded_len > 0) { decoded_authstring = ChrPtr(sSMTP->Cmd); len = safestrncpy(ident, decoded_authstring, sizeof ident); decoded_len -= len - 1; decoded_authstring += len + 1; if (decoded_len > 0) { len = safestrncpy(user, decoded_authstring, sizeof user); decoded_authstring += len + 1; decoded_len -= len - 1; } if (decoded_len > 0) { plen = safestrncpy(pass, decoded_authstring, sizeof pass); if (plen < 0) plen = sizeof(pass) - 1; } } sSMTP->command_state = smtp_command; if (!IsEmptyStr(ident)) { result = CtdlLoginExistingUser(user, ident); } else { result = CtdlLoginExistingUser(NULL, user); } if (result == login_ok) { if (CtdlTryPassword(pass, plen) == pass_ok) { smtp_webcit_preferences_hack(); smtp_auth_greeting(offset, Flags); return; } } cprintf("504 Authentication failed.\r\n"); } /* * Attempt to perform authenticated SMTP */ void smtp_auth(long offset, long Flags) { struct CitContext *CCC = CC; citsmtp *sSMTP = SMTP; char username_prompt[64]; char method[64]; char encoded_authstring[1024]; if (CCC->logged_in) { cprintf("504 Already logged in.\r\n"); return; } extract_token(method, ChrPtr(sSMTP->Cmd) + offset, 0, ' ', sizeof method); if (!strncasecmp(method, "login", 5) ) { if (StrLength(sSMTP->Cmd) - offset >= 7) { smtp_get_user(6); } else { size_t len = CtdlEncodeBase64(username_prompt, "Username:", 9, 0); if (username_prompt[len - 1] == '\n') { username_prompt[len - 1] = '\0'; } cprintf("334 %s\r\n", username_prompt); sSMTP->command_state = smtp_user; } return; } if (!strncasecmp(method, "plain", 5) ) { long len; if (num_tokens(ChrPtr(sSMTP->Cmd) + offset, ' ') < 2) { cprintf("334 \r\n"); SMTP->command_state = smtp_plain; return; } len = extract_token(encoded_authstring, ChrPtr(sSMTP->Cmd) + offset, 1, ' ', sizeof encoded_authstring); StrBufPlain(sSMTP->Cmd, encoded_authstring, len); smtp_try_plain(0, Flags); return; } if (strncasecmp(method, "login", 5) ) { cprintf("504 Unknown authentication method.\r\n"); return; } } /* * Implements the RSET (reset state) command. * Currently this just zeroes out the state buffer. If pointers to data * allocated with malloc() are ever placed in the state buffer, we have to * be sure to free() them first! * * Set do_response to nonzero to output the SMTP RSET response code. */ void smtp_rset(long offset, long do_response) { citsmtp *sSMTP = SMTP; /* * Our entire SMTP state is discarded when a RSET command is issued, * but we need to preserve this one little piece of information, so * we save it for later. */ FlushStrBuf(sSMTP->Cmd); FlushStrBuf(sSMTP->helo_node); FlushStrBuf(sSMTP->from); FlushStrBuf(sSMTP->recipients); FlushStrBuf(sSMTP->OneRcpt); sSMTP->command_state = 0; sSMTP->number_of_recipients = 0; sSMTP->delivery_mode = 0; sSMTP->message_originated_locally = 0; sSMTP->is_msa = 0; /* * we must remember is_lmtp & is_unfiltered. */ /* * It is somewhat ambiguous whether we want to log out when a RSET * command is issued. Here's the code to do it. It is commented out * because some clients (such as Pine) issue RSET commands before * each message, but still expect to be logged in. * * if (CC->logged_in) { * logout(CC); * } */ if (do_response) { cprintf("250 Zap!\r\n"); } } /* * Clear out the portions of the state buffer that need to be cleared out * after the DATA command finishes. */ void smtp_data_clear(long offset, long flags) { citsmtp *sSMTP = SMTP; FlushStrBuf(sSMTP->from); FlushStrBuf(sSMTP->recipients); FlushStrBuf(sSMTP->OneRcpt); sSMTP->number_of_recipients = 0; sSMTP->delivery_mode = 0; sSMTP->message_originated_locally = 0; } /* * Implements the "MAIL FROM:" command */ void smtp_mail(long offset, long flags) { char user[SIZ]; char node[SIZ]; char name[SIZ]; struct CitContext *CCC = CC; citsmtp *sSMTP = SMTP; if (StrLength(sSMTP->from) > 0) { cprintf("503 Only one sender permitted\r\n"); return; } if (strncasecmp(ChrPtr(sSMTP->Cmd) + offset, "From:", 5)) { cprintf("501 Syntax error\r\n"); return; } StrBufAppendBuf(sSMTP->from, sSMTP->Cmd, offset); StrBufTrim(sSMTP->from); if (strchr(ChrPtr(sSMTP->from), '<') != NULL) { StrBufStripAllBut(sSMTP->from, '<', '>'); } /* We used to reject empty sender names, until it was brought to our * attention that RFC1123 5.2.9 requires that this be allowed. So now * we allow it, but replace the empty string with a fake * address so we don't have to contend with the empty string causing * other code to fail when it's expecting something there. */ if (StrLength(sSMTP->from) == 0) { StrBufPlain(sSMTP->from, HKEY("someone@example.com")); } /* If this SMTP connection is from a logged-in user, force the 'from' * to be the user's Internet e-mail address as Citadel knows it. */ if (CCC->logged_in) { StrBufPlain(sSMTP->from, CCC->cs_inet_email, -1); cprintf("250 Sender ok <%s>\r\n", ChrPtr(sSMTP->from)); sSMTP->message_originated_locally = 1; return; } else if (sSMTP->is_lmtp) { /* Bypass forgery checking for LMTP */ } /* Otherwise, make sure outsiders aren't trying to forge mail from * this system (unless, of course, c_allow_spoofing is enabled) */ else if (CtdlGetConfigInt("c_allow_spoofing") == 0) { process_rfc822_addr(ChrPtr(sSMTP->from), user, node, name); SMTP_syslog(LOG_DEBUG, "Claimed envelope sender is '%s' == '%s' @ '%s' ('%s')", ChrPtr(sSMTP->from), user, node, name ); if (CtdlHostAlias(node) != hostalias_nomatch) { cprintf("550 You must log in to send mail from %s\r\n", node); FlushStrBuf(sSMTP->from); SMTP_syslog(LOG_DEBUG, "Rejecting unauthenticated mail from %s", node); return; } } cprintf("250 Sender ok\r\n"); } /* * Implements the "RCPT To:" command */ void smtp_rcpt(long offset, long flags) { struct CitContext *CCC = CC; char message_to_spammer[SIZ]; recptypes *valid = NULL; citsmtp *sSMTP = SMTP; if (StrLength(sSMTP->from) == 0) { cprintf("503 Need MAIL before RCPT\r\n"); return; } if (strncasecmp(ChrPtr(sSMTP->Cmd) + offset, "To:", 3)) { cprintf("501 Syntax error\r\n"); return; } if ( (sSMTP->is_msa) && (!CCC->logged_in) ) { cprintf("550 You must log in to send mail on this port.\r\n"); FlushStrBuf(sSMTP->from); return; } FlushStrBuf(sSMTP->OneRcpt); StrBufAppendBuf(sSMTP->OneRcpt, sSMTP->Cmd, offset + 3); StrBufTrim(sSMTP->OneRcpt); StrBufStripAllBut(sSMTP->OneRcpt, '<', '>'); if ( (StrLength(sSMTP->OneRcpt) + StrLength(sSMTP->recipients)) >= SIZ) { cprintf("452 Too many recipients\r\n"); return; } /* RBL check */ if ( (!CCC->logged_in) /* Don't RBL authenticated users */ && (!sSMTP->is_lmtp) ) { /* Don't RBL LMTP clients */ if (CtdlGetConfigInt("c_rbl_at_greeting") == 0) { /* Don't RBL again if we already did it */ if (rbl_check(message_to_spammer)) { if (server_shutting_down) cprintf("421 %s\r\n", message_to_spammer); else cprintf("550 %s\r\n", message_to_spammer); /* no need to free_recipients(valid), it's not allocated yet */ return; } } } valid = validate_recipients( ChrPtr(sSMTP->OneRcpt), smtp_get_Recipients(), (sSMTP->is_lmtp)? POST_LMTP: (CCC->logged_in)? POST_LOGGED_IN: POST_EXTERNAL ); if (valid->num_error != 0) { cprintf("550 %s\r\n", valid->errormsg); free_recipients(valid); return; } if (valid->num_internet > 0) { if (CCC->logged_in) { if (CtdlCheckInternetMailPermission(&CCC->user)==0) { cprintf("551 <%s> - you do not have permission to send Internet mail\r\n", ChrPtr(sSMTP->OneRcpt)); free_recipients(valid); return; } } } if (valid->num_internet > 0) { if ( (sSMTP->message_originated_locally == 0) && (sSMTP->is_lmtp == 0) ) { cprintf("551 <%s> - relaying denied\r\n", ChrPtr(sSMTP->OneRcpt)); free_recipients(valid); return; } } cprintf("250 RCPT ok <%s>\r\n", ChrPtr(sSMTP->OneRcpt)); if (StrLength(sSMTP->recipients) > 0) { StrBufAppendBufPlain(sSMTP->recipients, HKEY(","), 0); } StrBufAppendBuf(sSMTP->recipients, sSMTP->OneRcpt, 0); sSMTP->number_of_recipients ++; if (valid != NULL) { free_recipients(valid); } } /* * Implements the DATA command */ void smtp_data(long offset, long flags) { struct CitContext *CCC = CC; StrBuf *body; StrBuf *defbody; struct CtdlMessage *msg = NULL; long msgnum = (-1L); char nowstamp[SIZ]; recptypes *valid; int scan_errors; int i; citsmtp *sSMTP = SMTP; if (StrLength(sSMTP->from) == 0) { cprintf("503 Need MAIL command first.\r\n"); return; } if (sSMTP->number_of_recipients < 1) { cprintf("503 Need RCPT command first.\r\n"); return; } cprintf("354 Transmit message now - terminate with '.' by itself\r\n"); datestring(nowstamp, sizeof nowstamp, time(NULL), DATESTRING_RFC822); defbody = NewStrBufPlain(NULL, SIZ); if (defbody != NULL) { if (sSMTP->is_lmtp && (CCC->cs_UDSclientUID != -1)) { StrBufPrintf( defbody, "Received: from %s (Citadel from userid %ld)\n" " by %s; %s\n", ChrPtr(sSMTP->helo_node), (long int) CCC->cs_UDSclientUID, CtdlGetConfigStr("c_fqdn"), nowstamp); } else { StrBufPrintf( defbody, "Received: from %s (%s [%s])\n" " by %s; %s\n", ChrPtr(sSMTP->helo_node), CCC->cs_host, CCC->cs_addr, CtdlGetConfigStr("c_fqdn"), nowstamp); } } body = CtdlReadMessageBodyBuf(HKEY("."), CtdlGetConfigLong("c_maxmsglen"), defbody, 1, NULL); FreeStrBuf(&defbody); if (body == NULL) { cprintf("550 Unable to save message: internal error.\r\n"); return; } SMTPM_syslog(LOG_DEBUG, "Converting message..."); msg = convert_internet_message_buf(&body); /* If the user is locally authenticated, FORCE the From: header to * show up as the real sender. Yes, this violates the RFC standard, * but IT MAKES SENSE. If you prefer strict RFC adherence over * common sense, you can disable this in the configuration. * * We also set the "message room name" ('O' field) to MAILROOM * (which is Mail> on most systems) to prevent it from getting set * to something ugly like "0000058008.Sent Items>" when the message * is read with a Citadel client. */ if ( (CCC->logged_in) && (CtdlGetConfigInt("c_rfc822_strict_from") != CFG_SMTP_FROM_NOFILTER) ) { int validemail = 0; if (!CM_IsEmpty(msg, erFc822Addr) && ((CtdlGetConfigInt("c_rfc822_strict_from") == CFG_SMTP_FROM_CORRECT) || (CtdlGetConfigInt("c_rfc822_strict_from") == CFG_SMTP_FROM_REJECT) ) ) { if (!IsEmptyStr(CCC->cs_inet_email)) validemail = strcmp(CCC->cs_inet_email, msg->cm_fields[erFc822Addr]) == 0; if ((!validemail) && (!IsEmptyStr(CCC->cs_inet_other_emails))) { int num_secondary_emails = 0; int i; num_secondary_emails = num_tokens(CCC->cs_inet_other_emails, '|'); for (i=0; i < num_secondary_emails && !validemail; ++i) { char buf[256]; extract_token(buf, CCC->cs_inet_other_emails,i,'|',sizeof CCC->cs_inet_other_emails); validemail = strcmp(buf, msg->cm_fields[erFc822Addr]) == 0; } } } if (!validemail && (CtdlGetConfigInt("c_rfc822_strict_from") == CFG_SMTP_FROM_REJECT)) { SMTP_syslog(LOG_ERR, "invalid sender '%s' - rejecting this message", msg->cm_fields[erFc822Addr]); cprintf("550 Invalid sender '%s' - rejecting this message.\r\n", msg->cm_fields[erFc822Addr]); return; } CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(msg, eHumanNode, CtdlGetConfigStr("c_humannode"), strlen(CtdlGetConfigStr("c_humannode"))); CM_SetField(msg, eOriginalRoom, HKEY(MAILROOM)); if (sSMTP->preferred_sender_name != NULL) CM_SetField(msg, eAuthor, SKEY(sSMTP->preferred_sender_name)); else CM_SetField(msg, eAuthor, CCC->user.fullname, strlen(CCC->user.fullname)); if (!validemail) { if (sSMTP->preferred_sender_email != NULL) CM_SetField(msg, erFc822Addr, SKEY(sSMTP->preferred_sender_email)); else CM_SetField(msg, erFc822Addr, CCC->cs_inet_email, strlen(CCC->cs_inet_email)); } } /* Set the "envelope from" address */ CM_SetField(msg, eMessagePath, SKEY(sSMTP->from)); /* Set the "envelope to" address */ CM_SetField(msg, eenVelopeTo, SKEY(sSMTP->recipients)); /* Submit the message into the Citadel system. */ valid = validate_recipients( ChrPtr(sSMTP->recipients), smtp_get_Recipients(), (sSMTP->is_lmtp)? POST_LMTP: (CCC->logged_in)? POST_LOGGED_IN: POST_EXTERNAL ); /* If there are modules that want to scan this message before final * submission (such as virus checkers or spam filters), call them now * and give them an opportunity to reject the message. */ if (sSMTP->is_unfiltered) { scan_errors = 0; } else { scan_errors = PerformMessageHooks(msg, valid, EVT_SMTPSCAN); } if (scan_errors > 0) { /* We don't want this message! */ if (CM_IsEmpty(msg, eErrorMsg)) { CM_SetField(msg, eErrorMsg, HKEY("Message rejected by filter")); } StrBufPrintf(sSMTP->OneRcpt, "550 %s\r\n", msg->cm_fields[eErrorMsg]); } else { /* Ok, we'll accept this message. */ msgnum = CtdlSubmitMsg(msg, valid, "", 0); if (msgnum > 0L) { StrBufPrintf(sSMTP->OneRcpt, "250 Message accepted.\r\n"); } else { StrBufPrintf(sSMTP->OneRcpt, "550 Internal delivery error\r\n"); } } /* For SMTP and ESMTP, just print the result message. For LMTP, we * have to print one result message for each recipient. Since there * is nothing in Citadel which would cause different recipients to * have different results, we can get away with just spitting out the * same message once for each recipient. */ if (sSMTP->is_lmtp) { for (i=0; inumber_of_recipients; ++i) { cputbuf(sSMTP->OneRcpt); } } else { cputbuf(sSMTP->OneRcpt); } /* Write something to the syslog(which may or may not be where the * rest of the Citadel logs are going; some sysadmins want LOG_MAIL). */ SMTP_syslog((LOG_MAIL | LOG_INFO), "%ld: from=<%s>, nrcpts=%d, relay=%s [%s], stat=%s", msgnum, ChrPtr(sSMTP->from), sSMTP->number_of_recipients, CCC->cs_host, CCC->cs_addr, ChrPtr(sSMTP->OneRcpt) ); /* Clean up */ CM_Free(msg); free_recipients(valid); smtp_data_clear(0, 0); /* clear out the buffers now */ } /* * implements the STARTTLS command */ void smtp_starttls(long offset, long flags) { char ok_response[SIZ]; char nosup_response[SIZ]; char error_response[SIZ]; sprintf(ok_response, "220 Begin TLS negotiation now\r\n"); sprintf(nosup_response, "554 TLS not supported here\r\n"); sprintf(error_response, "554 Internal error\r\n"); CtdlModuleStartCryptoMsgs(ok_response, nosup_response, error_response); smtp_rset(0, 0); } /* * Main command loop for SMTP server sessions. */ void smtp_command_loop(void) { static const ConstStr AuthPlainStr = {HKEY("AUTH PLAIN")}; struct CitContext *CCC = CC; citsmtp *sSMTP = SMTP; const char *pch, *pchs; long i; char CMD[MaxSMTPCmdLen + 1]; if (sSMTP == NULL) { SMTPM_syslog(LOG_EMERG, "Session SMTP data is null. WTF? We will crash now."); return cit_panic_backtrace (0); } time(&CCC->lastcmd); if (CtdlClientGetLine(sSMTP->Cmd) < 1) { SMTPM_syslog(LOG_CRIT, "SMTP: client disconnected: ending session."); CC->kill_me = KILLME_CLIENT_DISCONNECTED; return; } SMTP_syslog(LOG_DEBUG, "SMTP server: %s", ChrPtr(sSMTP->Cmd)); if (sSMTP->command_state == smtp_user) { if (!strncmp(ChrPtr(sSMTP->Cmd), AuthPlainStr.Key, AuthPlainStr.len)) smtp_try_plain(0, 0); else smtp_get_user(0); return; } else if (sSMTP->command_state == smtp_password) { smtp_get_pass(0, 0); return; } else if (sSMTP->command_state == smtp_plain) { smtp_try_plain(0, 0); return; } pchs = pch = ChrPtr(sSMTP->Cmd); i = 0; while ((*pch != '\0') && (!isblank(*pch)) && (pch - pchs <= MaxSMTPCmdLen)) { CMD[i] = toupper(*pch); pch ++; i++; } CMD[i] = '\0'; if ((*pch == '\0') || (isblank(*pch))) { void *v; if (GetHash(SMTPCmds, CMD, i, &v) && (v != NULL)) { smtp_handler_hook *h = (smtp_handler_hook*) v; if (isblank(pchs[i])) i++; h->h(i, h->Flags); return; } } cprintf("502 I'm afraid I can't do that.\r\n"); } void smtp_noop(long offest, long Flags) { cprintf("250 NOOP\r\n"); } void smtp_quit(long offest, long Flags) { cprintf("221 Goodbye...\r\n"); CC->kill_me = KILLME_CLIENT_LOGGED_OUT; } /*****************************************************************************/ /* MODULE INITIALIZATION STUFF */ /*****************************************************************************/ /* * This cleanup function blows away the temporary memory used by * the SMTP server. */ void smtp_cleanup_function(void) { citsmtp *sSMTP = SMTP; struct CitContext *CCC = CC; /* Don't do this stuff if this is not an SMTP session! */ if (CCC->h_command_function != smtp_command_loop) return; SMTPM_syslog(LOG_DEBUG, "Performing SMTP cleanup hook"); FreeStrBuf(&sSMTP->Cmd); FreeStrBuf(&sSMTP->helo_node); FreeStrBuf(&sSMTP->from); FreeStrBuf(&sSMTP->recipients); FreeStrBuf(&sSMTP->OneRcpt); FreeStrBuf(&sSMTP->preferred_sender_email); FreeStrBuf(&sSMTP->preferred_sender_name); free(sSMTP); } const char *CitadelServiceSMTP_MTA="SMTP-MTA"; const char *CitadelServiceSMTPS_MTA="SMTPs-MTA"; const char *CitadelServiceSMTP_MSA="SMTP-MSA"; const char *CitadelServiceSMTP_LMTP="LMTP"; const char *CitadelServiceSMTP_LMTP_UNF="LMTP-UnF"; void DebugSMTPEnable(const int n) { EnableSMTPLog = n; } CTDL_MODULE_INIT(smtp) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("SMTP"), DebugSMTPEnable, &EnableSMTPLog); SMTPCmds = NewHash(1, NULL); RegisterSmtpCMD("AUTH", smtp_auth, 0); RegisterSmtpCMD("DATA", smtp_data, 0); RegisterSmtpCMD("HELO", smtp_hello, HELO); RegisterSmtpCMD("EHLO", smtp_hello, EHLO); RegisterSmtpCMD("LHLO", smtp_hello, LHLO); RegisterSmtpCMD("HELP", smtp_help, 0); RegisterSmtpCMD("MAIL", smtp_mail, 0); RegisterSmtpCMD("NOOP", smtp_noop, 0); RegisterSmtpCMD("QUIT", smtp_quit, 0); RegisterSmtpCMD("RCPT", smtp_rcpt, 0); RegisterSmtpCMD("RSET", smtp_rset, 1); #ifdef HAVE_OPENSSL RegisterSmtpCMD("STARTTLS", smtp_starttls, 0); #endif CtdlRegisterServiceHook(CtdlGetConfigInt("c_smtp_port"), /* SMTP MTA */ NULL, smtp_mta_greeting, smtp_command_loop, NULL, CitadelServiceSMTP_MTA); #ifdef HAVE_OPENSSL CtdlRegisterServiceHook(CtdlGetConfigInt("c_smtps_port"), /* SMTPS MTA */ NULL, smtps_greeting, smtp_command_loop, NULL, CitadelServiceSMTPS_MTA); #endif CtdlRegisterServiceHook(CtdlGetConfigInt("c_msa_port"), /* SMTP MSA */ NULL, smtp_msa_greeting, smtp_command_loop, NULL, CitadelServiceSMTP_MSA); CtdlRegisterServiceHook(0, /* local LMTP */ file_lmtp_socket, lmtp_greeting, smtp_command_loop, NULL, CitadelServiceSMTP_LMTP); CtdlRegisterServiceHook(0, /* local LMTP */ file_lmtp_unfiltered_socket, lmtp_unfiltered_greeting, smtp_command_loop, NULL, CitadelServiceSMTP_LMTP_UNF); CtdlRegisterCleanupHook(smtp_cleanup); CtdlRegisterSessionHook(smtp_cleanup_function, EVT_STOP, PRIO_STOP + 250); } /* return our module name for the log */ return "smtp"; } citadel-902/modules/smtp/serv_smtpeventclient.c000066400000000000000000000551231271512031400220570ustar00rootroot00000000000000/* * This module is an SMTP and ESMTP implementation for the Citadel system. * It is compliant with all of the following: * * RFC 821 - Simple Mail Transfer Protocol * RFC 876 - Survey of SMTP Implementations * RFC 1047 - Duplicate messages and SMTP * RFC 1652 - 8 bit MIME * RFC 1869 - Extended Simple Mail Transfer Protocol * RFC 1870 - SMTP Service Extension for Message Size Declaration * RFC 2033 - Local Mail Transfer Protocol * RFC 2197 - SMTP Service Extension for Command Pipelining * RFC 2476 - Message Submission * RFC 2487 - SMTP Service Extension for Secure SMTP over TLS * RFC 2554 - SMTP Service Extension for Authentication * RFC 2821 - Simple Mail Transfer Protocol * RFC 2822 - Internet Message Format * RFC 2920 - SMTP Service Extension for Command Pipelining * * The VRFY and EXPN commands have been removed from this implementation * because nobody uses these commands anymore, except for spammers. * * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "smtp_util.h" #include "event_client.h" #include "smtpqueue.h" #include "smtp_clienthandlers.h" ConstStr SMTPStates[] = { {HKEY("looking up mx - record")}, {HKEY("evaluating what to do next")}, {HKEY("looking up a - record")}, {HKEY("looking up aaaa - record")}, {HKEY("connecting remote")}, {HKEY("smtp conversation ongoing")}, {HKEY("smtp sending maildata")}, {HKEY("smtp sending done")}, {HKEY("smtp successfully finished")}, {HKEY("failed one attempt")}, {HKEY("failed temporarily")}, {HKEY("failed permanently")} }; void SetSMTPState(AsyncIO *IO, smtpstate State) { CitContext* CCC = IO->CitContext; if (CCC != NULL) memcpy(CCC->cs_clientname, SMTPStates[State].Key, SMTPStates[State].len + 1); } int SMTPClientDebugEnabled = 0; void DeleteSmtpOutMsg(void *v) { SmtpOutMsg *Msg = v; AsyncIO *IO = &Msg->IO; EV_syslog(LOG_DEBUG, "%s Exit\n", __FUNCTION__); /* these are kept in our own space and free'd below */ Msg->IO.ConnectMe = NULL; ares_free_data(Msg->AllMX); if (Msg->HostLookup.VParsedDNSReply != NULL) Msg->HostLookup.DNSReplyFree(Msg->HostLookup.VParsedDNSReply); FreeURL(&Msg->Relay); FreeStrBuf(&Msg->msgtext); FreeStrBuf(&Msg->MultiLineBuf); FreeAsyncIOContents(&Msg->IO); memset (Msg, 0, sizeof(SmtpOutMsg)); /* just to be shure... */ free(Msg); } eNextState SMTP_C_Shutdown(AsyncIO *IO); eNextState SMTP_C_Timeout(AsyncIO *IO); eNextState SMTP_C_ConnFail(AsyncIO *IO); eNextState SMTP_C_DispatchReadDone(AsyncIO *IO); eNextState SMTP_C_DispatchWriteDone(AsyncIO *IO); eNextState SMTP_C_DNSFail(AsyncIO *IO); eNextState SMTP_C_Terminate(AsyncIO *IO); eNextState SMTP_C_TerminateDB(AsyncIO *IO); eReadState SMTP_C_ReadServerStatus(AsyncIO *IO); eNextState mx_connect_ip(AsyncIO *IO); eNextState get_one_mx_host_ip(AsyncIO *IO); /****************************************************************************** * So, we're finished with sending (regardless of success or failure) * * This Message might be referenced by several Queue-Items, if we're the last,* * we need to free the memory and send bounce messages (on terminal failure) * * else we just free our SMTP-Message struct. * ******************************************************************************/ eNextState FinalizeMessageSend_DB(AsyncIO *IO) { const char *Status; SmtpOutMsg *Msg = IO->Data; StrBuf *StatusMessage; if (Msg->MyQEntry->AllStatusMessages != NULL) StatusMessage = Msg->MyQEntry->AllStatusMessages; else StatusMessage = Msg->MyQEntry->StatusMessage; if (Msg->MyQEntry->Status == 2) { SetSMTPState(IO, eSTMPfinished); Status = "Delivery successful."; } else if (Msg->MyQEntry->Status == 5) { SetSMTPState(IO, eSMTPFailTotal); Status = "Delivery failed permanently; giving up."; } else { SetSMTPState(IO, eSMTPFailTemporary); Status = "Delivery failed temporarily; will retry later."; } EVS_syslog(LOG_INFO, "%s Time[%fs] Recipient <%s> @ <%s> (%s) Status message: %s\n", Status, Msg->IO.Now - Msg->IO.StartIO, Msg->user, Msg->node, Msg->name, ChrPtr(StatusMessage)); Msg->IDestructQueItem = DecreaseQReference(Msg->MyQItem); Msg->nRemain = CountActiveQueueEntries(Msg->MyQItem, 0); if (Msg->MyQEntry->Active && !Msg->MyQEntry->StillActive && CheckQEntryIsBounce(Msg->MyQEntry)) { /* are we casue for a bounce mail? */ Msg->MyQItem->SendBounceMail |= (1<MyQEntry->Status); } if ((Msg->nRemain > 0) || Msg->IDestructQueItem) Msg->QMsgData = SerializeQueueItem(Msg->MyQItem); else Msg->QMsgData = NULL; /* * Uncompleted delivery instructions remain, so delete the old * instructions and replace with the updated ones. */ EVS_syslog(LOG_DEBUG, "%ld", Msg->MyQItem->QueMsgID); CtdlDeleteMessages(SMTP_SPOOLOUT_ROOM, &Msg->MyQItem->QueMsgID, 1, ""); Msg->MyQItem->QueMsgID = -1; if (Msg->IDestructQueItem) smtpq_do_bounce(Msg->MyQItem, Msg->msgtext, Msg->pCurrRelay); if (Msg->nRemain > 0) { struct CtdlMessage *msg; msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = FMT_RFC822; CM_SetAsFieldSB(msg, eMesageText, &Msg->QMsgData); CM_SetField(msg, eMsgSubject, HKEY("QMSG")); Msg->MyQItem->QueMsgID = CtdlSubmitMsg(msg, NULL, SMTP_SPOOLOUT_ROOM, QP_EADDR); EVS_syslog(LOG_DEBUG, "%ld", Msg->MyQItem->QueMsgID); CM_Free(msg); } else { CtdlDeleteMessages(SMTP_SPOOLOUT_ROOM, &Msg->MyQItem->MessageID, 1, ""); FreeStrBuf(&Msg->QMsgData); } RemoveContext(Msg->IO.CitContext); return eAbort; } eNextState Terminate(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; if (Msg->IDestructQueItem) RemoveQItem(Msg->MyQItem); DeleteSmtpOutMsg(Msg); return eAbort; } eNextState FinalizeMessageSend(SmtpOutMsg *Msg) { /* hand over to DB Queue */ return EventQueueDBOperation(&Msg->IO, FinalizeMessageSend_DB, 0); } eNextState FailOneAttempt(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; SetSMTPState(IO, eSTMPfailOne); if (Msg->MyQEntry->Status == 2) return eAbort; /* * possible ways here: * - connection timeout * - dns lookup failed */ StopClientWatchers(IO, 1); Msg->MyQEntry->nAttempt ++; if (Msg->MyQEntry->AllStatusMessages == NULL) Msg->MyQEntry->AllStatusMessages = NewStrBuf(); StrBufAppendPrintf(Msg->MyQEntry->AllStatusMessages, "%ld) ", Msg->MyQEntry->nAttempt); StrBufAppendBuf(Msg->MyQEntry->AllStatusMessages, Msg->MyQEntry->StatusMessage, 0); StrBufAppendBufPlain(Msg->MyQEntry->AllStatusMessages, HKEY("; "), 0); if (Msg->pCurrRelay != NULL) Msg->pCurrRelay = Msg->pCurrRelay->Next; if ((Msg->pCurrRelay != NULL) && !Msg->pCurrRelay->IsRelay && Msg->MyQItem->HaveRelay) { EVS_syslog(LOG_DEBUG, "%s Aborting; last relay failed.\n", __FUNCTION__); return FinalizeMessageSend(Msg); } if (Msg->pCurrRelay == NULL) { EVS_syslog(LOG_DEBUG, "%s Aborting\n", __FUNCTION__); return FinalizeMessageSend(Msg); } if (Msg->pCurrRelay->IsIP) { EVS_syslog(LOG_DEBUG, "%s connecting IP\n", __FUNCTION__); return mx_connect_ip(IO); } else { EVS_syslog(LOG_DEBUG, "%s resolving next MX Record\n", __FUNCTION__); return get_one_mx_host_ip(IO); } } void SetConnectStatus(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; char buf[256]; void *src; buf[0] = '\0'; if (IO->ConnectMe->IPv6) { src = &IO->ConnectMe->Addr.sin6_addr; } else { struct sockaddr_in *addr; addr = (struct sockaddr_in *)&IO->ConnectMe->Addr; src = &addr->sin_addr.s_addr; } inet_ntop((IO->ConnectMe->IPv6)?AF_INET6:AF_INET, src, buf, sizeof(buf)); if (Msg->mx_host == NULL) Msg->mx_host = ""; EVS_syslog(LOG_INFO, "connecting to %s [%s]:%d ...\n", Msg->mx_host, buf, Msg->IO.ConnectMe->Port); Msg->MyQEntry->Status = 4; StrBufPrintf(Msg->MyQEntry->StatusMessage, "Timeout while connecting %s [%s]:%d ", Msg->mx_host, buf, Msg->IO.ConnectMe->Port); Msg->IO.NextState = eConnect; } /***************************************************************************** * So we connect our Relay IP here. * *****************************************************************************/ eNextState mx_connect_ip(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; SetSMTPState(IO, eSTMPconnecting); EVS_syslog(LOG_DEBUG, "%s(%s)\n", __FUNCTION__, (Msg->IsRelay)? "Relay":"Remote"); IO->ConnectMe = Msg->pCurrRelay; Msg->State = eConnectMX; SetConnectStatus(IO); return EvConnectSock(IO, SMTP_C_ConnTimeout, SMTP_C_ReadTimeouts[0], 1); } eNextState get_one_mx_host_ip_done(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; struct hostent *hostent; IO->ConnectMe = Msg->pCurrRelay; QueryCbDone(IO); EVS_syslog(LOG_DEBUG, "%s Time[%fs]\n", __FUNCTION__, IO->Now - IO->DNS.Start); hostent = Msg->HostLookup.VParsedDNSReply; if ((Msg->HostLookup.DNSStatus == ARES_SUCCESS) && (hostent != NULL) ) { memset(&Msg->pCurrRelay->Addr, 0, sizeof(struct in6_addr)); if (Msg->pCurrRelay->IPv6) { memcpy(&Msg->pCurrRelay->Addr.sin6_addr.s6_addr, &hostent->h_addr_list[0], sizeof(struct in6_addr)); Msg->pCurrRelay->Addr.sin6_family = hostent->h_addrtype; Msg->pCurrRelay->Addr.sin6_port = htons(Msg->IO.ConnectMe->Port); } else { struct sockaddr_in *addr; /* * Bypass the ns lookup result like this: * IO->Addr.sin_addr.s_addr = inet_addr("127.0.0.1"); * addr->sin_addr.s_addr = * htonl((uint32_t)&hostent->h_addr_list[0]); */ addr = (struct sockaddr_in*) &Msg->pCurrRelay->Addr; memcpy(&addr->sin_addr.s_addr, hostent->h_addr_list[0], sizeof(uint32_t)); addr->sin_family = hostent->h_addrtype; addr->sin_port = htons(Msg->IO.ConnectMe->Port); } Msg->mx_host = Msg->pCurrRelay->Host; if (Msg->HostLookup.VParsedDNSReply != NULL) { Msg->HostLookup.DNSReplyFree(Msg->HostLookup.VParsedDNSReply); Msg->HostLookup.VParsedDNSReply = NULL; } return mx_connect_ip(IO); } else { SetSMTPState(IO, eSTMPfailOne); if (Msg->HostLookup.VParsedDNSReply != NULL) { Msg->HostLookup.DNSReplyFree(Msg->HostLookup.VParsedDNSReply); Msg->HostLookup.VParsedDNSReply = NULL; } return FailOneAttempt(IO); } } eNextState get_one_mx_host_ip(AsyncIO *IO) { SmtpOutMsg * Msg = IO->Data; /* * here we start with the lookup of one host. it might be... * - the relay host *sigh* * - the direct hostname if there was no mx record * - one of the mx'es */ SetSMTPState(IO, (Msg->pCurrRelay->IPv6)?eSTMPalookup:eSTMPaaaalookup); EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); EVS_syslog(LOG_DEBUG, "looking up %s-Record %s : %d ...\n", (Msg->pCurrRelay->IPv6)? "aaaa": "a", Msg->pCurrRelay->Host, Msg->pCurrRelay->Port); if (!QueueQuery((Msg->pCurrRelay->IPv6)? ns_t_aaaa : ns_t_a, Msg->pCurrRelay->Host, &Msg->IO, &Msg->HostLookup, get_one_mx_host_ip_done)) { Msg->MyQEntry->Status = 5; StrBufPrintf(Msg->MyQEntry->StatusMessage, "No MX hosts found for <%s>", Msg->node); Msg->IO.NextState = eTerminateConnection; return IO->NextState; } IO->NextState = eReadDNSReply; return IO->NextState; } /***************************************************************************** * here we try to find out about the MX records for our recipients. * *****************************************************************************/ eNextState smtp_resolve_mx_record_done(AsyncIO *IO) { SmtpOutMsg * Msg = IO->Data; ParsedURL **pp; QueryCbDone(IO); EVS_syslog(LOG_DEBUG, "%s Time[%fs]\n", __FUNCTION__, IO->Now - IO->DNS.Start); pp = &Msg->Relay; while ((pp != NULL) && (*pp != NULL) && ((*pp)->Next != NULL)) pp = &(*pp)->Next; if ((IO->DNS.Query->DNSStatus == ARES_SUCCESS) && (IO->DNS.Query->VParsedDNSReply != NULL)) { /* ok, we found mx records. */ Msg->CurrMX = Msg->AllMX = IO->DNS.Query->VParsedDNSReply; while (Msg->CurrMX) { int i; for (i = 0; i < 2; i++) { ParsedURL *p; p = (ParsedURL*) malloc(sizeof(ParsedURL)); memset(p, 0, sizeof(ParsedURL)); p->Priority = Msg->CurrMX->priority; p->IsIP = 0; p->Port = DefaultMXPort; p->IPv6 = i == 1; p->Host = Msg->CurrMX->host; if (*pp == NULL) *pp = p; else { ParsedURL *ppp = *pp; while ((ppp->Next != NULL) && (ppp->Next->Priority <= p->Priority)) ppp = ppp->Next; if ((ppp == *pp) && (ppp->Priority > p->Priority)) { p->Next = *pp; *pp = p; } else { p->Next = ppp->Next; ppp->Next = p; } } } Msg->CurrMX = Msg->CurrMX->next; } Msg->CXFlags = Msg->CXFlags & F_HAVE_MX; } else { /* else fall back to the plain hostname */ int i; for (i = 0; i < 2; i++) { ParsedURL *p; p = (ParsedURL*) malloc(sizeof(ParsedURL)); memset(p, 0, sizeof(ParsedURL)); p->IsIP = 0; p->Port = DefaultMXPort; p->IPv6 = i == 1; p->Host = Msg->node; *pp = p; pp = &p->Next; } Msg->CXFlags = Msg->CXFlags & F_DIRECT; } if (Msg->MyQItem->FallBackHost != NULL) { Msg->MyQItem->FallBackHost->Next = *pp; *pp = Msg->MyQItem->FallBackHost; } Msg->pCurrRelay = Msg->Relay; return get_one_mx_host_ip(IO); } eNextState resolve_mx_records(AsyncIO *IO) { SmtpOutMsg * Msg = IO->Data; SetSMTPState(IO, eSTMPmxlookup); EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); /* start resolving MX records here. */ if (!QueueQuery(ns_t_mx, Msg->node, &Msg->IO, &Msg->MxLookup, smtp_resolve_mx_record_done)) { Msg->MyQEntry->Status = 5; StrBufPrintf(Msg->MyQEntry->StatusMessage, "No MX hosts found for <%s>", Msg->node); return IO->NextState; } Msg->IO.NextState = eReadDNSReply; return IO->NextState; } /****************************************************************************** * so, we're going to start a SMTP delivery. lets get it on. * ******************************************************************************/ SmtpOutMsg *new_smtp_outmsg(OneQueItem *MyQItem, MailQEntry *MyQEntry, int MsgCount) { SmtpOutMsg * Msg; Msg = (SmtpOutMsg *) malloc(sizeof(SmtpOutMsg)); if (Msg == NULL) return NULL; memset(Msg, 0, sizeof(SmtpOutMsg)); Msg->n = MsgCount; Msg->MyQEntry = MyQEntry; Msg->MyQItem = MyQItem; Msg->pCurrRelay = MyQItem->URL; InitIOStruct(&Msg->IO, Msg, eReadMessage, SMTP_C_ReadServerStatus, SMTP_C_DNSFail, SMTP_C_DispatchWriteDone, SMTP_C_DispatchReadDone, SMTP_C_Terminate, SMTP_C_TerminateDB, SMTP_C_ConnFail, SMTP_C_Timeout, SMTP_C_Shutdown); Msg->IO.ErrMsg = Msg->MyQEntry->StatusMessage; return Msg; } void smtp_try_one_queue_entry(OneQueItem *MyQItem, MailQEntry *MyQEntry, StrBuf *MsgText, /*KeepMsgText allows us to use MsgText as ours.*/ int KeepMsgText, int MsgCount) { SmtpOutMsg *Msg; SMTPC_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); Msg = new_smtp_outmsg(MyQItem, MyQEntry, MsgCount); if (Msg == NULL) { SMTPC_syslog(LOG_DEBUG, "%s Failed to alocate message context.\n", __FUNCTION__); if (KeepMsgText) FreeStrBuf (&MsgText); return; } if (KeepMsgText) Msg->msgtext = MsgText; else Msg->msgtext = NewStrBufDup(MsgText); if (smtp_resolve_recipients(Msg) && (!MyQItem->HaveRelay || (MyQItem->URL != NULL))) { safestrncpy( ((CitContext *)Msg->IO.CitContext)->cs_host, Msg->node, sizeof(((CitContext *) Msg->IO.CitContext)->cs_host)); SMTPC_syslog(LOG_DEBUG, "Starting: [%ld] <%s> CC <%d> \n", Msg->MyQItem->MessageID, ChrPtr(Msg->MyQEntry->Recipient), ((CitContext*)Msg->IO.CitContext)->cs_pid); if (Msg->pCurrRelay == NULL) { SetSMTPState(&Msg->IO, eSTMPmxlookup); QueueEventContext(&Msg->IO, resolve_mx_records); } else { /* oh... via relay host */ Msg->IsRelay = 1; if (Msg->pCurrRelay->IsIP) { SetSMTPState(&Msg->IO, eSTMPconnecting); QueueEventContext(&Msg->IO, mx_connect_ip); } else { SetSMTPState(&Msg->IO, eSTMPalookup); /* uneducated admin has chosen to add DNS to the equation... */ QueueEventContext(&Msg->IO, get_one_mx_host_ip); } } } else { SetSMTPState(&Msg->IO, eSMTPFailTotal); /* No recipients? well fail then. */ if (Msg->MyQEntry != NULL) { Msg->MyQEntry->Status = 5; if (StrLength(Msg->MyQEntry->StatusMessage) == 0) StrBufPlain(Msg->MyQEntry->StatusMessage, HKEY("Invalid Recipient!")); } FinalizeMessageSend_DB(&Msg->IO); DeleteSmtpOutMsg(Msg); } } /*****************************************************************************/ /* SMTP CLIENT DISPATCHER */ /*****************************************************************************/ void SMTPSetTimeout(eNextState NextTCPState, SmtpOutMsg *Msg) { double Timeout = 0.0; AsyncIO *IO = &Msg->IO; EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); switch (NextTCPState) { case eSendFile: case eSendReply: case eSendMore: Timeout = SMTP_C_SendTimeouts[Msg->State]; if (Msg->State == eDATABody) { /* if we're sending a huge message, * we need more time. */ Timeout += StrLength(Msg->msgtext) / 512; } break; case eReadMessage: Timeout = SMTP_C_ReadTimeouts[Msg->State]; if (Msg->State == eDATATerminateBody) { /* * some mailservers take a nap before accepting * the message content inspection and such. */ Timeout += StrLength(Msg->msgtext) / 512; } break; case eSendDNSQuery: case eReadDNSReply: case eDBQuery: case eReadFile: case eReadMore: case eReadPayload: case eConnect: case eTerminateConnection: case eAbort: return; } SetNextTimeout(&Msg->IO, Timeout); } eNextState SMTP_C_DispatchReadDone(AsyncIO *IO) { EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); SmtpOutMsg *Msg = IO->Data; eNextState rc; rc = ReadHandlers[Msg->State](Msg); if (rc != eAbort) { Msg->State++; SMTPSetTimeout(rc, Msg); } return rc; } eNextState SMTP_C_DispatchWriteDone(AsyncIO *IO) { EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); SmtpOutMsg *Msg = IO->Data; eNextState rc; rc = SendHandlers[Msg->State](Msg); SMTPSetTimeout(rc, Msg); return rc; } /*****************************************************************************/ /* SMTP CLIENT ERROR CATCHERS */ /*****************************************************************************/ eNextState SMTP_C_Terminate(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); return FinalizeMessageSend(Msg); } eNextState SMTP_C_TerminateDB(AsyncIO *IO) { EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); return Terminate(IO); } eNextState SMTP_C_Timeout(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; Msg->MyQEntry->Status = 4; EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); StrBufPrintf(IO->ErrMsg, "Timeout: %s while talking to %s", ReadErrors[Msg->State].Key, Msg->mx_host); if (Msg->State > eRCPT) return eAbort; else return FailOneAttempt(IO); } eNextState SMTP_C_ConnFail(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; Msg->MyQEntry->Status = 4; EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); StrBufPrintf(IO->ErrMsg, "Connection failure: %s while talking to %s", ReadErrors[Msg->State].Key, Msg->mx_host); return FailOneAttempt(IO); } eNextState SMTP_C_DNSFail(AsyncIO *IO) { SmtpOutMsg *Msg = IO->Data; Msg->MyQEntry->Status = 4; EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); return FailOneAttempt(IO); } eNextState SMTP_C_Shutdown(AsyncIO *IO) { EVS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); SmtpOutMsg *Msg = IO->Data; switch (IO->NextState) { case eSendDNSQuery: case eReadDNSReply: /* todo: abort c-ares */ case eConnect: case eSendReply: case eSendMore: case eSendFile: case eReadMessage: case eReadMore: case eReadPayload: case eReadFile: StopClientWatchers(IO, 1); break; case eDBQuery: break; case eTerminateConnection: case eAbort: break; } Msg->MyQEntry->Status = 3; StrBufPlain(Msg->MyQEntry->StatusMessage, HKEY("server shutdown during message submit.")); return FinalizeMessageSend(Msg); } /** * @brief lineread Handler; * understands when to read more SMTP lines, and when this is a one-lined reply. */ eReadState SMTP_C_ReadServerStatus(AsyncIO *IO) { eReadState Finished = eBufferNotEmpty; while (Finished == eBufferNotEmpty) { Finished = StrBufChunkSipLine(IO->IOBuf, &IO->RecvBuf); switch (Finished) { case eMustReadMore: /// read new from socket... return Finished; break; case eBufferNotEmpty: /* shouldn't happen... */ case eReadSuccess: /// done for now... if (StrLength(IO->IOBuf) < 4) continue; if (ChrPtr(IO->IOBuf)[3] == '-') { SmtpOutMsg *Msg; Msg = (SmtpOutMsg *)IO->Data; if (Msg->MultiLineBuf == NULL) Msg->MultiLineBuf = NewStrBuf (); else StrBufAppendBufPlain(Msg->MultiLineBuf, HKEY("\n"), 0); StrBufAppendBuf(Msg->MultiLineBuf, IO->IOBuf, 0); Finished = eBufferNotEmpty; } else return Finished; break; case eReadFail: /// WHUT? ///todo: shut down! break; } } return Finished; } void LogDebugEnableSMTPClient(const int n) { SMTPClientDebugEnabled = n; } CTDL_MODULE_INIT(smtp_eventclient) { if (!threading) CtdlRegisterDebugFlagHook(HKEY("smtpeventclient"), LogDebugEnableSMTPClient, &SMTPClientDebugEnabled); return "smtpeventclient"; } citadel-902/modules/smtp/serv_smtpqueue.c000066400000000000000000001042531271512031400206620ustar00rootroot00000000000000/* * This module is an SMTP and ESMTP implementation for the Citadel system. * It is compliant with all of the following: * * RFC 821 - Simple Mail Transfer Protocol * RFC 876 - Survey of SMTP Implementations * RFC 1047 - Duplicate messages and SMTP * RFC 1652 - 8 bit MIME * RFC 1869 - Extended Simple Mail Transfer Protocol * RFC 1870 - SMTP Service Extension for Message Size Declaration * RFC 2033 - Local Mail Transfer Protocol * RFC 2197 - SMTP Service Extension for Command Pipelining * RFC 2476 - Message Submission * RFC 2487 - SMTP Service Extension for Secure SMTP over TLS * RFC 2554 - SMTP Service Extension for Authentication * RFC 2821 - Simple Mail Transfer Protocol * RFC 2822 - Internet Message Format * RFC 2920 - SMTP Service Extension for Command Pipelining * * The VRFY and EXPN commands have been removed from this implementation * because nobody uses these commands anymore, except for spammers. * * Copyright (c) 1998-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "smtpqueue.h" #include "smtp_clienthandlers.h" #include "event_client.h" struct CitContext smtp_queue_CC; pthread_mutex_t ActiveQItemsLock; HashList *ActiveQItems = NULL; HashList *QItemHandlers = NULL; const unsigned short DefaultMXPort = 25; int max_sessions_for_outbound_smtp = 500; /* how many sessions might be active till we stop adding more smtp jobs */ int ndelay_count = 50; /* every n queued messages we will sleep... */ int delay_msec = 5000; /* this many seconds. */ static const long MaxRetry = SMTP_RETRY_INTERVAL * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2; int MsgCount = 0; int run_queue_now = 0; /* Set to 1 to ignore SMTP send retry times */ void RegisterQItemHandler(const char *Key, long Len, QItemHandler H) { QItemHandlerStruct *HS = (QItemHandlerStruct*)malloc(sizeof(QItemHandlerStruct)); HS->H = H; Put(QItemHandlers, Key, Len, HS, NULL); } void smtp_try_one_queue_entry(OneQueItem *MyQItem, MailQEntry *MyQEntry, StrBuf *MsgText, /* KeepMsgText allows us to use MsgText as ours. */ int KeepMsgText, int MsgCount, ParsedURL *RelayUrls); void smtp_evq_cleanup(void) { pthread_mutex_lock(&ActiveQItemsLock); DeleteHash(&QItemHandlers); DeleteHash(&ActiveQItems); pthread_mutex_unlock(&ActiveQItemsLock); pthread_setspecific(MyConKey, (void *)&smtp_queue_CC); /* citthread_mutex_destroy(&ActiveQItemsLock); TODO */ } int DecreaseQReference(OneQueItem *MyQItem) { int IDestructQueItem; pthread_mutex_lock(&ActiveQItemsLock); MyQItem->ActiveDeliveries--; IDestructQueItem = MyQItem->ActiveDeliveries == 0; pthread_mutex_unlock(&ActiveQItemsLock); return IDestructQueItem; } void DecreaseShutdownDeliveries(OneQueItem *MyQItem) { pthread_mutex_lock(&ActiveQItemsLock); MyQItem->NotYetShutdownDeliveries--; pthread_mutex_unlock(&ActiveQItemsLock); } int GetShutdownDeliveries(OneQueItem *MyQItem) { int DestructNow; pthread_mutex_lock(&ActiveQItemsLock); DestructNow = MyQItem->ActiveDeliveries == 0; pthread_mutex_unlock(&ActiveQItemsLock); return DestructNow; } void RemoveQItem(OneQueItem *MyQItem) { long len; const char* Key; void *VData; HashPos *It; pthread_mutex_lock(&ActiveQItemsLock); It = GetNewHashPos(ActiveQItems, 0); if (GetHashPosFromKey(ActiveQItems, LKEY(MyQItem->MessageID), It)) DeleteEntryFromHash(ActiveQItems, It); else { SMTPC_syslog(LOG_WARNING, "unable to find QItem with ID[%ld]", MyQItem->MessageID); while (GetNextHashPos(ActiveQItems, It, &len, &Key, &VData)) SMTPC_syslog(LOG_WARNING, "have_: ID[%ld]", ((OneQueItem *)VData)->MessageID); } pthread_mutex_unlock(&ActiveQItemsLock); DeleteHashPos(&It); } void FreeMailQEntry(void *qv) { MailQEntry *Q = qv; /* SMTPC_syslog(LOG_DEBUG, "---------------%s--------------", __FUNCTION__); cit_backtrace(); */ FreeStrBuf(&Q->Recipient); FreeStrBuf(&Q->StatusMessage); FreeStrBuf(&Q->AllStatusMessages); memset(Q, 0, sizeof(MailQEntry)); free(Q); } void FreeQueItem(OneQueItem **Item) { /* SMTPC_syslog(LOG_DEBUG, "---------------%s--------------", __FUNCTION__); cit_backtrace(); */ DeleteHash(&(*Item)->MailQEntries); FreeStrBuf(&(*Item)->EnvelopeFrom); FreeStrBuf(&(*Item)->BounceTo); FreeStrBuf(&(*Item)->SenderRoom); FreeURL(&(*Item)->URL); memset(*Item, 0, sizeof(OneQueItem)); free(*Item); Item = NULL; } void HFreeQueItem(void *Item) { FreeQueItem((OneQueItem**)&Item); } /* inspect recipients with a status of: * - 0 (no delivery yet attempted) * - 3/4 (transient errors * were experienced and it's time to try again) */ int CheckQEntryActive(MailQEntry *ThisItem) { if ((ThisItem->Status == 0) || (ThisItem->Status == 3) || (ThisItem->Status == 4)) { return 1; } else return 0; } int CheckQEntryIsBounce(MailQEntry *ThisItem) { if ((ThisItem->Status == 3) || (ThisItem->Status == 4) || (ThisItem->Status == 5)) { return 1; } else return 0; } int CountActiveQueueEntries(OneQueItem *MyQItem, int before) { HashPos *It; long len; long ActiveDeliveries; const char *Key; void *vQE; ActiveDeliveries = 0; It = GetNewHashPos(MyQItem->MailQEntries, 0); while (GetNextHashPos(MyQItem->MailQEntries, It, &len, &Key, &vQE)) { int Active; MailQEntry *ThisItem = vQE; if (CheckQEntryActive(ThisItem)) { ActiveDeliveries++; Active = 1; } else Active = 0; if (before) ThisItem->Active = Active; else ThisItem->StillActive = Active; } DeleteHashPos(&It); return ActiveDeliveries; } OneQueItem *DeserializeQueueItem(StrBuf *RawQItem, long QueMsgID) { OneQueItem *Item; const char *pLine = NULL; StrBuf *Line; StrBuf *Token; void *v; Item = (OneQueItem*)malloc(sizeof(OneQueItem)); memset(Item, 0, sizeof(OneQueItem)); Item->Retry = SMTP_RETRY_INTERVAL; Item->MessageID = -1; Item->QueMsgID = QueMsgID; Token = NewStrBuf(); Line = NewStrBufPlain(NULL, 128); while (pLine != StrBufNOTNULL) { const char *pItemPart = NULL; void *vHandler; StrBufExtract_NextToken(Line, RawQItem, &pLine, '\n'); if (StrLength(Line) == 0) continue; StrBufExtract_NextToken(Token, Line, &pItemPart, '|'); if (GetHash(QItemHandlers, SKEY(Token), &vHandler)) { QItemHandlerStruct *HS; HS = (QItemHandlerStruct*) vHandler; HS->H(Item, Line, &pItemPart); } } FreeStrBuf(&Line); FreeStrBuf(&Token); if (Item->Retry >= MaxRetry) Item->FailNow = 1; pthread_mutex_lock(&ActiveQItemsLock); if (GetHash(ActiveQItems, LKEY(Item->MessageID), &v)) { /* WHOOPS. somebody else is already working on this. */ pthread_mutex_unlock(&ActiveQItemsLock); FreeQueItem(&Item); return NULL; } else { /* mark our claim on this. */ Put(ActiveQItems, LKEY(Item->MessageID), Item, HFreeQueItem); pthread_mutex_unlock(&ActiveQItemsLock); } return Item; } StrBuf *SerializeQueueItem(OneQueItem *MyQItem) { StrBuf *QMessage; HashPos *It; const char *Key; long len; void *vQE; QMessage = NewStrBufPlain(NULL, SIZ); StrBufPrintf(QMessage, "Content-type: %s\n", SPOOLMIME); // "attempted|%ld\n" "retry|%ld\n",, (long)time(NULL), (long)retry ); StrBufAppendBufPlain(QMessage, HKEY("\nmsgid|"), 0); StrBufAppendPrintf(QMessage, "%ld", MyQItem->MessageID); StrBufAppendBufPlain(QMessage, HKEY("\nsubmitted|"), 0); StrBufAppendPrintf(QMessage, "%ld", MyQItem->Submitted); if (StrLength(MyQItem->BounceTo) > 0) { StrBufAppendBufPlain(QMessage, HKEY("\nbounceto|"), 0); StrBufAppendBuf(QMessage, MyQItem->BounceTo, 0); } if (StrLength(MyQItem->EnvelopeFrom) > 0) { StrBufAppendBufPlain(QMessage, HKEY("\nenvelope_from|"), 0); StrBufAppendBuf(QMessage, MyQItem->EnvelopeFrom, 0); } if (StrLength(MyQItem->SenderRoom) > 0) { StrBufAppendBufPlain(QMessage, HKEY("\nsource_room|"), 0); StrBufAppendBuf(QMessage, MyQItem->SenderRoom, 0); } StrBufAppendBufPlain(QMessage, HKEY("\nretry|"), 0); StrBufAppendPrintf(QMessage, "%ld", MyQItem->Retry); StrBufAppendBufPlain(QMessage, HKEY("\nattempted|"), 0); StrBufAppendPrintf(QMessage, "%ld", time(NULL) /*ctdl_ev_now()*/ + MyQItem->Retry); It = GetNewHashPos(MyQItem->MailQEntries, 0); while (GetNextHashPos(MyQItem->MailQEntries, It, &len, &Key, &vQE)) { MailQEntry *ThisItem = vQE; StrBufAppendBufPlain(QMessage, HKEY("\nremote|"), 0); StrBufAppendBuf(QMessage, ThisItem->Recipient, 0); StrBufAppendBufPlain(QMessage, HKEY("|"), 0); StrBufAppendPrintf(QMessage, "%d", ThisItem->Status); StrBufAppendBufPlain(QMessage, HKEY("|"), 0); if (ThisItem->AllStatusMessages != NULL) StrBufAppendBuf(QMessage, ThisItem->AllStatusMessages, 0); else StrBufAppendBuf(QMessage, ThisItem->StatusMessage, 0); } DeleteHashPos(&It); StrBufAppendBufPlain(QMessage, HKEY("\n"), 0); return QMessage; } void NewMailQEntry(OneQueItem *Item) { Item->Current = (MailQEntry*) malloc(sizeof(MailQEntry)); memset(Item->Current, 0, sizeof(MailQEntry)); if (Item->MailQEntries == NULL) Item->MailQEntries = NewHash(1, Flathash); /* alocate big buffer so we won't get problems reallocating later. */ Item->Current->StatusMessage = NewStrBufPlain(NULL, SIZ); Item->Current->n = GetCount(Item->MailQEntries); Put(Item->MailQEntries, IKEY(Item->Current->n), Item->Current, FreeMailQEntry); } void QItem_Handle_MsgID(OneQueItem *Item, StrBuf *Line, const char **Pos) { Item->MessageID = StrBufExtractNext_long(Line, Pos, '|'); } void QItem_Handle_EnvelopeFrom(OneQueItem *Item, StrBuf *Line, const char **Pos) { if (Item->EnvelopeFrom == NULL) Item->EnvelopeFrom = NewStrBufPlain(NULL, StrLength(Line)); StrBufExtract_NextToken(Item->EnvelopeFrom, Line, Pos, '|'); } void QItem_Handle_BounceTo(OneQueItem *Item, StrBuf *Line, const char **Pos) { if (Item->BounceTo == NULL) Item->BounceTo = NewStrBufPlain(NULL, StrLength(Line)); StrBufExtract_NextToken(Item->BounceTo, Line, Pos, '|'); } void QItem_Handle_SenderRoom(OneQueItem *Item, StrBuf *Line, const char **Pos) { if (Item->SenderRoom == NULL) Item->SenderRoom = NewStrBufPlain(NULL, StrLength(Line)); StrBufExtract_NextToken(Item->SenderRoom, Line, Pos, '|'); } void QItem_Handle_Recipient(OneQueItem *Item, StrBuf *Line, const char **Pos) { if (Item->Current == NULL) NewMailQEntry(Item); if (Item->Current->Recipient == NULL) Item->Current->Recipient=NewStrBufPlain(NULL, StrLength(Line)); StrBufExtract_NextToken(Item->Current->Recipient, Line, Pos, '|'); Item->Current->Status = StrBufExtractNext_int(Line, Pos, '|'); StrBufExtract_NextToken(Item->Current->StatusMessage, Line, Pos, '|'); Item->Current = NULL; // TODO: is this always right? } void QItem_Handle_retry(OneQueItem *Item, StrBuf *Line, const char **Pos) { Item->Retry = StrBufExtractNext_int(Line, Pos, '|'); if (Item->Retry == 0) Item->Retry = SMTP_RETRY_INTERVAL; else Item->Retry *= 2; } void QItem_Handle_Submitted(OneQueItem *Item, StrBuf *Line, const char **Pos) { Item->Submitted = atol(*Pos); } void QItem_Handle_Attempted(OneQueItem *Item, StrBuf *Line, const char **Pos) { Item->ReattemptWhen = StrBufExtractNext_int(Line, Pos, '|'); } /** * this one has to have the context for loading the message via the redirect buffer... */ StrBuf *smtp_load_msg(OneQueItem *MyQItem, int n, char **Author, char **Address) { CitContext *CCC=CC; StrBuf *SendMsg; CCC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputMsg(MyQItem->MessageID, MT_RFC822, HEADERS_ALL, 0, 1, NULL, (ESC_DOT|SUPPRESS_ENV_TO), Author, Address, NULL); SendMsg = CCC->redirect_buffer; CCC->redirect_buffer = NULL; if ((StrLength(SendMsg) > 0) && ChrPtr(SendMsg)[StrLength(SendMsg) - 1] != '\n') { SMTPC_syslog(LOG_WARNING, "[%d] Possible problem: message did not " "correctly terminate. (expecting 0x10, got 0x%02x)\n", MsgCount, //yes uncool, but best choice here... ChrPtr(SendMsg)[StrLength(SendMsg) - 1] ); StrBufAppendBufPlain(SendMsg, HKEY("\r\n"), 0); } return SendMsg; } /* * smtp_do_bounce() is caled by smtp_do_procmsg() to scan a set of delivery * instructions for "5" codes (permanent fatal errors) and produce/deliver * a "bounce" message (delivery status notification). */ void smtpq_do_bounce(OneQueItem *MyQItem, StrBuf *OMsgTxt, ParsedURL *Relay) { static int seq = 0; struct CtdlMessage *bmsg = NULL; StrBuf *boundary; StrBuf *Msg = NULL; StrBuf *BounceMB; recptypes *valid; time_t now; HashPos *It; void *vQE; long len; const char *Key; int first_attempt = 0; int successful_bounce = 0; int num_bounces = 0; int give_up = 0; SMTPCM_syslog(LOG_DEBUG, "smtp_do_bounce() called\n"); if (MyQItem->SendBounceMail == 0) return; now = time (NULL); //ev_time(); if ( (now - MyQItem->Submitted) > SMTP_GIVE_UP ) { give_up = 1; } if (MyQItem->Retry == SMTP_RETRY_INTERVAL) { first_attempt = 1; } /* * Now go through the instructions checking for stuff. */ Msg = NewStrBufPlain(NULL, 1024); It = GetNewHashPos(MyQItem->MailQEntries, 0); while (GetNextHashPos(MyQItem->MailQEntries, It, &len, &Key, &vQE)) { MailQEntry *ThisItem = vQE; if ((ThisItem->Active && (ThisItem->Status == 5)) || /* failed now? */ ((give_up == 1) && (ThisItem->Status != 2)) || ((first_attempt == 1) && (ThisItem->Status != 2))) /* giving up after failed attempts... */ { ++num_bounces; StrBufAppendBufPlain(Msg, HKEY(" "), 0); StrBufAppendBuf(Msg, ThisItem->Recipient, 0); StrBufAppendBufPlain(Msg, HKEY(": "), 0); if (ThisItem->AllStatusMessages != NULL) StrBufAppendBuf(Msg, ThisItem->AllStatusMessages, 0); else StrBufAppendBuf(Msg, ThisItem->StatusMessage, 0); StrBufAppendBufPlain(Msg, HKEY("\r\n"), 0); } } DeleteHashPos(&It); /* Deliver the bounce if there's anything worth mentioning */ SMTPC_syslog(LOG_DEBUG, "num_bounces = %d\n", num_bounces); if (num_bounces == 0) { FreeStrBuf(&Msg); return; } if ((StrLength(MyQItem->SenderRoom) == 0) && MyQItem->HaveRelay) { const char *RelayUrlStr = "[not found]"; /* one message that relaying is broken is enough; no extra room error message. */ StrBuf *RelayDetails = NewStrBuf(); if (Relay != NULL) RelayUrlStr = ChrPtr(Relay->URL); StrBufPrintf(RelayDetails, "Relaying via %s failed permanently. \n Reason:\n%s\n Revalidate your relay configuration.", RelayUrlStr, ChrPtr(Msg)); CtdlAideMessage(ChrPtr(RelayDetails), "Relaying Failed"); FreeStrBuf(&RelayDetails); } boundary = NewStrBufPlain(HKEY("=_Citadel_Multipart_")); StrBufAppendPrintf(boundary, "%s_%04x%04x", CtdlGetConfigStr("c_fqdn"), getpid(), ++seq); /* Start building our bounce message; go shopping for memory first. */ BounceMB = NewStrBufPlain( NULL, 1024 + /* mime stuff.... */ StrLength(Msg) + /* the bounce information... */ StrLength(OMsgTxt)); /* the original message */ if (BounceMB == NULL) { FreeStrBuf(&boundary); SMTPCM_syslog(LOG_ERR, "Failed to alloc() bounce message.\n"); return; } bmsg = (struct CtdlMessage *) malloc(sizeof(struct CtdlMessage)); if (bmsg == NULL) { FreeStrBuf(&boundary); FreeStrBuf(&BounceMB); SMTPCM_syslog(LOG_ERR, "Failed to alloc() bounce message.\n"); return; } memset(bmsg, 0, sizeof(struct CtdlMessage)); StrBufAppendBufPlain(BounceMB, HKEY("Content-type: multipart/mixed; boundary=\""), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("\"\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("MIME-Version: 1.0\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("X-Mailer: " CITADEL "\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\nThis is a multipart message in MIME format.\r\n\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("--"), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("Content-type: text/plain\r\n\r\n"), 0); if (give_up) StrBufAppendBufPlain( BounceMB, HKEY( "A message you sent could not be delivered " "to some or all of its recipients\n" "due to prolonged unavailability " "of its destination(s).\n" "Giving up on the following addresses:\n\n" ), 0); else StrBufAppendBufPlain( BounceMB, HKEY( "A message you sent could not be delivered " "to some or all of its recipients.\n" "The following addresses " "were undeliverable:\n\n" ), 0); StrBufAppendBuf(BounceMB, Msg, 0); FreeStrBuf(&Msg); if (StrLength(MyQItem->SenderRoom) > 0) { StrBufAppendBufPlain( BounceMB, HKEY("The message was originaly posted in: "), 0); StrBufAppendBuf(BounceMB, MyQItem->SenderRoom, 0); StrBufAppendBufPlain( BounceMB, HKEY("\n"), 0); } /* Attach the original message */ StrBufAppendBufPlain(BounceMB, HKEY("\r\n--"), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("Content-type: message/rfc822\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("Content-Transfer-Encoding: 7bit\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("Content-Disposition: inline\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); StrBufAppendBuf(BounceMB, OMsgTxt, 0); /* Close the multipart MIME scope */ StrBufAppendBufPlain(BounceMB, HKEY("--"), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("--\r\n"), 0); bmsg->cm_magic = CTDLMESSAGE_MAGIC; bmsg->cm_anon_type = MES_NORMAL; bmsg->cm_format_type = FMT_RFC822; CM_SetField(bmsg, eOriginalRoom, HKEY(MAILROOM)); CM_SetField(bmsg, eAuthor, HKEY("Citadel")); CM_SetField(bmsg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(bmsg, eMsgSubject, HKEY("Delivery Status Notification (Failure)")); CM_SetAsFieldSB(bmsg, eMesageText, &BounceMB); /* First try the user who sent the message */ if (StrLength(MyQItem->BounceTo) == 0) { SMTPCM_syslog(LOG_ERR, "No bounce address specified\n"); } else { SMTPC_syslog(LOG_DEBUG, "bounce to user? <%s>\n", ChrPtr(MyQItem->BounceTo)); } /* Can we deliver the bounce to the original sender? */ valid = validate_recipients(ChrPtr(MyQItem->BounceTo), NULL, 0); if ((valid != NULL) && (valid->num_error == 0)) { CtdlSubmitMsg(bmsg, valid, "", QP_EADDR); successful_bounce = 1; } /* If not, post it in the Aide> room */ if (successful_bounce == 0) { CtdlSubmitMsg(bmsg, NULL, CtdlGetConfigStr("c_aideroom"), QP_EADDR); } /* Free up the memory we used */ free_recipients(valid); FreeStrBuf(&boundary); CM_Free(bmsg); SMTPCM_syslog(LOG_DEBUG, "Done processing bounces\n"); } ParsedURL *LoadRelayUrls(OneQueItem *MyQItem, char *Author, char *Address) { int nRelays = 0; ParsedURL *RelayUrls = NULL; char mxbuf[SIZ]; ParsedURL **Url = &MyQItem->URL; nRelays = get_hosts(mxbuf, "fallbackhost"); if (nRelays > 0) { StrBuf *All; StrBuf *One; const char *Pos = NULL; All = NewStrBufPlain(mxbuf, -1); One = NewStrBufPlain(NULL, StrLength(All) + 1); while ((Pos != StrBufNOTNULL) && ((Pos == NULL) || !IsEmptyStr(Pos))) { StrBufExtract_NextToken(One, All, &Pos, '|'); if (!ParseURL(Url, One, DefaultMXPort)) { SMTPC_syslog(LOG_DEBUG, "Failed to parse: %s\n", ChrPtr(One)); } else { (*Url)->IsRelay = 1; MyQItem->HaveRelay = 1; } } FreeStrBuf(&All); FreeStrBuf(&One); } nRelays = get_hosts(mxbuf, "smarthost"); if (nRelays > 0) { char *User; StrBuf *All; StrBuf *One; const char *Pos = NULL; All = NewStrBufPlain(mxbuf, -1); One = NewStrBufPlain(NULL, StrLength(All) + 1); while ((Pos != StrBufNOTNULL) && ((Pos == NULL) || !IsEmptyStr(Pos))) { StrBufExtract_NextToken(One, All, &Pos, '|'); User = strchr(ChrPtr(One), ' '); if (User != NULL) { if (!strcmp(User + 1, Author) || !strcmp(User + 1, Address)) StrBufCutAt(One, 0, User); else { MyQItem->HaveRelay = 1; continue; } } if (!ParseURL(Url, One, DefaultMXPort)) { SMTPC_syslog(LOG_DEBUG, "Failed to parse: %s\n", ChrPtr(One)); } else { ///if (!Url->IsIP)) // todo dupe me fork ipv6 (*Url)->IsRelay = 1; MyQItem->HaveRelay = 1; } } FreeStrBuf(&All); FreeStrBuf(&One); } return RelayUrls; } /* * smtp_do_procmsg() * * Called by smtp_do_queue() to handle an individual message. */ void smtp_do_procmsg(long msgnum, void *userdata) { time_t now; int mynumsessions = num_sessions; struct CtdlMessage *msg = NULL; char *Author = NULL; char *Address = NULL; char *instr = NULL; StrBuf *PlainQItem; OneQueItem *MyQItem; char *pch; HashPos *It; void *vQE; long len; const char *Key; int HaveBuffers = 0; StrBuf *Msg =NULL; if (mynumsessions > max_sessions_for_outbound_smtp) { SMTPC_syslog(LOG_INFO, "skipping because of num jobs %d > %d max_sessions_for_outbound_smtp", mynumsessions, max_sessions_for_outbound_smtp); } SMTPC_syslog(LOG_DEBUG, "smtp_do_procmsg(%ld)\n", msgnum); ///strcpy(envelope_from, ""); msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { SMTPC_syslog(LOG_ERR, "tried %ld but no such message!\n", msgnum); return; } pch = instr = msg->cm_fields[eMesageText]; /* Strip out the headers (no not amd any other non-instruction) line */ while (pch != NULL) { pch = strchr(pch, '\n'); if ((pch != NULL) && ((*(pch + 1) == '\n') || (*(pch + 1) == '\r'))) { instr = pch + 2; pch = NULL; } } PlainQItem = NewStrBufPlain(instr, -1); CM_Free(msg); MyQItem = DeserializeQueueItem(PlainQItem, msgnum); FreeStrBuf(&PlainQItem); if (MyQItem == NULL) { SMTPC_syslog(LOG_ERR, "Msg No %ld: already in progress!\n", msgnum); return; /* s.b. else is already processing... */ } /* * Postpone delivery if we've already tried recently. */ now = time(NULL); if ((MyQItem->ReattemptWhen != 0) && (now < MyQItem->ReattemptWhen) && (run_queue_now == 0)) { SMTPC_syslog(LOG_DEBUG, "Retry time not yet reached. %ld seconds left.", MyQItem->ReattemptWhen - now); It = GetNewHashPos(MyQItem->MailQEntries, 0); pthread_mutex_lock(&ActiveQItemsLock); { if (GetHashPosFromKey(ActiveQItems, LKEY(MyQItem->MessageID), It)) { DeleteEntryFromHash(ActiveQItems, It); } } pthread_mutex_unlock(&ActiveQItemsLock); ////FreeQueItem(&MyQItem); TODO: DeleteEntryFromHash frees this? DeleteHashPos(&It); return; } /* * Bail out if there's no actual message associated with this */ if (MyQItem->MessageID < 0L) { SMTPCM_syslog(LOG_ERR, "no 'msgid' directive found!\n"); It = GetNewHashPos(MyQItem->MailQEntries, 0); pthread_mutex_lock(&ActiveQItemsLock); { if (GetHashPosFromKey(ActiveQItems, LKEY(MyQItem->MessageID), It)) { DeleteEntryFromHash(ActiveQItems, It); } } pthread_mutex_unlock(&ActiveQItemsLock); DeleteHashPos(&It); ////FreeQueItem(&MyQItem); TODO: DeleteEntryFromHash frees this? return; } It = GetNewHashPos(MyQItem->MailQEntries, 0); while (GetNextHashPos(MyQItem->MailQEntries, It, &len, &Key, &vQE)) { MailQEntry *ThisItem = vQE; SMTPC_syslog(LOG_DEBUG, "SMTP Queue: Task: <%s> %d\n", ChrPtr(ThisItem->Recipient), ThisItem->Active); } DeleteHashPos(&It); MyQItem->NotYetShutdownDeliveries = MyQItem->ActiveDeliveries = CountActiveQueueEntries(MyQItem, 1); /* failsafe against overload: * will we exceed the limit set? */ if ((MyQItem->ActiveDeliveries + mynumsessions > max_sessions_for_outbound_smtp) && /* if yes, did we reach more than half of the quota? */ ((mynumsessions * 2) > max_sessions_for_outbound_smtp) && /* if... would we ever fit into half of the quota?? */ (((MyQItem->ActiveDeliveries * 2) < max_sessions_for_outbound_smtp))) { /* abort delivery for another time. */ SMTPC_syslog(LOG_INFO, "SMTP Queue: skipping because of num jobs %d + %ld > %d max_sessions_for_outbound_smtp", mynumsessions, MyQItem->ActiveDeliveries, max_sessions_for_outbound_smtp); It = GetNewHashPos(MyQItem->MailQEntries, 0); pthread_mutex_lock(&ActiveQItemsLock); { if (GetHashPosFromKey(ActiveQItems, LKEY(MyQItem->MessageID), It)) { DeleteEntryFromHash(ActiveQItems, It); } } pthread_mutex_unlock(&ActiveQItemsLock); return; } if (MyQItem->ActiveDeliveries > 0) { ParsedURL *RelayUrls = NULL; int nActivated = 0; int n = MsgCount++; int m = MyQItem->ActiveDeliveries; int i = 1; It = GetNewHashPos(MyQItem->MailQEntries, 0); Msg = smtp_load_msg(MyQItem, n, &Author, &Address); RelayUrls = LoadRelayUrls(MyQItem, Author, Address); if ((RelayUrls == NULL) && MyQItem->HaveRelay) { while ((i <= m) && (GetNextHashPos(MyQItem->MailQEntries, It, &len, &Key, &vQE))) { int KeepBuffers = (i == m); MailQEntry *ThisItem = vQE; StrBufPrintf(ThisItem->StatusMessage, "No relay configured matching %s / %s", (Author != NULL)? Author : "", (Address != NULL)? Address : ""); ThisItem->Status = 5; nActivated++; if (i > 1) n = MsgCount++; SMTPC_syslog(LOG_INFO, "SMTPC: giving up on <%ld> <%s> %d / %d \n", MyQItem->MessageID, ChrPtr(ThisItem->Recipient), i, m); (*((int*) userdata)) ++; smtp_try_one_queue_entry(MyQItem, ThisItem, Msg, KeepBuffers, n, RelayUrls); if (KeepBuffers) HaveBuffers++; i++; } if (Author != NULL) free (Author); if (Address != NULL) free (Address); DeleteHashPos(&It); return; } if (Author != NULL) free (Author); if (Address != NULL) free (Address); while ((i <= m) && (GetNextHashPos(MyQItem->MailQEntries, It, &len, &Key, &vQE))) { MailQEntry *ThisItem = vQE; if (ThisItem->Active == 1) { int KeepBuffers = (i == m); nActivated++; if (nActivated % ndelay_count == 0) usleep(delay_msec); if (i > 1) n = MsgCount++; SMTPC_syslog(LOG_DEBUG, "SMTPC: Trying <%ld> <%s> %d / %d \n", MyQItem->MessageID, ChrPtr(ThisItem->Recipient), i, m); (*((int*) userdata)) ++; smtp_try_one_queue_entry(MyQItem, ThisItem, Msg, KeepBuffers, n, RelayUrls); if (KeepBuffers) HaveBuffers++; i++; } } DeleteHashPos(&It); } else { It = GetNewHashPos(MyQItem->MailQEntries, 0); pthread_mutex_lock(&ActiveQItemsLock); { if (GetHashPosFromKey(ActiveQItems, LKEY(MyQItem->MessageID), It)) { DeleteEntryFromHash(ActiveQItems, It); } else { long len; const char* Key; void *VData; SMTPC_syslog(LOG_WARNING, "unable to find QItem with ID[%ld]", MyQItem->MessageID); while (GetNextHashPos(ActiveQItems, It, &len, &Key, &VData)) { SMTPC_syslog(LOG_WARNING, "have: ID[%ld]", ((OneQueItem *)VData)->MessageID); } } } pthread_mutex_unlock(&ActiveQItemsLock); DeleteHashPos(&It); ////FreeQueItem(&MyQItem); TODO: DeleteEntryFromHash frees this? // TODO: bounce & delete? } if (!HaveBuffers) { FreeStrBuf (&Msg); // TODO : free RelayUrls } } /* * smtp_queue_thread() * * Run through the queue sending out messages. */ void smtp_do_queue(void) { int num_processed = 0; int num_activated = 0; pthread_setspecific(MyConKey, (void *)&smtp_queue_CC); SMTPCM_syslog(LOG_DEBUG, "processing outbound queue"); if (CtdlGetRoom(&CC->room, SMTP_SPOOLOUT_ROOM) != 0) { SMTPC_syslog(LOG_ERR, "Cannot find room <%s>", SMTP_SPOOLOUT_ROOM); } else { num_processed = CtdlForEachMessage(MSGS_ALL, 0L, NULL, SPOOLMIME, NULL, smtp_do_procmsg, &num_activated); } if (num_activated > 0) { SMTPC_syslog(LOG_INFO, "queue run completed; %d messages processed %d activated", num_processed, num_activated); } } /* * Initialize the SMTP outbound queue */ void smtp_init_spoolout(void) { struct ctdlroom qrbuf; /* * Create the room. This will silently fail if the room already * exists, and that's perfectly ok, because we want it to exist. */ CtdlCreateRoom(SMTP_SPOOLOUT_ROOM, 3, "", 0, 1, 0, VIEW_QUEUE); /* * Make sure it's set to be a "system room" so it doesn't show up * in the nown rooms list for Aides. */ if (CtdlGetRoomLock(&qrbuf, SMTP_SPOOLOUT_ROOM) == 0) { qrbuf.QRflags2 |= QR2_SYSTEM; CtdlPutRoomLock(&qrbuf); } } /*****************************************************************************/ /* SMTP UTILITY COMMANDS */ /*****************************************************************************/ void cmd_smtp(char *argbuf) { char cmd[64]; char node[256]; char buf[1024]; int i; int num_mxhosts; if (CtdlAccessCheck(ac_aide)) return; extract_token(cmd, argbuf, 0, '|', sizeof cmd); if (!strcasecmp(cmd, "mx")) { extract_token(node, argbuf, 1, '|', sizeof node); num_mxhosts = getmx(buf, node); cprintf("%d %d MX hosts listed for %s\n", LISTING_FOLLOWS, num_mxhosts, node); for (i=0; inum_internet > 0)) { struct CtdlMessage *imsg = NULL; char recipient[SIZ]; CitContext *CCC = MyContext(); StrBuf *SpoolMsg = NewStrBuf(); long nTokens; int i; MSGM_syslog(LOG_DEBUG, "Generating delivery instructions\n"); StrBufPrintf(SpoolMsg, "Content-type: "SPOOLMIME"\n" "\n" "msgid|%s\n" "submitted|%ld\n" "bounceto|%s\n", msg->cm_fields[eVltMsgNum], (long)time(NULL), recps->bounce_to); if (recps->envelope_from != NULL) { StrBufAppendBufPlain(SpoolMsg, HKEY("envelope_from|"), 0); StrBufAppendBufPlain(SpoolMsg, recps->envelope_from, -1, 0); StrBufAppendBufPlain(SpoolMsg, HKEY("\n"), 0); } if (recps->sending_room != NULL) { StrBufAppendBufPlain(SpoolMsg, HKEY("source_room|"), 0); StrBufAppendBufPlain(SpoolMsg, recps->sending_room, -1, 0); StrBufAppendBufPlain(SpoolMsg, HKEY("\n"), 0); } nTokens = num_tokens(recps->recp_internet, '|'); for (i = 0; i < nTokens; i++) { long len; len = extract_token(recipient, recps->recp_internet, i, '|', sizeof recipient); if (len > 0) { StrBufAppendBufPlain(SpoolMsg, HKEY("remote|"), 0); StrBufAppendBufPlain(SpoolMsg, recipient, len, 0); StrBufAppendBufPlain(SpoolMsg, HKEY("|0||\n"), 0); } } imsg = malloc(sizeof(struct CtdlMessage)); memset(imsg, 0, sizeof(struct CtdlMessage)); imsg->cm_magic = CTDLMESSAGE_MAGIC; imsg->cm_anon_type = MES_NORMAL; imsg->cm_format_type = FMT_RFC822; CM_SetField(imsg, eMsgSubject, HKEY("QMSG")); CM_SetField(imsg, eAuthor, HKEY("Citadel")); CM_SetField(imsg, eJournal, HKEY("do not journal")); CM_SetAsFieldSB(imsg, eMesageText, &SpoolMsg); CtdlSubmitMsg(imsg, NULL, SMTP_SPOOLOUT_ROOM, QP_EADDR); CM_Free(imsg); } return 0; } CTDL_MODULE_INIT(smtp_queu) { char *pstr; if (!threading) { pstr = getenv("CITSERVER_n_session_max"); if ((pstr != NULL) && (*pstr != '\0')) max_sessions_for_outbound_smtp = atol(pstr); /* how many sessions might be active till we stop adding more smtp jobs */ pstr = getenv("CITSERVER_smtp_n_delay_count"); if ((pstr != NULL) && (*pstr != '\0')) ndelay_count = atol(pstr); /* every n queued messages we will sleep... */ pstr = getenv("CITSERVER_smtp_delay"); if ((pstr != NULL) && (*pstr != '\0')) delay_msec = atol(pstr) * 1000; /* this many seconds. */ CtdlRegisterMessageHook(smtp_aftersave, EVT_AFTERSAVE); CtdlFillSystemContext(&smtp_queue_CC, "SMTP_Send"); ActiveQItems = NewHash(1, lFlathash); pthread_mutex_init(&ActiveQItemsLock, NULL); QItemHandlers = NewHash(0, NULL); RegisterQItemHandler(HKEY("msgid"), QItem_Handle_MsgID); RegisterQItemHandler(HKEY("envelope_from"), QItem_Handle_EnvelopeFrom); RegisterQItemHandler(HKEY("retry"), QItem_Handle_retry); RegisterQItemHandler(HKEY("attempted"), QItem_Handle_Attempted); RegisterQItemHandler(HKEY("remote"), QItem_Handle_Recipient); RegisterQItemHandler(HKEY("bounceto"), QItem_Handle_BounceTo); RegisterQItemHandler(HKEY("source_room"), QItem_Handle_SenderRoom); RegisterQItemHandler(HKEY("submitted"), QItem_Handle_Submitted); smtp_init_spoolout(); CtdlRegisterEVCleanupHook(smtp_evq_cleanup); CtdlRegisterProtoHook(cmd_smtp, "SMTP", "SMTP utility commands"); CtdlRegisterSessionHook(smtp_do_queue, EVT_TIMER, PRIO_SEND + 10); } /* return our Subversion id for the Log */ return "smtpeventclient"; } citadel-902/modules/smtp/smtp_clienthandlers.c000066400000000000000000000373671271512031400216500ustar00rootroot00000000000000/* * This module is an SMTP and ESMTP implementation for the Citadel system. * It is compliant with all of the following: * * RFC 821 - Simple Mail Transfer Protocol * RFC 876 - Survey of SMTP Implementations * RFC 1047 - Duplicate messages and SMTP * RFC 1652 - 8 bit MIME * RFC 1869 - Extended Simple Mail Transfer Protocol * RFC 1870 - SMTP Service Extension for Message Size Declaration * RFC 2033 - Local Mail Transfer Protocol * RFC 2197 - SMTP Service Extension for Command Pipelining * RFC 2476 - Message Submission * RFC 2487 - SMTP Service Extension for Secure SMTP over TLS * RFC 2554 - SMTP Service Extension for Authentication * RFC 2821 - Simple Mail Transfer Protocol * RFC 2822 - Internet Message Format * RFC 2920 - SMTP Service Extension for Command Pipelining * * Copyright (c) 1998-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "smtp_util.h" #include "event_client.h" #include "smtpqueue.h" #include "smtp_clienthandlers.h" #define SMTP_ERROR(WHICH_ERR, ERRSTR) do { \ Msg->MyQEntry->Status = WHICH_ERR; \ StrBufAppendBufPlain(Msg->MyQEntry->StatusMessage, \ HKEY(ERRSTR), 0); \ StrBufTrim(Msg->MyQEntry->StatusMessage); \ return eAbort; } \ while (0) #define SMTP_VERROR(WHICH_ERR) do { \ Msg->MyQEntry->Status = WHICH_ERR; \ StrBufPlain(Msg->MyQEntry->StatusMessage, \ ChrPtr(Msg->IO.IOBuf) + 4, \ StrLength(Msg->IO.IOBuf) - 4); \ StrBufTrim(Msg->MyQEntry->StatusMessage); \ return eAbort; } \ while (0) #define SMTP_IS_STATE(WHICH_STATE) (ChrPtr(Msg->IO.IOBuf)[0] == WHICH_STATE) #define SMTP_DBG_SEND() \ EVS_syslog(LOG_DEBUG, "> %s\n", ChrPtr(Msg->IO.SendBuf.Buf)) #define SMTP_DBG_READ() \ EVS_syslog(LOG_DEBUG, "< %s\n", ChrPtr(Msg->IO.IOBuf)) /* * if a Read handler wants to skip to a specific part use this macro. * the -1 is here since the auto-forward following has to be taken into account. */ #define READ_NEXT_STATE(state) Msg->State = state - 1 /*****************************************************************************/ /* SMTP CLIENT STATE CALLBACKS */ /*****************************************************************************/ eNextState SMTPC_read_greeting(SmtpOutMsg *Msg) { /* Process the SMTP greeting from the server */ AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); SetSMTPState(IO, eSTMPsmtp); if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } return eSendReply; } eNextState SMTPC_send_EHLO(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* At this point we know we are talking to a real SMTP server */ /* Do a EHLO command. If it fails, try the HELO command. */ StrBufPrintf(Msg->IO.SendBuf.Buf, "EHLO %s\r\n", CtdlGetConfigStr("c_fqdn")); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_EHLO_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); if (SMTP_IS_STATE('2')) { READ_NEXT_STATE(eSMTPAuth); if ((Msg->pCurrRelay == NULL) || (Msg->pCurrRelay->User == NULL)) READ_NEXT_STATE(eFROM); /* Skip auth... */ if (Msg->pCurrRelay != NULL) { if (strstr(ChrPtr(Msg->IO.IOBuf), "LOGIN") != NULL) Msg->SendLogin = 1; else if ((Msg->MultiLineBuf != NULL) && strstr(ChrPtr(Msg->MultiLineBuf), "LOGIN") != NULL) { Msg->SendLogin = 1; } } } /* else we fall back to 'helo' */ return eSendReply; } eNextState STMPC_send_HELO(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; StrBufPrintf(Msg->IO.SendBuf.Buf, "HELO %s\r\n", CtdlGetConfigStr("c_fqdn")); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_HELO_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } if (Msg->pCurrRelay != NULL) { if (strstr(ChrPtr(Msg->IO.IOBuf), "LOGIN") != NULL) Msg->SendLogin = 1; } if ((Msg->pCurrRelay == NULL) || (Msg->pCurrRelay->User == NULL)) READ_NEXT_STATE(eFROM); /* Skip auth... */ return eSendReply; } eNextState SMTPC_send_auth(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; char buf[SIZ]; char encoded[1024]; if ((Msg->pCurrRelay == NULL) || (Msg->pCurrRelay->User == NULL)) READ_NEXT_STATE(eFROM); /* Skip auth, shouldn't even come here!... */ else { /* Do an AUTH command if necessary */ if (Msg->SendLogin) { StrBufPlain(Msg->IO.SendBuf.Buf, HKEY("AUTH LOGIN\r\n")); } else { sprintf(buf, "%s%c%s%c%s", Msg->pCurrRelay->User, '\0', Msg->pCurrRelay->User, '\0', Msg->pCurrRelay->Pass); size_t len = CtdlEncodeBase64(encoded, buf, strlen(Msg->pCurrRelay->User) * 2 + strlen(Msg->pCurrRelay->Pass) + 2, 0); if (buf[len - 1] == '\n') { buf[len - 1] = '\0'; } StrBufPrintf(Msg->IO.SendBuf.Buf, "AUTH PLAIN %s\r\n", encoded); } } SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_auth_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* Do an AUTH command if necessary */ SMTP_DBG_READ(); if (Msg->SendLogin) { if (!SMTP_IS_STATE('3')) SMTP_VERROR(5); } else { if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } READ_NEXT_STATE(eFROM); } return eSendReply; } eNextState SMTPC_send_authplain_1(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; char buf[SIZ]; char encoded[1024]; long encodedlen; sprintf(buf, "%s", Msg->pCurrRelay->User); encodedlen = CtdlEncodeBase64( encoded, Msg->pCurrRelay->User, strlen(Msg->pCurrRelay->User), 0); if (encoded[encodedlen - 1] == '\n') { encodedlen --; encoded[encodedlen] = '\0'; } StrBufPlain(Msg->IO.SendBuf.Buf, encoded, encodedlen); StrBufAppendBufPlain(Msg->IO.SendBuf.Buf, HKEY("\r\n"), 0); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_auth_plain_reply_1(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* Do an AUTH command if necessary */ SMTP_DBG_READ(); if (!SMTP_IS_STATE('3')) SMTP_VERROR(5); return eSendReply; } eNextState SMTPC_send_authplain_2(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; char buf[SIZ]; char encoded[1024]; long encodedlen; sprintf(buf, "%s", Msg->pCurrRelay->Pass); encodedlen = CtdlEncodeBase64( encoded, Msg->pCurrRelay->Pass, strlen(Msg->pCurrRelay->Pass), 0); if (encoded[encodedlen - 1] == '\n') { encodedlen --; encoded[encodedlen] = '\0'; } StrBufPlain(Msg->IO.SendBuf.Buf, encoded, encodedlen); StrBufAppendBufPlain(Msg->IO.SendBuf.Buf, HKEY("\r\n"), 0); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_auth_plain_reply_2(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* Do an AUTH command if necessary */ SMTP_DBG_READ(); if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } return eSendReply; } eNextState SMTPC_send_FROM(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* previous command succeeded, now try the MAIL FROM: command */ StrBufPrintf(Msg->IO.SendBuf.Buf, "MAIL FROM:<%s>\r\n", Msg->envelope_from); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_FROM_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } return eSendReply; } eNextState SMTPC_send_RCPT(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* MAIL succeeded, now try the RCPT To: command */ StrBufPrintf(Msg->IO.SendBuf.Buf, "RCPT TO:<%s@%s>\r\n", Msg->user, Msg->node); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_RCPT_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } return eSendReply; } eNextState SMTPC_send_DATAcmd(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; /* RCPT succeeded, now try the DATA command */ StrBufPlain(Msg->IO.SendBuf.Buf, HKEY("DATA\r\n")); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_DATAcmd_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); if (!SMTP_IS_STATE('3')) { SetSMTPState(IO, eSTMPfailOne); if (SMTP_IS_STATE('4')) SMTP_VERROR(3); else SMTP_VERROR(5); } SetSMTPState(IO, eSTMPsmtpdata); return eSendReply; } eNextState SMTPC_send_data_body(SmtpOutMsg *Msg) { StrBuf *Buf; /* If we reach this point, the server is expecting data.*/ Buf = Msg->IO.SendBuf.Buf; Msg->IO.SendBuf.Buf = Msg->msgtext; Msg->msgtext = Buf; /* * sending the message itself doesn't use this state machine. * so we have to operate it here by ourselves. */ Msg->State ++; return eSendMore; } eNextState SMTPC_send_terminate_data_body(SmtpOutMsg *Msg) { StrBuf *Buf; Buf = Msg->IO.SendBuf.Buf; Msg->IO.SendBuf.Buf = Msg->msgtext; Msg->msgtext = Buf; StrBufPlain(Msg->IO.SendBuf.Buf, HKEY(".\r\n")); return eReadMessage; } eNextState SMTPC_read_data_body_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); if (!SMTP_IS_STATE('2')) { if (SMTP_IS_STATE('4')) SMTP_VERROR(4); else SMTP_VERROR(5); } SetSMTPState(IO, eSTMPsmtpdone); /* We did it! */ StrBufPlain(Msg->MyQEntry->StatusMessage, &ChrPtr(Msg->IO.RecvBuf.Buf)[4], StrLength(Msg->IO.RecvBuf.Buf) - 4); StrBufTrim(Msg->MyQEntry->StatusMessage); Msg->MyQEntry->Status = 2; return eSendReply; } eNextState SMTPC_send_QUIT(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; StrBufPlain(Msg->IO.SendBuf.Buf, HKEY("QUIT\r\n")); SMTP_DBG_SEND(); return eReadMessage; } eNextState SMTPC_read_QUIT_reply(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; SMTP_DBG_READ(); EVS_syslog(LOG_DEBUG, "delivery to <%s> @ <%s> (%s) succeeded\n", Msg->user, Msg->node, Msg->name); return eTerminateConnection; } eNextState SMTPC_read_dummy(SmtpOutMsg *Msg) { return eSendReply; } eNextState SMTPC_send_dummy(SmtpOutMsg *Msg) { return eReadMessage; } /*****************************************************************************/ /* SMTP CLIENT DISPATCHER */ /*****************************************************************************/ SMTPReadHandler ReadHandlers[eMaxSMTPC] = { SMTPC_read_greeting, SMTPC_read_EHLO_reply, SMTPC_read_HELO_reply, SMTPC_read_auth_reply, SMTPC_read_auth_plain_reply_1, SMTPC_read_auth_plain_reply_2, SMTPC_read_FROM_reply, SMTPC_read_RCPT_reply, SMTPC_read_DATAcmd_reply, SMTPC_read_dummy, SMTPC_read_data_body_reply, SMTPC_read_QUIT_reply }; SMTPSendHandler SendHandlers[eMaxSMTPC] = { SMTPC_send_dummy, /* we don't send a greeting, the server does... */ SMTPC_send_EHLO, STMPC_send_HELO, SMTPC_send_auth, SMTPC_send_authplain_1, SMTPC_send_authplain_2, SMTPC_send_FROM, SMTPC_send_RCPT, SMTPC_send_DATAcmd, SMTPC_send_data_body, SMTPC_send_terminate_data_body, SMTPC_send_QUIT }; const double SMTP_C_ConnTimeout = 300.; /* wail 1 minute for connections... */ const double SMTP_C_ReadTimeouts[eMaxSMTPC] = { 300., /* Greeting... */ 30., /* EHLO */ 30., /* HELO */ 30., /* Auth */ 30., /* Auth */ 30., /* Auth */ 30., /* From */ 90., /* RCPT */ 30., /* DATA */ 90., /* DATABody */ 90., /* end of body... */ 30. /* QUIT */ }; const double SMTP_C_SendTimeouts[eMaxSMTPC] = { 90., /* Greeting... */ 30., /* EHLO */ 30., /* HELO */ 30., /* Auth */ 30., /* Auth */ 30., /* Auth */ 30., /* From */ 30., /* RCPT */ 30., /* DATA */ 90., /* DATABody */ 900., /* end of body... */ 30. /* QUIT */ }; const ConstStr ReadErrors[eMaxSMTPC + 1] = { {HKEY("Connection broken during SMTP conversation")}, {HKEY("Connection broken during SMTP EHLO")}, {HKEY("Connection broken during SMTP HELO")}, {HKEY("Connection broken during SMTP AUTH")}, {HKEY("Connection broken during SMTP AUTH PLAIN I")}, {HKEY("Connection broken during SMTP AUTH PLAIN II")}, {HKEY("Connection broken during SMTP MAIL FROM")}, {HKEY("Connection broken during SMTP RCPT")}, {HKEY("Connection broken during SMTP DATA")}, {HKEY("Connection broken during SMTP message transmit")}, {HKEY("Connection broken during SMTP message transmit")},/* quit reply, don't care. */ {HKEY("Connection broken during SMTP message transmit")},/* quit reply, don't care. */ {HKEY("")}/* quit reply, don't care. */ }; int smtp_resolve_recipients(SmtpOutMsg *Msg) { AsyncIO *IO = &Msg->IO; const char *ptr; char buf[1024]; int scan_done; int lp, rp; int i; EVNCS_syslog(LOG_DEBUG, "%s\n", __FUNCTION__); if ((Msg==NULL) || (Msg->MyQEntry == NULL) || (StrLength(Msg->MyQEntry->Recipient) == 0)) { return 0; } /* Parse out the host portion of the recipient address */ process_rfc822_addr(ChrPtr(Msg->MyQEntry->Recipient), Msg->user, Msg->node, Msg->name); EVNCS_syslog(LOG_DEBUG, "Attempting delivery to <%s> @ <%s> (%s)\n", Msg->user, Msg->node, Msg->name); /* If no envelope_from is supplied, extract one from the message */ Msg->envelope_from = ChrPtr(Msg->MyQItem->EnvelopeFrom); if ( (Msg->envelope_from == NULL) || (IsEmptyStr(Msg->envelope_from)) ) { Msg->mailfrom[0] = '\0'; scan_done = 0; ptr = ChrPtr(Msg->msgtext); do { if (ptr = cmemreadline(ptr, buf, sizeof buf), *ptr == 0) { scan_done = 1; } if (!strncasecmp(buf, "From:", 5)) { safestrncpy(Msg->mailfrom, &buf[5], sizeof Msg->mailfrom); striplt(Msg->mailfrom); for (i=0; Msg->mailfrom[i]; ++i) { if (!isprint(Msg->mailfrom[i])) { strcpy(&Msg->mailfrom[i], &Msg->mailfrom[i+1]); i=0; } } /* Strip out parenthesized names */ lp = (-1); rp = (-1); for (i=0; !IsEmptyStr(Msg->mailfrom + i); ++i) { if (Msg->mailfrom[i] == '(') lp = i; if (Msg->mailfrom[i] == ')') rp = i; } if ((lp>0)&&(rp>lp)) { strcpy(&Msg->mailfrom[lp-1], &Msg->mailfrom[rp+1]); } /* Prefer brokketized names */ lp = (-1); rp = (-1); for (i=0; !IsEmptyStr(Msg->mailfrom + i); ++i) { if (Msg->mailfrom[i] == '<') lp = i; if (Msg->mailfrom[i] == '>') rp = i; } if ( (lp>=0) && (rp>lp) ) { Msg->mailfrom[rp] = 0; memmove(Msg->mailfrom, &Msg->mailfrom[lp + 1], rp - lp); } scan_done = 1; } } while (scan_done == 0); if (IsEmptyStr(Msg->mailfrom)) strcpy(Msg->mailfrom, "someone@somewhere.org"); stripallbut(Msg->mailfrom, '<', '>'); Msg->envelope_from = Msg->mailfrom; } return 1; } citadel-902/modules/smtp/smtp_clienthandlers.h000066400000000000000000000073561271512031400216500ustar00rootroot00000000000000/* * * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ typedef enum _eSMTP_C_States { eConnectMX, eEHLO, eHELO, eSMTPAuth, eSMTPAuthPlain1, eSMTPAuthPlain2, eFROM, eRCPT, eDATA, eDATABody, eDATATerminateBody, eQUIT, eMaxSMTPC } eSMTP_C_States; typedef struct _stmp_out_msg { MailQEntry *MyQEntry; OneQueItem *MyQItem; long n; AsyncIO IO; long CXFlags; int IDestructQueItem; int nRemain; eSMTP_C_States State; struct ares_mx_reply *AllMX; struct ares_mx_reply *CurrMX; const char *mx_port; const char *mx_host; const char *LookupHostname; int iMX, nMX; int LookupWhich; DNSQueryParts MxLookup; DNSQueryParts HostLookup; struct hostent *OneMX; char **pIP; ParsedURL *Relay; ParsedURL *pCurrRelay; StrBuf *msgtext; StrBuf *QMsgData; StrBuf *MultiLineBuf; const char *envelope_from; char user[1024]; char node[1024]; char name[1024]; char mailfrom[1024]; long SendLogin; long Flags; long IsRelay; } SmtpOutMsg; typedef eNextState (*SMTPReadHandler)(SmtpOutMsg *Msg); typedef eNextState (*SMTPSendHandler)(SmtpOutMsg *Msg); SMTPReadHandler ReadHandlers[eMaxSMTPC]; SMTPSendHandler SendHandlers[eMaxSMTPC]; const ConstStr ReadErrors[eMaxSMTPC+1]; const double SMTP_C_ReadTimeouts[eMaxSMTPC]; const double SMTP_C_SendTimeouts[eMaxSMTPC]; const double SMTP_C_ConnTimeout; #define F_RELAY (1<<0) /* we have a Relay host configuration */ #define F_HAVE_FALLBACK (1<<1) /* we have a fallback host configuration */ #define F_FALLBACK (1<<2) #define F_HAVE_MX (1<<3) /* we have a list of mx records to go through.*/ #define F_DIRECT (1<<4) /* no mx record found, trying direct connect. */ extern int SMTPClientDebugEnabled; int smtp_resolve_recipients(SmtpOutMsg *SendMsg); #define QID ((SmtpOutMsg*)IO->Data)->MyQItem->MessageID #define N ((SmtpOutMsg*)IO->Data)->n #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (SMTPClientDebugEnabled != 0)) #define EVS_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "SMTPC:%s[%ld]CC[%d]S[%ld][%ld] " FORMAT, \ IOSTR, IO->ID, CCID, QID, N, __VA_ARGS__) #define EVSM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "SMTPC:%s[%ld]CC[%d]S[%ld][%ld] " FORMAT, \ IOSTR, IO->ID, CCID, QID, N) #define EVNCS_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, "SMTPC:%s[%ld]S[%ld][%ld] " FORMAT, \ IOSTR, IO->ID, QID, N, __VA_ARGS__) #define EVNCSM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, "SMTPC:%s[%ld]S[%ld][%ld] " FORMAT, \ IOSTR, IO->ID, QID, N) #define SMTPC_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "SMTPCQ: " FORMAT, \ __VA_ARGS__) #define SMTPCM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "SMTPCQ: " FORMAT) typedef enum __smtpstate { eSTMPmxlookup, eSTMPevaluatenext, eSTMPalookup, eSTMPaaaalookup, eSTMPconnecting, eSTMPsmtp, eSTMPsmtpdata, eSTMPsmtpdone, eSTMPfinished, eSTMPfailOne, eSMTPFailTemporary, eSMTPFailTotal } smtpstate; void SetSMTPState(AsyncIO *IO, smtpstate State); citadel-902/modules/smtp/smtp_util.c000066400000000000000000000210141271512031400176040ustar00rootroot00000000000000/* * This module is an SMTP and ESMTP implementation for the Citadel system. * It is compliant with all of the following: * * RFC 821 - Simple Mail Transfer Protocol * RFC 876 - Survey of SMTP Implementations * RFC 1047 - Duplicate messages and SMTP * RFC 1652 - 8 bit MIME * RFC 1869 - Extended Simple Mail Transfer Protocol * RFC 1870 - SMTP Service Extension for Message Size Declaration * RFC 2033 - Local Mail Transfer Protocol * RFC 2197 - SMTP Service Extension for Command Pipelining * RFC 2476 - Message Submission * RFC 2487 - SMTP Service Extension for Secure SMTP over TLS * RFC 2554 - SMTP Service Extension for Authentication * RFC 2821 - Simple Mail Transfer Protocol * RFC 2822 - Internet Message Format * RFC 2920 - SMTP Service Extension for Command Pipelining * * The VRFY and EXPN commands have been removed from this implementation * because nobody uses these commands anymore, except for spammers. * * Copyright (c) 1998-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "clientsocket.h" #include "locate_host.h" #include "citadel_dirs.h" #include "ctdl_module.h" #include "smtp_util.h" #include "smtpqueue.h" #include "smtp_clienthandlers.h" const char *smtp_get_Recipients(void) { citsmtp *sSMTP = SMTP; if (sSMTP == NULL) return NULL; else return ChrPtr(sSMTP->from); } /* * smtp_do_bounce() is caled by smtp_do_procmsg() to scan a set of delivery * instructions for "5" codes (permanent fatal errors) and produce/deliver * a "bounce" message (delivery status notification). */ void smtp_do_bounce(char *instr, StrBuf *OMsgTxt) { int i; int lines; int status; char buf[1024]; char key[1024]; char addr[1024]; char dsn[1024]; char bounceto[1024]; StrBuf *boundary; int num_bounces = 0; int bounce_this = 0; time_t submitted = 0L; struct CtdlMessage *bmsg = NULL; int give_up = 0; recptypes *valid; int successful_bounce = 0; static int seq = 0; StrBuf *BounceMB; long omsgid = (-1); SMTPCM_syslog(LOG_DEBUG, "smtp_do_bounce() called"); strcpy(bounceto, ""); boundary = NewStrBufPlain(HKEY("=_Citadel_Multipart_")); StrBufAppendPrintf(boundary, "%s_%04x%04x", CtdlGetConfigStr("c_fqdn"), getpid(), ++seq); lines = num_tokens(instr, '\n'); /* See if it's time to give up on delivery of this message */ for (i=0; i SMTP_GIVE_UP ) { give_up = 1; } /* Start building our bounce message */ bmsg = (struct CtdlMessage *) malloc(sizeof(struct CtdlMessage)); if (bmsg == NULL) return; memset(bmsg, 0, sizeof(struct CtdlMessage)); BounceMB = NewStrBufPlain(NULL, 1024); bmsg->cm_magic = CTDLMESSAGE_MAGIC; bmsg->cm_anon_type = MES_NORMAL; bmsg->cm_format_type = FMT_RFC822; CM_SetField(bmsg, eAuthor, HKEY("Citadel")); CM_SetField(bmsg, eOriginalRoom, HKEY(MAILROOM)); CM_SetField(bmsg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(bmsg, eMsgSubject, HKEY("Delivery Status Notification (Failure)")); StrBufAppendBufPlain(BounceMB, HKEY("Content-type: multipart/mixed; boundary=\""), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("\"\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("MIME-Version: 1.0\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("X-Mailer: " CITADEL "\r\n"), 0); StrBufAppendBufPlain( BounceMB, HKEY("\r\nThis is a multipart message in MIME format." "\r\n\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("--"), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("Content-type: text/plain\r\n\r\n"), 0); if (give_up) { StrBufAppendBufPlain( BounceMB, HKEY("A message you sent could not be delivered " "to some or all of its recipients\ndue to " "prolonged unavailability of its destination(s).\n" "Giving up on the following addresses:\n\n"), 0); } else { StrBufAppendBufPlain( BounceMB, HKEY("A message you sent could not be delivered " "to some or all of its recipients.\n" "The following addresses were undeliverable:\n\n" ), 0); } /* * Now go through the instructions checking for stuff. */ for (i=0; i addr=<%s> status=%d dsn=<%s>", key, addr, status, dsn); if (!strcasecmp(key, "bounceto")) { strcpy(bounceto, addr); } if (!strcasecmp(key, "msgid")) { omsgid = atol(addr); } if (!strcasecmp(key, "remote")) { if (status == 5) bounce_this = 1; if (give_up) bounce_this = 1; } if (bounce_this) { ++num_bounces; StrBufAppendBufPlain(BounceMB, addr, addrlen, 0); StrBufAppendBufPlain(BounceMB, HKEY(": "), 0); StrBufAppendBufPlain(BounceMB, dsn, dsnlen, 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); remove_token(instr, i, '\n'); --i; --lines; } } /* Attach the original message */ if (omsgid >= 0) { StrBufAppendBufPlain(BounceMB, HKEY("--"), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); StrBufAppendBufPlain( BounceMB, HKEY("Content-type: message/rfc822\r\n"), 0); StrBufAppendBufPlain( BounceMB, HKEY("Content-Transfer-Encoding: 7bit\r\n"), 0); StrBufAppendBufPlain( BounceMB, HKEY("Content-Disposition: inline\r\n"), 0); StrBufAppendBufPlain(BounceMB, HKEY("\r\n"), 0); if (OMsgTxt == NULL) { CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputMsg(omsgid, MT_RFC822, HEADERS_ALL, 0, 1, NULL, 0, NULL, NULL, NULL); StrBufAppendBuf(BounceMB, CC->redirect_buffer, 0); FreeStrBuf(&CC->redirect_buffer); } else { StrBufAppendBuf(BounceMB, OMsgTxt, 0); } } /* Close the multipart MIME scope */ StrBufAppendBufPlain(BounceMB, HKEY("--"), 0); StrBufAppendBuf(BounceMB, boundary, 0); StrBufAppendBufPlain(BounceMB, HKEY("--\r\n"), 0); CM_SetAsFieldSB(bmsg, eMesageText, &BounceMB); /* Deliver the bounce if there's anything worth mentioning */ SMTPC_syslog(LOG_DEBUG, "num_bounces = %d\n", num_bounces); if (num_bounces > 0) { /* First try the user who sent the message */ if (IsEmptyStr(bounceto)) { SMTPCM_syslog(LOG_ERR, "No bounce address specified"); } else { SMTPC_syslog(LOG_DEBUG, "bounce to user <%s>", bounceto); } /* Can we deliver the bounce to the original sender? */ valid = validate_recipients(bounceto, smtp_get_Recipients (), 0); if (valid != NULL) { if (valid->num_error == 0) { CtdlSubmitMsg(bmsg, valid, "", QP_EADDR); successful_bounce = 1; } } /* If not, post it in the Aide> room */ if (successful_bounce == 0) { CtdlSubmitMsg(bmsg, NULL, CtdlGetConfigStr("c_aideroom"), QP_EADDR); } /* Free up the memory we used */ if (valid != NULL) { free_recipients(valid); } } FreeStrBuf(&boundary); CM_Free(bmsg); SMTPCM_syslog(LOG_DEBUG, "Done processing bounces\n"); } citadel-902/modules/smtp/smtp_util.h000066400000000000000000000036141271512031400176170ustar00rootroot00000000000000/* * This module is an SMTP and ESMTP implementation for the Citadel system. * It is compliant with all of the following: * * RFC 821 - Simple Mail Transfer Protocol * RFC 876 - Survey of SMTP Implementations * RFC 1047 - Duplicate messages and SMTP * RFC 1652 - 8 bit MIME * RFC 1869 - Extended Simple Mail Transfer Protocol * RFC 1870 - SMTP Service Extension for Message Size Declaration * RFC 2033 - Local Mail Transfer Protocol * RFC 2197 - SMTP Service Extension for Command Pipelining * RFC 2476 - Message Submission * RFC 2487 - SMTP Service Extension for Secure SMTP over TLS * RFC 2554 - SMTP Service Extension for Authentication * RFC 2821 - Simple Mail Transfer Protocol * RFC 2822 - Internet Message Format * RFC 2920 - SMTP Service Extension for Command Pipelining * * The VRFY and EXPN commands have been removed from this implementation * because nobody uses these commands anymore, except for spammers. * * Copyright (c) 1998-2013 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. * */ const char *smtp_get_Recipients(void); typedef struct _citsmtp { /* Information about the current session */ int command_state; StrBuf *Cmd; StrBuf *helo_node; StrBuf *from; StrBuf *recipients; StrBuf *OneRcpt; int number_of_recipients; int delivery_mode; int message_originated_locally; int is_lmtp; int is_unfiltered; int is_msa; StrBuf *preferred_sender_email; StrBuf *preferred_sender_name; } citsmtp; #define SMTP ((citsmtp *)CC->session_specific_data) void smtp_do_bounce(char *instr, StrBuf *OMsgTxt); citadel-902/modules/smtp/smtpqueue.h000066400000000000000000000053141271512031400176260ustar00rootroot00000000000000/* * * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ /*****************************************************************************/ /* SMTP CLIENT (Queue Management) STUFF */ /*****************************************************************************/ #define MaxAttempts 15 extern const unsigned short DefaultMXPort; typedef struct _mailq_entry { StrBuf *Recipient; StrBuf *StatusMessage; StrBuf *AllStatusMessages; int Status; /**< * 0 = No delivery has yet been attempted * 2 = Delivery was successful * 3 = Transient error like connection problem. Try next remote if available. * 4 = A transient error was experienced ... try again later * 5 = Delivery to this address failed permanently. The error message * should be placed in the fourth field so that a bounce message may * be generated. */ int n; int Active; int StillActive; int nAttempt; }MailQEntry; typedef struct queueitem { long SendBounceMail; long MessageID; long QueMsgID; long Submitted; int FailNow; HashList *MailQEntries; /* copy of the currently parsed item in the MailQEntries list; * if null add a new one. */ MailQEntry *Current; time_t ReattemptWhen; time_t Retry; long ActiveDeliveries; long NotYetShutdownDeliveries; StrBuf *EnvelopeFrom; StrBuf *BounceTo; StrBuf *SenderRoom; ParsedURL *URL; ParsedURL *FallBackHost; int HaveRelay; } OneQueItem; typedef void (*QItemHandler)(OneQueItem *Item, StrBuf *Line, const char **Pos); typedef struct __QItemHandlerStruct { QItemHandler H; } QItemHandlerStruct; int DecreaseQReference(OneQueItem *MyQItem); void DecreaseShutdownDeliveries(OneQueItem *MyQItem); int GetShutdownDeliveries(OneQueItem *MyQItem); void RemoveQItem(OneQueItem *MyQItem); int CountActiveQueueEntries(OneQueItem *MyQItem, int before); StrBuf *SerializeQueueItem(OneQueItem *MyQItem); void smtpq_do_bounce(OneQueItem *MyQItem, StrBuf *OMsgTxt, ParsedURL *Relay); int CheckQEntryIsBounce(MailQEntry *ThisItem); citadel-902/modules/spam/000077500000000000000000000000001271512031400153775ustar00rootroot00000000000000citadel-902/modules/spam/serv_spam.c000066400000000000000000000117001271512031400175410ustar00rootroot00000000000000/* * This module allows Citadel to use SpamAssassin to filter incoming messages * arriving via SMTP. For more information on SpamAssassin, visit * http://www.spamassassin.org (the SpamAssassin project is not in any way * affiliated with the Citadel project). * * Copyright (c) 1998-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #define SPAMASSASSIN_PORT "783" #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "domain.h" #include "clientsocket.h" #include "ctdl_module.h" /* * Connect to the SpamAssassin server and scan a message. */ int spam_assassin(struct CtdlMessage *msg, recptypes *recp) { int sock = (-1); char sahosts[SIZ]; int num_sahosts; char buf[SIZ]; int is_spam = 0; int sa; StrBuf *msgtext; CitContext *CCC=CC; /* For users who have authenticated to this server we never want to * apply spam filtering, because presumably they're trustworthy. */ if (CC->logged_in) return(0); /* See if we have any SpamAssassin hosts configured */ num_sahosts = get_hosts(sahosts, "spamassassin"); if (num_sahosts < 1) return(0); /* Try them one by one until we get a working one */ for (sa=0; sa\n", buf); sock = sock_connect(buf, SPAMASSASSIN_PORT); if (sock >= 0) syslog(LOG_DEBUG, "Connected!\n"); } if (sock < 0) { /* If the service isn't running, just pass the mail * through. Potentially throwing away mails isn't good. */ return(0); } CCC->SBuf.Buf = NewStrBuf(); CCC->sMigrateBuf = NewStrBuf(); CCC->SBuf.ReadWritePointer = NULL; /* Command */ syslog(LOG_DEBUG, "Transmitting command\n"); sprintf(buf, "CHECK SPAMC/1.2\r\n\r\n"); sock_write(&sock, buf, strlen(buf)); /* Message */ CCC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputPreLoadedMsg(msg, MT_RFC822, HEADERS_ALL, 0, 1, 0); msgtext = CC->redirect_buffer; CC->redirect_buffer = NULL; sock_write(&sock, SKEY(msgtext)); FreeStrBuf(&msgtext); /* Close one end of the socket connection; this tells SpamAssassin * that we're done. */ if (sock != -1) sock_shutdown(sock, SHUT_WR); /* Response */ syslog(LOG_DEBUG, "Awaiting response\n"); if (sock_getln(&sock, buf, sizeof buf) < 0) { goto bail; } syslog(LOG_DEBUG, "<%s\n", buf); if (strncasecmp(buf, "SPAMD", 5)) { goto bail; } if (sock_getln(&sock, buf, sizeof buf) < 0) { goto bail; } syslog(LOG_DEBUG, "<%s\n", buf); syslog(LOG_DEBUG, "c_spam_flag_only setting %d\n", CtdlGetConfigInt("c_spam_flag_only")); if (CtdlGetConfigInt("c_spam_flag_only")) { int headerlen; char *cur; char sastatus[10]; char sascore[10]; char saoutof[10]; int numscore; syslog(LOG_DEBUG, "flag spam code used"); extract_token(sastatus, buf, 1, ' ', sizeof sastatus); extract_token(sascore, buf, 3, ' ', sizeof sascore); extract_token(saoutof, buf, 5, ' ', sizeof saoutof); memcpy(buf, HKEY("X-Spam-Level: ")); cur = buf + 14; for (numscore = atoi(sascore); numscore>0; numscore--) *(cur++) = '*'; *cur = '\0'; headerlen = cur - buf; headerlen += snprintf(cur, (sizeof(buf) - headerlen), "\r\nX-Spam-Status: %s, score=%s required=%s\r\n", sastatus, sascore, saoutof); CM_PrependToField(msg, eMesageText, buf, headerlen); } else { syslog(LOG_DEBUG, "reject spam code used"); if (!strncasecmp(buf, "Spam: True", 10)) { is_spam = 1; } if (is_spam) { CM_SetField(msg, eErrorMsg, HKEY("message rejected by spam filter")); } } bail: close(sock); FreeStrBuf(&CCC->SBuf.Buf); FreeStrBuf(&CCC->sMigrateBuf); return(is_spam); } CTDL_MODULE_INIT(spam) { if (!threading) { CtdlRegisterMessageHook(spam_assassin, EVT_SMTPSCAN); } /* return our module name for the log */ return "spam"; } citadel-902/modules/test/000077500000000000000000000000001271512031400154165ustar00rootroot00000000000000citadel-902/modules/test/serv_test.c000066400000000000000000000037301271512031400176030ustar00rootroot00000000000000/* * This is an empty skeleton of a Citadel server module, included to demonstrate * how to add a new module to the system and how to activate it in the server. * * Copyright (c) 1998-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include "ctdl_module.h" void CleanupTest(void) { syslog(LOG_DEBUG, "--- test of adding an unload hook --- \n"); } void NewRoomTest(void) { syslog(LOG_DEBUG, "--- test module was told we're now in a new room ---\n"); } void SessionStartTest(void) { syslog(LOG_DEBUG, "--- starting up session %d ---\n", CC->cs_pid); } void SessionStopTest(void) { syslog(LOG_DEBUG, "--- ending session %d ---\n", CC->cs_pid); } void LoginTest(void) { syslog(LOG_DEBUG, "--- Hello, %s ---\n", CC->curr_user); } /* To insert this module into the server activate the next block by changing the #if 0 to #if 1 */ CTDL_MODULE_INIT(test) { #if 0 if (!threading) { CtdlRegisterCleanupHook(CleanupTest); CtdlRegisterSessionHook(NewRoomTest, EVT_NEWROOM, 1); CtdlRegisterSessionHook(SessionStartTest, EVT_START, 1); CtdlRegisterSessionHook(SessionStopTest, EVT_STOP, 1); CtdlRegisterSessionHook(LoginTest, EVT_LOGIN, 1); } #endif /* return our module name for the log */ return "test"; } citadel-902/modules/upgrade/000077500000000000000000000000001271512031400160665ustar00rootroot00000000000000citadel-902/modules/upgrade/serv_upgrade.c000066400000000000000000000305361271512031400207270ustar00rootroot00000000000000/* * Transparently handle the upgrading of server data formats. If we see * an existing version number of our database, we can make some intelligent * guesses about what kind of data format changes need to be applied, and * we apply them transparently. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or * modify it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "database.h" #include "user_ops.h" #include "msgbase.h" #include "serv_upgrade.h" #include "euidindex.h" #include "ctdl_module.h" /* * Fix up the name for Citadel user 0 and try to remove any extra users with number 0 */ void fix_sys_user_name(void) { struct ctdluser usbuf; char usernamekey[USERNAME_SIZE]; /** If we have a user called Citadel rename them to SYS_Citadel */ if (CtdlGetUser(&usbuf, "Citadel") == 0) { rename_user("Citadel", "SYS_Citadel"); } while (CtdlGetUserByNumber(&usbuf, 0) == 0) { /* delete user with number 0 and no name */ if (IsEmptyStr(usbuf.fullname)) { cdb_delete(CDB_USERS, "", 0); } else { /* temporarily set this user to -1 */ usbuf.usernum = -1; CtdlPutUser(&usbuf); } } /* Make sure user SYS_* is user 0 */ while (CtdlGetUserByNumber(&usbuf, -1) == 0) { if (strncmp(usbuf.fullname, "SYS_", 4)) { /* Delete any user 0 that doesn't start with SYS_ */ makeuserkey(usernamekey, usbuf.fullname, cutuserkey(usbuf.fullname)); cdb_delete(CDB_USERS, usernamekey, strlen(usernamekey)); } else { usbuf.usernum = 0; CtdlPutUser(&usbuf); } } } /* * Back end processing function for convert_ctdluid_to_minusone() */ void cbtm_backend(struct ctdluser *usbuf, void *data) { static struct UserProcList *uplist = NULL; struct UserProcList *ptr; struct ctdluser us; /* Lazy programming here. Call this function as a ForEachUser backend * in order to queue up the room names, or call it with a null user * to make it do the processing. */ if (usbuf != NULL) { ptr = (struct UserProcList *) malloc(sizeof (struct UserProcList)); if (ptr == NULL) return; safestrncpy(ptr->user, usbuf->fullname, sizeof ptr->user); ptr->next = uplist; uplist = ptr; return; } while (uplist != NULL) { if (CtdlGetUserLock(&us, uplist->user) == 0) { syslog(LOG_DEBUG, "Processing <%s>...", uplist->user); if (us.uid == CTDLUID) { us.uid = (-1); } CtdlPutUserLock(&us); } ptr = uplist; uplist = uplist->next; free(ptr); } } /* * quick fix to change all CTDLUID users to (-1) */ void convert_ctdluid_to_minusone(void) { syslog(LOG_WARNING, "Applying uid changes"); ForEachUser(cbtm_backend, NULL); cbtm_backend(NULL, NULL); return; } /* * These accounts may have been created by code that ran between mid 2008 and early 2011. * If present they are no longer in use and may be deleted. */ void remove_thread_users(void) { char *deleteusers[] = { "SYS_checkpoint", "SYS_extnotify", "SYS_IGnet Queue", "SYS_indexer", "SYS_network", "SYS_popclient", "SYS_purger", "SYS_rssclient", "SYS_select_on_master", "SYS_SMTP Send" }; int i; struct ctdluser usbuf; for (i=0; i<(sizeof(deleteusers)/sizeof(char *)); ++i) { if (CtdlGetUser(&usbuf, deleteusers[i]) == 0) { usbuf.axlevel = 0; strcpy(usbuf.password, "deleteme"); CtdlPutUser(&usbuf); syslog(LOG_INFO, "System user account <%s> is no longer in use and will be deleted.", deleteusers[i] ); } } } /* * Attempt to guess the name of the time zone currently in use * on the underlying host system. */ void guess_time_zone(void) { FILE *fp; char buf[PATH_MAX]; fp = popen(file_guesstimezone, "r"); if (fp) { if (fgets(buf, sizeof buf, fp) && (strlen(buf) > 2)) { buf[strlen(buf)-1] = 0; CtdlSetConfigStr("c_default_cal_zone", buf); syslog(LOG_INFO, "Configuring timezone: %s", buf); } fclose(fp); } } /* * Per-room callback function for ingest_old_roominfo_and_roompic_files() * * This is the second pass, where we process the list of rooms with info or pic files. */ void iorarf_oneroom(char *roomname, char *infofile, char *picfile) { FILE *fp; long data_length; char *unencoded_data; char *encoded_data; long info_msgnum = 0; long pic_msgnum = 0; char subject[SIZ]; // Test for the presence of a legacy "room info file" if (!IsEmptyStr(infofile)) { fp = fopen(infofile, "r"); } else { fp = NULL; } if (fp) { fseek(fp, 0, SEEK_END); data_length = ftell(fp); if (data_length >= 1) { rewind(fp); unencoded_data = malloc(data_length); if (unencoded_data) { fread(unencoded_data, data_length, 1, fp); encoded_data = malloc((data_length * 2) + 100); if (encoded_data) { sprintf(encoded_data, "Content-type: text/plain\nContent-transfer-encoding: base64\n\n"); CtdlEncodeBase64(&encoded_data[strlen(encoded_data)], unencoded_data, data_length, 1); snprintf(subject, sizeof subject, "Imported room banner for %s", roomname); info_msgnum = quickie_message("Citadel", NULL, NULL, SYSCONFIGROOM, encoded_data, FMT_RFC822, subject); free(encoded_data); } free(unencoded_data); } } fclose(fp); if (info_msgnum > 0) unlink(infofile); } // Test for the presence of a legacy "room picture file" and import it. if (!IsEmptyStr(picfile)) { fp = fopen(picfile, "r"); } else { fp = NULL; } if (fp) { fseek(fp, 0, SEEK_END); data_length = ftell(fp); if (data_length >= 1) { rewind(fp); unencoded_data = malloc(data_length); if (unencoded_data) { fread(unencoded_data, data_length, 1, fp); encoded_data = malloc((data_length * 2) + 100); if (encoded_data) { sprintf(encoded_data, "Content-type: image/gif\nContent-transfer-encoding: base64\n\n"); CtdlEncodeBase64(&encoded_data[strlen(encoded_data)], unencoded_data, data_length, 1); snprintf(subject, sizeof subject, "Imported room icon for %s", roomname); pic_msgnum = quickie_message("Citadel", NULL, NULL, SYSCONFIGROOM, encoded_data, FMT_RFC822, subject); free(encoded_data); } free(unencoded_data); } } fclose(fp); if (pic_msgnum > 0) unlink(picfile); } // Now we have the message numbers of our new banner and icon. Record them in the room record. // NOTE: we are not deleting the old msgnum_info because that position in the record was previously // a pointer to the highest message number which existed in the room when the info file was saved, // and we don't want to delete messages that are not *actually* old banners. struct ctdlroom qrbuf; if (CtdlGetRoomLock(&qrbuf, roomname) == 0) { qrbuf.msgnum_info = info_msgnum; qrbuf.msgnum_pic = pic_msgnum; CtdlPutRoomLock(&qrbuf); } } struct iorarf_list { struct iorarf_list *next; char name[ROOMNAMELEN]; char info[PATH_MAX]; char pic[PATH_MAX]; }; /* * Per-room callback function for ingest_old_roominfo_and_roompic_files() * * This is the first pass, where the list of qualifying rooms is gathered. */ void iorarf_backend(struct ctdlroom *qrbuf, void *data) { FILE *fp; struct iorarf_list **iorarf_list = (struct iorarf_list **)data; struct iorarf_list *i = malloc(sizeof(struct iorarf_list)); i->next = *iorarf_list; strcpy(i->name, qrbuf->QRname); strcpy(i->info, ""); strcpy(i->pic, ""); // Test for the presence of a legacy "room info file" assoc_file_name(i->info, sizeof i->info, qrbuf, ctdl_info_dir); fp = fopen(i->info, "r"); if (fp) { fclose(fp); } else { i->info[0] = 0; } // Test for the presence of a legacy "room picture file" assoc_file_name(i->pic, sizeof i->pic, qrbuf, ctdl_image_dir); fp = fopen(i->pic, "r"); if (fp) { fclose(fp); } else { i->pic[0] = 0; } if ( (!IsEmptyStr(i->info)) || (!IsEmptyStr(i->pic)) ) { *iorarf_list = i; } else { free(i); } } /* * Prior to Citadel Server version 902, room info and pictures (which comprise the * displayed banner for each room) were stored in the filesystem. If we are upgrading * from version >000 to version >=902, ingest those files into the database. */ void ingest_old_roominfo_and_roompic_files(void) { struct iorarf_list *il = NULL; CtdlForEachRoom(iorarf_backend, &il); struct iorarf_list *p; while (il) { iorarf_oneroom(il->name, il->info, il->pic); p = il->next; free(il); il = p; } unlink(ctdl_info_dir); } /* * Perform any upgrades that can be done automatically based on our knowledge of the previous * version of Citadel server that was running here. * * Note that if the previous version was 0 then this is a new installation running for the first time. */ void update_config(void) { int oldver = CtdlGetConfigInt("MM_hosted_upgrade_level"); if (oldver < 606) { CtdlSetConfigInt("c_rfc822_strict_from", 0); } if (oldver < 609) { CtdlSetConfigInt("c_purge_hour", 3); } if (oldver < 615) { CtdlSetConfigInt("c_ldap_port", 389); } if (oldver < 623) { CtdlSetConfigStr("c_ip_addr", "*"); } if (oldver < 650) { CtdlSetConfigInt("c_enable_fulltext", 1); } if (oldver < 652) { CtdlSetConfigInt("c_auto_cull", 1); } if (oldver < 725) { CtdlSetConfigInt("c_xmpp_c2s_port", 5222); CtdlSetConfigInt("c_xmpp_s2s_port", 5269); } if (oldver < 830) { CtdlSetConfigInt("c_nntp_port", 119); CtdlSetConfigInt("c_nntps_port", 563); } if (IsEmptyStr(CtdlGetConfigStr("c_default_cal_zone"))) { guess_time_zone(); } } /* * Based on the server version number reported by the existing database, * run in-place data format upgrades until everything is up to date. */ void check_server_upgrades(void) { syslog(LOG_INFO, "Existing database version on disk is %d", CtdlGetConfigInt("MM_hosted_upgrade_level")); if (CtdlGetConfigInt("MM_hosted_upgrade_level") < REV_LEVEL) { syslog(LOG_WARNING, "Server hosted updates need to be processed at this time. Please wait..."); } else { return; } update_config(); if ((CtdlGetConfigInt("MM_hosted_upgrade_level") > 000) && (CtdlGetConfigInt("MM_hosted_upgrade_level") < 591)) { syslog(LOG_EMERG, "This database is too old to be upgraded. Citadel server will exit."); exit(EXIT_FAILURE); } if ((CtdlGetConfigInt("MM_hosted_upgrade_level") > 000) && (CtdlGetConfigInt("MM_hosted_upgrade_level") < 608)) { convert_ctdluid_to_minusone(); } if ((CtdlGetConfigInt("MM_hosted_upgrade_level") > 000) && (CtdlGetConfigInt("MM_hosted_upgrade_level") < 659)) { rebuild_euid_index(); } if (CtdlGetConfigInt("MM_hosted_upgrade_level") < 735) { fix_sys_user_name(); } if (CtdlGetConfigInt("MM_hosted_upgrade_level") < 736) { rebuild_usersbynumber(); } if (CtdlGetConfigInt("MM_hosted_upgrade_level") < 790) { remove_thread_users(); } if (CtdlGetConfigInt("MM_hosted_upgrade_level") < 810) { struct ctdlroom QRoom; if (!CtdlGetRoom(&QRoom, SMTP_SPOOLOUT_ROOM)) { QRoom.QRdefaultview = VIEW_QUEUE; CtdlPutRoom(&QRoom); } if (!CtdlGetRoom(&QRoom, FNBL_QUEUE_ROOM)) { QRoom.QRdefaultview = VIEW_QUEUE; CtdlPutRoom(&QRoom); } } if ((CtdlGetConfigInt("MM_hosted_upgrade_level") > 000) && (CtdlGetConfigInt("MM_hosted_upgrade_level") < 902)) { ingest_old_roominfo_and_roompic_files(); } CtdlSetConfigInt("MM_hosted_upgrade_level", REV_LEVEL); /* * Negative values for maxsessions are not allowed. */ if (CtdlGetConfigInt("c_maxsessions") < 0) { CtdlSetConfigInt("c_maxsessions", 0); } /* We need a system default message expiry policy, because this is * the top level and there's no 'higher' policy to fall back on. * By default, do not expire messages at all. */ if (CtdlGetConfigInt("c_ep_mode") == 0) { CtdlSetConfigInt("c_ep_mode", EXPIRE_MANUAL); CtdlSetConfigInt("c_ep_value", 0); } } CTDL_MODULE_UPGRADE(upgrade) { check_server_upgrades(); /* return our module id for the Log */ return "upgrade"; } citadel-902/modules/upgrade/serv_upgrade.h000066400000000000000000000007401271512031400207260ustar00rootroot00000000000000/* * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ citadel-902/modules/urldeshortener/000077500000000000000000000000001271512031400175045ustar00rootroot00000000000000citadel-902/modules/urldeshortener/serv_expand_shorter_urls.c000066400000000000000000000160421271512031400250040ustar00rootroot00000000000000 /* * * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "genstamp.h" #include "domain.h" #include "ctdl_module.h" #include "locate_host.h" #include "citadel_dirs.h" #include "event_client.h" HashList *UrlShorteners = NULL; size_t GetLocationString( void *ptr, size_t size, size_t nmemb, void *userdata) { #define LOCATION "location" if (strncasecmp((char*)ptr, LOCATION, sizeof(LOCATION) - 1) == 0) { StrBuf *pURL = (StrBuf*) userdata; char *pch = (char*) ptr; char *pche; pche = pch + (size * nmemb); pch += sizeof(LOCATION); while (isspace(*pch) || (*pch == ':')) pch ++; while (isspace(*pche) || (*pche == '\0')) pche--; FlushStrBuf(pURL); StrBufPlain(pURL, pch, pche - pch + 1); } return size * nmemb; } eNextState ShutdownLookuUrl(AsyncIO *IO) { //TOOD return eAbort; } eNextState TerminateLookupUrl(AsyncIO *IO) { //TOOD return eAbort; } eNextState TerminateLookupUrlDB(AsyncIO *IO) { //TOOD return eAbort; } eNextState LookupUrlResult(AsyncIO *IO) { return eTerminateConnection; /// /TODO } int LookupUrl(StrBuf *ShorterUrlStr) { CURLcode sta; int rc = 0; CURL *chnd; AsyncIO *IO; IO = (AsyncIO*) malloc(sizeof(AsyncIO)); memset(IO, 0, sizeof(AsyncIO)); IO->CitContext = CloneContext(CC); ParseURL(&IO->ConnectMe, ShorterUrlStr, 80); CurlPrepareURL(IO->ConnectMe); if (! InitcURLIOStruct(IO, // Ctx, NULL, "Citadel RSS ShorterURL Expander", LookupUrlResult, TerminateLookupUrl, TerminateLookupUrlDB, ShutdownLookuUrl)) { syslog(LOG_ALERT, "Unable to initialize libcurl.\n"); goto shutdown; } chnd = IO->HttpReq.chnd; OPT(SSL_VERIFYPEER, 0); OPT(SSL_VERIFYHOST, 0); OPT(FOLLOWLOCATION, 10); #ifdef CURLOPT_HTTP_CONTENT_DECODING OPT(HTTP_CONTENT_DECODING, 1); OPT(ENCODING, ""); #endif OPT(HEADERFUNCTION , GetLocationString); OPT(WRITEHEADER, ShorterUrlStr); if (server_shutting_down) goto shutdown ; QueueCurlContext(IO); shutdown: return rc; } void CrawlMessageForShorterUrls(HashList *pUrls, StrBuf *Message) { int nHits = 0; void *pv; int nShorter = 0; const char *pch; const char *pUrl; ConstStr *pCUrl; while (GetHash(UrlShorteners, IKEY(nShorter), &pv)) { nShorter++; pch = ChrPtr(Message); pUrl = strstr(pch, ChrPtr((StrBuf*)pv)); while ((pUrl != NULL) && (nHits < 99)) { pCUrl = malloc(sizeof(ConstStr)); pCUrl->Key = pUrl; pch = pUrl + StrLength((StrBuf*)pv); while (isalnum(*pch)||(*pch == '-')||(*pch == '/')) pch++; pCUrl->len = pch - pCUrl->Key; Put(pUrls, IKEY(nHits), pCUrl, NULL); nHits ++; pUrl = strstr(pch, ChrPtr((StrBuf*)pv)); } } } int SortConstStrByPosition(const void *Item1, const void *Item2) { const ConstStr *p1, *p2; p1 = (const ConstStr*) Item1; p2 = (const ConstStr*) Item2; if (p1->Key == p2->Key) return 0; if (p1->Key > p2->Key) return 1; return -1; } HashList *GetShorterUrls(StrBuf *Message) { HashList *pUrls; /* we just suspect URL shorteners to be inside of feeds from twitter * or other short content messages, so don't crawl through real blogs. */ if (StrLength(Message) > 500) return NULL; pUrls = NewHash(1, Flathash); CrawlMessageForShorterUrls(pUrls, Message); if (GetCount(pUrls) > 0) return pUrls; else return NULL; } void ExpandShortUrls(StrBuf *Message, HashList *pUrls, int Callback) { StrBuf *Shadow; ConstStr *pCUrl; const char *pch; const char *pche; StrBuf *ShorterUrlStr; HashPos *Pos; const char *Key; void *pv; long len; Shadow = NewStrBufPlain(NULL, StrLength(Message)); SortByPayload (pUrls, SortConstStrByPosition); ShorterUrlStr = NewStrBufPlain(NULL, StrLength(Message)); pch = ChrPtr(Message); pche = pch + StrLength(Message); Pos = GetNewHashPos(pUrls, 1); while (GetNextHashPos(pUrls, Pos, &len, &Key, &pv)) { pCUrl = (ConstStr*) pv; if (pch != pCUrl->Key) StrBufAppendBufPlain(Shadow, pch, pCUrl->Key - pch, 0); StrBufPlain(ShorterUrlStr, CKEY(*pCUrl)); if (LookupUrl(ShorterUrlStr)) { StrBufAppendBufPlain(Shadow, HKEY(""), 0); StrBufAppendBuf(Shadow, ShorterUrlStr, 0); StrBufAppendBufPlain(Shadow, HKEY("["), 0); StrBufAppendBufPlain(Shadow, pCUrl->Key, pCUrl->len, 0); StrBufAppendBufPlain(Shadow, HKEY("]"), 0); } else { StrBufAppendBufPlain(Shadow, HKEY("Key, pCUrl->len, 0); StrBufAppendBufPlain(Shadow, HKEY("\">"), 0); StrBufAppendBufPlain(Shadow, pCUrl->Key, pCUrl->len, 0); StrBufAppendBufPlain(Shadow, HKEY(""), 0); } pch = pCUrl->Key + pCUrl->len + 1; } if (pch < pche) StrBufAppendBufPlain(Shadow, pch, pche - pch, 0); FlushStrBuf(Message); StrBufAppendBuf(Message, Shadow, 0); FreeStrBuf(&ShorterUrlStr); FreeStrBuf(&Shadow); DeleteHashPos(&Pos); DeleteHash(&pUrls); } void LoadUrlShorteners(void) { int i = 0; int fd; const char *POS = NULL; const char *Err = NULL; StrBuf *Content, *Line; UrlShorteners = NewHash(0, Flathash); fd = open(file_citadel_urlshorteners, 0); if (fd != 0) { Content = NewStrBufPlain(NULL, SIZ); Line = NewStrBuf(); while (POS != StrBufNOTNULL) { StrBufTCP_read_buffered_line_fast (Line, Content, &POS, &fd, 1, 1, &Err); StrBufTrim(Line); if ((*ChrPtr(Line) != '#') && (StrLength(Line) > 0)) { Put(UrlShorteners, IKEY(i), Line, HFreeStrBuf); i++; Line = NewStrBuf(); } else FlushStrBuf(Line); if (POS == NULL) POS = StrBufNOTNULL; } FreeStrBuf(&Line); FreeStrBuf(&Content); } close(fd); } void shorter_url_cleanup(void) { DeleteHash(&UrlShorteners); } CTDL_MODULE_INIT(urldeshortener) { if (threading) { syslog(LOG_INFO, "%s\n", curl_version()); } else { LoadUrlShorteners (); CtdlRegisterCleanupHook(shorter_url_cleanup); } return "UrlShortener"; } citadel-902/modules/urldeshortener/serv_expand_shorter_urls.h000066400000000000000000000001331271512031400250030ustar00rootroot00000000000000void ExpandShortUrls(StrBuf *Message, Callback); HashList GetShorterUrls(StrBuf Message); citadel-902/modules/vcard/000077500000000000000000000000001271512031400155365ustar00rootroot00000000000000citadel-902/modules/vcard/serv_vcard.c000066400000000000000000001245641271512031400200540ustar00rootroot00000000000000/* * A server-side module for Citadel which supports address book information * using the standard vCard format. * * Copyright (c) 1999-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ /* * Format of the "Exclusive ID" field of the message containing a user's * vCard. Doesn't matter what it really looks like as long as it's both * unique and consistent (because we use it for replication checking to * delete the old vCard network-wide when the user enters a new one). */ #define VCARD_EXT_FORMAT "Citadel vCard: personal card for %s at %s" /* * Citadel will accept either text/vcard or text/x-vcard as the MIME type * for a vCard. The following definition determines which one it *generates* * when serializing. */ #define VCARD_MIME_TYPE "text/x-vcard" #include "sysdep.h" #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "room_ops.h" #include "internet_addressing.h" #include "serv_vcard.h" #include "citadel_ldap.h" #include "ctdl_module.h" /* * set global flag calling for an aide to validate new users */ void set_mm_valid(void) { int flags = 0; begin_critical_section(S_CONTROL); flags = CtdlGetConfigInt("MMflags"); flags = flags | MM_VALID ; CtdlSetConfigInt("MMflags", flags); end_critical_section(S_CONTROL); } /* * Extract Internet e-mail addresses from a message containing a vCard, and * perform a callback for any found. */ void vcard_extract_internet_addresses(struct CtdlMessage *msg, int (*callback)(char *, char *) ) { struct vCard *v; char *s; char *k; char *addr; char citadel_address[SIZ]; int instance = 0; int found_something = 0; if (CM_IsEmpty(msg, eAuthor)) return; if (CM_IsEmpty(msg, eNodeName)) return; snprintf(citadel_address, sizeof citadel_address, "%s @ %s", msg->cm_fields[eAuthor], msg->cm_fields[eNodeName]); v = vcard_load(msg->cm_fields[eMesageText]); if (v == NULL) return; /* Go through the vCard searching for *all* instances of * the "email;internet" key */ do { s = vcard_get_prop(v, "email", 1, instance, 0); /* get any 'email' field */ k = vcard_get_prop(v, "email", 1, instance++, 1); /* but also learn it with attrs */ if ( (s != NULL) && (k != NULL) && (bmstrcasestr(k, "internet")) ) { addr = strdup(s); striplt(addr); if (!IsEmptyStr(addr)) { if (callback != NULL) { callback(addr, citadel_address); } } free(addr); found_something = 1; } else { found_something = 0; } } while(found_something); vcard_free(v); } ///TODO: gettext! #define _(a) a /* * Callback for vcard_add_to_directory() * (Lotsa ugly nested callbacks. Oh well.) */ int vcard_directory_add_user(char *internet_addr, char *citadel_addr) { struct CitContext *CCC = CC; char buf[SIZ]; /* We have to validate that we're not stepping on someone else's * email address ... but only if we're logged in. Otherwise it's * probably just the networker or something. */ if (CCC->logged_in) { syslog(LOG_DEBUG, "Checking for <%s>...", internet_addr); if (CtdlDirectoryLookup(buf, internet_addr, sizeof buf) == 0) { if (strcasecmp(buf, citadel_addr)) { /* This address belongs to someone else. * Bail out silently without saving. */ syslog(LOG_DEBUG, "DOOP!"); StrBufAppendPrintf(CCC->StatusMessage, "\n%d|", ERROR+ALREADY_EXISTS); StrBufAppendBufPlain(CCC->StatusMessage, internet_addr, -1, 0); StrBufAppendBufPlain(CCC->StatusMessage, HKEY("|"), 0); StrBufAppendBufPlain(CCC->StatusMessage, _("Unable to add this email address again."), -1, 0); StrBufAppendBufPlain(CCC->StatusMessage, HKEY("\n"), 0); return 0; } } } syslog(LOG_INFO, "Adding %s (%s) to directory", citadel_addr, internet_addr); if (CtdlDirectoryAddUser(internet_addr, citadel_addr)) { StrBufAppendPrintf(CCC->StatusMessage, "\n%d|", CIT_OK); StrBufAppendBufPlain(CCC->StatusMessage, internet_addr, -1, 0); StrBufAppendBufPlain(CCC->StatusMessage, HKEY("|"), 0); StrBufAppendBufPlain(CCC->StatusMessage, _("Successfully added email address."), -1, 0); return 1; } else { StrBufAppendPrintf(CCC->StatusMessage, "\n%d|", ERROR+ ILLEGAL_VALUE); StrBufAppendBufPlain(CCC->StatusMessage, internet_addr, -1, 0); StrBufAppendBufPlain(CCC->StatusMessage, HKEY("|"), 0); StrBufAppendBufPlain(CCC->StatusMessage, _("Unable to add this email address. It does not match any local domain."), -1, 0); return 0; } } /* * Back end function for cmd_igab() */ void vcard_add_to_directory(long msgnum, void *data) { struct CtdlMessage *msg; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg != NULL) { vcard_extract_internet_addresses(msg, vcard_directory_add_user); } CM_Free(msg); } /* * Initialize Global Adress Book */ void cmd_igab(char *argbuf) { char hold_rm[ROOMNAMELEN]; if (CtdlAccessCheck(ac_aide)) return; strcpy(hold_rm, CC->room.QRname); /* save current room */ if (CtdlGetRoom(&CC->room, ADDRESS_BOOK_ROOM) != 0) { CtdlGetRoom(&CC->room, hold_rm); cprintf("%d cannot get address book room\n", ERROR + ROOM_NOT_FOUND); return; } /* Empty the existing database first. */ CtdlDirectoryInit(); /* We want *all* vCards in this room */ NewStrBufDupAppendFlush(&CC->StatusMessage, NULL, NULL, 0); CtdlForEachMessage(MSGS_ALL, 0, NULL, "[Tt][Ee][Xx][Tt]/.*[Vv][Cc][Aa][Rr][Dd]$", NULL, vcard_add_to_directory, NULL); CtdlGetRoom(&CC->room, hold_rm); /* return to saved room */ cprintf("%d Directory has been rebuilt.\n", CIT_OK); } /* * See if there is a valid Internet address in a vCard to use for outbound * Internet messages. If there is, stick it in the buffer. */ void extract_inet_email_addrs(char *emailaddrbuf, size_t emailaddrbuf_len, char *secemailaddrbuf, size_t secemailaddrbuf_len, struct vCard *v, int local_addrs_only) { struct CitContext *CCC = CC; /* put this on the stack, just for speed */ char *s, *k, *addr; int instance = 0; int IsDirectoryAddress; int saved_instance = 0; /* Go through the vCard searching for *all* Internet email addresses */ while (s = vcard_get_prop(v, "email", 1, instance, 0), s != NULL) { k = vcard_get_prop(v, "email", 1, instance, 1); if ( (s != NULL) && (k != NULL) && (bmstrcasestr(k, "internet")) ) { addr = strdup(s); striplt(addr); if (!IsEmptyStr(addr)) { IsDirectoryAddress = IsDirectory(addr, 1); if ( IsDirectoryAddress || !local_addrs_only) { ++saved_instance; if ((saved_instance == 1) && (emailaddrbuf != NULL)) { safestrncpy(emailaddrbuf, addr, emailaddrbuf_len); } else if ((saved_instance == 2) && (secemailaddrbuf != NULL)) { safestrncpy(secemailaddrbuf, addr, secemailaddrbuf_len); } else if ((saved_instance > 2) && (secemailaddrbuf != NULL)) { if ( (strlen(addr) + strlen(secemailaddrbuf) + 2) < secemailaddrbuf_len ) { strcat(secemailaddrbuf, "|"); strcat(secemailaddrbuf, addr); } } } if (!IsDirectoryAddress && local_addrs_only) { StrBufAppendPrintf(CCC->StatusMessage, "\n%d|", ERROR+ ILLEGAL_VALUE); StrBufAppendBufPlain(CCC->StatusMessage, addr, -1, 0); StrBufAppendBufPlain(CCC->StatusMessage, HKEY("|"), 0); StrBufAppendBufPlain(CCC->StatusMessage, _("unable to add this emailaddress; its not matching our domain."), -1, 0); } } free(addr); } ++instance; } } /* * See if there is a name / screen name / friendly name in a vCard to use for outbound * Internet messages. If there is, stick it in the buffer. */ void extract_friendly_name(char *namebuf, size_t namebuf_len, struct vCard *v) { char *s; s = vcard_get_prop(v, "fn", 1, 0, 0); if (s == NULL) { s = vcard_get_prop(v, "n", 1, 0, 0); } if (s != NULL) { safestrncpy(namebuf, s, namebuf_len); } } /* * Callback function for vcard_upload_beforesave() hunts for the real vcard in the MIME structure */ void vcard_extract_vcard(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct vCard **v = (struct vCard **) cbuserdata; if ( (!strcasecmp(cbtype, "text/x-vcard")) || (!strcasecmp(cbtype, "text/vcard")) ) { syslog(LOG_DEBUG, "Part %s contains a vCard! Loading...", partnum); if (*v != NULL) { vcard_free(*v); } *v = vcard_load(content); } } /* * This handler detects whether the user is attempting to save a new * vCard as part of his/her personal configuration, and handles the replace * function accordingly (delete the user's existing vCard in the config room * and in the global address book). */ int vcard_upload_beforesave(struct CtdlMessage *msg, recptypes *recp) { struct CitContext *CCC = CC; char *s; char buf[SIZ]; struct ctdluser usbuf; long what_user; struct vCard *v = NULL; char *ser = NULL; int i = 0; int yes_my_citadel_config = 0; int yes_any_vcard_room = 0; if ((!CCC->logged_in) && (CCC->vcard_updated_by_ldap==0)) return(0); /* Only do this if logged in, or if ldap changed the vcard. */ /* Is this some user's "My Citadel Config" room? */ if (((CCC->room.QRflags & QR_MAILBOX) != 0) && (!strcasecmp(&CCC->room.QRname[11], USERCONFIGROOM)) ) { /* Yes, we want to do this */ yes_my_citadel_config = 1; #ifdef VCARD_SAVES_BY_AIDES_ONLY /* Prevent non-aides from performing registration changes, but ldap is ok. */ if ((CCC->user.axlevel < AxAideU) && (CCC->vcard_updated_by_ldap==0)) { return(1); } #endif } /* Is this a room with an address book in it? */ if (CCC->room.QRdefaultview == VIEW_ADDRESSBOOK) { yes_any_vcard_room = 1; } /* If neither condition exists, don't run this hook. */ if ( (!yes_my_citadel_config) && (!yes_any_vcard_room) ) { return(0); } /* If this isn't a MIME message, don't bother. */ if (msg->cm_format_type != 4) return(0); /* Ok, if we got this far, look into the situation further... */ if (CM_IsEmpty(msg, eMesageText)) return(0); mime_parser(CM_RANGE(msg, eMesageText), *vcard_extract_vcard, NULL, NULL, &v, /* user data ptr - put the vcard here */ 0 ); if (v == NULL) return(0); /* no vCards were found in this message */ /* If users cannot create their own accounts, they cannot re-register either. */ if ( (yes_my_citadel_config) && (CtdlGetConfigInt("c_disable_newu")) && (CCC->user.axlevel < AxAideU) && (CCC->vcard_updated_by_ldap==0) ) { return(1); } vcard_get_prop(v, "fn", 1, 0, 0); if (yes_my_citadel_config) { /* Bingo! The user is uploading a new vCard, so * delete the old one. First, figure out which user * is being re-registered... */ what_user = atol(CCC->room.QRname); if (what_user == CCC->user.usernum) { /* It's the logged in user. That was easy. */ memcpy(&usbuf, &CCC->user, sizeof(struct ctdluser)); } else if (CtdlGetUserByNumber(&usbuf, what_user) == 0) { /* We fetched a valid user record */ } else { /* somebody set up us the bomb! */ yes_my_citadel_config = 0; } } if (yes_my_citadel_config) { /* Delete the user's old vCard. This would probably * get taken care of by the replication check, but we * want to make sure there is absolutely only one * vCard in the user's config room at all times. * */ CtdlDeleteMessages(CCC->room.QRname, NULL, 0, "[Tt][Ee][Xx][Tt]/.*[Vv][Cc][Aa][Rr][Dd]$"); /* Make the author of the message the name of the user. */ if (!IsEmptyStr(usbuf.fullname)) { CM_SetField(msg, eAuthor, usbuf.fullname, strlen(usbuf.fullname)); } } /* Insert or replace RFC2739-compliant free/busy URL */ if (yes_my_citadel_config) { sprintf(buf, "http://%s/%s.vfb", CtdlGetConfigStr("c_fqdn"), usbuf.fullname); for (i=0; buf[i]; ++i) { if (buf[i] == ' ') buf[i] = '_'; } vcard_set_prop(v, "FBURL;PREF", buf, 0); } s = vcard_get_prop(v, "UID", 1, 0, 0); if (s == NULL) { /* Note LDAP auth sets UID from the LDAP UUID, use that if it exists. */ /* Enforce local UID policy if applicable */ if (yes_my_citadel_config) { snprintf(buf, sizeof buf, VCARD_EXT_FORMAT, msg->cm_fields[eAuthor], NODENAME); } else { /* If the vCard has no UID, then give it one. */ generate_uuid(buf); } vcard_set_prop(v, "UID", buf, 0); } /* * Set the EUID of the message to the UID of the vCard. */ CM_FlushField(msg, eExclusiveID); s = vcard_get_prop(v, "UID", 1, 0, 0); if (!IsEmptyStr(s)) { CM_SetField(msg, eExclusiveID, s, strlen(s)); if (CM_IsEmpty(msg, eMsgSubject)) { CM_CopyField(msg, eMsgSubject, eExclusiveID); } } /* * Set the Subject to the name in the vCard. */ s = vcard_get_prop(v, "FN", 1, 0, 0); if (s == NULL) { s = vcard_get_prop(v, "N", 1, 0, 0); } if (!IsEmptyStr(s)) { CM_SetField(msg, eMsgSubject, s, strlen(s)); } /* Re-serialize it back into the msg body */ ser = vcard_serialize(v); if (!IsEmptyStr(ser)) { StrBuf *buf; long serlen; serlen = strlen(ser); buf = NewStrBufPlain(NULL, serlen + 1024); StrBufAppendBufPlain(buf, HKEY("Content-type: " VCARD_MIME_TYPE "\r\n\r\n"), 0); StrBufAppendBufPlain(buf, ser, serlen, 0); StrBufAppendBufPlain(buf, HKEY("\r\n"), 0); CM_SetAsFieldSB(msg, eMesageText, &buf); free(ser); } /* Now allow the save to complete. */ vcard_free(v); return(0); } /* * This handler detects whether the user is attempting to save a new * vCard as part of his/her personal configuration, and handles the replace * function accordingly (copy the vCard from the config room to the global * address book). */ int vcard_upload_aftersave(struct CtdlMessage *msg, recptypes *recp) { struct CitContext *CCC = CC; char *ptr; int linelen; long I; struct vCard *v; int is_UserConf=0; int is_MY_UserConf=0; int is_GAB=0; char roomname[ROOMNAMELEN]; if (msg->cm_format_type != 4) return(0); if ((!CCC->logged_in) && (CCC->vcard_updated_by_ldap==0)) return(0); /* Only do this if logged in, or if ldap changed the vcard. */ /* We're interested in user config rooms only. */ if ( !IsEmptyStr(CCC->room.QRname) && (strlen(CCC->room.QRname) >= 12) && (!strcasecmp(&CCC->room.QRname[11], USERCONFIGROOM)) ) { is_UserConf = 1; /* It's someone's config room */ } CtdlMailboxName(roomname, sizeof roomname, &CCC->user, USERCONFIGROOM); if (!strcasecmp(CCC->room.QRname, roomname)) { is_UserConf = 1; is_MY_UserConf = 1; /* It's MY config room */ } if (!strcasecmp(CCC->room.QRname, ADDRESS_BOOK_ROOM)) { is_GAB = 1; /* It's the Global Address Book */ } if (!is_UserConf && !is_GAB) return(0); if (CM_IsEmpty(msg, eMesageText)) return 0; ptr = msg->cm_fields[eMesageText]; CCC->vcard_updated_by_ldap=0; /* As this will write LDAP's previous changes, disallow LDAP change auth until next LDAP change. */ NewStrBufDupAppendFlush(&CCC->StatusMessage, NULL, NULL, 0); StrBufPrintf(CCC->StatusMessage, "%d\n", LISTING_FOLLOWS); while (ptr != NULL) { linelen = strcspn(ptr, "\n"); if (linelen == 0) return(0); /* end of headers */ if ( (!strncasecmp(ptr, "Content-type: text/x-vcard", 26)) || (!strncasecmp(ptr, "Content-type: text/vcard", 24)) ) { /* * Bingo! The user is uploading a new vCard, so * copy it to the Global Address Book room. */ I = atol(msg->cm_fields[eVltMsgNum]); if (I <= 0L) return(0); /* Store our Internet return address in memory */ if (is_MY_UserConf) { v = vcard_load(msg->cm_fields[eMesageText]); extract_inet_email_addrs(CCC->cs_inet_email, sizeof CCC->cs_inet_email, CCC->cs_inet_other_emails, sizeof CCC->cs_inet_other_emails, v, 1); extract_friendly_name(CCC->cs_inet_fn, sizeof CCC->cs_inet_fn, v); vcard_free(v); } if (!is_GAB) { // This is not the GAB /* Put it in the Global Address Book room... */ CtdlSaveMsgPointerInRoom(ADDRESS_BOOK_ROOM, I, 1, msg); } /* ...and also in the directory database. */ vcard_add_to_directory(I, NULL); /* Some sites want an Aide to be notified when a * user registers or re-registers * But if the user was an Aide or was edited by an Aide then we can * Assume they don't need validating. */ if (CCC->user.axlevel >= AxAideU) { CtdlLockGetCurrentUser(); CCC->user.flags |= US_REGIS; CtdlPutCurrentUserLock(); return (0); } set_mm_valid(); /* ...which also means we need to flag the user */ CtdlLockGetCurrentUser(); CCC->user.flags |= (US_REGIS|US_NEEDVALID); CtdlPutCurrentUserLock(); return(0); } ptr = strchr((char *)ptr, '\n'); if (ptr != NULL) ++ptr; } return(0); } /* * back end function used for callbacks */ void vcard_gu_backend(long supplied_msgnum, void *userdata) { long *msgnum; msgnum = (long *) userdata; *msgnum = supplied_msgnum; } /* * If this user has a vcard on disk, read it into memory, otherwise allocate * and return an empty vCard. */ struct vCard *vcard_get_user(struct ctdluser *u) { struct CitContext *CCC = CC; char hold_rm[ROOMNAMELEN]; char config_rm[ROOMNAMELEN]; struct CtdlMessage *msg = NULL; struct vCard *v; long VCmsgnum; strcpy(hold_rm, CCC->room.QRname); /* save current room */ CtdlMailboxName(config_rm, sizeof config_rm, u, USERCONFIGROOM); if (CtdlGetRoom(&CCC->room, config_rm) != 0) { CtdlGetRoom(&CCC->room, hold_rm); return vcard_new(); } /* We want the last (and probably only) vcard in this room */ VCmsgnum = (-1); CtdlForEachMessage(MSGS_LAST, 1, NULL, "[Tt][Ee][Xx][Tt]/.*[Vv][Cc][Aa][Rr][Dd]$", NULL, vcard_gu_backend, (void *)&VCmsgnum ); CtdlGetRoom(&CCC->room, hold_rm); /* return to saved room */ if (VCmsgnum < 0L) return vcard_new(); msg = CtdlFetchMessage(VCmsgnum, 1, 1); if (msg == NULL) return vcard_new(); v = vcard_load(msg->cm_fields[eMesageText]); CM_Free(msg); return v; } /* * Store this user's vCard in the appropriate place */ /* * Write our config to disk */ void vcard_write_user(struct ctdluser *u, struct vCard *v) { char *ser; ser = vcard_serialize(v); if (ser == NULL) { ser = strdup("begin:vcard\r\nend:vcard\r\n"); } if (ser == NULL) return; /* This handy API function does all the work for us. * NOTE: normally we would want to set that last argument to 1, to * force the system to delete the user's old vCard. But it doesn't * have to, because the vcard_upload_beforesave() hook above * is going to notice what we're trying to do, and delete the old vCard. */ CtdlWriteObject(USERCONFIGROOM, /* which room */ VCARD_MIME_TYPE, /* MIME type */ ser, /* data */ strlen(ser)+1, /* length */ u, /* which user */ 0, /* not binary */ 0, /* don't delete others of this type */ 0); /* no flags */ free(ser); } /* * Old style "enter registration info" command. This function simply honors * the REGI protocol command, translates the entered parameters into a vCard, * and enters the vCard into the user's configuration. */ void cmd_regi(char *argbuf) { struct CitContext *CCC = CC; int a,b,c; char buf[SIZ]; struct vCard *my_vcard; char tmpaddr[SIZ]; char tmpcity[SIZ]; char tmpstate[SIZ]; char tmpzip[SIZ]; char tmpaddress[SIZ]; char tmpcountry[SIZ]; unbuffer_output(); if (!(CCC->logged_in)) { cprintf("%d Not logged in.\n",ERROR + NOT_LOGGED_IN); return; } /* If users cannot create their own accounts, they cannot re-register either. */ if ( (CtdlGetConfigInt("c_disable_newu")) && (CCC->user.axlevel < AxAideU) ) { cprintf("%d Self-service registration is not allowed here.\n", ERROR + HIGHER_ACCESS_REQUIRED); } my_vcard = vcard_get_user(&CCC->user); strcpy(tmpaddr, ""); strcpy(tmpcity, ""); strcpy(tmpstate, ""); strcpy(tmpzip, ""); strcpy(tmpcountry, "USA"); cprintf("%d Send registration...\n", SEND_LISTING); a=0; while (client_getln(buf, sizeof buf), strcmp(buf,"000")) { if (a==0) vcard_set_prop(my_vcard, "n", buf, 0); if (a==1) strcpy(tmpaddr, buf); if (a==2) strcpy(tmpcity, buf); if (a==3) strcpy(tmpstate, buf); if (a==4) { for (c=0; buf[c]; ++c) { if ((buf[c]>='0') && (buf[c]<='9')) { b = strlen(tmpzip); tmpzip[b] = buf[c]; tmpzip[b+1] = 0; } } } if (a==5) vcard_set_prop(my_vcard, "tel", buf, 0); if (a==6) vcard_set_prop(my_vcard, "email;internet", buf, 0); if (a==7) strcpy(tmpcountry, buf); ++a; } snprintf(tmpaddress, sizeof tmpaddress, ";;%s;%s;%s;%s;%s", tmpaddr, tmpcity, tmpstate, tmpzip, tmpcountry); vcard_set_prop(my_vcard, "adr", tmpaddress, 0); vcard_write_user(&CCC->user, my_vcard); vcard_free(my_vcard); } /* * Protocol command to fetch registration info for a user */ void cmd_greg(char *argbuf) { struct CitContext *CCC = CC; struct ctdluser usbuf; struct vCard *v; char *s; char who[USERNAME_SIZE]; char adr[256]; char buf[256]; extract_token(who, argbuf, 0, '|', sizeof who); if (!(CCC->logged_in)) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); return; } if (!strcasecmp(who,"_SELF_")) strcpy(who,CCC->curr_user); if ((CCC->user.axlevel < AxAideU) && (strcasecmp(who,CCC->curr_user))) { cprintf("%d Higher access required.\n", ERROR + HIGHER_ACCESS_REQUIRED); return; } if (CtdlGetUser(&usbuf, who) != 0) { cprintf("%d '%s' not found.\n", ERROR + NO_SUCH_USER, who); return; } v = vcard_get_user(&usbuf); cprintf("%d %s\n", LISTING_FOLLOWS, usbuf.fullname); cprintf("%ld\n", usbuf.usernum); cprintf("%s\n", usbuf.password); s = vcard_get_prop(v, "n", 1, 0, 0); cprintf("%s\n", s ? s : " "); /* name */ s = vcard_get_prop(v, "adr", 1, 0, 0); snprintf(adr, sizeof adr, "%s", s ? s : " ");/* address... */ extract_token(buf, adr, 2, ';', sizeof buf); cprintf("%s\n", buf); /* street */ extract_token(buf, adr, 3, ';', sizeof buf); cprintf("%s\n", buf); /* city */ extract_token(buf, adr, 4, ';', sizeof buf); cprintf("%s\n", buf); /* state */ extract_token(buf, adr, 5, ';', sizeof buf); cprintf("%s\n", buf); /* zip */ s = vcard_get_prop(v, "tel", 1, 0, 0); if (s == NULL) s = vcard_get_prop(v, "tel", 1, 0, 0); if (s != NULL) { cprintf("%s\n", s); } else { cprintf(" \n"); } cprintf("%d\n", usbuf.axlevel); s = vcard_get_prop(v, "email;internet", 0, 0, 0); cprintf("%s\n", s ? s : " "); s = vcard_get_prop(v, "adr", 0, 0, 0); snprintf(adr, sizeof adr, "%s", s ? s : " ");/* address... */ extract_token(buf, adr, 6, ';', sizeof buf); cprintf("%s\n", buf); /* country */ cprintf("000\n"); vcard_free(v); } /* * When a user is being created, create his/her vCard. */ void vcard_newuser(struct ctdluser *usbuf) { char vname[256]; char buf[256]; int i; struct vCard *v; int need_default_vcard; need_default_vcard =1; vcard_fn_to_n(vname, usbuf->fullname, sizeof vname); syslog(LOG_DEBUG, "Converted <%s> to <%s>", usbuf->fullname, vname); /* Create and save the vCard */ v = vcard_new(); if (v == NULL) return; vcard_add_prop(v, "fn", usbuf->fullname); vcard_add_prop(v, "n", vname); vcard_add_prop(v, "adr", "adr:;;_;_;_;00000;__"); #ifdef HAVE_GETPWUID_R /* If using host auth mode, we add an email address based on the login */ if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_HOST) { struct passwd pwd; char pwd_buffer[SIZ]; #ifdef SOLARIS_GETPWUID if (getpwuid_r(usbuf->uid, &pwd, pwd_buffer, sizeof pwd_buffer) != NULL) { #else // SOLARIS_GETPWUID struct passwd *result = NULL; syslog(LOG_DEBUG, "Searching for uid %d", usbuf->uid); if (getpwuid_r(usbuf->uid, &pwd, pwd_buffer, sizeof pwd_buffer, &result) == 0) { #endif // HAVE_GETPWUID_R snprintf(buf, sizeof buf, "%s@%s", pwd.pw_name, CtdlGetConfigStr("c_fqdn")); vcard_add_prop(v, "email;internet", buf); need_default_vcard = 0; } } #endif #ifdef HAVE_LDAP /* * Is this an LDAP session? If so, copy various LDAP attributes from the directory entry * into the user's vCard. */ if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) { //uid_t ldap_uid; int found_user; char ldap_cn[512]; char ldap_dn[512]; found_user = CtdlTryUserLDAP(usbuf->fullname, ldap_dn, sizeof ldap_dn, ldap_cn, sizeof ldap_cn, &usbuf->uid,1); if (found_user == 0) { if (Ctdl_LDAP_to_vCard(ldap_dn, v)) { /* Allow global address book and internet directory update without login long enough to write this. */ CC->vcard_updated_by_ldap++; /* Otherwise we'll only update the user config. */ need_default_vcard = 0; syslog(LOG_DEBUG, "LDAP Created Initial Vcard for %s\n",usbuf->fullname); } } } #endif if (need_default_vcard!=0) { /* Everyone gets an email address based on their display name */ snprintf(buf, sizeof buf, "%s@%s", usbuf->fullname, CtdlGetConfigStr("c_fqdn")); for (i=0; buf[i]; ++i) { if (buf[i] == ' ') buf[i] = '_'; } vcard_add_prop(v, "email;internet", buf); } vcard_write_user(usbuf, v); vcard_free(v); } /* * When a user is being deleted, we have to remove his/her vCard. * This is accomplished by issuing a message with 'CANCEL' in the S (special) * field, and the same Exclusive ID as the existing card. */ void vcard_purge(struct ctdluser *usbuf) { struct CtdlMessage *msg; char buf[SIZ]; long len; msg = (struct CtdlMessage *) malloc(sizeof(struct CtdlMessage)); if (msg == NULL) return; memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = 0; if (!IsEmptyStr(usbuf->fullname)) { CM_SetField(msg, eAuthor, usbuf->fullname, strlen(usbuf->fullname)); } CM_SetField(msg, eOriginalRoom, HKEY(ADDRESS_BOOK_ROOM)); CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(msg, eMesageText, HKEY("Purge this vCard\n")); len = snprintf(buf, sizeof buf, VCARD_EXT_FORMAT, msg->cm_fields[eAuthor], NODENAME); CM_SetField(msg, eExclusiveID, buf, len); CM_SetField(msg, eSpecialField, HKEY("CANCEL")); CtdlSubmitMsg(msg, NULL, ADDRESS_BOOK_ROOM, QP_EADDR); CM_Free(msg); } /* * Grab vCard directory stuff out of incoming network messages */ int vcard_extract_from_network(struct CtdlMessage *msg, char *target_room) { char *ptr; int linelen; if (msg == NULL) return(0); if (strcasecmp(target_room, ADDRESS_BOOK_ROOM)) { return(0); } if (msg->cm_format_type != 4) return(0); if (CM_IsEmpty(msg, eMesageText)) return 0; ptr = msg->cm_fields[eMesageText]; while (ptr != NULL) { linelen = strcspn(ptr, "\n"); if (linelen == 0) return(0); /* end of headers */ if ( (!strncasecmp(ptr, "Content-type: text/x-vcard", 26)) || (!strncasecmp(ptr, "Content-type: text/vcard", 24)) ) { /* It's a vCard. Add it to the directory. */ vcard_extract_internet_addresses(msg, CtdlDirectoryAddUser); return(0); } ptr = strchr((char *)ptr, '\n'); if (ptr != NULL) ++ptr; } return(0); } /* * When a vCard is being removed from the Global Address Book room, remove it * from the directory as well. */ void vcard_delete_remove(char *room, long msgnum) { struct CtdlMessage *msg; char *ptr; int linelen; if (msgnum <= 0L) return; if (room == NULL) return; if (strcasecmp(room, ADDRESS_BOOK_ROOM)) { return; } msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; if (CM_IsEmpty(msg, eMesageText)) goto EOH; ptr = msg->cm_fields[eMesageText]; while (ptr != NULL) { linelen = strcspn(ptr, "\n"); if (linelen == 0) goto EOH; if ( (!strncasecmp(ptr, "Content-type: text/x-vcard", 26)) || (!strncasecmp(ptr, "Content-type: text/vcard", 24)) ) { /* Bingo! A vCard is being deleted. */ vcard_extract_internet_addresses(msg, CtdlDirectoryDelUser); } ptr = strchr((char *)ptr, '\n'); if (ptr != NULL) ++ptr; } EOH: CM_Free(msg); } /* * Get Valid Screen Names */ void cmd_gvsn(char *argbuf) { struct CitContext *CCC = CC; if (CtdlAccessCheck(ac_logged_in)) return; cprintf("%d valid screen names:\n", LISTING_FOLLOWS); cprintf("%s\n", CCC->user.fullname); if ( (!IsEmptyStr(CCC->cs_inet_fn)) && (strcasecmp(CCC->user.fullname, CCC->cs_inet_fn)) ) { cprintf("%s\n", CCC->cs_inet_fn); } cprintf("000\n"); } /* * Get Valid Email Addresses */ void cmd_gvea(char *argbuf) { struct CitContext *CCC = CC; int num_secondary_emails = 0; int i; char buf[256]; if (CtdlAccessCheck(ac_logged_in)) return; cprintf("%d valid email addresses:\n", LISTING_FOLLOWS); if (!IsEmptyStr(CCC->cs_inet_email)) { cprintf("%s\n", CCC->cs_inet_email); } if (!IsEmptyStr(CCC->cs_inet_other_emails)) { num_secondary_emails = num_tokens(CCC->cs_inet_other_emails, '|'); for (i=0; ics_inet_other_emails,i,'|',sizeof CCC->cs_inet_other_emails); cprintf("%s\n", buf); } } cprintf("000\n"); } /* * Callback function for cmd_dvca() that hunts for vCard content types * and outputs any email addresses found within. */ void dvca_mime_callback(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct vCard *v; char displayname[256] = ""; int displayname_len; char emailaddr[256] = ""; int i; int has_commas = 0; if ( (strcasecmp(cbtype, "text/vcard")) && (strcasecmp(cbtype, "text/x-vcard")) ) { return; } v = vcard_load(content); if (v == NULL) return; extract_friendly_name(displayname, sizeof displayname, v); extract_inet_email_addrs(emailaddr, sizeof emailaddr, NULL, 0, v, 0); displayname_len = strlen(displayname); for (i=0; i\n", (has_commas ? "\"" : ""), displayname, (has_commas ? "\"" : ""), emailaddr ); vcard_free(v); } /* * Back end callback function for cmd_dvca() * * It's basically just passed a list of message numbers, which we're going * to fetch off the disk and then pass along to the MIME parser via another * layer of callback... */ void dvca_callback(long msgnum, void *userdata) { struct CtdlMessage *msg = NULL; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; mime_parser(CM_RANGE(msg, eMesageText), *dvca_mime_callback, /* callback function */ NULL, NULL, NULL, /* user data */ 0 ); CM_Free(msg); } /* * Dump VCard Addresses */ void cmd_dvca(char *argbuf) { if (CtdlAccessCheck(ac_logged_in)) return; cprintf("%d addresses:\n", LISTING_FOLLOWS); CtdlForEachMessage(MSGS_ALL, 0, NULL, NULL, NULL, dvca_callback, NULL); cprintf("000\n"); } /* * Query Directory */ void cmd_qdir(char *argbuf) { char citadel_addr[256]; char internet_addr[256]; if (CtdlAccessCheck(ac_logged_in)) return; extract_token(internet_addr, argbuf, 0, '|', sizeof internet_addr); if (CtdlDirectoryLookup(citadel_addr, internet_addr, sizeof citadel_addr) != 0) { cprintf("%d %s was not found.\n", ERROR + NO_SUCH_USER, internet_addr); return; } cprintf("%d %s\n", CIT_OK, citadel_addr); } /* * Query Directory, in fact an alias to match postfix tcp auth. */ void check_get(void) { char internet_addr[256]; char cmdbuf[SIZ]; time(&CC->lastcmd); memset(cmdbuf, 0, sizeof cmdbuf); /* Clear it, just in case */ if (client_getln(cmdbuf, sizeof cmdbuf) < 1) { syslog(LOG_CRIT, "vcard client disconnected: ending session."); CC->kill_me = KILLME_CLIENT_DISCONNECTED; return; } syslog(LOG_INFO, ": %s", cmdbuf); while (strlen(cmdbuf) < 3) strcat(cmdbuf, " "); syslog(LOG_INFO, "[ %s]", cmdbuf); if (strncasecmp(cmdbuf, "GET ", 4)==0) { recptypes *rcpt; char *argbuf = &cmdbuf[4]; extract_token(internet_addr, argbuf, 0, '|', sizeof internet_addr); rcpt = validate_recipients(internet_addr, NULL, CHECK_EXISTANCE); if ((rcpt != NULL)&& ( (*rcpt->recp_local != '\0')|| (*rcpt->recp_room != '\0')|| (*rcpt->recp_ignet != '\0'))) { cprintf("200 OK %s\n", internet_addr); syslog(LOG_INFO, "sending 200 OK for the room %s", rcpt->display_recp); } else { cprintf("500 REJECT noone here by that name.\n"); syslog(LOG_INFO, "sending 500 REJECT no one here by that name: %s", internet_addr); } if (rcpt != NULL) free_recipients(rcpt); } else { cprintf("500 REJECT invalid Query.\n"); syslog(LOG_INFO, "sending 500 REJECT invalid query: %s", internet_addr); } } void check_get_greeting(void) { /* dummy function, we have no greeting in this verry simple protocol. */ } /* * We don't know if the Contacts room exists so we just create it at login */ void vcard_CtdlCreateRoom(void) { struct ctdlroom qr; visit vbuf; /* Create the calendar room if it doesn't already exist */ CtdlCreateRoom(USERCONTACTSROOM, 4, "", 0, 1, 0, VIEW_ADDRESSBOOK); /* Set expiration policy to manual; otherwise objects will be lost! */ if (CtdlGetRoomLock(&qr, USERCONTACTSROOM)) { syslog(LOG_ERR, "Couldn't get the user CONTACTS room!"); return; } qr.QRep.expire_mode = EXPIRE_MANUAL; qr.QRdefaultview = VIEW_ADDRESSBOOK; /* 2 = address book view */ CtdlPutRoomLock(&qr); /* Set the view to a calendar view */ CtdlGetRelationship(&vbuf, &CC->user, &qr); vbuf.v_view = 2; /* 2 = address book view */ CtdlSetRelationship(&vbuf, &CC->user, &qr); return; } /* * When a user logs in... */ void vcard_session_login_hook(void) { struct vCard *v = NULL; struct CitContext *CCC = CC; /* put this on the stack, just for speed */ #ifdef HAVE_LDAP /* * Is this an LDAP session? If so, copy various LDAP attributes from the directory entry * into the user's vCard. */ if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) { v = vcard_get_user(&CCC->user); if (v) { if (Ctdl_LDAP_to_vCard(CCC->ldap_dn, v)) { CCC->vcard_updated_by_ldap++; /* Make sure changes make it to the global address book and internet directory, not just the user config. */ syslog(LOG_DEBUG, "LDAP Detected vcard change.\n"); vcard_write_user(&CCC->user, v); } } } #endif /* * Extract from the user's vCard, any Internet email addresses and the user's real name. * These are inserted into the session data for various message entry commands to use. */ v = vcard_get_user(&CCC->user); if (v) { extract_inet_email_addrs(CCC->cs_inet_email, sizeof CCC->cs_inet_email, CCC->cs_inet_other_emails, sizeof CCC->cs_inet_other_emails, v, 1 ); extract_friendly_name(CCC->cs_inet_fn, sizeof CCC->cs_inet_fn, v); vcard_free(v); } /* * Create the user's 'Contacts' room (personal address book) if it doesn't already exist. */ vcard_CtdlCreateRoom(); } /* * Turn an arbitrary RFC822 address into a struct vCard for possible * inclusion into an address book. */ struct vCard *vcard_new_from_rfc822_addr(char *addr) { struct vCard *v; char user[256], node[256], name[256], email[256], n[256], uid[256]; int i; v = vcard_new(); if (v == NULL) return(NULL); process_rfc822_addr(addr, user, node, name); vcard_set_prop(v, "fn", name, 0); vcard_fn_to_n(n, name, sizeof n); vcard_set_prop(v, "n", n, 0); snprintf(email, sizeof email, "%s@%s", user, node); vcard_set_prop(v, "email;internet", email, 0); snprintf(uid, sizeof uid, "collected: %s %s@%s", name, user, node); for (i=0; uid[i]; ++i) { if (isspace(uid[i])) uid[i] = '_'; uid[i] = tolower(uid[i]); } vcard_set_prop(v, "UID", uid, 0); return(v); } /* * This is called by store_harvested_addresses() to remove from the * list any addresses we already have in our address book. */ void strip_addresses_already_have(long msgnum, void *userdata) { char *collected_addresses; struct CtdlMessage *msg = NULL; struct vCard *v; char *value = NULL; int i, j; char addr[256], user[256], node[256], name[256]; collected_addresses = (char *)userdata; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; v = vcard_load(msg->cm_fields[eMesageText]); CM_Free(msg); i = 0; while (value = vcard_get_prop(v, "email", 1, i++, 0), value != NULL) { for (j=0; jroomname, 0, 0, NULL, NULL, NULL, NULL); CtdlForEachMessage(MSGS_ALL, 0, NULL, "[Tt][Ee][Xx][Tt]/.*[Vv][Cc][Aa][Rr][Dd]$", NULL, strip_addresses_already_have, aptr->collected_addresses); if (!IsEmptyStr(aptr->collected_addresses)) for (i=0; icollected_addresses, ','); ++i) { /* Make a vCard out of each address */ extract_token(recipient, aptr->collected_addresses, i, ',', sizeof recipient); striplt(recipient); v = vcard_new_from_rfc822_addr(recipient); if (v != NULL) { const char *s; vmsg = malloc(sizeof(struct CtdlMessage)); memset(vmsg, 0, sizeof(struct CtdlMessage)); vmsg->cm_magic = CTDLMESSAGE_MAGIC; vmsg->cm_anon_type = MES_NORMAL; vmsg->cm_format_type = FMT_RFC822; CM_SetField(vmsg, eAuthor, HKEY("Citadel")); s = vcard_get_prop(v, "UID", 1, 0, 0); if (!IsEmptyStr(s)) { CM_SetField(vmsg, eExclusiveID, s, strlen(s)); } ser = vcard_serialize(v); if (ser != NULL) { StrBuf *buf; long serlen; serlen = strlen(ser); buf = NewStrBufPlain(NULL, serlen + 1024); StrBufAppendBufPlain(buf, HKEY("Content-type: " VCARD_MIME_TYPE "\r\n\r\n"), 0); StrBufAppendBufPlain(buf, ser, serlen, 0); StrBufAppendBufPlain(buf, HKEY("\r\n"), 0); CM_SetAsFieldSB(vmsg, eMesageText, &buf); free(ser); } vcard_free(v); syslog(LOG_DEBUG, "Adding contact: %s", recipient); CtdlSubmitMsg(vmsg, NULL, aptr->roomname, QP_EADDR); CM_Free(vmsg); } } free(aptr->roomname); free(aptr->collected_addresses); free(aptr); } /* * When a user sends a message, we may harvest one or more email addresses * from the recipient list to be added to the user's address book. But we * want to do this asynchronously so it doesn't keep the user waiting. */ void store_harvested_addresses(void) { struct addresses_to_be_filed *aptr = NULL; if (atbf == NULL) return; begin_critical_section(S_ATBF); while (atbf != NULL) { aptr = atbf; atbf = atbf->next; end_critical_section(S_ATBF); store_this_ha(aptr); begin_critical_section(S_ATBF); } end_critical_section(S_ATBF); } /* * Function to output vCard data as plain text. Nobody uses MSG0 anymore, so * really this is just so we expose the vCard data to the full text indexer. */ void vcard_fixed_output(char *ptr, int len) { char *serialized_vcard; struct vCard *v; char *key, *value; int i = 0; serialized_vcard = malloc(len + 1); safestrncpy(serialized_vcard, ptr, len+1); v = vcard_load(serialized_vcard); free(serialized_vcard); i = 0; while (key = vcard_get_prop(v, "", 0, i, 1), key != NULL) { value = vcard_get_prop(v, "", 0, i++, 0); cprintf("%s\n", value); } vcard_free(v); } const char *CitadelServiceDICT_TCP="DICT_TCP"; CTDL_MODULE_INIT(vcard) { struct ctdlroom qr; char filename[256]; FILE *fp; int rv = 0; if (!threading) { CtdlRegisterSessionHook(vcard_session_login_hook, EVT_LOGIN, PRIO_LOGIN + 70); CtdlRegisterMessageHook(vcard_upload_beforesave, EVT_BEFORESAVE); CtdlRegisterMessageHook(vcard_upload_aftersave, EVT_AFTERSAVE); CtdlRegisterDeleteHook(vcard_delete_remove); CtdlRegisterProtoHook(cmd_regi, "REGI", "Enter registration info"); CtdlRegisterProtoHook(cmd_greg, "GREG", "Get registration info"); CtdlRegisterProtoHook(cmd_igab, "IGAB", "Initialize Global Address Book"); CtdlRegisterProtoHook(cmd_qdir, "QDIR", "Query Directory"); CtdlRegisterProtoHook(cmd_gvsn, "GVSN", "Get Valid Screen Names"); CtdlRegisterProtoHook(cmd_gvea, "GVEA", "Get Valid Email Addresses"); CtdlRegisterProtoHook(cmd_dvca, "DVCA", "Dump VCard Addresses"); CtdlRegisterUserHook(vcard_newuser, EVT_NEWUSER); CtdlRegisterUserHook(vcard_purge, EVT_PURGEUSER); CtdlRegisterNetprocHook(vcard_extract_from_network); CtdlRegisterSessionHook(store_harvested_addresses, EVT_TIMER, PRIO_CLEANUP + 470); CtdlRegisterFixedOutputHook("text/x-vcard", vcard_fixed_output); CtdlRegisterFixedOutputHook("text/vcard", vcard_fixed_output); /* Create the Global ADdress Book room if necessary */ CtdlCreateRoom(ADDRESS_BOOK_ROOM, 3, "", 0, 1, 0, VIEW_ADDRESSBOOK); /* Set expiration policy to manual; otherwise objects will be lost! */ if (!CtdlGetRoomLock(&qr, ADDRESS_BOOK_ROOM)) { qr.QRep.expire_mode = EXPIRE_MANUAL; qr.QRdefaultview = VIEW_ADDRESSBOOK; /* 2 = address book view */ CtdlPutRoomLock(&qr); /* * Also make sure it has a netconfig file, so the networker runs * on this room even if we don't share it with any other nodes. * This allows the CANCEL messages (i.e. "Purge this vCard") to be * purged. * * FIXME this no longer works */ assoc_file_name(filename, sizeof filename, &qr, ctdl_netcfg_dir); fp = fopen(filename, "a"); if (fp != NULL) { fclose(fp); rv = chown(filename, CTDLUID, (-1)); if (rv == -1) { syslog(LOG_ERR, "Failed to adjust ownership of %s: %s", filename, strerror(errno)); } rv = chmod(filename, 0600); if (rv == -1) { syslog(LOG_ERR, "Failed to adjust ownership of %s: %s", filename, strerror(errno)); } } else { syslog(LOG_ERR, "Cannot create %s: %s", filename, strerror(errno)); } } /* for postfix tcpdict */ CtdlRegisterServiceHook(CtdlGetConfigInt("c_pftcpdict_port"), /* Postfix */ NULL, check_get_greeting, check_get, NULL, CitadelServiceDICT_TCP); } /* return our module name for the log */ return "vcard"; } citadel-902/modules/wiki/000077500000000000000000000000001271512031400154025ustar00rootroot00000000000000citadel-902/modules/wiki/serv_wiki.c000066400000000000000000000507001271512031400175520ustar00rootroot00000000000000/* * Server-side module for Wiki rooms. This handles things like version control. * * Copyright (c) 2009-2015 by the citadel.org team * * This program is open source software. You can redistribute it and/or * modify it under the terms of the GNU General Public License, version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "room_ops.h" #include "database.h" #include "msgbase.h" #include "euidindex.h" #include "ctdl_module.h" /* * Data passed back and forth between wiki_rev() and its MIME parser callback */ struct HistoryEraserCallBackData { char *tempfilename; /* name of temp file being patched */ char *stop_when; /* stop when we hit this uuid */ int done; /* set to nonzero when we're done patching */ }; /* * Name of the temporary room we create to store old revisions when someone requests them. * We put it in an invalid namespace so the DAP cleans up after us later. */ char *wwm = "9999999999.WikiWaybackMachine"; /* * Before allowing a wiki page save to execute, we have to perform version control. * This involves fetching the old version of the page if it exists. */ int wiki_upload_beforesave(struct CtdlMessage *msg, recptypes *recp) { struct CitContext *CCC = CC; long old_msgnum = (-1L); struct CtdlMessage *old_msg = NULL; long history_msgnum = (-1L); struct CtdlMessage *history_msg = NULL; char diff_old_filename[PATH_MAX]; char diff_new_filename[PATH_MAX]; char diff_out_filename[PATH_MAX]; char diff_cmd[PATH_MAX]; FILE *fp; int rv; char history_page[1024]; long history_page_len; char boundary[256]; char prefixed_boundary[258]; char buf[1024]; char *diffbuf = NULL; size_t diffbuf_len = 0; char *ptr = NULL; long newmsgid; StrBuf *msgidbuf; if (!CCC->logged_in) return(0); /* Only do this if logged in. */ /* Is this a room with a Wiki in it, don't run this hook. */ if ((CCC->room.QRdefaultview != VIEW_WIKI) && (CCC->room.QRdefaultview != VIEW_WIKIMD)) { return(0); } /* If this isn't a MIME message, don't bother. */ if (msg->cm_format_type != 4) return(0); /* If there's no EUID we can't do this. Reject the post. */ if (CM_IsEmpty(msg, eExclusiveID)) return(1); newmsgid = get_new_message_number(); msgidbuf = NewStrBuf(); StrBufPrintf(msgidbuf, "%08lX-%08lX@%s/%s", (long unsigned int) time(NULL), (long unsigned int) newmsgid, CtdlGetConfigStr("c_fqdn"), msg->cm_fields[eExclusiveID] ); CM_SetAsFieldSB(msg, emessageId, &msgidbuf); history_page_len = snprintf(history_page, sizeof history_page, "%s_HISTORY_", msg->cm_fields[eExclusiveID]); /* Make sure we're saving a real wiki page rather than a wiki history page. * This is important in order to avoid recursing infinitely into this hook. */ if ( (msg->cm_lengths[eExclusiveID] >= 9) && (!strcasecmp(&msg->cm_fields[eExclusiveID][msg->cm_lengths[eExclusiveID]-9], "_HISTORY_")) ) { syslog(LOG_DEBUG, "History page not being historied\n"); return(0); } /* If there's no message text, obviously this is all b0rken and shouldn't happen at all */ if (CM_IsEmpty(msg, eMesageText)) return(0); /* Set the message subject identical to the page name */ CM_CopyField(msg, eMsgSubject, eExclusiveID); /* See if we can retrieve the previous version. */ old_msgnum = CtdlLocateMessageByEuid(msg->cm_fields[eExclusiveID], &CCC->room); if (old_msgnum > 0L) { old_msg = CtdlFetchMessage(old_msgnum, 1, 1); } else { old_msg = NULL; } if ((old_msg != NULL) && (CM_IsEmpty(old_msg, eMesageText))) { /* old version is corrupt? */ CM_Free(old_msg); old_msg = NULL; } /* If no changes were made, don't bother saving it again */ if ((old_msg != NULL) && (!strcmp(msg->cm_fields[eMesageText], old_msg->cm_fields[eMesageText]))) { CM_Free(old_msg); return(1); } /* * Generate diffs */ CtdlMakeTempFileName(diff_old_filename, sizeof diff_old_filename); CtdlMakeTempFileName(diff_new_filename, sizeof diff_new_filename); CtdlMakeTempFileName(diff_out_filename, sizeof diff_out_filename); if (old_msg != NULL) { fp = fopen(diff_old_filename, "w"); rv = fwrite(old_msg->cm_fields[eMesageText], old_msg->cm_lengths[eMesageText], 1, fp); fclose(fp); CM_Free(old_msg); } fp = fopen(diff_new_filename, "w"); rv = fwrite(msg->cm_fields[eMesageText], msg->cm_lengths[eMesageText], 1, fp); fclose(fp); snprintf(diff_cmd, sizeof diff_cmd, DIFF " -u %s %s >%s", diff_new_filename, ((old_msg != NULL) ? diff_old_filename : "/dev/null"), diff_out_filename ); syslog(LOG_DEBUG, "diff cmd: %s", diff_cmd); rv = system(diff_cmd); syslog(LOG_DEBUG, "diff cmd returned %d", rv); diffbuf_len = 0; diffbuf = NULL; fp = fopen(diff_out_filename, "r"); if (fp == NULL) { fp = fopen("/dev/null", "r"); } if (fp != NULL) { fseek(fp, 0L, SEEK_END); diffbuf_len = ftell(fp); fseek(fp, 0L, SEEK_SET); diffbuf = malloc(diffbuf_len + 1); fread(diffbuf, diffbuf_len, 1, fp); diffbuf[diffbuf_len] = '\0'; fclose(fp); } syslog(LOG_DEBUG, "diff length is "SIZE_T_FMT" bytes", diffbuf_len); unlink(diff_old_filename); unlink(diff_new_filename); unlink(diff_out_filename); /* Determine whether this was a bogus (empty) edit */ if ((diffbuf_len = 0) && (diffbuf != NULL)) { free(diffbuf); diffbuf = NULL; } if (diffbuf == NULL) { return(1); /* No changes at all? Abandon the post entirely! */ } /* Now look for the existing edit history */ history_msgnum = CtdlLocateMessageByEuid(history_page, &CCC->room); history_msg = NULL; if (history_msgnum > 0L) { history_msg = CtdlFetchMessage(history_msgnum, 1, 1); } /* Create a new history message if necessary */ if (history_msg == NULL) { char *buf; long len; history_msg = malloc(sizeof(struct CtdlMessage)); memset(history_msg, 0, sizeof(struct CtdlMessage)); history_msg->cm_magic = CTDLMESSAGE_MAGIC; history_msg->cm_anon_type = MES_NORMAL; history_msg->cm_format_type = FMT_RFC822; CM_SetField(history_msg, eAuthor, HKEY("Citadel")); if (!IsEmptyStr(CCC->room.QRname)){ CM_SetField(history_msg, eRecipient, CCC->room.QRname, strlen(CCC->room.QRname)); } CM_SetField(history_msg, eExclusiveID, history_page, history_page_len); CM_SetField(history_msg, eMsgSubject, history_page, history_page_len); CM_SetField(history_msg, eSuppressIdx, HKEY("1")); /* suppress full text indexing */ snprintf(boundary, sizeof boundary, "Citadel--Multipart--%04x--%08lx", getpid(), time(NULL)); buf = (char*) malloc(1024); len = snprintf(buf, 1024, "Content-type: multipart/mixed; boundary=\"%s\"\n\n" "This is a Citadel wiki history encoded as multipart MIME.\n" "Each part is comprised of a diff script representing one change set.\n" "\n" "--%s--\n", boundary, boundary ); CM_SetAsField(history_msg, eMesageText, &buf, len); } /* Update the history message (regardless of whether it's new or existing) */ /* Remove the Message-ID from the old version of the history message. This will cause a brand * new one to be generated, avoiding an uninitentional hit of the loop zapper when we replicate. */ CM_FlushField(history_msg, emessageId); /* Figure out the boundary string. We do this even when we generated the * boundary string in the above code, just to be safe and consistent. */ *boundary = '\0'; ptr = history_msg->cm_fields[eMesageText]; do { ptr = memreadline(ptr, buf, sizeof buf); if (*ptr != 0) { striplt(buf); if (!IsEmptyStr(buf) && (!strncasecmp(buf, "Content-type:", 13))) { if ( (bmstrcasestr(buf, "multipart") != NULL) && (bmstrcasestr(buf, "boundary=") != NULL) ) { safestrncpy(boundary, bmstrcasestr(buf, "\""), sizeof boundary); char *qu; qu = strchr(boundary, '\"'); if (qu) { strcpy(boundary, ++qu); } qu = strchr(boundary, '\"'); if (qu) { *qu = 0; } } } } } while ( (IsEmptyStr(boundary)) && (*ptr != 0) ); /* * Now look for the first boundary. That is where we need to insert our fun. */ if (!IsEmptyStr(boundary)) { char *MsgText; long MsgTextLen; time_t Now = time(NULL); snprintf(prefixed_boundary, sizeof(prefixed_boundary), "--%s", boundary); CM_GetAsField(history_msg, eMesageText, &MsgText, &MsgTextLen); ptr = bmstrcasestr(MsgText, prefixed_boundary); if (ptr != NULL) { StrBuf *NewMsgText; char uuid[64]; char memo[512]; long memolen; char encoded_memo[1024]; NewMsgText = NewStrBufPlain(NULL, MsgTextLen + diffbuf_len + 1024); generate_uuid(uuid); memolen = snprintf(memo, sizeof(memo), "%s|%ld|%s|%s", uuid, Now, CCC->user.fullname, CtdlGetConfigStr("c_nodename")); memolen = CtdlEncodeBase64(encoded_memo, memo, memolen, 0); StrBufAppendBufPlain(NewMsgText, HKEY("--"), 0); StrBufAppendBufPlain(NewMsgText, boundary, -1, 0); StrBufAppendBufPlain( NewMsgText, HKEY("\n" "Content-type: text/plain\n" "Content-Disposition: inline; filename=\""), 0); StrBufAppendBufPlain(NewMsgText, encoded_memo, memolen, 0); StrBufAppendBufPlain( NewMsgText, HKEY("\"\n" "Content-Transfer-Encoding: 8bit\n" "\n"), 0); StrBufAppendBufPlain(NewMsgText, diffbuf, diffbuf_len, 0); StrBufAppendBufPlain(NewMsgText, HKEY("\n"), 0); StrBufAppendBufPlain(NewMsgText, ptr, MsgTextLen - (ptr - MsgText), 0); free(MsgText); CM_SetAsFieldSB(history_msg, eMesageText, &NewMsgText); } else { CM_SetAsField(history_msg, eMesageText, &MsgText, MsgTextLen); } CM_SetFieldLONG(history_msg, eTimestamp, Now); CtdlSubmitMsg(history_msg, NULL, "", 0); } else { syslog(LOG_ALERT, "Empty boundary string in history message. No history!\n"); } free(diffbuf); CM_Free(history_msg); return(0); } /* * MIME Parser callback for wiki_history() * * The "filename" field will contain a memo field. All we have to do is decode * the base64 and output it. The data is already in a delimited format suitable * for our client protocol. */ void wiki_history_callback(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { char memo[1024]; CtdlDecodeBase64(memo, filename, strlen(filename)); cprintf("%s\n", memo); } /* * Fetch a list of revisions for a particular wiki page */ void wiki_history(char *pagename) { int r; char history_page_name[270]; long msgnum; struct CtdlMessage *msg; r = CtdlDoIHavePermissionToReadMessagesInThisRoom(); if (r != om_ok) { if (r == om_not_logged_in) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); } else { cprintf("%d An unknown error has occurred.\n", ERROR); } return; } snprintf(history_page_name, sizeof history_page_name, "%s_HISTORY_", pagename); msgnum = CtdlLocateMessageByEuid(history_page_name, &CC->room); if (msgnum > 0L) { msg = CtdlFetchMessage(msgnum, 1, 1); } else { msg = NULL; } if ((msg != NULL) && CM_IsEmpty(msg, eMesageText)) { CM_Free(msg); msg = NULL; } if (msg == NULL) { cprintf("%d Revision history for '%s' was not found.\n", ERROR+MESSAGE_NOT_FOUND, pagename); return; } cprintf("%d Revision history for '%s'\n", LISTING_FOLLOWS, pagename); mime_parser(CM_RANGE(msg, eMesageText), *wiki_history_callback, NULL, NULL, NULL, 0); cprintf("000\n"); CM_Free(msg); return; } /* * MIME Parser callback for wiki_rev() * * The "filename" field will contain a memo field, which includes (among other things) * the uuid of this revision. After we hit the desired revision, we stop processing. * * The "content" filed will contain "diff" output suitable for applying via "patch" * to our temporary file. */ void wiki_rev_callback(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct HistoryEraserCallBackData *hecbd = (struct HistoryEraserCallBackData *)cbuserdata; char memo[1024]; char this_rev[256]; FILE *fp; char *ptr = NULL; char buf[1024]; /* Did a previous callback already indicate that we've reached our target uuid? * If so, don't process anything else. */ if (hecbd->done) { return; } CtdlDecodeBase64(memo, filename, strlen(filename)); extract_token(this_rev, memo, 0, '|', sizeof this_rev); striplt(this_rev); /* Perform the patch */ fp = popen(PATCH " -f -s -p0 -r /dev/null >/dev/null 2>/dev/null", "w"); if (fp) { /* Replace the filenames in the patch with the tempfilename we're actually tweaking */ fprintf(fp, "--- %s\n", hecbd->tempfilename); fprintf(fp, "+++ %s\n", hecbd->tempfilename); ptr = (char *)content; int linenum = 0; do { ++linenum; ptr = memreadline(ptr, buf, sizeof buf); if (*ptr != 0) { if (linenum <= 2) { /* skip the first two lines; they contain bogus filenames */ } else { fprintf(fp, "%s\n", buf); } } } while ((*ptr != 0) && (ptr < ((char*)content + length))); if (pclose(fp) != 0) { syslog(LOG_ERR, "pclose() returned an error - patch failed\n"); } } if (!strcasecmp(this_rev, hecbd->stop_when)) { /* Found our target rev. Tell any subsequent callbacks to suppress processing. */ syslog(LOG_DEBUG, "Target revision has been reached -- stop patching.\n"); hecbd->done = 1; } } /* * Fetch a specific revision of a wiki page. The "operation" string may be set to "fetch" in order * to simply fetch the desired revision and store it in a temporary location for viewing, or "revert" * to revert the currently active page to that revision. */ void wiki_rev(char *pagename, char *rev, char *operation) { struct CitContext *CCC = CC; int r; char history_page_name[270]; long msgnum; char temp[PATH_MAX]; struct CtdlMessage *msg; FILE *fp; struct HistoryEraserCallBackData hecbd; long len = 0L; int rv; r = CtdlDoIHavePermissionToReadMessagesInThisRoom(); if (r != om_ok) { if (r == om_not_logged_in) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); } else { cprintf("%d An unknown error has occurred.\n", ERROR); } return; } if (!strcasecmp(operation, "revert")) { r = CtdlDoIHavePermissionToPostInThisRoom(temp, sizeof temp, NULL, POST_LOGGED_IN, 0); if (r != 0) { cprintf("%d %s\n", r, temp); return; } } /* Begin by fetching the current version of the page. We're going to patch * backwards through the diffs until we get the one we want. */ msgnum = CtdlLocateMessageByEuid(pagename, &CCC->room); if (msgnum > 0L) { msg = CtdlFetchMessage(msgnum, 1, 1); } else { msg = NULL; } if ((msg != NULL) && CM_IsEmpty(msg, eMesageText)) { CM_Free(msg); msg = NULL; } if (msg == NULL) { cprintf("%d Page '%s' was not found.\n", ERROR+MESSAGE_NOT_FOUND, pagename); return; } /* Output it to a temporary file */ CtdlMakeTempFileName(temp, sizeof temp); fp = fopen(temp, "w"); if (fp != NULL) { r = fwrite(msg->cm_fields[eMesageText], msg->cm_lengths[eMesageText], 1, fp); fclose(fp); } else { syslog(LOG_ALERT, "Cannot open %s: %s\n", temp, strerror(errno)); } CM_Free(msg); /* Get the revision history */ snprintf(history_page_name, sizeof history_page_name, "%s_HISTORY_", pagename); msgnum = CtdlLocateMessageByEuid(history_page_name, &CCC->room); if (msgnum > 0L) { msg = CtdlFetchMessage(msgnum, 1, 1); } else { msg = NULL; } if ((msg != NULL) && CM_IsEmpty(msg, eMesageText)) { CM_Free(msg); msg = NULL; } if (msg == NULL) { cprintf("%d Revision history for '%s' was not found.\n", ERROR+MESSAGE_NOT_FOUND, pagename); return; } /* Start patching backwards (newest to oldest) through the revision history until we * hit the revision uuid requested by the user. (The callback will perform each one.) */ memset(&hecbd, 0, sizeof(struct HistoryEraserCallBackData)); hecbd.tempfilename = temp; hecbd.stop_when = rev; striplt(hecbd.stop_when); mime_parser(CM_RANGE(msg, eMesageText), *wiki_rev_callback, NULL, NULL, (void *)&hecbd, 0); CM_Free(msg); /* Were we successful? */ if (hecbd.done == 0) { cprintf("%d Revision '%s' of page '%s' was not found.\n", ERROR + MESSAGE_NOT_FOUND, rev, pagename ); } /* We have the desired revision on disk. Now do something with it. */ else if ( (!strcasecmp(operation, "fetch")) || (!strcasecmp(operation, "revert")) ) { msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = FMT_RFC822; fp = fopen(temp, "r"); if (fp) { char *msgbuf; fseek(fp, 0L, SEEK_END); len = ftell(fp); fseek(fp, 0L, SEEK_SET); msgbuf = malloc(len + 1); rv = fread(msgbuf, len, 1, fp); syslog(LOG_DEBUG, "did %d blocks of %ld bytes\n", rv, len); msgbuf[len] = '\0'; CM_SetAsField(msg, eMesageText, &msgbuf, len); fclose(fp); } if (len <= 0) { msgnum = (-1L); } else if (!strcasecmp(operation, "fetch")) { CM_SetField(msg, eAuthor, HKEY("Citadel")); CtdlCreateRoom(wwm, 5, "", 0, 1, 1, VIEW_BBS); /* Not an error if already exists */ msgnum = CtdlSubmitMsg(msg, NULL, wwm, 0); /* Store the revision here */ /* * WARNING: VILE SLEAZY HACK * This will avoid the 'message xxx is not in this room' security error, * but only if the client fetches the message we just generated immediately * without first trying to perform other fetch operations. */ if (CCC->cached_msglist != NULL) { free(CCC->cached_msglist); CCC->cached_msglist = NULL; CCC->cached_num_msgs = 0; } CCC->cached_msglist = malloc(sizeof(long)); if (CCC->cached_msglist != NULL) { CCC->cached_num_msgs = 1; CCC->cached_msglist[0] = msgnum; } } else if (!strcasecmp(operation, "revert")) { CM_SetFieldLONG(msg, eTimestamp, time(NULL)); if (!IsEmptyStr(CCC->user.fullname)) { CM_SetField(msg, eAuthor, CCC->user.fullname, strlen(CCC->user.fullname)); } if (!IsEmptyStr(CCC->cs_inet_email)) { CM_SetField(msg, erFc822Addr, CCC->cs_inet_email, strlen(CCC->cs_inet_email)); } if (!IsEmptyStr(CCC->room.QRname)) { CM_SetField(msg, eOriginalRoom, CCC->room.QRname, strlen(CCC->room.QRname)); } CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); if (!IsEmptyStr(pagename)) { CM_SetField(msg, eExclusiveID, pagename, strlen(pagename)); } msgnum = CtdlSubmitMsg(msg, NULL, "", 0); /* Replace the current revision */ } else { /* Theoretically it is impossible to get here, but throw an error anyway */ msgnum = (-1L); } CM_Free(msg); if (msgnum >= 0L) { cprintf("%d %ld\n", CIT_OK, msgnum); /* Give the client a msgnum */ } else { cprintf("%d Error %ld has occurred.\n", ERROR+INTERNAL_ERROR, msgnum); } } /* We did all this work for nothing. Express anguish to the caller. */ else { cprintf("%d An unknown operation was requested.\n", ERROR+CMD_NOT_SUPPORTED); } unlink(temp); return; } /* * commands related to wiki management */ void cmd_wiki(char *argbuf) { char subcmd[32]; char pagename[256]; char rev[128]; char operation[16]; extract_token(subcmd, argbuf, 0, '|', sizeof subcmd); if (!strcasecmp(subcmd, "history")) { extract_token(pagename, argbuf, 1, '|', sizeof pagename); wiki_history(pagename); return; } if (!strcasecmp(subcmd, "rev")) { extract_token(pagename, argbuf, 1, '|', sizeof pagename); extract_token(rev, argbuf, 2, '|', sizeof rev); extract_token(operation, argbuf, 3, '|', sizeof operation); wiki_rev(pagename, rev, operation); return; } cprintf("%d Invalid subcommand\n", ERROR + CMD_NOT_SUPPORTED); } /* * Module initialization */ CTDL_MODULE_INIT(wiki) { if (!threading) { CtdlRegisterMessageHook(wiki_upload_beforesave, EVT_BEFORESAVE); CtdlRegisterProtoHook(cmd_wiki, "WIKI", "Commands related to Wiki management"); } /* return our module name for the log */ return "wiki"; } citadel-902/modules/xmpp/000077500000000000000000000000001271512031400154235ustar00rootroot00000000000000citadel-902/modules/xmpp/serv_xmpp.c000066400000000000000000000420661271512031400176220ustar00rootroot00000000000000/* * XMPP (Jabber) service for the Citadel system * Copyright (c) 2007-2015 by Art Cancro and citadel.org * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" #include "serv_xmpp.h" /* XML_StopParser is present in expat 2.x */ #if XML_MAJOR_VERSION > 1 #define HAVE_XML_STOPPARSER #endif struct xmpp_event *xmpp_queue = NULL; int XMPPSrvDebugEnable = 0; #ifdef HAVE_XML_STOPPARSER /* Stop the parser if an entity declaration is hit. */ static void xmpp_entity_declaration(void *userData, const XML_Char *entityName, int is_parameter_entity, const XML_Char *value, int value_length, const XML_Char *base, const XML_Char *systemId, const XML_Char *publicId, const XML_Char *notationName ) { XMPPM_syslog(LOG_WARNING, "Illegal entity declaration encountered; stopping parser."); XML_StopParser(XMPP->xp, XML_FALSE); } #endif /* * Given a source string and a target buffer, returns the string * properly escaped for insertion into an XML stream. Returns a * pointer to the target buffer for convenience. */ static inline int Ctdl_GetUtf8SequenceLength(const char *CharS, const char *CharE) { int n = 0; unsigned char test = (1<<7); if ((*CharS & 0xC0) != 0xC0) return 1; while ((n < 8) && ((test & ((unsigned char)*CharS)) != 0)) { test = test >> 1; n ++; } if ((n > 6) || ((CharE - CharS) < n)) n = 0; return n; } char *xmlesc(char *buf, char *str, int bufsiz) { int IsUtf8Sequence; char *ptr, *pche; unsigned char ch; int inlen; int len = 0; if (!buf) return(NULL); buf[0] = 0; len = 0; if (!str) { return(buf); } inlen = strlen(str); pche = str + inlen; for (ptr=str; *ptr; ptr++) { ch = *ptr; if (ch == '<') { strcpy(&buf[len], "<"); len += 4; } else if (ch == '>') { strcpy(&buf[len], ">"); len += 4; } else if (ch == '&') { strcpy(&buf[len], "&"); len += 5; } else if ((ch >= 0x20) && (ch <= 0x7F)) { buf[len++] = ch; buf[len] = 0; } else if (ch < 0x20) { /* we probably shouldn't be doing this */ buf[len++] = '_'; buf[len] = 0; } else { IsUtf8Sequence = Ctdl_GetUtf8SequenceLength(ptr, pche); if (IsUtf8Sequence) { while ((IsUtf8Sequence > 0) && (ptr < pche)) { buf[len] = *ptr; ptr ++; --IsUtf8Sequence; } } else { char oct[10]; sprintf(oct, "&#%o;", ch); strcpy(&buf[len], oct); len += strlen(oct); } } if ((len + 6) > bufsiz) { return(buf); } } return(buf); } /* * We have just received a tag from the client, so send them ours */ void xmpp_stream_start(void *data, const char *supplied_el, const char **attr) { char xmlbuf[256]; while (*attr) { if (!strcasecmp(attr[0], "to")) { safestrncpy(XMPP->server_name, attr[1], sizeof XMPP->server_name); } attr += 2; } cprintf(""); cprintf("server_name, sizeof xmlbuf)); cprintf("id=\"%08x\" ", CC->cs_pid); cprintf("version=\"1.0\" "); cprintf("xmlns:stream=\"http://etherx.jabber.org/streams\" "); cprintf("xmlns=\"jabber:client\">"); /* The features of this stream are... */ cprintf(""); /* * TLS encryption (but only if it isn't already active) */ #ifdef HAVE_OPENSSL if (!CC->redirect_ssl) { cprintf(""); } #endif if (!CC->logged_in) { /* If we're not logged in yet, offer SASL as our feature set */ xmpp_output_auth_mechs(); /* Also offer non-SASL authentication */ cprintf(""); } /* Offer binding and sessions as part of our feature set */ cprintf(""); cprintf(""); cprintf(""); CC->is_async = 1; /* XMPP sessions are inherently async-capable */ } void xmpp_xml_start(void *data, const char *supplied_el, const char **attr) { char el[256]; char *sep = NULL; int i; /* Axe the namespace, we don't care about it */ safestrncpy(el, supplied_el, sizeof el); while (sep = strchr(el, ':'), sep) { strcpy(el, ++sep); } /* XMPP_syslog(LOG_DEBUG, "XMPP ELEMENT START: <%s>\n", el); for (i=0; attr[i] != NULL; i+=2) { XMPP_syslog(LOG_DEBUG, " Attribute '%s' = '%s'\n", attr[i], attr[i+1]); } uncomment for more verbosity */ if (!strcasecmp(el, "stream")) { xmpp_stream_start(data, supplied_el, attr); } else if (!strcasecmp(el, "query")) { XMPP->iq_query_xmlns[0] = 0; safestrncpy(XMPP->iq_query_xmlns, supplied_el, sizeof XMPP->iq_query_xmlns); } else if (!strcasecmp(el, "bind")) { XMPP->bind_requested = 1; } else if (!strcasecmp(el, "iq")) { for (i=0; attr[i] != NULL; i+=2) { if (!strcasecmp(attr[i], "type")) { safestrncpy(XMPP->iq_type, attr[i+1], sizeof XMPP->iq_type); } else if (!strcasecmp(attr[i], "id")) { safestrncpy(XMPP->iq_id, attr[i+1], sizeof XMPP->iq_id); } else if (!strcasecmp(attr[i], "from")) { safestrncpy(XMPP->iq_from, attr[i+1], sizeof XMPP->iq_from); } else if (!strcasecmp(attr[i], "to")) { safestrncpy(XMPP->iq_to, attr[i+1], sizeof XMPP->iq_to); } } } else if (!strcasecmp(el, "auth")) { XMPP->sasl_auth_mech[0] = 0; for (i=0; attr[i] != NULL; i+=2) { if (!strcasecmp(attr[i], "mechanism")) { safestrncpy(XMPP->sasl_auth_mech, attr[i+1], sizeof XMPP->sasl_auth_mech); } } } else if (!strcasecmp(el, "message")) { for (i=0; attr[i] != NULL; i+=2) { if (!strcasecmp(attr[i], "to")) { safestrncpy(XMPP->message_to, attr[i+1], sizeof XMPP->message_to); } } } else if (!strcasecmp(el, "html")) { ++XMPP->html_tag_level; } } void xmpp_xml_end(void *data, const char *supplied_el) { char el[256]; char *sep = NULL; char xmlbuf[256]; /* Axe the namespace, we don't care about it */ safestrncpy(el, supplied_el, sizeof el); while (sep = strchr(el, ':'), sep) { strcpy(el, ++sep); } /* XMPP_syslog(LOG_DEBUG, "XMPP ELEMENT END : <%s>\n", el); if (XMPP->chardata_len > 0) { XMPP_syslog(LOG_DEBUG, " chardata: %s\n", XMPP->chardata); } uncomment for more verbosity */ if (!strcasecmp(el, "resource")) { if (XMPP->chardata_len > 0) { safestrncpy(XMPP->iq_client_resource, XMPP->chardata, sizeof XMPP->iq_client_resource); striplt(XMPP->iq_client_resource); } } else if (!strcasecmp(el, "username")) { /* NON SASL ONLY */ if (XMPP->chardata_len > 0) { safestrncpy(XMPP->iq_client_username, XMPP->chardata, sizeof XMPP->iq_client_username); striplt(XMPP->iq_client_username); } } else if (!strcasecmp(el, "password")) { /* NON SASL ONLY */ if (XMPP->chardata_len > 0) { safestrncpy(XMPP->iq_client_password, XMPP->chardata, sizeof XMPP->iq_client_password); striplt(XMPP->iq_client_password); } } else if (!strcasecmp(el, "iq")) { /* * iq type="get" (handle queries) */ if (!strcasecmp(XMPP->iq_type, "get")) { /* * Query on a namespace */ if (!IsEmptyStr(XMPP->iq_query_xmlns)) { xmpp_query_namespace(XMPP->iq_id, XMPP->iq_from, XMPP->iq_to, XMPP->iq_query_xmlns); } /* * ping ( http://xmpp.org/extensions/xep-0199.html ) */ else if (XMPP->ping_requested) { cprintf("iq_from)) { cprintf("to=\"%s\" ", xmlesc(xmlbuf, XMPP->iq_from, sizeof xmlbuf)); } if (!IsEmptyStr(XMPP->iq_to)) { cprintf("from=\"%s\" ", xmlesc(xmlbuf, XMPP->iq_to, sizeof xmlbuf)); } cprintf("id=\"%s\"/>", xmlesc(xmlbuf, XMPP->iq_id, sizeof xmlbuf)); } /* * Unknown query ... return the XML equivalent of a blank stare */ else { XMPP_syslog(LOG_DEBUG, "Unknown query <%s> - returning \n", el ); cprintf("", xmlesc(xmlbuf, XMPP->iq_id, sizeof xmlbuf)); cprintf("" "" "" ); cprintf(""); } } /* * Non SASL authentication */ else if ( (!strcasecmp(XMPP->iq_type, "set")) && (!strcasecmp(XMPP->iq_query_xmlns, "jabber:iq:auth:query")) ) { xmpp_non_sasl_authenticate( XMPP->iq_id, XMPP->iq_client_username, XMPP->iq_client_password, XMPP->iq_client_resource ); } /* * If this stanza was a "bind" attempt, process it ... */ else if ( (XMPP->bind_requested) && (!IsEmptyStr(XMPP->iq_id)) && (!IsEmptyStr(XMPP->iq_client_resource)) && (CC->logged_in) ) { /* Generate the "full JID" of the client resource */ snprintf(XMPP->client_jid, sizeof XMPP->client_jid, "%s/%s", CC->cs_inet_email, XMPP->iq_client_resource ); /* Tell the client what its JID is */ cprintf("", xmlesc(xmlbuf, XMPP->iq_id, sizeof xmlbuf)); cprintf(""); cprintf("%s", xmlesc(xmlbuf, XMPP->client_jid, sizeof xmlbuf)); cprintf(""); cprintf(""); } else if (XMPP->iq_session) { cprintf("", xmlesc(xmlbuf, XMPP->iq_id, sizeof xmlbuf)); cprintf(""); } else { cprintf("", xmlesc(xmlbuf, XMPP->iq_id, sizeof xmlbuf)); cprintf("Don't know howto do '%s'!", xmlesc(xmlbuf, XMPP->iq_type, sizeof xmlbuf)); cprintf(""); } /* Now clear these fields out so they don't get used by a future stanza */ XMPP->iq_id[0] = 0; XMPP->iq_from[0] = 0; XMPP->iq_to[0] = 0; XMPP->iq_type[0] = 0; XMPP->iq_client_resource[0] = 0; XMPP->iq_session = 0; XMPP->iq_query_xmlns[0] = 0; XMPP->bind_requested = 0; XMPP->ping_requested = 0; } else if (!strcasecmp(el, "auth")) { /* Try to authenticate (this function is responsible for the output stanza) */ xmpp_sasl_auth(XMPP->sasl_auth_mech, (XMPP->chardata != NULL ? XMPP->chardata : "") ); /* Now clear these fields out so they don't get used by a future stanza */ XMPP->sasl_auth_mech[0] = 0; } else if (!strcasecmp(el, "session")) { XMPP->iq_session = 1; } else if (!strcasecmp(el, "presence")) { /* Respond to a update by firing back with presence information * on the entire wholist. Check this assumption, it's probably wrong. */ xmpp_wholist_presence_dump(); } else if ( (!strcasecmp(el, "body")) && (XMPP->html_tag_level == 0) ) { if (XMPP->message_body != NULL) { free(XMPP->message_body); XMPP->message_body = NULL; } if (XMPP->chardata_len > 0) { XMPP->message_body = strdup(XMPP->chardata); } } else if (!strcasecmp(el, "message")) { xmpp_send_message(XMPP->message_to, XMPP->message_body); XMPP->html_tag_level = 0; } else if (!strcasecmp(el, "html")) { --XMPP->html_tag_level; } else if (!strcasecmp(el, "starttls")) { #ifdef HAVE_OPENSSL cprintf(""); CtdlModuleStartCryptoMsgs(NULL, NULL, NULL); if (!CC->redirect_ssl) CC->kill_me = KILLME_NO_CRYPTO; #else cprintf(""); CC->kill_me = KILLME_NO_CRYPTO; #endif } else if (!strcasecmp(el, "ping")) { XMPP->ping_requested = 1; } else if (!strcasecmp(el, "stream")) { XMPPM_syslog(LOG_DEBUG, "XMPP client shut down their stream\n"); xmpp_massacre_roster(); cprintf("\n"); CC->kill_me = KILLME_CLIENT_LOGGED_OUT; } else if (!strcasecmp(el, "query")) { /* already processed , no further action needed here */ } else if (!strcasecmp(el, "bind")) { /* already processed , no further action needed here */ } else { XMPP_syslog(LOG_DEBUG, "Ignoring unknown tag <%s>\n", el); } XMPP->chardata_len = 0; if (XMPP->chardata_alloc > 0) { XMPP->chardata[0] = 0; } } void xmpp_xml_chardata(void *data, const XML_Char *s, int len) { citxmpp *X = XMPP; if (X->chardata_alloc == 0) { X->chardata_alloc = SIZ; X->chardata = malloc(X->chardata_alloc); } if ((X->chardata_len + len + 1) > X->chardata_alloc) { X->chardata_alloc = X->chardata_len + len + 1024; X->chardata = realloc(X->chardata, X->chardata_alloc); } memcpy(&X->chardata[X->chardata_len], s, len); X->chardata_len += len; X->chardata[X->chardata_len] = 0; } /* * This cleanup function blows away the temporary memory and files used by the XMPP service. */ void xmpp_cleanup_function(void) { /* Don't do this stuff if this is not a XMPP session! */ if (CC->h_command_function != xmpp_command_loop) return; if (XMPP->chardata != NULL) { free(XMPP->chardata); XMPP->chardata = NULL; XMPP->chardata_len = 0; XMPP->chardata_alloc = 0; if (XMPP->message_body != NULL) { free(XMPP->message_body); } } XML_ParserFree(XMPP->xp); free(XMPP); } /* * Here's where our XMPP session begins its happy day. */ void xmpp_greeting(void) { client_set_inbound_buf(4); strcpy(CC->cs_clientname, "XMPP session"); CC->session_specific_data = malloc(sizeof(citxmpp)); memset(XMPP, 0, sizeof(citxmpp)); XMPP->last_event_processed = queue_event_seq; /* XMPP does not use a greeting, but we still have to initialize some things. */ XMPP->xp = XML_ParserCreateNS("UTF-8", ':'); if (XMPP->xp == NULL) { XMPPM_syslog(LOG_ALERT, "Cannot create XML parser!\n"); CC->kill_me = KILLME_XML_PARSER; return; } XML_SetElementHandler(XMPP->xp, xmpp_xml_start, xmpp_xml_end); XML_SetCharacterDataHandler(XMPP->xp, xmpp_xml_chardata); // XML_SetUserData(XMPP->xp, something...); /* Prevent the "billion laughs" attack against expat by disabling * internal entity expansion. With 2.x, forcibly stop the parser * if an entity is declared - this is safer and a more obvious * failure mode. With older versions, simply prevent expansion * of such entities. */ #ifdef HAVE_XML_STOPPARSER XML_SetEntityDeclHandler(XMPP->xp, xmpp_entity_declaration); #else XML_SetDefaultHandler(XMPP->xp, NULL); #endif CC->can_receive_im = 1; /* This protocol is capable of receiving instant messages */ } /* * Main command loop for XMPP sessions. */ void xmpp_command_loop(void) { int rc; StrBuf *stream_input = NewStrBuf(); time(&CC->lastcmd); rc = client_read_random_blob(stream_input, 30); if (rc > 0) { XML_Parse(XMPP->xp, ChrPtr(stream_input), rc, 0); } else { XMPPM_syslog(LOG_ERR, "client disconnected: ending session.\n"); CC->kill_me = KILLME_CLIENT_DISCONNECTED; } FreeStrBuf(&stream_input); } /* * Async loop for XMPP sessions (handles the transmission of unsolicited stanzas) */ void xmpp_async_loop(void) { xmpp_process_events(); xmpp_output_incoming_messages(); } /* * Login hook for XMPP sessions */ void xmpp_login_hook(void) { xmpp_queue_event(XMPP_EVT_LOGIN, CC->cs_inet_email); } /* * Logout hook for XMPP sessions */ void xmpp_logout_hook(void) { xmpp_queue_event(XMPP_EVT_LOGOUT, CC->cs_inet_email); } void LogXMPPSrvDebugEnable(const int n) { XMPPSrvDebugEnable = n; } const char *CitadelServiceXMPP="XMPP"; extern void xmpp_cleanup_events(void); CTDL_MODULE_INIT(xmpp) { if (!threading) { CtdlRegisterServiceHook(CtdlGetConfigInt("c_xmpp_c2s_port"), NULL, xmpp_greeting, xmpp_command_loop, xmpp_async_loop, CitadelServiceXMPP ); CtdlRegisterDebugFlagHook(HKEY("serv_xmpp"), LogXMPPSrvDebugEnable, &XMPPSrvDebugEnable); CtdlRegisterSessionHook(xmpp_cleanup_function, EVT_STOP, PRIO_STOP + 70); CtdlRegisterSessionHook(xmpp_login_hook, EVT_LOGIN, PRIO_LOGIN + 90); CtdlRegisterSessionHook(xmpp_logout_hook, EVT_LOGOUT, PRIO_LOGOUT + 90); CtdlRegisterSessionHook(xmpp_login_hook, EVT_UNSTEALTH, PRIO_UNSTEALTH + 1); CtdlRegisterSessionHook(xmpp_logout_hook, EVT_STEALTH, PRIO_STEALTH + 1); CtdlRegisterCleanupHook(xmpp_cleanup_events); } /* return our module name for the log */ return "xmpp"; } citadel-902/modules/xmpp/serv_xmpp.h000066400000000000000000000060571271512031400176270ustar00rootroot00000000000000/* * Copyright (c) 2007-2009 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ typedef struct _citxmpp { /* Information about the current session */ XML_Parser xp; /* XML parser instance for incoming client stream */ char server_name[256]; /* who they think we are */ char *chardata; int chardata_len; int chardata_alloc; char client_jid[256]; /* "full JID" of the client */ int last_event_processed; char iq_type[256]; /* for stanzas */ char iq_id[256]; char iq_from[256]; char iq_to[256]; char iq_client_username[256]; /* username requested by the client (NON SASL ONLY) */ char iq_client_password[256]; /* password requested by the client (NON SASL ONLY) */ char iq_client_resource[256]; /* resource name requested by the client */ int iq_session; /* nonzero == client is requesting a session */ char iq_query_xmlns[256]; /* Namespace of */ char sasl_auth_mech[32]; /* SASL auth mechanism requested by the client */ char message_to[256]; char *message_body; /* Message body in transit */ int html_tag_level; /* tag nesting level */ int bind_requested; /* In this stanza, client is asking server to bind a resource. */ int ping_requested; /* In this stanza, client is pinging the server. */ } citxmpp; #define XMPP ((citxmpp *)CC->session_specific_data) struct xmpp_event { struct xmpp_event *next; int event_seq; time_t event_time; int event_type; char event_jid[256]; int session_which_generated_this_event; }; extern struct xmpp_event *xmpp_queue; extern int queue_event_seq; enum { XMPP_EVT_LOGIN, XMPP_EVT_LOGOUT }; void xmpp_cleanup_function(void); void xmpp_greeting(void); void xmpp_command_loop(void); void xmpp_async_loop(void); void xmpp_sasl_auth(char *, char *); void xmpp_output_auth_mechs(void); void xmpp_query_namespace(char *, char *, char *, char *); void xmpp_wholist_presence_dump(void); void xmpp_output_incoming_messages(void); void xmpp_queue_event(int, char *); void xmpp_process_events(void); void xmpp_presence_notify(char *, int); void xmpp_roster_item(struct CitContext *); void xmpp_send_message(char *, char *); void xmpp_non_sasl_authenticate(char *, char *, char *, char *); void xmpp_massacre_roster(void); void xmpp_delete_old_buddies_who_no_longer_exist_from_the_client_roster(void); int xmpp_is_visible(struct CitContext *from, struct CitContext *to_whom); char *xmlesc(char *buf, char *str, int bufsiz); extern int XMPPSrvDebugEnable; #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (XMPPSrvDebugEnable != 0)) #define XMPP_syslog(LEVEL, FORMAT, ...) \ DBGLOG(LEVEL) syslog(LEVEL, \ "XMPP: " FORMAT, __VA_ARGS__) #define XMPPM_syslog(LEVEL, FORMAT) \ DBGLOG(LEVEL) syslog(LEVEL, \ "XMPP: " FORMAT); citadel-902/modules/xmpp/xmpp_messages.c000066400000000000000000000053421271512031400204460ustar00rootroot00000000000000/* * Handle messages sent and received using XMPP (Jabber) protocol * * Copyright (c) 2007-2010 by Art Cancro * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" #include "serv_xmpp.h" /* * This function is called by the XMPP service's async loop. * If the client session has instant messages waiting, it outputs * unsolicited XML stanzas containing them. */ void xmpp_output_incoming_messages(void) { struct ExpressMessage *ptr; char xmlbuf1[4096]; char xmlbuf2[4096]; while (CC->FirstExpressMessage != NULL) { begin_critical_section(S_SESSION_TABLE); ptr = CC->FirstExpressMessage; CC->FirstExpressMessage = CC->FirstExpressMessage->next; end_critical_section(S_SESSION_TABLE); cprintf("", xmlesc(xmlbuf1, XMPP->client_jid, sizeof xmlbuf1), xmlesc(xmlbuf2, ptr->sender_email, sizeof xmlbuf2) ); if (ptr->text != NULL) { striplt(ptr->text); cprintf("%s", xmlesc(xmlbuf1, ptr->text, sizeof xmlbuf1)); free(ptr->text); } cprintf(""); free(ptr); } } /* * Client is sending a message. */ void xmpp_send_message(char *message_to, char *message_body) { char *recp = NULL; struct CitContext *cptr; if (message_body == NULL) return; if (message_to == NULL) return; if (IsEmptyStr(message_to)) return; if (!CC->logged_in) return; for (cptr = ContextList; cptr != NULL; cptr = cptr->next) { if ( (cptr->logged_in) && (cptr->can_receive_im) && (!strcasecmp(cptr->cs_inet_email, message_to)) ) { recp = cptr->user.fullname; } } if (recp) { PerformXmsgHooks(CC->user.fullname, CC->cs_inet_email, recp, message_body); } free(XMPP->message_body); XMPP->message_body = NULL; XMPP->message_to[0] = 0; time(&CC->lastidle); } citadel-902/modules/xmpp/xmpp_presence.c000066400000000000000000000252201271512031400204400ustar00rootroot00000000000000/* * Handle XMPP presence exchanges * * Copyright (c) 2007-2015 by Art Cancro and citadel.org * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" #include "serv_xmpp.h" /* * Indicate the presence of another user to the client * (used in several places) */ void xmpp_indicate_presence(char *presence_jid) { char xmlbuf[256]; XMPP_syslog(LOG_DEBUG, "XMPP: indicating presence of <%s> to <%s>", presence_jid, XMPP->client_jid); cprintf("", xmlesc(xmlbuf, XMPP->client_jid, sizeof xmlbuf)); } /* * Convenience function to determine whether any given session is 'visible' to any other given session, * and is capable of receiving instant messages from that session. */ int xmpp_is_visible(struct CitContext *cptr, struct CitContext *to_whom) { int aide = (to_whom->user.axlevel >= AxAideU); if ( (cptr->logged_in) && (((cptr->cs_flags&CS_STEALTH)==0) || (aide)) /* aides see everyone */ && (cptr->user.usernum != to_whom->user.usernum) /* don't show myself */ && (cptr->can_receive_im) /* IM-capable session */ ) { return(1); } else { return(0); } } /* * Initial dump of the entire wholist */ void xmpp_wholist_presence_dump(void) { struct CitContext *cptr = NULL; int nContexts, i; cptr = CtdlGetContextArray(&nContexts); if (!cptr) { return; } for (i=0; iclient_jid) return; /* Transmit non-presence information */ cprintf("", xmlesc(xmlbuf1, presence_jid, sizeof xmlbuf1), xmlesc(xmlbuf2, XMPP->client_jid, sizeof xmlbuf2) ); /* * Setting the "aggressively" flag also sends an "unsubscribed" presence update. * We only ask for this when flushing the client side roster, because if we do it * in the middle of a session when another user logs off, some clients (Jitsi) interpret * it as a rejection of a subscription request. */ if (aggressively) { cprintf("", xmlesc(xmlbuf1, presence_jid, sizeof xmlbuf1), xmlesc(xmlbuf2, XMPP->client_jid, sizeof xmlbuf2) ); } // note: we should implement xmpp_indicate_nonpresence so we can use it elsewhere /* Do an unsolicited roster update that deletes the contact. */ cprintf("", xmlesc(xmlbuf1, CC->cs_inet_email, sizeof xmlbuf1), xmlesc(xmlbuf2, XMPP->client_jid, sizeof xmlbuf2), ++unsolicited_id ); cprintf(""); cprintf("", xmlesc(xmlbuf1, presence_jid, sizeof xmlbuf1)); cprintf("%s", xmlesc(xmlbuf1, CtdlGetConfigStr("c_humannode"), sizeof xmlbuf1)); cprintf(""); cprintf("" "" ); } /* * When a user logs in or out of the local Citadel system, notify all XMPP sessions about it. * THIS FUNCTION HAS A BUG IN IT THAT ENUMERATES THE SESSIONS WRONG. */ void xmpp_presence_notify(char *presence_jid, int event_type) { struct CitContext *cptr; static int unsolicited_id = 12345; int visible_sessions = 0; int nContexts, i; int which_cptr_is_relevant = (-1); if (IsEmptyStr(presence_jid)) return; if (CC->kill_me) return; cptr = CtdlGetContextArray(&nContexts); if (!cptr) { return; } /* Count the visible sessions for this user */ for (i=0; i are now visible to session %d\n", visible_sessions, presence_jid, CC->cs_pid); if ( (event_type == XMPP_EVT_LOGIN) && (visible_sessions == 1) ) { XMPP_syslog(LOG_DEBUG, "Telling session %d that <%s> logged in\n", CC->cs_pid, presence_jid); /* Do an unsolicited roster update that adds a new contact. */ assert(which_cptr_is_relevant >= 0); cprintf("", ++unsolicited_id); cprintf(""); xmpp_roster_item(&cptr[which_cptr_is_relevant]); cprintf(""); /* Transmit presence information */ xmpp_indicate_presence(presence_jid); } if (visible_sessions == 0) { XMPP_syslog(LOG_DEBUG, "Telling session %d that <%s> logged out\n", CC->cs_pid, presence_jid); xmpp_destroy_buddy(presence_jid, 0); /* non aggressive presence update */ } free(cptr); } void xmpp_fetch_mortuary_backend(long msgnum, void *userdata) { HashList *mortuary = (HashList *) userdata; struct CtdlMessage *msg; char *ptr = NULL; char *lasts = NULL; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { return; } /* now add anyone we find into the hashlist */ /* skip past the headers */ ptr = strstr(msg->cm_fields[eMesageText], "\n\n"); if (ptr != NULL) { ptr += 2; } else { ptr = strstr(msg->cm_fields[eMesageText], "\n\r\n"); if (ptr != NULL) { ptr += 3; } } /* the remaining lines are addresses */ if (ptr != NULL) { ptr = strtok_r(ptr, "\n", &lasts); while (ptr != NULL) { char *pch = strdup(ptr); Put(mortuary, pch, strlen(pch), pch, NULL); ptr = strtok_r(NULL, "\n", &lasts); } } CM_Free(msg); } /* * Fetch the "mortuary" - a list of dead buddies which we keep around forever * so we can remove them from any client's roster that still has them listed */ HashList *xmpp_fetch_mortuary(void) { HashList *mortuary = NewHash(1, NULL); if (!mortuary) { XMPPM_syslog(LOG_ALERT, "NewHash() failed!\n"); return(NULL); } if (CtdlGetRoom(&CC->room, USERCONFIGROOM) != 0) { /* no config room exists - no further processing is required. */ return(mortuary); } CtdlForEachMessage(MSGS_LAST, 1, NULL, XMPPMORTUARY, NULL, xmpp_fetch_mortuary_backend, (void *)mortuary ); return(mortuary); } /* * Fetch the "mortuary" - a list of dead buddies which we keep around forever * so we can remove them from any client's roster that still has them listed */ void xmpp_store_mortuary(HashList *mortuary) { HashPos *HashPos; long len; void *Value; const char *Key; StrBuf *themsg; themsg = NewStrBuf(); StrBufPrintf(themsg, "Content-type: " XMPPMORTUARY "\n" "Content-transfer-encoding: 7bit\n" "\n" ); HashPos = GetNewHashPos(mortuary, 0); while (GetNextHashPos(mortuary, HashPos, &len, &Key, &Value) != 0) { StrBufAppendPrintf(themsg, "%s\n", (char *)Value); } DeleteHashPos(&HashPos); /* Delete the old mortuary */ CtdlDeleteMessages(USERCONFIGROOM, NULL, 0, XMPPMORTUARY); /* And save the new one to disk */ quickie_message("Citadel", NULL, NULL, USERCONFIGROOM, ChrPtr(themsg), 4, "XMPP Mortuary"); FreeStrBuf(&themsg); } /* * Upon logout we make an attempt to delete the whole roster, in order to * try to keep "ghost" buddies from remaining in the client-side roster. * * Since the client is probably not still alive, also remember the current * roster for next time so we can delete dead buddies then. */ void xmpp_massacre_roster(void) { struct CitContext *cptr; int nContexts, i; HashList *mortuary = xmpp_fetch_mortuary(); cptr = CtdlGetContextArray(&nContexts); if (cptr) { for (i=0; i type situations (namespace queries) * * Copyright (c) 2007-2015 by Art Cancro and citadel.org * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" #include "serv_xmpp.h" /* * Output a single roster item, for roster queries or pushes */ void xmpp_roster_item(struct CitContext *cptr) { char xmlbuf1[256]; char xmlbuf2[256]; cprintf("", xmlesc(xmlbuf1, cptr->cs_inet_email, sizeof xmlbuf1), xmlesc(xmlbuf2, cptr->user.fullname, sizeof xmlbuf2) ); cprintf("%s", xmlesc(xmlbuf1, CtdlGetConfigStr("c_humannode"), sizeof xmlbuf1)); cprintf(""); } /* * Return the results for a "jabber:iq:roster:query" * * Since we are not yet managing a roster, we simply return the entire wholist * (minus any entries for this user -- don't tell me about myself) * */ void xmpp_iq_roster_query(void) { struct CitContext *cptr; int nContexts, i; XMPPM_syslog(LOG_DEBUG, "Roster push!"); cprintf(""); cptr = CtdlGetContextArray(&nContexts); if (cptr) { for (i=0; i"); } /* * Client is doing a namespace query. These are all handled differently. * A "rumplestiltskin lookup" is the most efficient way to handle this. Please do not refactor this code. */ void xmpp_query_namespace(char *iq_id, char *iq_from, char *iq_to, char *query_xmlns) { int supported_namespace = 0; int roster_query = 0; char xmlbuf[256]; int reply_must_be_from_my_jid = 0; /* We need to know before we begin the response whether this is a supported namespace, so * unfortunately all supported namespaces need to be defined here *and* down below where * they are handled. */ if ( (!strcasecmp(query_xmlns, "jabber:iq:roster:query")) || (!strcasecmp(query_xmlns, "jabber:iq:auth:query")) || (!strcasecmp(query_xmlns, "http://jabber.org/protocol/disco#items:query")) || (!strcasecmp(query_xmlns, "http://jabber.org/protocol/disco#info:query")) ) { supported_namespace = 1; } XMPP_syslog(LOG_DEBUG, "xmpp_query_namespace(id=%s, from=%s, to=%s, xmlns=%s)\n", iq_id, iq_from, iq_to, query_xmlns); /* * Beginning of query result. */ if (!strcasecmp(query_xmlns, "jabber:iq:roster:query")) { reply_must_be_from_my_jid = 1; } char dom[1024]; // client is expecting to see the reply if (reply_must_be_from_my_jid) { // coming "from" the user's jid safestrncpy(dom, XMPP->client_jid, sizeof(dom)); char *slash = strchr(dom, '/'); if (slash) { *slash = 0; } } else { safestrncpy(dom, XMPP->client_jid, sizeof(dom)); // client is expecting to see the reply if (IsEmptyStr(dom)) { // coming "from" the domain of the user's jid safestrncpy(dom, XMPP->server_name, sizeof(dom)); } char *at = strrchr(dom, '@'); if (at) { strcpy(dom, ++at); } char *slash = strchr(dom, '/'); if (slash) { *slash = 0; } } if (supported_namespace) { cprintf("", xmlesc(xmlbuf, iq_id, sizeof xmlbuf)); /* * Is this a query we know how to handle? */ if (!strcasecmp(query_xmlns, "jabber:iq:roster:query")) { roster_query = 1; xmpp_iq_roster_query(); } else if (!strcasecmp(query_xmlns, "jabber:iq:auth:query")) { cprintf("" "" "" ); } // Extension "xep-0030" (http://xmpp.org/extensions/xep-0030.html) (return an empty set of results) else if (!strcasecmp(query_xmlns, "http://jabber.org/protocol/disco#items:query")) { cprintf("", xmlesc(xmlbuf, query_xmlns, sizeof xmlbuf)); } // Extension "xep-0030" (http://xmpp.org/extensions/xep-0030.html) (return an empty set of results) else if (!strcasecmp(query_xmlns, "http://jabber.org/protocol/disco#info:query")) { cprintf("", xmlesc(xmlbuf, query_xmlns, sizeof xmlbuf)); } /* * If we didn't hit any known query namespaces then we should deliver a * "service unavailable" error (see RFC3921 section 2.4 and 11.1.5.4) */ else { XMPP_syslog(LOG_DEBUG, "Unknown query namespace '%s' - returning \n", query_xmlns); cprintf("" "" "" ); } cprintf(""); /* If we told the client who is on the roster, we also need to tell the client * who is *not* on the roster. (It's down here because we can't do it in the same * stanza; this will be an unsolicited push.) */ if (roster_query) { xmpp_delete_old_buddies_who_no_longer_exist_from_the_client_roster(); } } citadel-902/modules/xmpp/xmpp_queue.c000066400000000000000000000073251271512031400177660ustar00rootroot00000000000000/* * XMPP event queue * * Copyright (c) 2007-2009 by Art Cancro * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" #include "serv_xmpp.h" int queue_event_seq = 0; void xmpp_queue_event(int event_type, char *email_addr) { struct xmpp_event *xptr = NULL; struct xmpp_event *new_event = NULL; struct xmpp_event *last = NULL; int purged_something = 0; struct CitContext *cptr; MARK_syslog(LOG_DEBUG, "xmpp_queue_event(%d, %s)\n", event_type, email_addr); /* Purge events more than a minute old */ begin_critical_section(S_XMPP_QUEUE); do { purged_something = 0; if (xmpp_queue != NULL) { if ((time(NULL) - xmpp_queue->event_time) > 60) { xptr = xmpp_queue->next; free(xmpp_queue); xmpp_queue = xptr; purged_something = 1; } } } while(purged_something); end_critical_section(S_XMPP_QUEUE); /* Create a new event */ new_event = (struct xmpp_event *) malloc(sizeof(struct xmpp_event)); new_event->next = NULL; new_event->event_time = time(NULL); new_event->event_seq = ++queue_event_seq; new_event->event_type = event_type; new_event->session_which_generated_this_event = CC->cs_pid; safestrncpy(new_event->event_jid, email_addr, sizeof new_event->event_jid); /* Add it to the list */ begin_critical_section(S_XMPP_QUEUE); if (xmpp_queue == NULL) { xmpp_queue = new_event; } else { for (xptr = xmpp_queue; xptr != NULL; xptr = xptr->next) { if (xptr->next == NULL) { last = xptr; } } last->next = new_event; } end_critical_section(S_XMPP_QUEUE); /* Tell the sessions that something is happening */ begin_critical_section(S_SESSION_TABLE); for (cptr = ContextList; cptr != NULL; cptr = cptr->next) { if ((cptr->logged_in) && (cptr->h_async_function == xmpp_async_loop)) { set_async_waiting(cptr); } } end_critical_section(S_SESSION_TABLE); } /* * Are we interested in anything from the queue? (Called in async loop) */ void xmpp_process_events(void) { struct xmpp_event *xptr = NULL; int highest_event = 0; for (xptr=xmpp_queue; xptr!=NULL; xptr=xptr->next) { if (xptr->event_seq > XMPP->last_event_processed) { switch(xptr->event_type) { case XMPP_EVT_LOGIN: case XMPP_EVT_LOGOUT: if (xptr->session_which_generated_this_event != CC->cs_pid) { xmpp_presence_notify(xptr->event_jid, xptr->event_type); } break; } if (xptr->event_seq > highest_event) { highest_event = xptr->event_seq; } } } XMPP->last_event_processed = highest_event; } void xmpp_cleanup_events(void) { struct xmpp_event *ptr, *ptr2; begin_critical_section(S_XMPP_QUEUE); ptr = xmpp_queue; xmpp_queue = NULL; while (ptr != NULL) { ptr2 = ptr->next; free(ptr); ptr = ptr2; } end_critical_section(S_XMPP_QUEUE); } citadel-902/modules/xmpp/xmpp_sasl_service.c000066400000000000000000000104471271512031400213230ustar00rootroot00000000000000/* * Barebones SASL authentication service for XMPP (Jabber) clients. * * Note: RFC3920 says we "must" support DIGEST-MD5 but we only support PLAIN. * * Copyright (c) 2007-2009 by Art Cancro * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "user_ops.h" #include "internet_addressing.h" #include "md5.h" #include "ctdl_module.h" #include "serv_xmpp.h" /* * PLAIN authentication. Returns zero on success, nonzero on failure. */ int xmpp_auth_plain(char *authstring) { char decoded_authstring[1024]; char ident[256]; char user[256]; char pass[256]; int result; long len; /* Take apart the authentication string */ memset(pass, 0, sizeof(pass)); CtdlDecodeBase64(decoded_authstring, authstring, strlen(authstring)); safestrncpy(ident, decoded_authstring, sizeof ident); safestrncpy(user, &decoded_authstring[strlen(ident) + 1], sizeof user); len = safestrncpy(pass, &decoded_authstring[strlen(ident) + strlen(user) + 2], sizeof pass); if (len < 0) len = -len; /* If there are underscores in either string, change them to spaces. Some clients * do not allow spaces so we can tell the user to substitute underscores if their * login name contains spaces. */ convert_spaces_to_underscores(ident); convert_spaces_to_underscores(user); /* Now attempt authentication */ if (!IsEmptyStr(ident)) { result = CtdlLoginExistingUser(user, ident); } else { result = CtdlLoginExistingUser(NULL, user); } if (result == login_ok) { if (CtdlTryPassword(pass, len) == pass_ok) { return(0); /* success */ } } return(1); /* failure */ } /* * Output the list of SASL mechanisms offered by this stream. */ void xmpp_output_auth_mechs(void) { cprintf(""); cprintf("PLAIN"); cprintf(""); } /* * Here we go ... client is trying to authenticate. */ void xmpp_sasl_auth(char *sasl_auth_mech, char *authstring) { if (strcasecmp(sasl_auth_mech, "PLAIN")) { cprintf(""); cprintf(""); cprintf(""); return; } if (CC->logged_in) CtdlUserLogout(); /* Client may try to log in twice. Handle this. */ if (CC->nologin) { cprintf(""); cprintf(""); cprintf(""); } else if (xmpp_auth_plain(authstring) == 0) { cprintf(""); } else { cprintf(""); cprintf(""); cprintf(""); } } /* * Non-SASL authentication */ void xmpp_non_sasl_authenticate(char *iq_id, char *username, char *password, char *resource) { int result; char xmlbuf[256]; if (CC->logged_in) CtdlUserLogout(); /* Client may try to log in twice. Handle this. */ result = CtdlLoginExistingUser(NULL, username); if (result == login_ok) { result = CtdlTryPassword(password, strlen(password)); if (result == pass_ok) { cprintf("", xmlesc(xmlbuf, iq_id, sizeof xmlbuf)); /* success */ return; } } /* failure */ cprintf("", xmlesc(xmlbuf, iq_id, sizeof xmlbuf)); cprintf("" "" "" "" ); } citadel-902/modules_init.c000066400000000000000000000132511271512031400156300ustar00rootroot00000000000000/* * /var/www/easyinstall/citadel/citadel/modules_init.c * Auto generated by mk_modules_init.sh DO NOT EDIT THIS FILE */ #include "sysdep.h" #include #include #include #include #include #include #include #include "citadel.h" #include "modules_init.h" #include "sysdep_decls.h" #include "serv_extensions.h" void LogPrintMessages(long err); extern long DetailErrorFlags; void initialise_modules (int threading) { long filter; const char *pMod; if (threading) { MODM_syslog(LOG_DEBUG, "Initializing, CtdlThreads enabled.\n"); } else { MODM_syslog(LOG_INFO, "Initializing. CtdlThreads not yet enabled.\n"); } pMod = CTDL_INIT_CALL(control); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(modules); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(euidindex); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(msgbase); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(nttlist); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(database); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(autocompletion); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(bio); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(blog); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(c_ares_client); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(calendar); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(checkpoint); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(virus); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(file_ops); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(ctdl_message); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(rooms); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(serv_session); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(syscmd); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(serv_user); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(dspam); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(event_client); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(expire); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(extnotify); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(fulltext); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(image); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(imap); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(inetcfg); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(instmsg); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(listsub); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(managesieve); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(migrate); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(mrtg); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(netfilter); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(network_spool); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(network); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(network_client); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(newuser); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(nntp); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(notes); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(openid_rp); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(pop3); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(pop3client); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(roomchat); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(rssparser); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(rssclient); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(rwho); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(sieve); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(smtp); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(smtp_eventclient); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(smtp_queu); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(spam); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(test); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(urldeshortener); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(vcard); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(wiki); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(xmpp); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); pMod = CTDL_INIT_CALL(netconfig); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); for (filter = 1; filter != 0; filter = filter << 1) if ((filter & DetailErrorFlags) != 0) LogPrintMessages(filter); } citadel-902/modules_init.h000066400000000000000000000037051271512031400156400ustar00rootroot00000000000000/* * /var/www/easyinstall/citadel/citadel/modules_init.h * Auto generated by mk_modules_init.sh DO NOT EDIT THIS FILE */ #ifndef MODULES_INIT_H #define MODULES_INIT_H #include "ctdl_module.h" extern size_t nSizErrmsg; void initialise_modules (int threading); void upgrade_modules(void); CTDL_MODULE_INIT(control); CTDL_MODULE_INIT(modules); CTDL_MODULE_INIT(euidindex); CTDL_MODULE_INIT(msgbase); CTDL_MODULE_INIT(nttlist); CTDL_MODULE_INIT(database); CTDL_MODULE_INIT(autocompletion); CTDL_MODULE_INIT(bio); CTDL_MODULE_INIT(blog); CTDL_MODULE_INIT(c_ares_client); CTDL_MODULE_INIT(calendar); CTDL_MODULE_INIT(checkpoint); CTDL_MODULE_INIT(virus); CTDL_MODULE_INIT(file_ops); CTDL_MODULE_INIT(ctdl_message); CTDL_MODULE_INIT(rooms); CTDL_MODULE_INIT(serv_session); CTDL_MODULE_INIT(syscmd); CTDL_MODULE_INIT(serv_user); CTDL_MODULE_INIT(dspam); CTDL_MODULE_INIT(event_client); CTDL_MODULE_INIT(expire); CTDL_MODULE_INIT(extnotify); CTDL_MODULE_INIT(fulltext); CTDL_MODULE_INIT(image); CTDL_MODULE_INIT(imap); CTDL_MODULE_INIT(inetcfg); CTDL_MODULE_INIT(instmsg); CTDL_MODULE_INIT(listsub); CTDL_MODULE_INIT(managesieve); CTDL_MODULE_INIT(migrate); CTDL_MODULE_INIT(mrtg); CTDL_MODULE_INIT(netfilter); CTDL_MODULE_INIT(network_spool); CTDL_MODULE_INIT(network); CTDL_MODULE_INIT(network_client); CTDL_MODULE_INIT(newuser); CTDL_MODULE_INIT(nntp); CTDL_MODULE_INIT(notes); CTDL_MODULE_INIT(openid_rp); CTDL_MODULE_INIT(pop3); CTDL_MODULE_INIT(pop3client); CTDL_MODULE_INIT(roomchat); CTDL_MODULE_INIT(rssparser); CTDL_MODULE_INIT(rssclient); CTDL_MODULE_INIT(rwho); CTDL_MODULE_INIT(sieve); CTDL_MODULE_INIT(smtp); CTDL_MODULE_INIT(smtp_eventclient); CTDL_MODULE_INIT(smtp_queu); CTDL_MODULE_INIT(spam); CTDL_MODULE_INIT(test); CTDL_MODULE_INIT(urldeshortener); CTDL_MODULE_INIT(vcard); CTDL_MODULE_INIT(wiki); CTDL_MODULE_INIT(xmpp); CTDL_MODULE_INIT(netconfig); CTDL_MODULE_UPGRADE(upgrade); #endif /* MODULES_INIT_H */ citadel-902/modules_upgrade.c000066400000000000000000000011351271512031400163120ustar00rootroot00000000000000/* * /var/www/easyinstall/citadel/citadel/modules_upgrade.c * Auto generated by mk_modules_init.sh DO NOT EDIT THIS FILE */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include "citadel.h" #include "modules_init.h" #include "sysdep_decls.h" #include "serv_extensions.h" void upgrade_modules (void) { const char *pMod; MODM_syslog(LOG_INFO, "Upgrade modules.\n"); pMod = CTDL_UPGRADE_CALL(upgrade); MOD_syslog(LOG_INFO, "%s\n", pMod); } citadel-902/msgbase.c000066400000000000000000003300161271512031400145570ustar00rootroot00000000000000/* * Implements the message store. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include "md5.h" #include "ctdl_module.h" #include "citserver.h" #include "control.h" #include "config.h" #include "clientsocket.h" #include "genstamp.h" #include "room_ops.h" #include "user_ops.h" #include "internet_addressing.h" #include "euidindex.h" #include "msgbase.h" #include "journaling.h" struct addresses_to_be_filed *atbf = NULL; /* This temp file holds the queue of operations for AdjRefCount() */ static FILE *arcfp = NULL; void AdjRefCountList(long *msgnum, long nmsg, int incr); int MessageDebugEnabled = 0; /* * These are the four-character field headers we use when outputting * messages in Citadel format (as opposed to RFC822 format). */ char *msgkeys[91] = { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "from", /* A -> eAuthor */ NULL, /* B -> eBig_message */ NULL, /* C -> eRemoteRoom */ NULL, /* D -> eDestination */ "exti", /* E -> eXclusivID */ "rfca", /* F -> erFc822Addr */ NULL, /* G */ "hnod", /* H -> eHumanNode */ "msgn", /* I -> emessageId */ "jrnl", /* J -> eJournal */ "rep2", /* K -> eReplyTo */ "list", /* L -> eListID */ "text", /* M -> eMesageText */ "node", /* N -> eNodeName */ "room", /* O -> eOriginalRoom */ "path", /* P -> eMessagePath */ NULL, /* Q */ "rcpt", /* R -> eRecipient */ "spec", /* S -> eSpecialField */ "time", /* T -> eTimestamp */ "subj", /* U -> eMsgSubject */ "nvto", /* V -> eenVelopeTo */ "wefw", /* W -> eWeferences */ NULL, /* X */ "cccc", /* Y -> eCarbonCopY */ NULL /* Z */ }; HashList *msgKeyLookup = NULL; int GetFieldFromMnemonic(eMsgField *f, const char* c) { void *v = NULL; if (GetHash(msgKeyLookup, c, 4, &v)) { *f = (eMsgField) v; return 1; } return 0; } void FillMsgKeyLookupTable(void) { long i; msgKeyLookup = NewHash (1, FourHash); for (i=0; i < 91; i++) { if (msgkeys[i] != NULL) { Put(msgKeyLookup, msgkeys[i], 4, (void*)i, reference_free_handler); } } } eMsgField FieldOrder[] = { /* Important fields */ emessageId , eMessagePath , eTimestamp , eAuthor , erFc822Addr , eOriginalRoom, eNodeName , eHumanNode , eRecipient , eDestination , /* Semi-important fields */ eBig_message , eRemoteRoom , eExclusiveID , eWeferences , eJournal , /* G is not used yet, may become virus signature*/ eReplyTo , eListID , /* Q is not used yet */ eSpecialField, eenVelopeTo , /* X is not used yet */ /* Z is not used yet */ eCarbonCopY , eMsgSubject , /* internal only */ eErrorMsg , eSuppressIdx , eExtnotify , /* Message text (MUST be last) */ eMesageText /* Not saved to disk: eVltMsgNum */ }; static const long NDiskFields = sizeof(FieldOrder) / sizeof(eMsgField); int CM_IsEmpty(struct CtdlMessage *Msg, eMsgField which) { return !((Msg->cm_fields[which] != NULL) && (Msg->cm_fields[which][0] != '\0')); } void CM_SetField(struct CtdlMessage *Msg, eMsgField which, const char *buf, long length) { if (Msg->cm_fields[which] != NULL) free (Msg->cm_fields[which]); Msg->cm_fields[which] = malloc(length + 1); memcpy(Msg->cm_fields[which], buf, length); Msg->cm_fields[which][length] = '\0'; Msg->cm_lengths[which] = length; } void CM_SetFieldLONG(struct CtdlMessage *Msg, eMsgField which, long lvalue) { char buf[128]; long len; len = snprintf(buf, sizeof(buf), "%ld", lvalue); CM_SetField(Msg, which, buf, len); } void CM_CutFieldAt(struct CtdlMessage *Msg, eMsgField WhichToCut, long maxlen) { if (Msg->cm_fields[WhichToCut] == NULL) return; if (Msg->cm_lengths[WhichToCut] > maxlen) { Msg->cm_fields[WhichToCut][maxlen] = '\0'; Msg->cm_lengths[WhichToCut] = maxlen; } } void CM_FlushField(struct CtdlMessage *Msg, eMsgField which) { if (Msg->cm_fields[which] != NULL) free (Msg->cm_fields[which]); Msg->cm_fields[which] = NULL; Msg->cm_lengths[which] = 0; } void CM_Flush(struct CtdlMessage *Msg) { int i; if (CM_IsValidMsg(Msg) == 0) return; for (i = 0; i < 256; ++i) { CM_FlushField(Msg, i); } } void CM_CopyField(struct CtdlMessage *Msg, eMsgField WhichToPutTo, eMsgField WhichtToCopy) { long len; if (Msg->cm_fields[WhichToPutTo] != NULL) free (Msg->cm_fields[WhichToPutTo]); if (Msg->cm_fields[WhichtToCopy] != NULL) { len = Msg->cm_lengths[WhichtToCopy]; Msg->cm_fields[WhichToPutTo] = malloc(len + 1); memcpy(Msg->cm_fields[WhichToPutTo], Msg->cm_fields[WhichtToCopy], len); Msg->cm_fields[WhichToPutTo][len] = '\0'; Msg->cm_lengths[WhichToPutTo] = len; } else { Msg->cm_fields[WhichToPutTo] = NULL; Msg->cm_lengths[WhichToPutTo] = 0; } } void CM_PrependToField(struct CtdlMessage *Msg, eMsgField which, const char *buf, long length) { if (Msg->cm_fields[which] != NULL) { long oldmsgsize; long newmsgsize; char *new; oldmsgsize = Msg->cm_lengths[which] + 1; newmsgsize = length + oldmsgsize; new = malloc(newmsgsize); memcpy(new, buf, length); memcpy(new + length, Msg->cm_fields[which], oldmsgsize); free(Msg->cm_fields[which]); Msg->cm_fields[which] = new; Msg->cm_lengths[which] = newmsgsize - 1; } else { Msg->cm_fields[which] = malloc(length + 1); memcpy(Msg->cm_fields[which], buf, length); Msg->cm_fields[which][length] = '\0'; Msg->cm_lengths[which] = length; } } void CM_SetAsField(struct CtdlMessage *Msg, eMsgField which, char **buf, long length) { if (Msg->cm_fields[which] != NULL) free (Msg->cm_fields[which]); Msg->cm_fields[which] = *buf; *buf = NULL; Msg->cm_lengths[which] = length; } void CM_SetAsFieldSB(struct CtdlMessage *Msg, eMsgField which, StrBuf **buf) { if (Msg->cm_fields[which] != NULL) free (Msg->cm_fields[which]); Msg->cm_lengths[which] = StrLength(*buf); Msg->cm_fields[which] = SmashStrBuf(buf); } void CM_GetAsField(struct CtdlMessage *Msg, eMsgField which, char **ret, long *retlen) { if (Msg->cm_fields[which] != NULL) { *retlen = Msg->cm_lengths[which]; *ret = Msg->cm_fields[which]; Msg->cm_fields[which] = NULL; Msg->cm_lengths[which] = 0; } else { *ret = NULL; *retlen = 0; } } /* * Returns 1 if the supplied pointer points to a valid Citadel message. * If the pointer is NULL or the magic number check fails, returns 0. */ int CM_IsValidMsg(struct CtdlMessage *msg) { if (msg == NULL) return 0; if ((msg->cm_magic) != CTDLMESSAGE_MAGIC) { struct CitContext *CCC = CC; MSGM_syslog(LOG_WARNING, "CM_IsValidMsg() -- self-check failed\n"); return 0; } return 1; } void CM_FreeContents(struct CtdlMessage *msg) { int i; for (i = 0; i < 256; ++i) if (msg->cm_fields[i] != NULL) { free(msg->cm_fields[i]); msg->cm_lengths[i] = 0; } msg->cm_magic = 0; /* just in case */ } /* * 'Destructor' for struct CtdlMessage */ void CM_Free(struct CtdlMessage *msg) { if (CM_IsValidMsg(msg) == 0) { if (msg != NULL) free (msg); return; } CM_FreeContents(msg); free(msg); } int CM_DupField(eMsgField i, struct CtdlMessage *OrgMsg, struct CtdlMessage *NewMsg) { long len; len = OrgMsg->cm_lengths[i]; NewMsg->cm_fields[i] = malloc(len + 1); if (NewMsg->cm_fields[i] == NULL) return 0; memcpy(NewMsg->cm_fields[i], OrgMsg->cm_fields[i], len); NewMsg->cm_fields[i][len] = '\0'; NewMsg->cm_lengths[i] = len; return 1; } struct CtdlMessage * CM_Duplicate(struct CtdlMessage *OrgMsg) { int i; struct CtdlMessage *NewMsg; if (CM_IsValidMsg(OrgMsg) == 0) return NULL; NewMsg = (struct CtdlMessage *)malloc(sizeof(struct CtdlMessage)); if (NewMsg == NULL) return NULL; memcpy(NewMsg, OrgMsg, sizeof(struct CtdlMessage)); memset(&NewMsg->cm_fields, 0, sizeof(char*) * 256); for (i = 0; i < 256; ++i) { if (OrgMsg->cm_fields[i] != NULL) { if (!CM_DupField(i, OrgMsg, NewMsg)) { CM_Free(NewMsg); return NULL; } } } return NewMsg; } /* Determine if a given message matches the fields in a message template. * Return 0 for a successful match. */ int CtdlMsgCmp(struct CtdlMessage *msg, struct CtdlMessage *template) { int i; /* If there aren't any fields in the template, all messages will * match. */ if (template == NULL) return(0); /* Null messages are bogus. */ if (msg == NULL) return(1); for (i='A'; i<='Z'; ++i) { if (template->cm_fields[i] != NULL) { if (msg->cm_fields[i] == NULL) { /* Considered equal if temmplate is empty string */ if (IsEmptyStr(template->cm_fields[i])) continue; return 1; } if ((template->cm_lengths[i] != msg->cm_lengths[i]) || (strcasecmp(msg->cm_fields[i], template->cm_fields[i]))) return 1; } } /* All compares succeeded: we have a match! */ return 0; } /* * Retrieve the "seen" message list for the current room. */ void CtdlGetSeen(char *buf, int which_set) { struct CitContext *CCC = CC; visit vbuf; /* Learn about the user and room in question */ CtdlGetRelationship(&vbuf, &CCC->user, &CCC->room); if (which_set == ctdlsetseen_seen) safestrncpy(buf, vbuf.v_seen, SIZ); if (which_set == ctdlsetseen_answered) safestrncpy(buf, vbuf.v_answered, SIZ); } /* * Manipulate the "seen msgs" string (or other message set strings) */ void CtdlSetSeen(long *target_msgnums, int num_target_msgnums, int target_setting, int which_set, struct ctdluser *which_user, struct ctdlroom *which_room) { struct CitContext *CCC = CC; struct cdbdata *cdbfr; int i, k; int is_seen = 0; int was_seen = 0; long lo = (-1L); long hi = (-1L); /// TODO: we just write here. y? visit vbuf; long *msglist; int num_msgs = 0; StrBuf *vset; StrBuf *setstr; StrBuf *lostr; StrBuf *histr; const char *pvset; char *is_set; /* actually an array of booleans */ /* Don't bother doing *anything* if we were passed a list of zero messages */ if (num_target_msgnums < 1) { return; } /* If no room was specified, we go with the current room. */ if (!which_room) { which_room = &CCC->room; } /* If no user was specified, we go with the current user. */ if (!which_user) { which_user = &CCC->user; } MSG_syslog(LOG_DEBUG, "CtdlSetSeen(%d msgs starting with %ld, %s, %d) in <%s>\n", num_target_msgnums, target_msgnums[0], (target_setting ? "SET" : "CLEAR"), which_set, which_room->QRname); /* Learn about the user and room in question */ CtdlGetRelationship(&vbuf, which_user, which_room); /* Load the message list */ cdbfr = cdb_fetch(CDB_MSGLISTS, &which_room->QRnumber, sizeof(long)); if (cdbfr != NULL) { msglist = (long *) cdbfr->ptr; cdbfr->ptr = NULL; /* CtdlSetSeen() now owns this memory */ num_msgs = cdbfr->len / sizeof(long); cdb_free(cdbfr); } else { return; /* No messages at all? No further action. */ } is_set = malloc(num_msgs * sizeof(char)); memset(is_set, 0, (num_msgs * sizeof(char)) ); /* Decide which message set we're manipulating */ switch(which_set) { case ctdlsetseen_seen: vset = NewStrBufPlain(vbuf.v_seen, -1); break; case ctdlsetseen_answered: vset = NewStrBufPlain(vbuf.v_answered, -1); break; default: vset = NewStrBuf(); } #if 0 /* This is a special diagnostic section. Do not allow it to run during normal operation. */ MSG_syslog(LOG_DEBUG, "There are %d messages in the room.\n", num_msgs); for (i=0; i 0) && (msglist[i] <= msglist[i-1])) abort(); } MSG_syslog(LOG_DEBUG, "We are twiddling %d of them.\n", num_target_msgnums); for (k=0; k 0) && (target_msgnums[k] <= target_msgnums[k-1])) abort(); } #endif MSG_syslog(LOG_DEBUG, "before update: %s\n", ChrPtr(vset)); /* Translate the existing sequence set into an array of booleans */ setstr = NewStrBuf(); lostr = NewStrBuf(); histr = NewStrBuf(); pvset = NULL; while (StrBufExtract_NextToken(setstr, vset, &pvset, ',') >= 0) { StrBufExtract_token(lostr, setstr, 0, ':'); if (StrBufNum_tokens(setstr, ':') >= 2) { StrBufExtract_token(histr, setstr, 1, ':'); } else { FlushStrBuf(histr); StrBufAppendBuf(histr, lostr, 0); } lo = StrTol(lostr); if (!strcmp(ChrPtr(histr), "*")) { hi = LONG_MAX; } else { hi = StrTol(histr); } for (i = 0; i < num_msgs; ++i) { if ((msglist[i] >= lo) && (msglist[i] <= hi)) { is_set[i] = 1; } } } FreeStrBuf(&setstr); FreeStrBuf(&lostr); FreeStrBuf(&histr); /* Now translate the array of booleans back into a sequence set */ FlushStrBuf(vset); was_seen = 0; lo = (-1); hi = (-1); for (i=0; i 0) { StrBufAppendBufPlain(vset, HKEY(","), 0); } if (lo == hi) { StrBufAppendPrintf(vset, "%ld", hi); } else { StrBufAppendPrintf(vset, "%ld:%ld", lo, hi); } } if ((is_seen) && (i == num_msgs - 1)) { if (StrLength(vset) > 0) { StrBufAppendBufPlain(vset, HKEY(","), 0); } if ((i==0) || (was_seen == 0)) { StrBufAppendPrintf(vset, "%ld", msglist[i]); } else { StrBufAppendPrintf(vset, "%ld:%ld", lo, msglist[i]); } } was_seen = is_seen; } /* * We will have to stuff this string back into a 4096 byte buffer, so if it's * larger than that now, truncate it by removing tokens from the beginning. * The limit of 100 iterations is there to prevent an infinite loop in case * something unexpected happens. */ int number_of_truncations = 0; while ( (StrLength(vset) > SIZ) && (number_of_truncations < 100) ) { StrBufRemove_token(vset, 0, ','); ++number_of_truncations; } /* * If we're truncating the sequence set of messages marked with the 'seen' flag, * we want the earliest messages (the truncated ones) to be marked, not unmarked. * Otherwise messages at the beginning will suddenly appear to be 'unseen'. */ if ( (which_set == ctdlsetseen_seen) && (number_of_truncations > 0) ) { StrBuf *first_tok; first_tok = NewStrBuf(); StrBufExtract_token(first_tok, vset, 0, ','); StrBufRemove_token(vset, 0, ','); if (StrBufNum_tokens(first_tok, ':') > 1) { StrBufRemove_token(first_tok, 0, ':'); } StrBuf *new_set; new_set = NewStrBuf(); StrBufAppendBufPlain(new_set, HKEY("1:"), 0); StrBufAppendBuf(new_set, first_tok, 0); StrBufAppendBufPlain(new_set, HKEY(":"), 0); StrBufAppendBuf(new_set, vset, 0); FreeStrBuf(&vset); FreeStrBuf(&first_tok); vset = new_set; } MSG_syslog(LOG_DEBUG, " after update: %s\n", ChrPtr(vset)); /* Decide which message set we're manipulating */ switch (which_set) { case ctdlsetseen_seen: safestrncpy(vbuf.v_seen, ChrPtr(vset), sizeof vbuf.v_seen); break; case ctdlsetseen_answered: safestrncpy(vbuf.v_answered, ChrPtr(vset), sizeof vbuf.v_answered); break; } free(is_set); free(msglist); CtdlSetRelationship(&vbuf, which_user, which_room); FreeStrBuf(&vset); } /* * API function to perform an operation for each qualifying message in the * current room. (Returns the number of messages processed.) */ int CtdlForEachMessage(int mode, long ref, char *search_string, char *content_type, struct CtdlMessage *compare, ForEachMsgCallback CallBack, void *userdata) { struct CitContext *CCC = CC; int a, i, j; visit vbuf; struct cdbdata *cdbfr; long *msglist = NULL; int num_msgs = 0; int num_processed = 0; long thismsg; struct MetaData smi; struct CtdlMessage *msg = NULL; int is_seen = 0; long lastold = 0L; int printed_lastold = 0; int num_search_msgs = 0; long *search_msgs = NULL; regex_t re; int need_to_free_re = 0; regmatch_t pm; if ((content_type) && (!IsEmptyStr(content_type))) { regcomp(&re, content_type, 0); need_to_free_re = 1; } /* Learn about the user and room in question */ if (server_shutting_down) { if (need_to_free_re) regfree(&re); return -1; } CtdlGetUser(&CCC->user, CCC->curr_user); if (server_shutting_down) { if (need_to_free_re) regfree(&re); return -1; } CtdlGetRelationship(&vbuf, &CCC->user, &CCC->room); if (server_shutting_down) { if (need_to_free_re) regfree(&re); return -1; } /* Load the message list */ cdbfr = cdb_fetch(CDB_MSGLISTS, &CCC->room.QRnumber, sizeof(long)); if (cdbfr == NULL) { if (need_to_free_re) regfree(&re); return 0; /* No messages at all? No further action. */ } msglist = (long *) cdbfr->ptr; num_msgs = cdbfr->len / sizeof(long); cdbfr->ptr = NULL; /* clear this so that cdb_free() doesn't free it */ cdb_free(cdbfr); /* we own this memory now */ /* * Now begin the traversal. */ if (num_msgs > 0) for (a = 0; a < num_msgs; ++a) { /* If the caller is looking for a specific MIME type, filter * out all messages which are not of the type requested. */ if ((content_type != NULL) && (!IsEmptyStr(content_type))) { /* This call to GetMetaData() sits inside this loop * so that we only do the extra database read per msg * if we need to. Doing the extra read all the time * really kills the server. If we ever need to use * metadata for another search criterion, we need to * move the read somewhere else -- but still be smart * enough to only do the read if the caller has * specified something that will need it. */ if (server_shutting_down) { if (need_to_free_re) regfree(&re); free(msglist); return -1; } GetMetaData(&smi, msglist[a]); /* if (strcasecmp(smi.meta_content_type, content_type)) { old non-regex way */ if (regexec(&re, smi.meta_content_type, 1, &pm, 0) != 0) { msglist[a] = 0L; } } } num_msgs = sort_msglist(msglist, num_msgs); /* If a template was supplied, filter out the messages which * don't match. (This could induce some delays!) */ if (num_msgs > 0) { if (compare != NULL) { for (a = 0; a < num_msgs; ++a) { if (server_shutting_down) { if (need_to_free_re) regfree(&re); free(msglist); return -1; } msg = CtdlFetchMessage(msglist[a], 1, 1); if (msg != NULL) { if (CtdlMsgCmp(msg, compare)) { msglist[a] = 0L; } CM_Free(msg); } } } } /* If a search string was specified, get a message list from * the full text index and remove messages which aren't on both * lists. * * How this works: * Since the lists are sorted and strictly ascending, and the * output list is guaranteed to be shorter than or equal to the * input list, we overwrite the bottom of the input list. This * eliminates the need to memmove big chunks of the list over and * over again. */ if ( (num_msgs > 0) && (mode == MSGS_SEARCH) && (search_string) ) { /* Call search module via hook mechanism. * NULL means use any search function available. * otherwise replace with a char * to name of search routine */ CtdlModuleDoSearch(&num_search_msgs, &search_msgs, search_string, "fulltext"); if (num_search_msgs > 0) { int orig_num_msgs; orig_num_msgs = num_msgs; num_msgs = 0; for (i=0; i 0) for (a = 0; a < num_msgs; ++a) { if (server_shutting_down) { if (need_to_free_re) regfree(&re); free(msglist); return num_processed; } thismsg = msglist[a]; if (mode == MSGS_ALL) { is_seen = 0; } else { is_seen = is_msg_in_sequence_set( vbuf.v_seen, thismsg); if (is_seen) lastold = thismsg; } if ((thismsg > 0L) && ( (mode == MSGS_ALL) || ((mode == MSGS_OLD) && (is_seen)) || ((mode == MSGS_NEW) && (!is_seen)) || ((mode == MSGS_LAST) && (a >= (num_msgs - ref))) || ((mode == MSGS_FIRST) && (a < ref)) || ((mode == MSGS_GT) && (thismsg > ref)) || ((mode == MSGS_LT) && (thismsg < ref)) || ((mode == MSGS_EQ) && (thismsg == ref)) ) ) { if ((mode == MSGS_NEW) && (CCC->user.flags & US_LASTOLD) && (lastold > 0L) && (printed_lastold == 0) && (!is_seen)) { if (CallBack) CallBack(lastold, userdata); printed_lastold = 1; ++num_processed; } if (CallBack) CallBack(thismsg, userdata); ++num_processed; } } if (need_to_free_re) regfree(&re); /* * We cache the most recent msglist in order to do security checks later */ if (CCC->client_socket > 0) { if (CCC->cached_msglist != NULL) { free(CCC->cached_msglist); } CCC->cached_msglist = msglist; CCC->cached_num_msgs = num_msgs; } else { free(msglist); } return num_processed; } /* * memfmout() - Citadel text formatter and paginator. * Although the original purpose of this routine was to format * text to the reader's screen width, all we're really using it * for here is to format text out to 80 columns before sending it * to the client. The client software may reformat it again. */ void memfmout( char *mptr, /* where are we going to get our text from? */ const char *nl /* string to terminate lines with */ ) { struct CitContext *CCC = CC; int column = 0; unsigned char ch = 0; char outbuf[1024]; int len = 0; int nllen = 0; if (!mptr) return; nllen = strlen(nl); while (ch=*(mptr++), ch != 0) { if (ch == '\n') { if (client_write(outbuf, len) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } len = 0; if (client_write(nl, nllen) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } column = 0; } else if (ch == '\r') { /* Ignore carriage returns. Newlines are always LF or CRLF but never CR. */ } else if (isspace(ch)) { if (column > 72) { /* Beyond 72 columns, break on the next space */ if (client_write(outbuf, len) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } len = 0; if (client_write(nl, nllen) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } column = 0; } else { outbuf[len++] = ch; ++column; } } else { outbuf[len++] = ch; ++column; if (column > 1000) { /* Beyond 1000 columns, break anywhere */ if (client_write(outbuf, len) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } len = 0; if (client_write(nl, nllen) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } column = 0; } } } if (len) { if (client_write(outbuf, len) == -1) { MSGM_syslog(LOG_ERR, "memfmout(): aborting due to write failure.\n"); return; } client_write(nl, nllen); column = 0; } } /* * Callback function for mime parser that simply lists the part */ void list_this_part(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct ma_info *ma; ma = (struct ma_info *)cbuserdata; if (ma->is_ma == 0) { cprintf("part=%s|%s|%s|%s|%s|%ld|%s|%s\n", name, filename, partnum, disp, cbtype, (long)length, cbid, cbcharset); } } /* * Callback function for multipart prefix */ void list_this_pref(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct ma_info *ma; ma = (struct ma_info *)cbuserdata; if (!strcasecmp(cbtype, "multipart/alternative")) { ++ma->is_ma; } if (ma->is_ma == 0) { cprintf("pref=%s|%s\n", partnum, cbtype); } } /* * Callback function for multipart sufffix */ void list_this_suff(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct ma_info *ma; ma = (struct ma_info *)cbuserdata; if (ma->is_ma == 0) { cprintf("suff=%s|%s\n", partnum, cbtype); } if (!strcasecmp(cbtype, "multipart/alternative")) { --ma->is_ma; } } /* * Callback function for mime parser that opens a section for downloading * we use serv_files function here: */ extern void OpenCmdResult(char *filename, const char *mime_type); void mime_download(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { int rv = 0; CitContext *CCC = MyContext(); /* Silently go away if there's already a download open. */ if (CCC->download_fp != NULL) return; if ( (!IsEmptyStr(partnum) && (!strcasecmp(CCC->download_desired_section, partnum))) || (!IsEmptyStr(cbid) && (!strcasecmp(CCC->download_desired_section, cbid))) ) { CCC->download_fp = tmpfile(); if (CCC->download_fp == NULL) { MSG_syslog(LOG_EMERG, "mime_download(): Couldn't write: %s\n", strerror(errno)); cprintf("%d cannot open temporary file: %s\n", ERROR + INTERNAL_ERROR, strerror(errno)); return; } rv = fwrite(content, length, 1, CCC->download_fp); if (rv <= 0) { MSG_syslog(LOG_EMERG, "mime_download(): Couldn't write: %s\n", strerror(errno)); cprintf("%d unable to write tempfile.\n", ERROR + TOO_BIG); fclose(CCC->download_fp); CCC->download_fp = NULL; return; } fflush(CCC->download_fp); rewind(CCC->download_fp); OpenCmdResult(filename, cbtype); } } /* * Callback function for mime parser that outputs a section all at once. * We can specify the desired section by part number *or* content-id. */ void mime_spew_section(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { int *found_it = (int *)cbuserdata; if ( (!IsEmptyStr(partnum) && (!strcasecmp(CC->download_desired_section, partnum))) || (!IsEmptyStr(cbid) && (!strcasecmp(CC->download_desired_section, cbid))) ) { *found_it = 1; cprintf("%d %d|-1|%s|%s|%s\n", BINARY_FOLLOWS, (int)length, filename, cbtype, cbcharset ); client_write(content, length); } } struct CtdlMessage *CtdlDeserializeMessage(long msgnum, int with_body, const char *Buffer, long Length) { struct CitContext *CCC = CC; struct CtdlMessage *ret = NULL; const char *mptr; const char *upper_bound; cit_uint8_t ch; cit_uint8_t field_header; eMsgField which; mptr = Buffer; upper_bound = Buffer + Length; /* Parse the three bytes that begin EVERY message on disk. * The first is always 0xFF, the on-disk magic number. * The second is the anonymous/public type byte. * The third is the format type byte (vari, fixed, or MIME). */ ch = *mptr++; if (ch != 255) { MSG_syslog(LOG_ERR, "Message %ld appears to be corrupted.\n", msgnum); return NULL; } ret = (struct CtdlMessage *) malloc(sizeof(struct CtdlMessage)); memset(ret, 0, sizeof(struct CtdlMessage)); ret->cm_magic = CTDLMESSAGE_MAGIC; ret->cm_anon_type = *mptr++; /* Anon type byte */ ret->cm_format_type = *mptr++; /* Format type byte */ /* * The rest is zero or more arbitrary fields. Load them in. * We're done when we encounter either a zero-length field or * have just processed the 'M' (message text) field. */ do { field_header = '\0'; long len; /* work around possibly buggy messages: */ while (field_header == '\0') { if (mptr >= upper_bound) { break; } field_header = *mptr++; } if (mptr >= upper_bound) { break; } which = field_header; len = strlen(mptr); CM_SetField(ret, which, mptr, len); mptr += len + 1; /* advance to next field */ } while ((mptr < upper_bound) && (field_header != 'M')); return (ret); } /* * Load a message from disk into memory. * This is used by CtdlOutputMsg() and other fetch functions. * * NOTE: Caller is responsible for freeing the returned CtdlMessage struct * using the CM_Free(); function. */ struct CtdlMessage *CtdlFetchMessage(long msgnum, int with_body, int run_msg_hooks) { struct CitContext *CCC = CC; struct cdbdata *dmsgtext; struct CtdlMessage *ret = NULL; MSG_syslog(LOG_DEBUG, "CtdlFetchMessage(%ld, %d)\n", msgnum, with_body); dmsgtext = cdb_fetch(CDB_MSGMAIN, &msgnum, sizeof(long)); if (dmsgtext == NULL) { MSG_syslog(LOG_ERR, "CtdlFetchMessage(%ld, %d) Failed!\n", msgnum, with_body); return NULL; } if (dmsgtext->ptr[dmsgtext->len - 1] != '\0') { MSG_syslog(LOG_ERR, "CtdlFetchMessage(%ld, %d) Forcefully terminating message!!\n", msgnum, with_body); dmsgtext->ptr[dmsgtext->len - 1] = '\0'; } ret = CtdlDeserializeMessage(msgnum, with_body, dmsgtext->ptr, dmsgtext->len); cdb_free(dmsgtext); if (ret == NULL) { return NULL; } /* Always make sure there's something in the msg text field. If * it's NULL, the message text is most likely stored separately, * so go ahead and fetch that. Failing that, just set a dummy * body so other code doesn't barf. */ if ( (CM_IsEmpty(ret, eMesageText)) && (with_body) ) { dmsgtext = cdb_fetch(CDB_BIGMSGS, &msgnum, sizeof(long)); if (dmsgtext != NULL) { CM_SetAsField(ret, eMesageText, &dmsgtext->ptr, dmsgtext->len - 1); cdb_free(dmsgtext); } } if (CM_IsEmpty(ret, eMesageText)) { CM_SetField(ret, eMesageText, HKEY("\r\n\r\n (no text)\r\n")); } /* Perform "before read" hooks (aborting if any return nonzero) */ if (run_msg_hooks && (PerformMessageHooks(ret, NULL, EVT_BEFOREREAD) > 0)) { CM_Free(ret); return NULL; } return (ret); } /* * Pre callback function for multipart/alternative * * NOTE: this differs from the standard behavior for a reason. Normally when * displaying multipart/alternative you want to show the _last_ usable * format in the message. Here we show the _first_ one, because it's * usually text/plain. Since this set of functions is designed for text * output to non-MIME-aware clients, this is the desired behavior. * */ void fixed_output_pre(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct CitContext *CCC = CC; struct ma_info *ma; ma = (struct ma_info *)cbuserdata; MSG_syslog(LOG_DEBUG, "fixed_output_pre() type=<%s>\n", cbtype); if (!strcasecmp(cbtype, "multipart/alternative")) { ++ma->is_ma; ma->did_print = 0; } if (!strcasecmp(cbtype, "message/rfc822")) { ++ma->freeze; } } /* * Post callback function for multipart/alternative */ void fixed_output_post(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct CitContext *CCC = CC; struct ma_info *ma; ma = (struct ma_info *)cbuserdata; MSG_syslog(LOG_DEBUG, "fixed_output_post() type=<%s>\n", cbtype); if (!strcasecmp(cbtype, "multipart/alternative")) { --ma->is_ma; ma->did_print = 0; } if (!strcasecmp(cbtype, "message/rfc822")) { --ma->freeze; } } /* * Inline callback function for mime parser that wants to display text */ void fixed_output(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct CitContext *CCC = CC; char *ptr; char *wptr; size_t wlen; struct ma_info *ma; ma = (struct ma_info *)cbuserdata; MSG_syslog(LOG_DEBUG, "fixed_output() part %s: %s (%s) (%ld bytes)\n", partnum, filename, cbtype, (long)length); /* * If we're in the middle of a multipart/alternative scope and * we've already printed another section, skip this one. */ if ( (ma->is_ma) && (ma->did_print) ) { MSG_syslog(LOG_DEBUG, "Skipping part %s (%s)\n", partnum, cbtype); return; } ma->did_print = 1; if ( (!strcasecmp(cbtype, "text/plain")) || (IsEmptyStr(cbtype)) ) { wptr = content; if (length > 0) { client_write(wptr, length); if (wptr[length-1] != '\n') { cprintf("\n"); } } return; } if (!strcasecmp(cbtype, "text/html")) { ptr = html_to_ascii(content, length, 80, 0); wlen = strlen(ptr); client_write(ptr, wlen); if ((wlen > 0) && (ptr[wlen-1] != '\n')) { cprintf("\n"); } free(ptr); return; } if (ma->use_fo_hooks) { if (PerformFixedOutputHooks(cbtype, content, length)) { /* above function returns nonzero if it handled the part */ return; } } if (strncasecmp(cbtype, "multipart/", 10)) { cprintf("Part %s: %s (%s) (%ld bytes)\r\n", partnum, filename, cbtype, (long)length); return; } } /* * The client is elegant and sophisticated and wants to be choosy about * MIME content types, so figure out which multipart/alternative part * we're going to send. * * We use a system of weights. When we find a part that matches one of the * MIME types we've declared as preferential, we can store it in ma->chosen_part * and then set ma->chosen_pref to that MIME type's position in our preference * list. If we then hit another match, we only replace the first match if * the preference value is lower. */ void choose_preferred(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct CitContext *CCC = CC; char buf[1024]; int i; struct ma_info *ma; ma = (struct ma_info *)cbuserdata; // NOTE: REMOVING THIS CONDITIONAL FIXES BUG 220 // http://bugzilla.citadel.org/show_bug.cgi?id=220 // I don't know if there are any side effects! Please TEST TEST TEST //if (ma->is_ma > 0) { for (i=0; ipreferred_formats, '|'); ++i) { extract_token(buf, CCC->preferred_formats, i, '|', sizeof buf); if ( (!strcasecmp(buf, cbtype)) && (!ma->freeze) ) { if (i < ma->chosen_pref) { MSG_syslog(LOG_DEBUG, "Setting chosen part: <%s>\n", partnum); safestrncpy(ma->chosen_part, partnum, sizeof ma->chosen_part); ma->chosen_pref = i; } } } } /* * Now that we've chosen our preferred part, output it. */ void output_preferred(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct CitContext *CCC = CC; int i; char buf[128]; int add_newline = 0; char *text_content; struct ma_info *ma; char *decoded = NULL; size_t bytes_decoded; int rc = 0; ma = (struct ma_info *)cbuserdata; /* This is not the MIME part you're looking for... */ if (strcasecmp(partnum, ma->chosen_part)) return; /* If the content-type of this part is in our preferred formats * list, we can simply output it verbatim. */ for (i=0; ipreferred_formats, '|'); ++i) { extract_token(buf, CCC->preferred_formats, i, '|', sizeof buf); if (!strcasecmp(buf, cbtype)) { /* Yeah! Go! W00t!! */ if (ma->dont_decode == 0) rc = mime_decode_now (content, length, encoding, &decoded, &bytes_decoded); if (rc < 0) break; /* Give us the chance, maybe theres another one. */ if (rc == 0) text_content = (char *)content; else { text_content = decoded; length = bytes_decoded; } if (text_content[length-1] != '\n') { ++add_newline; } cprintf("Content-type: %s", cbtype); if (!IsEmptyStr(cbcharset)) { cprintf("; charset=%s", cbcharset); } cprintf("\nContent-length: %d\n", (int)(length + add_newline) ); if (!IsEmptyStr(encoding)) { cprintf("Content-transfer-encoding: %s\n", encoding); } else { cprintf("Content-transfer-encoding: 7bit\n"); } cprintf("X-Citadel-MSG4-Partnum: %s\n", partnum); cprintf("\n"); if (client_write(text_content, length) == -1) { MSGM_syslog(LOG_ERR, "output_preferred(): aborting due to write failure.\n"); return; } if (add_newline) cprintf("\n"); if (decoded != NULL) free(decoded); return; } } /* No translations required or possible: output as text/plain */ cprintf("Content-type: text/plain\n\n"); rc = 0; if (ma->dont_decode == 0) rc = mime_decode_now (content, length, encoding, &decoded, &bytes_decoded); if (rc < 0) return; /* Give us the chance, maybe theres another one. */ if (rc == 0) text_content = (char *)content; else { text_content = decoded; length = bytes_decoded; } fixed_output(name, filename, partnum, disp, text_content, cbtype, cbcharset, length, encoding, cbid, cbuserdata); if (decoded != NULL) free(decoded); } struct encapmsg { char desired_section[64]; char *msg; size_t msglen; }; /* * Callback function for */ void extract_encapsulated_message(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct encapmsg *encap; encap = (struct encapmsg *)cbuserdata; /* Only proceed if this is the desired section... */ if (!strcasecmp(encap->desired_section, partnum)) { encap->msglen = length; encap->msg = malloc(length + 2); memcpy(encap->msg, content, length); return; } } /* * Determine whether the specified message exists in the cached_msglist * (This is a security check) */ int check_cached_msglist(long msgnum) { struct CitContext *CCC = CC; /* cases in which we skip the check */ if (!CCC) return om_ok; /* not a session */ if (CCC->client_socket <= 0) return om_ok; /* not a client session */ if (CCC->cached_msglist == NULL) return om_access_denied; /* no msglist fetched */ if (CCC->cached_num_msgs == 0) return om_access_denied; /* nothing to check */ /* Do a binary search within the cached_msglist for the requested msgnum */ int min = 0; int max = (CC->cached_num_msgs - 1); while (max >= min) { int middle = min + (max-min) / 2 ; if (msgnum == CCC->cached_msglist[middle]) { return om_ok; } if (msgnum > CC->cached_msglist[middle]) { min = middle + 1; } else { max = middle - 1; } } return om_access_denied; } /* * Get a message off disk. (returns om_* values found in msgbase.h) * */ int CtdlOutputMsg(long msg_num, /* message number (local) to fetch */ int mode, /* how would you like that message? */ int headers_only, /* eschew the message body? */ int do_proto, /* do Citadel protocol responses? */ int crlf, /* Use CRLF newlines instead of LF? */ char *section, /* NULL or a message/rfc822 section */ int flags, /* various flags; see msgbase.h */ char **Author, char **Address, char **MessageID ) { struct CitContext *CCC = CC; struct CtdlMessage *TheMessage = NULL; int retcode = CIT_OK; struct encapmsg encap; int r; MSG_syslog(LOG_DEBUG, "CtdlOutputMsg(msgnum=%ld, mode=%d, section=%s)\n", msg_num, mode, (section ? section : "<>") ); r = CtdlDoIHavePermissionToReadMessagesInThisRoom(); if (r != om_ok) { if (do_proto) { if (r == om_not_logged_in) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); } else { cprintf("%d An unknown error has occurred.\n", ERROR); } } return(r); } /* * Check to make sure the message is actually IN this room */ r = check_cached_msglist(msg_num); if (r == om_access_denied) { /* Not in the cache? We get ONE shot to check it again. */ CtdlForEachMessage(MSGS_ALL, 0L, NULL, NULL, NULL, NULL, NULL); r = check_cached_msglist(msg_num); } if (r != om_ok) { MSG_syslog(LOG_DEBUG, "Security check fail: message %ld is not in %s\n", msg_num, CCC->room.QRname ); if (do_proto) { if (r == om_access_denied) { cprintf("%d message %ld was not found in this room\n", ERROR + HIGHER_ACCESS_REQUIRED, msg_num ); } } return(r); } /* * Fetch the message from disk. If we're in HEADERS_FAST mode, * request that we don't even bother loading the body into memory. */ if (headers_only == HEADERS_FAST) { TheMessage = CtdlFetchMessage(msg_num, 0, 1); } else { TheMessage = CtdlFetchMessage(msg_num, 1, 1); } if (TheMessage == NULL) { if (do_proto) cprintf("%d Can't locate msg %ld on disk\n", ERROR + MESSAGE_NOT_FOUND, msg_num); return(om_no_such_msg); } /* Here is the weird form of this command, to process only an * encapsulated message/rfc822 section. */ if (section) if (!IsEmptyStr(section)) if (strcmp(section, "0")) { memset(&encap, 0, sizeof encap); safestrncpy(encap.desired_section, section, sizeof encap.desired_section); mime_parser(CM_RANGE(TheMessage, eMesageText), *extract_encapsulated_message, NULL, NULL, (void *)&encap, 0 ); if ((Author != NULL) && (*Author == NULL)) { long len; CM_GetAsField(TheMessage, eAuthor, Author, &len); } if ((Address != NULL) && (*Address == NULL)) { long len; CM_GetAsField(TheMessage, erFc822Addr, Address, &len); } if ((MessageID != NULL) && (*MessageID == NULL)) { long len; CM_GetAsField(TheMessage, emessageId, MessageID, &len); } CM_Free(TheMessage); TheMessage = NULL; if (encap.msg) { encap.msg[encap.msglen] = 0; TheMessage = convert_internet_message(encap.msg); encap.msg = NULL; /* no free() here, TheMessage owns it now */ /* Now we let it fall through to the bottom of this * function, because TheMessage now contains the * encapsulated message instead of the top-level * message. Isn't that neat? */ } else { if (do_proto) { cprintf("%d msg %ld has no part %s\n", ERROR + MESSAGE_NOT_FOUND, msg_num, section); } retcode = om_no_such_msg; } } /* Ok, output the message now */ if (retcode == CIT_OK) retcode = CtdlOutputPreLoadedMsg(TheMessage, mode, headers_only, do_proto, crlf, flags); if ((Author != NULL) && (*Author == NULL)) { long len; CM_GetAsField(TheMessage, eAuthor, Author, &len); } if ((Address != NULL) && (*Address == NULL)) { long len; CM_GetAsField(TheMessage, erFc822Addr, Address, &len); } if ((MessageID != NULL) && (*MessageID == NULL)) { long len; CM_GetAsField(TheMessage, emessageId, MessageID, &len); } CM_Free(TheMessage); return(retcode); } void OutputCtdlMsgHeaders( struct CtdlMessage *TheMessage, int do_proto) /* do Citadel protocol responses? */ { int i; int suppress_f = 0; char buf[SIZ]; char display_name[256]; /* begin header processing loop for Citadel message format */ safestrncpy(display_name, "", sizeof display_name); if (!CM_IsEmpty(TheMessage, eAuthor)) { strcpy(buf, TheMessage->cm_fields[eAuthor]); if (TheMessage->cm_anon_type == MES_ANONONLY) { safestrncpy(display_name, "****", sizeof display_name); } else if (TheMessage->cm_anon_type == MES_ANONOPT) { safestrncpy(display_name, "anonymous", sizeof display_name); } else { safestrncpy(display_name, buf, sizeof display_name); } if ((is_room_aide()) && ((TheMessage->cm_anon_type == MES_ANONONLY) || (TheMessage->cm_anon_type == MES_ANONOPT))) { size_t tmp = strlen(display_name); snprintf(&display_name[tmp], sizeof display_name - tmp, " [%s]", buf); } } /* Don't show Internet address for users on the * local Citadel network. */ suppress_f = 0; if (!CM_IsEmpty(TheMessage, eNodeName) && (haschar(TheMessage->cm_fields[eNodeName], '.') == 0)) { suppress_f = 1; } /* Now spew the header fields in the order we like them. */ for (i=0; i< NDiskFields; ++i) { eMsgField Field; Field = FieldOrder[i]; if (Field != eMesageText) { if ( (!CM_IsEmpty(TheMessage, Field)) && (msgkeys[Field] != NULL) ) { if ((Field == eenVelopeTo) || (Field == eRecipient) || (Field == eCarbonCopY)) { sanitize_truncated_recipient(TheMessage->cm_fields[Field]); } if (Field == eAuthor) { if (do_proto) cprintf("%s=%s\n", msgkeys[Field], display_name); } else if ((Field == erFc822Addr) && (suppress_f)) { /* do nothing */ } /* Masquerade display name if needed */ else { if (do_proto) cprintf("%s=%s\n", msgkeys[Field], TheMessage->cm_fields[Field] ); } } } } } void OutputRFC822MsgHeaders( struct CtdlMessage *TheMessage, int flags, /* should the bessage be exported clean */ const char *nl, int nlen, char *mid, long sizeof_mid, char *suser, long sizeof_suser, char *luser, long sizeof_luser, char *fuser, long sizeof_fuser, char *snode, long sizeof_snode) { char datestamp[100]; int subject_found = 0; char buf[SIZ]; int i, j, k; char *mptr = NULL; char *mpptr = NULL; char *hptr; for (i = 0; i < NDiskFields; ++i) { if (TheMessage->cm_fields[FieldOrder[i]]) { mptr = mpptr = TheMessage->cm_fields[FieldOrder[i]]; switch (FieldOrder[i]) { case eAuthor: safestrncpy(luser, mptr, sizeof_luser); safestrncpy(suser, mptr, sizeof_suser); break; case eCarbonCopY: if ((flags & QP_EADDR) != 0) { mptr = qp_encode_email_addrs(mptr); } sanitize_truncated_recipient(mptr); cprintf("CC: %s%s", mptr, nl); break; case eMessagePath: cprintf("Return-Path: %s%s", mptr, nl); break; case eListID: cprintf("List-ID: %s%s", mptr, nl); break; case eenVelopeTo: if ((flags & QP_EADDR) != 0) mptr = qp_encode_email_addrs(mptr); hptr = mptr; while ((*hptr != '\0') && isspace(*hptr)) hptr ++; if (!IsEmptyStr(hptr)) cprintf("Envelope-To: %s%s", hptr, nl); break; case eMsgSubject: cprintf("Subject: %s%s", mptr, nl); subject_found = 1; break; case emessageId: safestrncpy(mid, mptr, sizeof_mid); /// TODO: detect @ here and copy @nodename in if not found. break; case erFc822Addr: safestrncpy(fuser, mptr, sizeof_fuser); /* case eOriginalRoom: cprintf("X-Citadel-Room: %s%s", mptr, nl) break; ; */ case eNodeName: safestrncpy(snode, mptr, sizeof_snode); break; case eRecipient: if (haschar(mptr, '@') == 0) { sanitize_truncated_recipient(mptr); cprintf("To: %s@%s", mptr, CtdlGetConfigStr("c_fqdn")); cprintf("%s", nl); } else { if ((flags & QP_EADDR) != 0) { mptr = qp_encode_email_addrs(mptr); } sanitize_truncated_recipient(mptr); cprintf("To: %s", mptr); cprintf("%s", nl); } break; case eTimestamp: datestring(datestamp, sizeof datestamp, atol(mptr), DATESTRING_RFC822); cprintf("Date: %s%s", datestamp, nl); break; case eWeferences: cprintf("References: "); k = num_tokens(mptr, '|'); for (j=0; j", buf); if (j == (k-1)) { cprintf("%s", nl); } else { cprintf(" "); } } break; case eReplyTo: hptr = mptr; while ((*hptr != '\0') && isspace(*hptr)) hptr ++; if (!IsEmptyStr(hptr)) cprintf("Reply-To: %s%s", mptr, nl); break; case eRemoteRoom: case eDestination: case eExclusiveID: case eHumanNode: case eJournal: case eMesageText: case eBig_message: case eOriginalRoom: case eSpecialField: case eErrorMsg: case eSuppressIdx: case eExtnotify: case eVltMsgNum: /* these don't map to mime message headers. */ break; } if (mptr != mpptr) free (mptr); } } if (subject_found == 0) { cprintf("Subject: (no subject)%s", nl); } } void Dump_RFC822HeadersBody( struct CtdlMessage *TheMessage, int headers_only, /* eschew the message body? */ int flags, /* should the bessage be exported clean? */ const char *nl, int nlen) { cit_uint8_t prev_ch; int eoh = 0; const char *StartOfText = StrBufNOTNULL; char outbuf[1024]; int outlen = 0; int nllen = strlen(nl); char *mptr; int lfSent = 0; mptr = TheMessage->cm_fields[eMesageText]; prev_ch = '\0'; while (*mptr != '\0') { if (*mptr == '\r') { /* do nothing */ } else { if ((!eoh) && (*mptr == '\n')) { eoh = (*(mptr+1) == '\r') && (*(mptr+2) == '\n'); if (!eoh) eoh = *(mptr+1) == '\n'; if (eoh) { StartOfText = mptr; StartOfText = strchr(StartOfText, '\n'); StartOfText = strchr(StartOfText, '\n'); } } if (((headers_only == HEADERS_NONE) && (mptr >= StartOfText)) || ((headers_only == HEADERS_ONLY) && (mptr < StartOfText)) || ((headers_only != HEADERS_NONE) && (headers_only != HEADERS_ONLY)) ) { if (*mptr == '\n') { memcpy(&outbuf[outlen], nl, nllen); outlen += nllen; outbuf[outlen] = '\0'; } else { outbuf[outlen++] = *mptr; } } } if (flags & ESC_DOT) { if ((prev_ch == '\n') && (*mptr == '.') && ((*(mptr+1) == '\r') || (*(mptr+1) == '\n'))) { outbuf[outlen++] = '.'; } prev_ch = *mptr; } ++mptr; if (outlen > 1000) { if (client_write(outbuf, outlen) == -1) { struct CitContext *CCC = CC; MSGM_syslog(LOG_ERR, "Dump_RFC822HeadersBody(): aborting due to write failure.\n"); return; } lfSent = (outbuf[outlen - 1] == '\n'); outlen = 0; } } if (outlen > 0) { client_write(outbuf, outlen); lfSent = (outbuf[outlen - 1] == '\n'); } if (!lfSent) client_write(nl, nlen); } /* If the format type on disk is 1 (fixed-format), then we want * everything to be output completely literally ... regardless of * what message transfer format is in use. */ void DumpFormatFixed( struct CtdlMessage *TheMessage, int mode, /* how would you like that message? */ const char *nl, int nllen) { cit_uint8_t ch; char buf[SIZ]; int buflen; int xlline = 0; char *mptr; mptr = TheMessage->cm_fields[eMesageText]; if (mode == MT_MIME) { cprintf("Content-type: text/plain\n\n"); } *buf = '\0'; buflen = 0; while (ch = *mptr++, ch > 0) { if (ch == '\n') ch = '\r'; if ((buflen > 250) && (!xlline)){ int tbuflen; tbuflen = buflen; while ((buflen > 0) && (!isspace(buf[buflen]))) buflen --; if (buflen == 0) { xlline = 1; } else { mptr -= tbuflen - buflen; buf[buflen] = '\0'; ch = '\r'; } } /* if we reach the outer bounds of our buffer, abort without respect what whe purge. */ if (xlline && ((isspace(ch)) || (buflen > SIZ - nllen - 2))) ch = '\r'; if (ch == '\r') { memcpy (&buf[buflen], nl, nllen); buflen += nllen; buf[buflen] = '\0'; if (client_write(buf, buflen) == -1) { struct CitContext *CCC = CC; MSGM_syslog(LOG_ERR, "DumpFormatFixed(): aborting due to write failure.\n"); return; } *buf = '\0'; buflen = 0; xlline = 0; } else { buf[buflen] = ch; buflen++; } } buf[buflen] = '\0'; if (!IsEmptyStr(buf)) cprintf("%s%s", buf, nl); } /* * Get a message off disk. (returns om_* values found in msgbase.h) */ int CtdlOutputPreLoadedMsg( struct CtdlMessage *TheMessage, int mode, /* how would you like that message? */ int headers_only, /* eschew the message body? */ int do_proto, /* do Citadel protocol responses? */ int crlf, /* Use CRLF newlines instead of LF? */ int flags /* should the bessage be exported clean? */ ) { struct CitContext *CCC = CC; int i; const char *nl; /* newline string */ int nlen; struct ma_info ma; /* Buffers needed for RFC822 translation. These are all filled * using functions that are bounds-checked, and therefore we can * make them substantially smaller than SIZ. */ char suser[100]; char luser[100]; char fuser[100]; char snode[100]; char mid[100]; MSG_syslog(LOG_DEBUG, "CtdlOutputPreLoadedMsg(TheMessage=%s, %d, %d, %d, %d\n", ((TheMessage == NULL) ? "NULL" : "not null"), mode, headers_only, do_proto, crlf); strcpy(mid, "unknown"); nl = (crlf ? "\r\n" : "\n"); nlen = crlf ? 2 : 1; if (!CM_IsValidMsg(TheMessage)) { MSGM_syslog(LOG_ERR, "ERROR: invalid preloaded message for output\n"); cit_backtrace (); return(om_no_such_msg); } /* Suppress envelope recipients if required to avoid disclosing BCC addresses. * Pad it with spaces in order to avoid changing the RFC822 length of the message. */ if ( (flags & SUPPRESS_ENV_TO) && (!CM_IsEmpty(TheMessage, eenVelopeTo)) ) { memset(TheMessage->cm_fields[eenVelopeTo], ' ', TheMessage->cm_lengths[eenVelopeTo]); } /* Are we downloading a MIME component? */ if (mode == MT_DOWNLOAD) { if (TheMessage->cm_format_type != FMT_RFC822) { if (do_proto) cprintf("%d This is not a MIME message.\n", ERROR + ILLEGAL_VALUE); } else if (CCC->download_fp != NULL) { if (do_proto) cprintf( "%d You already have a download open.\n", ERROR + RESOURCE_BUSY); } else { /* Parse the message text component */ mime_parser(CM_RANGE(TheMessage, eMesageText), *mime_download, NULL, NULL, NULL, 0); /* If there's no file open by this time, the requested * section wasn't found, so print an error */ if (CCC->download_fp == NULL) { if (do_proto) cprintf( "%d Section %s not found.\n", ERROR + FILE_NOT_FOUND, CCC->download_desired_section); } } return((CCC->download_fp != NULL) ? om_ok : om_mime_error); } /* MT_SPEW_SECTION is like MT_DOWNLOAD except it outputs the whole MIME part * in a single server operation instead of opening a download file. */ if (mode == MT_SPEW_SECTION) { if (TheMessage->cm_format_type != FMT_RFC822) { if (do_proto) cprintf("%d This is not a MIME message.\n", ERROR + ILLEGAL_VALUE); } else { /* Parse the message text component */ int found_it = 0; mime_parser(CM_RANGE(TheMessage, eMesageText), *mime_spew_section, NULL, NULL, (void *)&found_it, 0); /* If section wasn't found, print an error */ if (!found_it) { if (do_proto) cprintf( "%d Section %s not found.\n", ERROR + FILE_NOT_FOUND, CCC->download_desired_section); } } return((CCC->download_fp != NULL) ? om_ok : om_mime_error); } /* now for the user-mode message reading loops */ if (do_proto) cprintf("%d msg:\n", LISTING_FOLLOWS); /* Does the caller want to skip the headers? */ if (headers_only == HEADERS_NONE) goto START_TEXT; /* Tell the client which format type we're using. */ if ( (mode == MT_CITADEL) && (do_proto) ) { cprintf("type=%d\n", TheMessage->cm_format_type); } /* nhdr=yes means that we're only displaying headers, no body */ if ( (TheMessage->cm_anon_type == MES_ANONONLY) && ((mode == MT_CITADEL) || (mode == MT_MIME)) && (do_proto) ) { cprintf("nhdr=yes\n"); } if ((mode == MT_CITADEL) || (mode == MT_MIME)) OutputCtdlMsgHeaders(TheMessage, do_proto); /* begin header processing loop for RFC822 transfer format */ strcpy(suser, ""); strcpy(luser, ""); strcpy(fuser, ""); memcpy(snode, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename")) + 1); if (mode == MT_RFC822) OutputRFC822MsgHeaders( TheMessage, flags, nl, nlen, mid, sizeof(mid), suser, sizeof(suser), luser, sizeof(luser), fuser, sizeof(fuser), snode, sizeof(snode) ); for (i=0; !IsEmptyStr(&suser[i]); ++i) { suser[i] = tolower(suser[i]); if (!isalnum(suser[i])) suser[i]='_'; } if (mode == MT_RFC822) { if (!strcasecmp(snode, NODENAME)) { safestrncpy(snode, FQDN, sizeof snode); } /* Construct a fun message id */ cprintf("Message-ID: <%s", mid);/// todo: this possibly breaks threadding mails. if (strchr(mid, '@')==NULL) { cprintf("@%s", snode); } cprintf(">%s", nl); if (!is_room_aide() && (TheMessage->cm_anon_type == MES_ANONONLY)) { cprintf("From: \"----\" %s", nl); } else if (!is_room_aide() && (TheMessage->cm_anon_type == MES_ANONOPT)) { cprintf("From: \"anonymous\" %s", nl); } else if (!IsEmptyStr(fuser)) { cprintf("From: \"%s\" <%s>%s", luser, fuser, nl); } else { cprintf("From: \"%s\" <%s@%s>%s", luser, suser, snode, nl); } /* Blank line signifying RFC822 end-of-headers */ if (TheMessage->cm_format_type != FMT_RFC822) { cprintf("%s", nl); } } /* end header processing loop ... at this point, we're in the text */ START_TEXT: if (headers_only == HEADERS_FAST) goto DONE; /* Tell the client about the MIME parts in this message */ if (TheMessage->cm_format_type == FMT_RFC822) { if ( (mode == MT_CITADEL) || (mode == MT_MIME) ) { memset(&ma, 0, sizeof(struct ma_info)); mime_parser(CM_RANGE(TheMessage, eMesageText), (do_proto ? *list_this_part : NULL), (do_proto ? *list_this_pref : NULL), (do_proto ? *list_this_suff : NULL), (void *)&ma, 1); } else if (mode == MT_RFC822) { /* unparsed RFC822 dump */ Dump_RFC822HeadersBody( TheMessage, headers_only, flags, nl, nlen); goto DONE; } } if (headers_only == HEADERS_ONLY) { goto DONE; } /* signify start of msg text */ if ( (mode == MT_CITADEL) || (mode == MT_MIME) ) { if (do_proto) cprintf("text\n"); } if (TheMessage->cm_format_type == FMT_FIXED) DumpFormatFixed( TheMessage, mode, /* how would you like that message? */ nl, nlen); /* If the message on disk is format 0 (Citadel vari-format), we * output using the formatter at 80 columns. This is the final output * form if the transfer format is RFC822, but if the transfer format * is Citadel proprietary, it'll still work, because the indentation * for new paragraphs is correct and the client will reformat the * message to the reader's screen width. */ if (TheMessage->cm_format_type == FMT_CITADEL) { if (mode == MT_MIME) { cprintf("Content-type: text/x-citadel-variformat\n\n"); } memfmout(TheMessage->cm_fields[eMesageText], nl); } /* If the message on disk is format 4 (MIME), we've gotta hand it * off to the MIME parser. The client has already been told that * this message is format 1 (fixed format), so the callback function * we use will display those parts as-is. */ if (TheMessage->cm_format_type == FMT_RFC822) { memset(&ma, 0, sizeof(struct ma_info)); if (mode == MT_MIME) { ma.use_fo_hooks = 0; strcpy(ma.chosen_part, "1"); ma.chosen_pref = 9999; ma.dont_decode = CCC->msg4_dont_decode; mime_parser(CM_RANGE(TheMessage, eMesageText), *choose_preferred, *fixed_output_pre, *fixed_output_post, (void *)&ma, 1); mime_parser(CM_RANGE(TheMessage, eMesageText), *output_preferred, NULL, NULL, (void *)&ma, 1); } else { ma.use_fo_hooks = 1; mime_parser(CM_RANGE(TheMessage, eMesageText), *fixed_output, *fixed_output_pre, *fixed_output_post, (void *)&ma, 0); } } DONE: /* now we're done */ if (do_proto) cprintf("000\n"); return(om_ok); } /* * Save one or more message pointers into a specified room * (Returns 0 for success, nonzero for failure) * roomname may be NULL to use the current room * * Note that the 'supplied_msg' field may be set to NULL, in which case * the message will be fetched from disk, by number, if we need to perform * replication checks. This adds an additional database read, so if the * caller already has the message in memory then it should be supplied. (Obviously * this mode of operation only works if we're saving a single message.) */ int CtdlSaveMsgPointersInRoom(char *roomname, long newmsgidlist[], int num_newmsgs, int do_repl_check, struct CtdlMessage *supplied_msg, int suppress_refcount_adj ) { struct CitContext *CCC = CC; int i, j, unique; char hold_rm[ROOMNAMELEN]; struct cdbdata *cdbfr; int num_msgs; long *msglist; long highest_msg = 0L; long msgid = 0; struct CtdlMessage *msg = NULL; long *msgs_to_be_merged = NULL; int num_msgs_to_be_merged = 0; MSG_syslog(LOG_DEBUG, "CtdlSaveMsgPointersInRoom(room=%s, num_msgs=%d, repl=%d, suppress_rca=%d)\n", roomname, num_newmsgs, do_repl_check, suppress_refcount_adj ); strcpy(hold_rm, CCC->room.QRname); /* Sanity checks */ if (newmsgidlist == NULL) return(ERROR + INTERNAL_ERROR); if (num_newmsgs < 1) return(ERROR + INTERNAL_ERROR); if (num_newmsgs > 1) supplied_msg = NULL; /* Now the regular stuff */ if (CtdlGetRoomLock(&CCC->room, ((roomname != NULL) ? roomname : CCC->room.QRname) ) != 0) { MSG_syslog(LOG_ERR, "No such room <%s>\n", roomname); return(ERROR + ROOM_NOT_FOUND); } msgs_to_be_merged = malloc(sizeof(long) * num_newmsgs); num_msgs_to_be_merged = 0; cdbfr = cdb_fetch(CDB_MSGLISTS, &CCC->room.QRnumber, sizeof(long)); if (cdbfr == NULL) { msglist = NULL; num_msgs = 0; } else { msglist = (long *) cdbfr->ptr; cdbfr->ptr = NULL; /* CtdlSaveMsgPointerInRoom() now owns this memory */ num_msgs = cdbfr->len / sizeof(long); cdb_free(cdbfr); } /* Create a list of msgid's which were supplied by the caller, but do * not already exist in the target room. It is absolutely taboo to * have more than one reference to the same message in a room. */ for (i=0; i 0) for (j=0; jroom.QRnumber, (int)sizeof(long), msglist, (int)(num_msgs * sizeof(long))); /* Free up the memory we used. */ free(msglist); /* Update the highest-message pointer and unlock the room. */ CCC->room.QRhighest = highest_msg; CtdlPutRoomLock(&CCC->room); /* Perform replication checks if necessary */ if ( (DoesThisRoomNeedEuidIndexing(&CCC->room)) && (do_repl_check) ) { MSGM_syslog(LOG_DEBUG, "CtdlSaveMsgPointerInRoom() doing repl checks\n"); for (i=0; icm_fields[eExclusiveID], &CCC->room, msgid); } /* Free up the memory we may have allocated */ if (msg != supplied_msg) { CM_Free(msg); } } } } else { MSGM_syslog(LOG_DEBUG, "CtdlSaveMsgPointerInRoom() skips repl checks\n"); } /* Submit this room for processing by hooks */ PerformRoomHooks(&CCC->room); /* Go back to the room we were in before we wandered here... */ CtdlGetRoom(&CCC->room, hold_rm); /* Bump the reference count for all messages which were merged */ if (!suppress_refcount_adj) { AdjRefCountList(msgs_to_be_merged, num_msgs_to_be_merged, +1); } /* Free up memory... */ if (msgs_to_be_merged != NULL) { free(msgs_to_be_merged); } /* Return success. */ return (0); } /* * This is the same as CtdlSaveMsgPointersInRoom() but it only accepts * a single message. */ int CtdlSaveMsgPointerInRoom(char *roomname, long msgid, int do_repl_check, struct CtdlMessage *supplied_msg) { return CtdlSaveMsgPointersInRoom(roomname, &msgid, 1, do_repl_check, supplied_msg, 0); } /* * Message base operation to save a new message to the message store * (returns new message number) * * This is the back end for CtdlSubmitMsg() and should not be directly * called by server-side modules. * */ long CtdlSaveThisMessage(struct CtdlMessage *msg, long msgid, int Reply) { struct CitContext *CCC = CC; long retval; struct ser_ret smr; int is_bigmsg = 0; char *holdM = NULL; long holdMLen = 0; /* * If the message is big, set its body aside for storage elsewhere * and we hide the message body from the serializer */ if (!CM_IsEmpty(msg, eMesageText) && msg->cm_lengths[eMesageText] > BIGMSG) { is_bigmsg = 1; holdM = msg->cm_fields[eMesageText]; msg->cm_fields[eMesageText] = NULL; holdMLen = msg->cm_lengths[eMesageText]; msg->cm_lengths[eMesageText] = 0; } /* Serialize our data structure for storage in the database */ CtdlSerializeMessage(&smr, msg); if (is_bigmsg) { /* put the message body back into the message */ msg->cm_fields[eMesageText] = holdM; msg->cm_lengths[eMesageText] = holdMLen; } if (smr.len == 0) { if (Reply) { cprintf("%d Unable to serialize message\n", ERROR + INTERNAL_ERROR); } else { MSGM_syslog(LOG_ERR, "CtdlSaveMessage() unable to serialize message"); } return (-1L); } /* Write our little bundle of joy into the message base */ retval = cdb_store(CDB_MSGMAIN, &msgid, (int)sizeof(long), smr.ser, smr.len); if (retval < 0) { MSG_syslog(LOG_ERR, "Can't store message %ld: %ld", msgid, retval); } else { if (is_bigmsg) { retval = cdb_store(CDB_BIGMSGS, &msgid, (int)sizeof(long), holdM, (holdMLen + 1) ); if (retval < 0) { MSG_syslog(LOG_ERR, "failed to store message body for msgid %ld: %ld", msgid, retval); } } } /* Free the memory we used for the serialized message */ free(smr.ser); return(retval); } long send_message(struct CtdlMessage *msg) { long newmsgid; long retval; char msgidbuf[256]; long msgidbuflen; /* Get a new message number */ newmsgid = get_new_message_number(); /* Generate an ID if we don't have one already */ if (CM_IsEmpty(msg, emessageId)) { msgidbuflen = snprintf(msgidbuf, sizeof msgidbuf, "%08lX-%08lX@%s", (long unsigned int) time(NULL), (long unsigned int) newmsgid, CtdlGetConfigStr("c_fqdn") ); CM_SetField(msg, emessageId, msgidbuf, msgidbuflen); } retval = CtdlSaveThisMessage(msg, newmsgid, 1); if (retval == 0) { retval = newmsgid; } /* Return the *local* message ID to the caller * (even if we're storing an incoming network message) */ return(retval); } /* * Serialize a struct CtdlMessage into the format used on disk and network. * * This function loads up a "struct ser_ret" (defined in server.h) which * contains the length of the serialized message and a pointer to the * serialized message in memory. THE LATTER MUST BE FREED BY THE CALLER. */ void CtdlSerializeMessage(struct ser_ret *ret, /* return values */ struct CtdlMessage *msg) /* unserialized msg */ { struct CitContext *CCC = CC; size_t wlen; int i; /* * Check for valid message format */ if (CM_IsValidMsg(msg) == 0) { MSGM_syslog(LOG_ERR, "CtdlSerializeMessage() aborting due to invalid message\n"); ret->len = 0; ret->ser = NULL; return; } ret->len = 3; for (i=0; i < NDiskFields; ++i) if (msg->cm_fields[FieldOrder[i]] != NULL) ret->len += msg->cm_lengths[FieldOrder[i]] + 2; ret->ser = malloc(ret->len); if (ret->ser == NULL) { MSG_syslog(LOG_ERR, "CtdlSerializeMessage() malloc(%ld) failed: %s\n", (long)ret->len, strerror(errno)); ret->len = 0; ret->ser = NULL; return; } ret->ser[0] = 0xFF; ret->ser[1] = msg->cm_anon_type; ret->ser[2] = msg->cm_format_type; wlen = 3; for (i=0; i < NDiskFields; ++i) if (msg->cm_fields[FieldOrder[i]] != NULL) { ret->ser[wlen++] = (char)FieldOrder[i]; memcpy(&ret->ser[wlen], msg->cm_fields[FieldOrder[i]], msg->cm_lengths[FieldOrder[i]] + 1); wlen = wlen + msg->cm_lengths[FieldOrder[i]] + 1; } if (ret->len != wlen) { MSG_syslog(LOG_ERR, "ERROR: len=%ld wlen=%ld\n", (long)ret->len, (long)wlen); } return; } /* * Check to see if any messages already exist in the current room which * carry the same Exclusive ID as this one. If any are found, delete them. */ void ReplicationChecks(struct CtdlMessage *msg) { struct CitContext *CCC = CC; long old_msgnum = (-1L); if (DoesThisRoomNeedEuidIndexing(&CCC->room) == 0) return; MSG_syslog(LOG_DEBUG, "Performing replication checks in <%s>\n", CCC->room.QRname); /* No exclusive id? Don't do anything. */ if (msg == NULL) return; if (CM_IsEmpty(msg, eExclusiveID)) return; /*MSG_syslog(LOG_DEBUG, "Exclusive ID: <%s> for room <%s>\n", msg->cm_fields[eExclusiveID], CCC->room.QRname);*/ old_msgnum = CtdlLocateMessageByEuid(msg->cm_fields[eExclusiveID], &CCC->room); if (old_msgnum > 0L) { MSG_syslog(LOG_DEBUG, "ReplicationChecks() replacing message %ld\n", old_msgnum); CtdlDeleteMessages(CCC->room.QRname, &old_msgnum, 1, ""); } } /* * Save a message to disk and submit it into the delivery system. */ long CtdlSubmitMsg(struct CtdlMessage *msg, /* message to save */ recptypes *recps, /* recipients (if mail) */ const char *force, /* force a particular room? */ int flags /* should the message be exported clean? */ ) { char hold_rm[ROOMNAMELEN]; char actual_rm[ROOMNAMELEN]; char force_room[ROOMNAMELEN]; char content_type[SIZ]; /* We have to learn this */ char recipient[SIZ]; char bounce_to[1024]; const char *room; long newmsgid; const char *mptr = NULL; struct ctdluser userbuf; int a, i; struct MetaData smi; char *collected_addresses = NULL; struct addresses_to_be_filed *aptr = NULL; StrBuf *saved_rfc822_version = NULL; int qualified_for_journaling = 0; CitContext *CCC = MyContext(); MSGM_syslog(LOG_DEBUG, "CtdlSubmitMsg() called\n"); if (CM_IsValidMsg(msg) == 0) return(-1); /* self check */ /* If this message has no timestamp, we take the liberty of * giving it one, right now. */ if (CM_IsEmpty(msg, eTimestamp)) { CM_SetFieldLONG(msg, eTimestamp, time(NULL)); } /* If this message has no path, we generate one. */ if (CM_IsEmpty(msg, eMessagePath)) { if (!CM_IsEmpty(msg, eAuthor)) { CM_CopyField(msg, eMessagePath, eAuthor); for (a=0; !IsEmptyStr(&msg->cm_fields[eMessagePath][a]); ++a) { if (isspace(msg->cm_fields[eMessagePath][a])) { msg->cm_fields[eMessagePath][a] = ' '; } } } else { CM_SetField(msg, eMessagePath, HKEY("unknown")); } } if (force == NULL) { force_room[0] = '\0'; } else { strcpy(force_room, force); } /* Learn about what's inside, because it's what's inside that counts */ if (CM_IsEmpty(msg, eMesageText)) { MSGM_syslog(LOG_ERR, "ERROR: attempt to save message with NULL body\n"); return(-2); } switch (msg->cm_format_type) { case 0: strcpy(content_type, "text/x-citadel-variformat"); break; case 1: strcpy(content_type, "text/plain"); break; case 4: strcpy(content_type, "text/plain"); mptr = bmstrcasestr(msg->cm_fields[eMesageText], "Content-type:"); if (mptr != NULL) { char *aptr; safestrncpy(content_type, &mptr[13], sizeof content_type); striplt(content_type); aptr = content_type; while (!IsEmptyStr(aptr)) { if ((*aptr == ';') || (*aptr == ' ') || (*aptr == 13) || (*aptr == 10)) { *aptr = 0; } else aptr++; } } } /* Goto the correct room */ room = (recps) ? CCC->room.QRname : SENTITEMS; MSG_syslog(LOG_DEBUG, "Selected room %s\n", room); strcpy(hold_rm, CCC->room.QRname); strcpy(actual_rm, CCC->room.QRname); if (recps != NULL) { strcpy(actual_rm, SENTITEMS); } /* If the user is a twit, move to the twit room for posting */ if (TWITDETECT) { if (CCC->user.axlevel == AxProbU) { strcpy(hold_rm, actual_rm); strcpy(actual_rm, CtdlGetConfigStr("c_twitroom")); MSGM_syslog(LOG_DEBUG, "Diverting to twit room\n"); } } /* ...or if this message is destined for Aide> then go there. */ if (!IsEmptyStr(force_room)) { strcpy(actual_rm, force_room); } MSG_syslog(LOG_DEBUG, "Final selection: %s (%s)\n", actual_rm, room); if (strcasecmp(actual_rm, CCC->room.QRname)) { /* CtdlGetRoom(&CCC->room, actual_rm); */ CtdlUserGoto(actual_rm, 0, 1, NULL, NULL, NULL, NULL); } /* * If this message has no O (room) field, generate one. */ if (CM_IsEmpty(msg, eOriginalRoom) && !IsEmptyStr(CCC->room.QRname)) { CM_SetField(msg, eOriginalRoom, CCC->room.QRname, strlen(CCC->room.QRname)); } /* Perform "before save" hooks (aborting if any return nonzero) */ MSGM_syslog(LOG_DEBUG, "Performing before-save hooks\n"); if (PerformMessageHooks(msg, recps, EVT_BEFORESAVE) > 0) return(-3); /* * If this message has an Exclusive ID, and the room is replication * checking enabled, then do replication checks. */ if (DoesThisRoomNeedEuidIndexing(&CCC->room)) { ReplicationChecks(msg); } /* Save it to disk */ MSGM_syslog(LOG_DEBUG, "Saving to disk\n"); newmsgid = send_message(msg); if (newmsgid <= 0L) return(-5); /* Write a supplemental message info record. This doesn't have to * be a critical section because nobody else knows about this message * yet. */ MSGM_syslog(LOG_DEBUG, "Creating MetaData record\n"); memset(&smi, 0, sizeof(struct MetaData)); smi.meta_msgnum = newmsgid; smi.meta_refcount = 0; safestrncpy(smi.meta_content_type, content_type, sizeof smi.meta_content_type); /* * Measure how big this message will be when rendered as RFC822. * We do this for two reasons: * 1. We need the RFC822 length for the new metadata record, so the * POP and IMAP services don't have to calculate message lengths * while the user is waiting (multiplied by potentially hundreds * or thousands of messages). * 2. If journaling is enabled, we will need an RFC822 version of the * message to attach to the journalized copy. */ if (CCC->redirect_buffer != NULL) { MSGM_syslog(LOG_ALERT, "CCC->redirect_buffer is not NULL during message submission!\n"); abort(); } CCC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputPreLoadedMsg(msg, MT_RFC822, HEADERS_ALL, 0, 1, QP_EADDR); smi.meta_rfc822_length = StrLength(CCC->redirect_buffer); saved_rfc822_version = CCC->redirect_buffer; CCC->redirect_buffer = NULL; PutMetaData(&smi); /* Now figure out where to store the pointers */ MSGM_syslog(LOG_DEBUG, "Storing pointers\n"); /* If this is being done by the networker delivering a private * message, we want to BYPASS saving the sender's copy (because there * is no local sender; it would otherwise go to the Trashcan). */ if ((!CCC->internal_pgm) || (recps == NULL)) { if (CtdlSaveMsgPointerInRoom(actual_rm, newmsgid, 1, msg) != 0) { MSGM_syslog(LOG_ERR, "ERROR saving message pointer!\n"); CtdlSaveMsgPointerInRoom(CtdlGetConfigStr("c_aideroom"), newmsgid, 0, msg); } } /* For internet mail, drop a copy in the outbound queue room */ if ((recps != NULL) && (recps->num_internet > 0)) { CtdlSaveMsgPointerInRoom(SMTP_SPOOLOUT_ROOM, newmsgid, 0, msg); } /* If other rooms are specified, drop them there too. */ if ((recps != NULL) && (recps->num_room > 0)) for (i=0; irecp_room, '|'); ++i) { extract_token(recipient, recps->recp_room, i, '|', sizeof recipient); MSG_syslog(LOG_DEBUG, "Delivering to room <%s>\n", recipient);///// xxxx CtdlSaveMsgPointerInRoom(recipient, newmsgid, 0, msg); } /* Bump this user's messages posted counter. */ MSGM_syslog(LOG_DEBUG, "Updating user\n"); CtdlLockGetCurrentUser(); CCC->user.posted = CCC->user.posted + 1; CtdlPutCurrentUserLock(); /* Decide where bounces need to be delivered */ if ((recps != NULL) && (recps->bounce_to == NULL)) { if (CCC->logged_in) snprintf(bounce_to, sizeof bounce_to, "%s@%s", CCC->user.fullname, CtdlGetConfigStr("c_nodename")); else snprintf(bounce_to, sizeof bounce_to, "%s@%s", msg->cm_fields[eAuthor], msg->cm_fields[eNodeName]); recps->bounce_to = bounce_to; } CM_SetFieldLONG(msg, eVltMsgNum, newmsgid); /* If this is private, local mail, make a copy in the * recipient's mailbox and bump the reference count. */ if ((recps != NULL) && (recps->num_local > 0)) { char *pch; int ntokens; pch = recps->recp_local; recps->recp_local = recipient; ntokens = num_tokens(pch, '|'); for (i=0; i\n", recipient); if (CtdlGetUser(&userbuf, recipient) == 0) { CtdlMailboxName(actual_rm, sizeof actual_rm, &userbuf, MAILROOM); CtdlSaveMsgPointerInRoom(actual_rm, newmsgid, 0, msg); CtdlBumpNewMailCounter(userbuf.usernum); PerformMessageHooks(msg, recps, EVT_AFTERUSRMBOXSAVE); } else { MSG_syslog(LOG_DEBUG, "No user <%s>\n", recipient); CtdlSaveMsgPointerInRoom(CtdlGetConfigStr("c_aideroom"), newmsgid, 0, msg); } } recps->recp_local = pch; } /* Perform "after save" hooks */ MSGM_syslog(LOG_DEBUG, "Performing after-save hooks\n"); PerformMessageHooks(msg, recps, EVT_AFTERSAVE); CM_FlushField(msg, eVltMsgNum); /* Go back to the room we started from */ MSG_syslog(LOG_DEBUG, "Returning to original room %s\n", hold_rm); if (strcasecmp(hold_rm, CCC->room.QRname)) CtdlUserGoto(hold_rm, 0, 1, NULL, NULL, NULL, NULL); /* * Any addresses to harvest for someone's address book? */ if ( (CCC->logged_in) && (recps != NULL) ) { collected_addresses = harvest_collected_addresses(msg); } if (collected_addresses != NULL) { aptr = (struct addresses_to_be_filed *) malloc(sizeof(struct addresses_to_be_filed)); CtdlMailboxName(actual_rm, sizeof actual_rm, &CCC->user, USERCONTACTSROOM); aptr->roomname = strdup(actual_rm); aptr->collected_addresses = collected_addresses; begin_critical_section(S_ATBF); aptr->next = atbf; atbf = aptr; end_critical_section(S_ATBF); } /* * Determine whether this message qualifies for journaling. */ if (!CM_IsEmpty(msg, eJournal)) { qualified_for_journaling = 0; } else { if (recps == NULL) { qualified_for_journaling = CtdlGetConfigInt("c_journal_pubmsgs"); } else if (recps->num_local + recps->num_ignet + recps->num_internet > 0) { qualified_for_journaling = CtdlGetConfigInt("c_journal_email"); } else { qualified_for_journaling = CtdlGetConfigInt("c_journal_pubmsgs"); } } /* * Do we have to perform journaling? If so, hand off the saved * RFC822 version will be handed off to the journaler for background * submit. Otherwise, we have to free the memory ourselves. */ if (saved_rfc822_version != NULL) { if (qualified_for_journaling) { JournalBackgroundSubmit(msg, saved_rfc822_version, recps); } else { FreeStrBuf(&saved_rfc822_version); } } if ((recps != NULL) && (recps->bounce_to == bounce_to)) recps->bounce_to = NULL; /* Done. */ return(newmsgid); } /* * Convenience function for generating small administrative messages. */ long quickie_message(const char *from, const char *fromaddr, const char *to, char *room, const char *text, int format_type, const char *subject) { struct CtdlMessage *msg; recptypes *recp = NULL; msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = format_type; if (!IsEmptyStr(from)) { CM_SetField(msg, eAuthor, from, strlen(from)); } else if (!IsEmptyStr(fromaddr)) { char *pAt; CM_SetField(msg, eAuthor, fromaddr, strlen(fromaddr)); pAt = strchr(msg->cm_fields[eAuthor], '@'); if (pAt != NULL) { CM_CutFieldAt(msg, eAuthor, pAt - msg->cm_fields[eAuthor]); } } else { msg->cm_fields[eAuthor] = strdup("Citadel"); } if (!IsEmptyStr(fromaddr)) CM_SetField(msg, erFc822Addr, fromaddr, strlen(fromaddr)); if (!IsEmptyStr(room)) CM_SetField(msg, eOriginalRoom, room, strlen(room)); CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); if (!IsEmptyStr(to)) { CM_SetField(msg, eRecipient, to, strlen(to)); recp = validate_recipients(to, NULL, 0); } if (!IsEmptyStr(subject)) { CM_SetField(msg, eMsgSubject, subject, strlen(subject)); } if (!IsEmptyStr(text)) { CM_SetField(msg, eMesageText, text, strlen(text)); } long msgnum = CtdlSubmitMsg(msg, recp, room, 0); CM_Free(msg); if (recp != NULL) free_recipients(recp); return msgnum; } void flood_protect_quickie_message(const char *from, const char *fromaddr, const char *to, char *room, const char *text, int format_type, const char *subject, int nCriterions, const char **CritStr, const long *CritStrLen, long ccid, long ioid, time_t NOW) { struct CitContext *CCC = CC; int i; u_char rawdigest[MD5_DIGEST_LEN]; struct MD5Context md5context; StrBuf *guid; char timestamp[64]; long tslen; static const time_t tsday = (8*60*60); /* just care for a day... */ time_t seenstamp; tslen = snprintf(timestamp, sizeof(timestamp), "%ld", tsday); MD5Init(&md5context); for (i = 0; i < nCriterions; i++) MD5Update(&md5context, (const unsigned char*)CritStr[i], CritStrLen[i]); MD5Update(&md5context, (const unsigned char*)timestamp, tslen); MD5Final(rawdigest, &md5context); guid = NewStrBufPlain(NULL, MD5_DIGEST_LEN * 2 + 12); StrBufHexEscAppend(guid, NULL, rawdigest, MD5_DIGEST_LEN); StrBufAppendBufPlain(guid, HKEY("_fldpt"), 0); if (StrLength(guid) > 40) StrBufCutAt(guid, 40, NULL); seenstamp = CheckIfAlreadySeen("FPAideMessage", guid, NOW, tsday, eUpdate, ccid, ioid); if ((seenstamp > 0) && (seenstamp < tsday)) { FreeStrBuf(&guid); /* yes, we did. flood protection kicks in. */ MSG_syslog(LOG_DEBUG, "not sending message again - %ld < %ld \n", seenstamp, tsday); return; } else { MSG_syslog(LOG_DEBUG, "sending message. %ld >= %ld", seenstamp, tsday); FreeStrBuf(&guid); /* no, this message isn't sent recently; go ahead. */ quickie_message(from, fromaddr, to, room, text, format_type, subject); } } /* * Back end function used by CtdlMakeMessage() and similar functions */ StrBuf *CtdlReadMessageBodyBuf(char *terminator, /* token signalling EOT */ long tlen, size_t maxlen, /* maximum message length */ StrBuf *exist, /* if non-null, append to it; exist is ALWAYS freed */ int crlf, /* CRLF newlines instead of LF */ int *sock /* socket handle or 0 for this session's client socket */ ) { StrBuf *Message; StrBuf *LineBuf; int flushing = 0; int finished = 0; int dotdot = 0; LineBuf = NewStrBufPlain(NULL, SIZ); if (exist == NULL) { Message = NewStrBufPlain(NULL, 4 * SIZ); } else { Message = NewStrBufDup(exist); } /* Do we need to change leading ".." to "." for SMTP escaping? */ if ((tlen == 1) && (*terminator == '.')) { dotdot = 1; } /* read in the lines of message text one by one */ do { if (sock != NULL) { if ((CtdlSockGetLine(sock, LineBuf, 5) < 0) || (*sock == -1)) finished = 1; } else { if (CtdlClientGetLine(LineBuf) < 0) finished = 1; } if ((StrLength(LineBuf) == tlen) && (!strcmp(ChrPtr(LineBuf), terminator))) finished = 1; if ( (!flushing) && (!finished) ) { if (crlf) { StrBufAppendBufPlain(LineBuf, HKEY("\r\n"), 0); } else { StrBufAppendBufPlain(LineBuf, HKEY("\n"), 0); } /* Unescape SMTP-style input of two dots at the beginning of the line */ if ((dotdot) && (StrLength(LineBuf) == 2) && (!strcmp(ChrPtr(LineBuf), ".."))) { StrBufCutLeft(LineBuf, 1); } StrBufAppendBuf(Message, LineBuf, 0); } /* if we've hit the max msg length, flush the rest */ if (StrLength(Message) >= maxlen) flushing = 1; } while (!finished); FreeStrBuf(&LineBuf); return Message; } void DeleteAsyncMsg(ReadAsyncMsg **Msg) { if (*Msg == NULL) return; FreeStrBuf(&(*Msg)->MsgBuf); free(*Msg); *Msg = NULL; } ReadAsyncMsg *NewAsyncMsg(const char *terminator, /* token signalling EOT */ long tlen, size_t maxlen, /* maximum message length */ size_t expectlen, /* if we expect a message, how long should it be? */ StrBuf *exist, /* if non-null, append to it; exist is ALWAYS freed */ long eLen, /* length of exist */ int crlf /* CRLF newlines instead of LF */ ) { ReadAsyncMsg *NewMsg; NewMsg = (ReadAsyncMsg *)malloc(sizeof(ReadAsyncMsg)); memset(NewMsg, 0, sizeof(ReadAsyncMsg)); if (exist == NULL) { long len; if (expectlen == 0) { len = 4 * SIZ; } else { len = expectlen + 10; } NewMsg->MsgBuf = NewStrBufPlain(NULL, len); } else { NewMsg->MsgBuf = NewStrBufDup(exist); } /* Do we need to change leading ".." to "." for SMTP escaping? */ if ((tlen == 1) && (*terminator == '.')) { NewMsg->dodot = 1; } NewMsg->terminator = terminator; NewMsg->tlen = tlen; NewMsg->maxlen = maxlen; NewMsg->crlf = crlf; return NewMsg; } /* * Back end function used by CtdlMakeMessage() and similar functions */ eReadState CtdlReadMessageBodyAsync(AsyncIO *IO) { ReadAsyncMsg *ReadMsg; int MsgFinished = 0; eReadState Finished = eMustReadMore; #ifdef BIGBAD_IODBG char fn [SIZ]; FILE *fd; const char *pch = ChrPtr(IO->SendBuf.Buf); const char *pchh = IO->SendBuf.ReadWritePointer; long nbytes; if (pchh == NULL) pchh = pch; nbytes = StrLength(IO->SendBuf.Buf) - (pchh - pch); snprintf(fn, SIZ, "/tmp/foolog_ev_%s.%d", ((CitContext*)(IO->CitContext))->ServiceName, IO->SendBuf.fd); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } #endif ReadMsg = IO->ReadMsg; /* read in the lines of message text one by one */ do { Finished = StrBufChunkSipLine(IO->IOBuf, &IO->RecvBuf); switch (Finished) { case eMustReadMore: /// read new from socket... #ifdef BIGBAD_IODBG if (IO->RecvBuf.ReadWritePointer != NULL) { nbytes = StrLength(IO->RecvBuf.Buf) - (IO->RecvBuf.ReadWritePointer - ChrPtr(IO->RecvBuf.Buf)); fprintf(fd, "Read; Line unfinished: %ld Bytes still in buffer [", nbytes); fwrite(IO->RecvBuf.ReadWritePointer, nbytes, 1, fd); fprintf(fd, "]\n"); } else { fprintf(fd, "BufferEmpty! \n"); } fclose(fd); #endif return Finished; break; case eBufferNotEmpty: /* shouldn't happen... */ case eReadSuccess: /// done for now... break; case eReadFail: /// WHUT? ///todo: shut down! break; } if ((StrLength(IO->IOBuf) == ReadMsg->tlen) && (!strcmp(ChrPtr(IO->IOBuf), ReadMsg->terminator))) { MsgFinished = 1; #ifdef BIGBAD_IODBG fprintf(fd, "found Terminator; Message Size: %d\n", StrLength(ReadMsg->MsgBuf)); #endif } else if (!ReadMsg->flushing) { #ifdef BIGBAD_IODBG fprintf(fd, "Read Line: [%d][%s]\n", StrLength(IO->IOBuf), ChrPtr(IO->IOBuf)); #endif /* Unescape SMTP-style input of two dots at the beginning of the line */ if ((ReadMsg->dodot) && (StrLength(IO->IOBuf) == 2) && /* TODO: do we just unescape lines with two dots or any line? */ (!strcmp(ChrPtr(IO->IOBuf), ".."))) { #ifdef BIGBAD_IODBG fprintf(fd, "UnEscaped!\n"); #endif StrBufCutLeft(IO->IOBuf, 1); } if (ReadMsg->crlf) { StrBufAppendBufPlain(IO->IOBuf, HKEY("\r\n"), 0); } else { StrBufAppendBufPlain(IO->IOBuf, HKEY("\n"), 0); } StrBufAppendBuf(ReadMsg->MsgBuf, IO->IOBuf, 0); } /* if we've hit the max msg length, flush the rest */ if (StrLength(ReadMsg->MsgBuf) >= ReadMsg->maxlen) ReadMsg->flushing = 1; } while (!MsgFinished); #ifdef BIGBAD_IODBG fprintf(fd, "Done with reading; %s.\n, ", (MsgFinished)?"Message Finished": "FAILED"); fclose(fd); #endif if (MsgFinished) return eReadSuccess; else return eReadFail; } /* * Back end function used by CtdlMakeMessage() and similar functions */ char *CtdlReadMessageBody(char *terminator, /* token signalling EOT */ long tlen, size_t maxlen, /* maximum message length */ StrBuf *exist, /* if non-null, append to it; exist is ALWAYS freed */ int crlf, /* CRLF newlines instead of LF */ int *sock /* socket handle or 0 for this session's client socket */ ) { StrBuf *Message; Message = CtdlReadMessageBodyBuf(terminator, tlen, maxlen, exist, crlf, sock); if (Message == NULL) return NULL; else return SmashStrBuf(&Message); } struct CtdlMessage *CtdlMakeMessage( struct ctdluser *author, /* author's user structure */ char *recipient, /* NULL if it's not mail */ char *recp_cc, /* NULL if it's not mail */ char *room, /* room where it's going */ int type, /* see MES_ types in header file */ int format_type, /* variformat, plain text, MIME... */ char *fake_name, /* who we're masquerading as */ char *my_email, /* which of my email addresses to use (empty is ok) */ char *subject, /* Subject (optional) */ char *supplied_euid, /* ...or NULL if this is irrelevant */ char *preformatted_text, /* ...or NULL to read text from client */ char *references /* Thread references */ ) { return CtdlMakeMessageLen( author, /* author's user structure */ recipient, /* NULL if it's not mail */ (recipient)?strlen(recipient) : 0, recp_cc, /* NULL if it's not mail */ (recp_cc)?strlen(recp_cc): 0, room, /* room where it's going */ (room)?strlen(room): 0, type, /* see MES_ types in header file */ format_type, /* variformat, plain text, MIME... */ fake_name, /* who we're masquerading as */ (fake_name)?strlen(fake_name): 0, my_email, /* which of my email addresses to use (empty is ok) */ (my_email)?strlen(my_email): 0, subject, /* Subject (optional) */ (subject)?strlen(subject): 0, supplied_euid, /* ...or NULL if this is irrelevant */ (supplied_euid)?strlen(supplied_euid):0, preformatted_text, /* ...or NULL to read text from client */ (preformatted_text)?strlen(preformatted_text) : 0, references, /* Thread references */ (references)?strlen(references):0); } /* * Build a binary message to be saved on disk. * (NOTE: if you supply 'preformatted_text', the buffer you give it * will become part of the message. This means you are no longer * responsible for managing that memory -- it will be freed along with * the rest of the fields when CM_Free() is called.) */ struct CtdlMessage *CtdlMakeMessageLen( struct ctdluser *author, /* author's user structure */ char *recipient, /* NULL if it's not mail */ long rcplen, char *recp_cc, /* NULL if it's not mail */ long cclen, char *room, /* room where it's going */ long roomlen, int type, /* see MES_ types in header file */ int format_type, /* variformat, plain text, MIME... */ char *fake_name, /* who we're masquerading as */ long fnlen, char *my_email, /* which of my email addresses to use (empty is ok) */ long myelen, char *subject, /* Subject (optional) */ long subjlen, char *supplied_euid, /* ...or NULL if this is irrelevant */ long euidlen, char *preformatted_text, /* ...or NULL to read text from client */ long textlen, char *references, /* Thread references */ long reflen ) { struct CitContext *CCC = CC; /* Don't confuse the poor folks if it's not routed mail. * / char dest_node[256] = "";*/ long blen; char buf[1024]; struct CtdlMessage *msg; StrBuf *FakeAuthor; StrBuf *FakeEncAuthor = NULL; msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = type; msg->cm_format_type = format_type; if (recipient != NULL) rcplen = striplt(recipient); if (recp_cc != NULL) cclen = striplt(recp_cc); /* Path or Return-Path */ if (myelen > 0) { CM_SetField(msg, eMessagePath, my_email, myelen); } else if (!IsEmptyStr(author->fullname)) { CM_SetField(msg, eMessagePath, author->fullname, strlen(author->fullname)); } convert_spaces_to_underscores(msg->cm_fields[eMessagePath]); blen = snprintf(buf, sizeof buf, "%ld", (long)time(NULL)); CM_SetField(msg, eTimestamp, buf, blen); if (fnlen > 0) { FakeAuthor = NewStrBufPlain (fake_name, fnlen); } else { FakeAuthor = NewStrBufPlain (author->fullname, -1); } StrBufRFC2047encode(&FakeEncAuthor, FakeAuthor); CM_SetAsFieldSB(msg, eAuthor, &FakeEncAuthor); FreeStrBuf(&FakeAuthor); if (!!IsEmptyStr(CCC->room.QRname)) { if (CCC->room.QRflags & QR_MAILBOX) { /* room */ CM_SetField(msg, eOriginalRoom, &CCC->room.QRname[11], strlen(&CCC->room.QRname[11])); } else { CM_SetField(msg, eOriginalRoom, CCC->room.QRname, strlen(CCC->room.QRname)); } } CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(msg, eHumanNode, CtdlGetConfigStr("c_humannode"), strlen(CtdlGetConfigStr("c_humannode"))); if (rcplen > 0) { CM_SetField(msg, eRecipient, recipient, rcplen); } if (cclen > 0) { CM_SetField(msg, eCarbonCopY, recp_cc, cclen); } if (myelen > 0) { CM_SetField(msg, erFc822Addr, my_email, myelen); } else if ( (author == &CCC->user) && (!IsEmptyStr(CCC->cs_inet_email)) ) { CM_SetField(msg, erFc822Addr, CCC->cs_inet_email, strlen(CCC->cs_inet_email)); } if (subject != NULL) { long length; length = striplt(subject); if (length > 0) { long i; long IsAscii; IsAscii = -1; i = 0; while ((subject[i] != '\0') && (IsAscii = isascii(subject[i]) != 0 )) i++; if (IsAscii != 0) CM_SetField(msg, eMsgSubject, subject, subjlen); else /* ok, we've got utf8 in the string. */ { char *rfc2047Subj; rfc2047Subj = rfc2047encode(subject, length); CM_SetAsField(msg, eMsgSubject, &rfc2047Subj, strlen(rfc2047Subj)); } } } if (euidlen > 0) { CM_SetField(msg, eExclusiveID, supplied_euid, euidlen); } if (reflen > 0) { CM_SetField(msg, eWeferences, references, reflen); } if (preformatted_text != NULL) { CM_SetField(msg, eMesageText, preformatted_text, textlen); } else { StrBuf *MsgBody; MsgBody = CtdlReadMessageBodyBuf(HKEY("000"), CtdlGetConfigLong("c_maxmsglen"), NULL, 0, 0); if (MsgBody != NULL) { CM_SetAsFieldSB(msg, eMesageText, &MsgBody); } } return(msg); } /* * API function to delete messages which match a set of criteria * (returns the actual number of messages deleted) */ int CtdlDeleteMessages(const char *room_name, /* which room */ long *dmsgnums, /* array of msg numbers to be deleted */ int num_dmsgnums, /* number of msgs to be deleted, or 0 for "any" */ char *content_type /* or "" for any. regular expressions expected. */ ) { struct CitContext *CCC = CC; struct ctdlroom qrbuf; struct cdbdata *cdbfr; long *msglist = NULL; long *dellist = NULL; int num_msgs = 0; int i, j; int num_deleted = 0; int delete_this; struct MetaData smi; regex_t re; regmatch_t pm; int need_to_free_re = 0; if (content_type) if (!IsEmptyStr(content_type)) { regcomp(&re, content_type, 0); need_to_free_re = 1; } MSG_syslog(LOG_DEBUG, " CtdlDeleteMessages(%s, %d msgs, %s)\n", room_name, num_dmsgnums, content_type); /* get room record, obtaining a lock... */ if (CtdlGetRoomLock(&qrbuf, room_name) != 0) { MSG_syslog(LOG_ERR, " CtdlDeleteMessages(): Room <%s> not found\n", room_name); if (need_to_free_re) regfree(&re); return (0); /* room not found */ } cdbfr = cdb_fetch(CDB_MSGLISTS, &qrbuf.QRnumber, sizeof(long)); if (cdbfr != NULL) { dellist = malloc(cdbfr->len); msglist = (long *) cdbfr->ptr; cdbfr->ptr = NULL; /* CtdlDeleteMessages() now owns this memory */ num_msgs = cdbfr->len / sizeof(long); cdb_free(cdbfr); } if (num_msgs > 0) { int have_contenttype = (content_type != NULL) && !IsEmptyStr(content_type); int have_delmsgs = (num_dmsgnums == 0) || (dmsgnums == NULL); int have_more_del = 1; num_msgs = sort_msglist(msglist, num_msgs); if (num_dmsgnums > 1) num_dmsgnums = sort_msglist(dmsgnums, num_dmsgnums); /* { StrBuf *dbg = NewStrBuf(); for (i = 0; i < num_dmsgnums; i++) StrBufAppendPrintf(dbg, ", %ld", dmsgnums[i]); MSG_syslog(LOG_DEBUG, " Deleting before: %s", ChrPtr(dbg)); FreeStrBuf(&dbg); } */ i = 0; j = 0; while ((i < num_msgs) && (have_more_del)) { delete_this = 0x00; /* Set/clear a bit for each criterion */ /* 0 messages in the list or a null list means that we are * interested in deleting any messages which meet the other criteria. */ if (have_delmsgs) { delete_this |= 0x01; } else { while ((i < num_msgs) && (msglist[i] < dmsgnums[j])) i++; if (i >= num_msgs) continue; if (msglist[i] == dmsgnums[j]) { delete_this |= 0x01; } j++; have_more_del = (j < num_dmsgnums); } if (have_contenttype) { GetMetaData(&smi, msglist[i]); if (regexec(&re, smi.meta_content_type, 1, &pm, 0) == 0) { delete_this |= 0x02; } } else { delete_this |= 0x02; } /* Delete message only if all bits are set */ if (delete_this == 0x03) { dellist[num_deleted++] = msglist[i]; msglist[i] = 0L; } i++; } /* { StrBuf *dbg = NewStrBuf(); for (i = 0; i < num_deleted; i++) StrBufAppendPrintf(dbg, ", %ld", dellist[i]); MSG_syslog(LOG_DEBUG, " Deleting: %s", ChrPtr(dbg)); FreeStrBuf(&dbg); } */ num_msgs = sort_msglist(msglist, num_msgs); cdb_store(CDB_MSGLISTS, &qrbuf.QRnumber, (int)sizeof(long), msglist, (int)(num_msgs * sizeof(long))); if (num_msgs > 0) qrbuf.QRhighest = msglist[num_msgs - 1]; else qrbuf.QRhighest = 0; } CtdlPutRoomLock(&qrbuf); /* Go through the messages we pulled out of the index, and decrement * their reference counts by 1. If this is the only room the message * was in, the reference count will reach zero and the message will * automatically be deleted from the database. We do this in a * separate pass because there might be plug-in hooks getting called, * and we don't want that happening during an S_ROOMS critical * section. */ if (num_deleted) { for (i=0; imeta_msgnum = msgnum; smibuf->meta_refcount = 1; /* Default reference count is 1 */ /* Use the negative of the message number for its supp record index */ TheIndex = (0L - msgnum); cdbsmi = cdb_fetch(CDB_MSGMAIN, &TheIndex, sizeof(long)); if (cdbsmi == NULL) { return; /* record not found; go with defaults */ } memcpy(smibuf, cdbsmi->ptr, ((cdbsmi->len > sizeof(struct MetaData)) ? sizeof(struct MetaData) : cdbsmi->len)); cdb_free(cdbsmi); return; } /* * PutMetaData() - (re)write supplementary record for a message */ void PutMetaData(struct MetaData *smibuf) { long TheIndex; /* Use the negative of the message number for the metadata db index */ TheIndex = (0L - smibuf->meta_msgnum); cdb_store(CDB_MSGMAIN, &TheIndex, (int)sizeof(long), smibuf, (int)sizeof(struct MetaData)); } /* * AdjRefCount - submit an adjustment to the reference count for a message. * (These are just queued -- we actually process them later.) */ void AdjRefCount(long msgnum, int incr) { struct CitContext *CCC = CC; struct arcq new_arcq; int rv = 0; MSG_syslog(LOG_DEBUG, "AdjRefCount() msg %ld ref count delta %+d\n", msgnum, incr); begin_critical_section(S_SUPPMSGMAIN); if (arcfp == NULL) { arcfp = fopen(file_arcq, "ab+"); chown(file_arcq, CTDLUID, (-1)); chmod(file_arcq, 0600); } end_critical_section(S_SUPPMSGMAIN); /* msgnum < 0 means that we're trying to close the file */ if (msgnum < 0) { MSGM_syslog(LOG_DEBUG, "Closing the AdjRefCount queue file\n"); begin_critical_section(S_SUPPMSGMAIN); if (arcfp != NULL) { fclose(arcfp); arcfp = NULL; } end_critical_section(S_SUPPMSGMAIN); return; } /* * If we can't open the queue, perform the operation synchronously. */ if (arcfp == NULL) { TDAP_AdjRefCount(msgnum, incr); return; } new_arcq.arcq_msgnum = msgnum; new_arcq.arcq_delta = incr; rv = fwrite(&new_arcq, sizeof(struct arcq), 1, arcfp); if (rv == -1) { MSG_syslog(LOG_EMERG, "Couldn't write Refcount Queue File %s: %s\n", file_arcq, strerror(errno)); } fflush(arcfp); return; } void AdjRefCountList(long *msgnum, long nmsg, int incr) { struct CitContext *CCC = CC; long i, the_size, offset; struct arcq *new_arcq; int rv = 0; MSG_syslog(LOG_DEBUG, "AdjRefCountList() msg %ld ref count delta %+d\n", nmsg, incr); begin_critical_section(S_SUPPMSGMAIN); if (arcfp == NULL) { arcfp = fopen(file_arcq, "ab+"); chown(file_arcq, CTDLUID, (-1)); chmod(file_arcq, 0600); } end_critical_section(S_SUPPMSGMAIN); /* * If we can't open the queue, perform the operation synchronously. */ if (arcfp == NULL) { for (i = 0; i < nmsg; i++) TDAP_AdjRefCount(msgnum[i], incr); return; } the_size = sizeof(struct arcq) * nmsg; new_arcq = malloc(the_size); for (i = 0; i < nmsg; i++) { new_arcq[i].arcq_msgnum = msgnum[i]; new_arcq[i].arcq_delta = incr; } rv = 0; offset = 0; while ((rv >= 0) && (offset < the_size)) { rv = fwrite(new_arcq + offset, 1, the_size - offset, arcfp); if (rv == -1) { MSG_syslog(LOG_EMERG, "Couldn't write Refcount Queue File %s: %s\n", file_arcq, strerror(errno)); } else { offset += rv; } } free(new_arcq); fflush(arcfp); return; } /* * TDAP_ProcessAdjRefCountQueue() * * Process the queue of message count adjustments that was created by calls * to AdjRefCount() ... by reading the queue and calling TDAP_AdjRefCount() * for each one. This should be an "off hours" operation. */ int TDAP_ProcessAdjRefCountQueue(void) { struct CitContext *CCC = CC; char file_arcq_temp[PATH_MAX]; int r; FILE *fp; struct arcq arcq_rec; int num_records_processed = 0; snprintf(file_arcq_temp, sizeof file_arcq_temp, "%s.%04x", file_arcq, rand()); begin_critical_section(S_SUPPMSGMAIN); if (arcfp != NULL) { fclose(arcfp); arcfp = NULL; } r = link(file_arcq, file_arcq_temp); if (r != 0) { MSG_syslog(LOG_CRIT, "%s: %s\n", file_arcq_temp, strerror(errno)); end_critical_section(S_SUPPMSGMAIN); return(num_records_processed); } unlink(file_arcq); end_critical_section(S_SUPPMSGMAIN); fp = fopen(file_arcq_temp, "rb"); if (fp == NULL) { MSG_syslog(LOG_CRIT, "%s: %s\n", file_arcq_temp, strerror(errno)); return(num_records_processed); } while (fread(&arcq_rec, sizeof(struct arcq), 1, fp) == 1) { TDAP_AdjRefCount(arcq_rec.arcq_msgnum, arcq_rec.arcq_delta); ++num_records_processed; } fclose(fp); r = unlink(file_arcq_temp); if (r != 0) { MSG_syslog(LOG_CRIT, "%s: %s\n", file_arcq_temp, strerror(errno)); } return(num_records_processed); } /* * TDAP_AdjRefCount - adjust the reference count for a message. * This one does it "for real" because it's called by * the autopurger function that processes the queue * created by AdjRefCount(). If a message's reference * count becomes zero, we also delete the message from * disk and de-index it. */ void TDAP_AdjRefCount(long msgnum, int incr) { struct CitContext *CCC = CC; struct MetaData smi; long delnum; /* This is a *tight* critical section; please keep it that way, as * it may get called while nested in other critical sections. * Complicating this any further will surely cause deadlock! */ begin_critical_section(S_SUPPMSGMAIN); GetMetaData(&smi, msgnum); smi.meta_refcount += incr; PutMetaData(&smi); end_critical_section(S_SUPPMSGMAIN); MSG_syslog(LOG_DEBUG, "TDAP_AdjRefCount() msg %ld ref count delta %+d, is now %d\n", msgnum, incr, smi.meta_refcount ); /* If the reference count is now zero, delete the message * (and its supplementary record as well). */ if (smi.meta_refcount == 0) { MSG_syslog(LOG_DEBUG, "Deleting message <%ld>\n", msgnum); /* Call delete hooks with NULL room to show it has gone altogether */ PerformDeleteHooks(NULL, msgnum); /* Remove from message base */ delnum = msgnum; cdb_delete(CDB_MSGMAIN, &delnum, (int)sizeof(long)); cdb_delete(CDB_BIGMSGS, &delnum, (int)sizeof(long)); /* Remove metadata record */ delnum = (0L - msgnum); cdb_delete(CDB_MSGMAIN, &delnum, (int)sizeof(long)); } } /* * Write a generic object to this room * * Note: this could be much more efficient. Right now we use two temporary * files, and still pull the message into memory as with all others. */ void CtdlWriteObject(char *req_room, /* Room to stuff it in */ char *content_type, /* MIME type of this object */ char *raw_message, /* Data to be written */ off_t raw_length, /* Size of raw_message */ struct ctdluser *is_mailbox, /* Mailbox room? */ int is_binary, /* Is encoding necessary? */ int is_unique, /* Del others of this type? */ unsigned int flags /* Internal save flags */ ) { struct CitContext *CCC = CC; struct ctdlroom qrbuf; char roomname[ROOMNAMELEN]; struct CtdlMessage *msg; StrBuf *encoded_message = NULL; if (is_mailbox != NULL) { CtdlMailboxName(roomname, sizeof roomname, is_mailbox, req_room); } else { safestrncpy(roomname, req_room, sizeof(roomname)); } MSG_syslog(LOG_DEBUG, "Raw length is %ld\n", (long)raw_length); if (is_binary) { encoded_message = NewStrBufPlain(NULL, (size_t) (((raw_length * 134) / 100) + 4096 ) ); } else { encoded_message = NewStrBufPlain(NULL, (size_t)(raw_length + 4096)); } StrBufAppendBufPlain(encoded_message, HKEY("Content-type: "), 0); StrBufAppendBufPlain(encoded_message, content_type, -1, 0); StrBufAppendBufPlain(encoded_message, HKEY("\n"), 0); if (is_binary) { StrBufAppendBufPlain(encoded_message, HKEY("Content-transfer-encoding: base64\n\n"), 0); } else { StrBufAppendBufPlain(encoded_message, HKEY("Content-transfer-encoding: 7bit\n\n"), 0); } if (is_binary) { StrBufBase64Append(encoded_message, NULL, raw_message, raw_length, 0); } else { StrBufAppendBufPlain(encoded_message, raw_message, raw_length, 0); } MSGM_syslog(LOG_DEBUG, "Allocating\n"); msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = 4; CM_SetField(msg, eAuthor, CCC->user.fullname, strlen(CCC->user.fullname)); CM_SetField(msg, eOriginalRoom, req_room, strlen(req_room)); CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(msg, eHumanNode, CtdlGetConfigStr("c_humannode"), strlen(CtdlGetConfigStr("c_humannode"))); msg->cm_flags = flags; CM_SetAsFieldSB(msg, eMesageText, &encoded_message); /* Create the requested room if we have to. */ if (CtdlGetRoom(&qrbuf, roomname) != 0) { CtdlCreateRoom(roomname, ( (is_mailbox != NULL) ? 5 : 3 ), "", 0, 1, 0, VIEW_BBS); } /* If the caller specified this object as unique, delete all * other objects of this type that are currently in the room. */ if (is_unique) { MSG_syslog(LOG_DEBUG, "Deleted %d other msgs of this type\n", CtdlDeleteMessages(roomname, NULL, 0, content_type) ); } /* Now write the data */ CtdlSubmitMsg(msg, NULL, roomname, 0); CM_Free(msg); } /*****************************************************************************/ /* MODULE INITIALIZATION STUFF */ /*****************************************************************************/ void SetMessageDebugEnabled(const int n) { MessageDebugEnabled = n; } CTDL_MODULE_INIT(msgbase) { if (!threading) { FillMsgKeyLookupTable(); CtdlRegisterDebugFlagHook(HKEY("messages"), SetMessageDebugEnabled, &MessageDebugEnabled); } /* return our Subversion id for the Log */ return "msgbase"; } citadel-902/msgbase.h000066400000000000000000000237471271512031400145760ustar00rootroot00000000000000 #ifndef MSGBASE_H #define MSGBASE_H #include "event_client.h" enum { MSGS_ALL, MSGS_OLD, MSGS_NEW, MSGS_FIRST, MSGS_LAST, MSGS_GT, MSGS_EQ, MSGS_SEARCH, MSGS_LT }; enum { MSG_HDRS_BRIEF = 0, MSG_HDRS_ALL = 1, MSG_HDRS_EUID = 4, MSG_HDRS_BRIEFFILTER = 8 }; /* * Possible return codes from CtdlOutputMsg() */ enum { om_ok, om_not_logged_in, om_no_such_msg, om_mime_error, om_access_denied }; /* * Values of "headers_only" when calling message output routines */ #define HEADERS_ALL 0 /* Headers and body */ #define HEADERS_ONLY 1 /* Headers only */ #define HEADERS_NONE 2 /* Body only */ #define HEADERS_FAST 3 /* Headers only with no MIME info */ struct ma_info { int is_ma; /* Set to 1 if we are using this stuff */ int freeze; /* Freeze the replacement chain because we're * digging through a subsection */ int did_print; /* One alternative has been displayed */ char chosen_part[128]; /* Which part of a m/a did we choose? */ int chosen_pref; /* Chosen part preference level (lower is better) */ int use_fo_hooks; /* Use fixed output hooks */ int dont_decode; /* should we call the decoder or not? */ }; struct repl { /* Info for replication checking */ char exclusive_id[SIZ]; time_t highest; }; /* * This is a list of "harvested" email addresses that we might want to * stick into someone's address book. But we defer this operaiton so * it can be done asynchronously. */ struct addresses_to_be_filed { struct addresses_to_be_filed *next; char *roomname; char *collected_addresses; }; extern struct addresses_to_be_filed *atbf; int GetFieldFromMnemonic(eMsgField *f, const char* c); void memfmout (char *mptr, const char *nl); void output_mime_parts(char *); long send_message (struct CtdlMessage *); void loadtroom (void); long CtdlSubmitMsg(struct CtdlMessage *, recptypes *, const char *, int); long quickie_message(const char *from, const char *fromaddr, const char *to, char *room, const char *text, int format_type, const char *subject); void flood_protect_quickie_message(const char *from, const char *fromaddr, const char *to, char *room, const char *text, int format_type, const char *subject, int nCriterions, const char **CritStr, const long *CritStrLen, long ccid, long ioid, time_t NOW); void GetMetaData(struct MetaData *, long); void PutMetaData(struct MetaData *); void AdjRefCount(long, int); void TDAP_AdjRefCount(long, int); int TDAP_ProcessAdjRefCountQueue(void); void simple_listing(long, void *); int CtdlMsgCmp(struct CtdlMessage *msg, struct CtdlMessage *template); typedef void (*ForEachMsgCallback)(long MsgNumber, void *UserData); int CtdlForEachMessage(int mode, long ref, char *searchstring, char *content_type, struct CtdlMessage *compare, ForEachMsgCallback CallBack, void *userdata); int CtdlDeleteMessages(const char *, long *, int, char *); void CtdlWriteObject(char *req_room, /* Room to stuff it in */ char *content_type, /* MIME type of this object */ char *raw_message, /* Data to be written */ off_t raw_length, /* Size of raw_message */ struct ctdluser *is_mailbox, /* Mailbox room? */ int is_binary, /* Is encoding necessary? */ int is_unique, /* Del others of this type? */ unsigned int flags /* Internal save flags */ ); struct CtdlMessage *CtdlFetchMessage(long msgnum, int with_body, int run_msg_hooks); struct CtdlMessage * CM_Duplicate (struct CtdlMessage *OrgMsg); int CM_IsEmpty (struct CtdlMessage *Msg, eMsgField which); void CM_SetField (struct CtdlMessage *Msg, eMsgField which, const char *buf, long length); void CM_SetFieldLONG (struct CtdlMessage *Msg, eMsgField which, long lvalue); void CM_CopyField (struct CtdlMessage *Msg, eMsgField WhichToPutTo, eMsgField WhichtToCopy); void CM_CutFieldAt (struct CtdlMessage *Msg, eMsgField WhichToCut, long maxlen); void CM_FlushField (struct CtdlMessage *Msg, eMsgField which); void CM_Flush (struct CtdlMessage *Msg); void CM_SetAsField (struct CtdlMessage *Msg, eMsgField which, char **buf, long length); void CM_SetAsFieldSB (struct CtdlMessage *Msg, eMsgField which, StrBuf **buf); void CM_GetAsField (struct CtdlMessage *Msg, eMsgField which, char **ret, long *retlen); void CM_PrependToField (struct CtdlMessage *Msg, eMsgField which, const char *buf, long length); void CM_Free (struct CtdlMessage *msg); void CM_FreeContents (struct CtdlMessage *msg); int CM_IsValidMsg (struct CtdlMessage *msg); #define CM_KEY(Message, Which) Message->cm_fields[Which], Message->cm_lengths[Which] #define CM_RANGE(Message, Which) Message->cm_fields[Which], \ Message->cm_fields[Which] + Message->cm_lengths[Which] void CtdlSerializeMessage(struct ser_ret *, struct CtdlMessage *); struct CtdlMessage *CtdlDeserializeMessage(long msgnum, int with_body, const char *Buffer, long Length); void ReplicationChecks(struct CtdlMessage *); int CtdlSaveMsgPointersInRoom(char *roomname, long newmsgidlist[], int num_newmsgs, int do_repl_check, struct CtdlMessage *supplied_msg, int suppress_refcount_adj); int CtdlSaveMsgPointerInRoom(char *roomname, long msgid, int do_repl_check, struct CtdlMessage *msg); long CtdlSaveThisMessage(struct CtdlMessage *msg, long msgid, int Reply); char *CtdlReadMessageBody(char *terminator, long tlen, size_t maxlen, StrBuf *exist, int crlf, int *sock); StrBuf *CtdlReadMessageBodyBuf(char *terminator, /* token signalling EOT */ long tlen, size_t maxlen, /* maximum message length */ StrBuf *exist, /* if non-null, append to it; exist is ALWAYS freed */ int crlf, /* CRLF newlines instead of LF */ int *sock /* socket handle or 0 for this session's client socket */ ); int CtdlOutputMsg(long msg_num, /* message number (local) to fetch */ int mode, /* how would you like that message? */ int headers_only, /* eschew the message body? */ int do_proto, /* do Citadel protocol responses? */ int crlf, /* 0=LF, 1=CRLF */ char *section, /* output a message/rfc822 section */ int flags, /* should the bessage be exported clean? */ char **Author, /* if you want to know the author of the message... */ char **Address, /* if you want to know the sender address of the message... */ char **MessageID /* if you want to know the Message-ID of the message... */ ); /* Flags which may be passed to CtdlOutputMsg() and CtdlOutputPreLoadedMsg() */ #define QP_EADDR (1<<0) /* quoted-printable encode email addresses */ #define CRLF (1<<1) #define ESC_DOT (1<<2) /* output a line containing only "." as ".." instead */ #define SUPPRESS_ENV_TO (1<<3) /* suppress Envelope-to: header (warning: destructive!) */ int CtdlOutputPreLoadedMsg(struct CtdlMessage *, int mode, /* how would you like that message? */ int headers_only, /* eschew the message body? */ int do_proto, /* do Citadel protocol responses? */ int crlf, /* 0=LF, 1=CRLF */ int flags /* should the bessage be exported clean? */ ); /* values for which_set */ enum { ctdlsetseen_seen, ctdlsetseen_answered }; void CtdlSetSeen(long *target_msgnums, int num_target_msgnums, int target_setting, int which_set, struct ctdluser *which_user, struct ctdlroom *which_room); void CtdlGetSeen(char *buf, int which_set); struct CtdlMessage *CtdlMakeMessage( struct ctdluser *author, /* author's user structure */ char *recipient, /* NULL if it's not mail */ char *recp_cc, /* NULL if it's not mail */ char *room, /* room where it's going */ int type, /* see MES_ types in header file */ int format_type, /* variformat, plain text, MIME... */ char *fake_name, /* who we're masquerading as */ char *my_email, /* which of my email addresses to use (empty is ok) */ char *subject, /* Subject (optional) */ char *supplied_euid, /* ...or NULL if this is irrelevant */ char *preformatted_text, /* ...or NULL to read text from client */ char *references /* Thread references */ ); struct CtdlMessage *CtdlMakeMessageLen( struct ctdluser *author, /* author's user structure */ char *recipient, /* NULL if it's not mail */ long rcplen, char *recp_cc, /* NULL if it's not mail */ long cclen, char *room, /* room where it's going */ long roomlen, int type, /* see MES_ types in header file */ int format_type, /* variformat, plain text, MIME... */ char *fake_name, /* who we're masquerading as */ long fnlen, char *my_email, /* which of my email addresses to use (empty is ok) */ long myelen, char *subject, /* Subject (optional) */ long subjlen, char *supplied_euid, /* ...or NULL if this is irrelevant */ long euidlen, char *preformatted_text, /* ...or NULL to read text from client */ long textlen, char *references, /* Thread references */ long reflen); /* * loading messages async via an FD: * add IO->ReadMsg = NewAsyncMsg(...) * and then call CtdlReadMessageBodyAsync() from your linreader handler. */ ReadAsyncMsg *NewAsyncMsg(const char *terminator, /* token signalling EOT */ long tlen, size_t expectlen, /* if we expect a message, how long should it be? */ size_t maxlen, /* maximum message length */ StrBuf *exist, /* if non-null, append to it; exist is ALWAYS freed */ long eLen, /* length of exist */ int crlf /* CRLF newlines instead of LF */ ); eReadState CtdlReadMessageBodyAsync(AsyncIO *IO); void DeleteAsyncMsg(ReadAsyncMsg **Msg); extern int MessageDebugEnabled; #define MSGDBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (MessageDebugEnabled != 0)) #define CCCID CCC->cs_pid #define MSG_syslog(LEVEL, FORMAT, ...) \ MSGDBGLOG(LEVEL) syslog(LEVEL, \ "CC[%d]MSG " FORMAT, \ CCCID, __VA_ARGS__) #define MSGM_syslog(LEVEL, FORMAT) \ MSGDBGLOG(LEVEL) syslog(LEVEL, \ "CC[%d]MSG " FORMAT, \ CCCID) #endif /* MSGBASE_H */ citadel-902/netconfig.c000066400000000000000000000552671271512031400151260ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. * */ #include "sysdep.h" #include #include #include #ifdef HAVE_SYSCALL_H # include #else # if HAVE_SYS_SYSCALL_H # include # endif #endif #include #include #include #include "include/ctdl_module.h" #include "serv_extensions.h" #include "config.h" void vFreeRoomNetworkStruct(void *vOneRoomNetCfg); void FreeRoomNetworkStructContent(OneRoomNetCfg *OneRNCfg); HashList *CfgTypeHash = NULL; /*-----------------------------------------------------------------------------* * Per room network configs * *-----------------------------------------------------------------------------*/ void RegisterRoomCfgType(const char* Name, long len, RoomNetCfg eCfg, CfgLineParser p, int uniq, int nSegments, CfgLineSerializer s, CfgLineDeAllocator d) { CfgLineType *pCfg; pCfg = (CfgLineType*) malloc(sizeof(CfgLineType)); pCfg->Parser = p; pCfg->Serializer = s; pCfg->DeAllocator = d; pCfg->C = eCfg; pCfg->Str.Key = Name; pCfg->Str.len = len; pCfg->IsSingleLine = uniq; pCfg->nSegments = nSegments; if (CfgTypeHash == NULL) { CfgTypeHash = NewHash(1, NULL); } Put(CfgTypeHash, Name, len, pCfg, NULL); } const CfgLineType *GetCfgTypeByStr(const char *Key, long len) { void *pv; if (GetHash(CfgTypeHash, Key, len, &pv) && (pv != NULL)) { return (const CfgLineType *) pv; } else { return NULL; } } const CfgLineType *GetCfgTypeByEnum(RoomNetCfg eCfg, HashPos *It) { const char *Key; long len; void *pv; CfgLineType *pCfg; RewindHashPos(CfgTypeHash, It, 1); while (GetNextHashPos(CfgTypeHash, It, &len, &Key, &pv) && (pv != NULL)) { pCfg = (CfgLineType*) pv; if (pCfg->C == eCfg) return pCfg; } return NULL; } void ParseGeneric(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *OneRNCfg) { RoomNetCfgLine *nptr; int i; nptr = (RoomNetCfgLine *) malloc(sizeof(RoomNetCfgLine)); nptr->next = OneRNCfg->NetConfigs[ThisOne->C]; nptr->Value = malloc(sizeof(StrBuf*) * ThisOne->nSegments); nptr->nValues = 0; memset(nptr->Value, 0, sizeof(StrBuf*) * ThisOne->nSegments); if (ThisOne->nSegments == 1) { nptr->Value[0] = NewStrBufPlain(LinePos, StrLength(Line) - ( LinePos - ChrPtr(Line)) ); nptr->nValues = 1; } else for (i = 0; i < ThisOne->nSegments; i++) { nptr->nValues++; nptr->Value[i] = NewStrBufPlain(NULL, StrLength(Line) - ( LinePos - ChrPtr(Line)) ); StrBufExtract_NextToken(nptr->Value[i], Line, &LinePos, '|'); } OneRNCfg->NetConfigs[ThisOne->C] = nptr; } void SerializeGeneric(const CfgLineType *ThisOne, StrBuf *OutputBuffer, OneRoomNetCfg *OneRNCfg, RoomNetCfgLine *data) { int i; StrBufAppendBufPlain(OutputBuffer, CKEY(ThisOne->Str), 0); StrBufAppendBufPlain(OutputBuffer, HKEY("|"), 0); for (i = 0; i < ThisOne->nSegments; i++) { StrBufAppendBuf(OutputBuffer, data->Value[i], 0); if (i + 1 < ThisOne->nSegments) StrBufAppendBufPlain(OutputBuffer, HKEY("|"), 0); } StrBufAppendBufPlain(OutputBuffer, HKEY("\n"), 0); } void DeleteGenericCfgLine(const CfgLineType *ThisOne, RoomNetCfgLine **data) { int i; if (*data == NULL) return; for (i = 0; i < (*data)->nValues; i++) { FreeStrBuf(&(*data)->Value[i]); } free ((*data)->Value); free(*data); *data = NULL; } RoomNetCfgLine *DuplicateOneGenericCfgLine(const RoomNetCfgLine *data) { int i; RoomNetCfgLine *NewData; NewData = (RoomNetCfgLine*)malloc(sizeof(RoomNetCfgLine)); memset(NewData, 0, sizeof(RoomNetCfgLine)); NewData->Value = (StrBuf **)malloc(sizeof(StrBuf*) * data->nValues); memset(NewData->Value, 0, sizeof(StrBuf*) * data->nValues); for (i = 0; i < data->nValues; i++) { NewData->Value[i] = NewStrBufDup(data->Value[i]); } NewData->nValues = data->nValues; return NewData; } /* * Create a config key for a room's netconfig entry */ void netcfg_keyname(char *keybuf, long roomnum) { if (!keybuf) return; sprintf(keybuf, "c_netconfig_%010ld", roomnum); } /* * Given a room number and a textual netconfig, convert to base64 and write to the configdb */ void write_netconfig_to_configdb(long roomnum, const char *raw_netconfig) { char keyname[25]; char *enc; int enc_len; int len; len = strlen(raw_netconfig); netcfg_keyname(keyname, roomnum); enc = malloc(len * 2); if (enc) { enc_len = CtdlEncodeBase64(enc, raw_netconfig, len, 0); if ((enc_len > 1) && (enc[enc_len-2] == 13)) enc[enc_len-2] = 0; if ((enc_len > 0) && (enc[enc_len-1] == 10)) enc[enc_len-1] = 0; enc[enc_len] = 0; syslog(LOG_DEBUG, "Writing key '%s' (length=%d)", keyname, enc_len); CtdlSetConfigStr(keyname, enc); free(enc); } } /* * Given a room number, attempt to load the netconfig configdb entry for that room. * If it returns NULL, there is no netconfig. * Otherwise the caller owns the returned memory and is responsible for freeing it. */ char *LoadRoomNetConfigFile(long roomnum) { char keyname[25]; char *encoded_netconfig = NULL; char *decoded_netconfig = NULL; netcfg_keyname(keyname, roomnum); encoded_netconfig = CtdlGetConfigStr(keyname); if (!encoded_netconfig) return NULL; decoded_netconfig = malloc(strlen(encoded_netconfig)); // yeah, way bigger than it needs to be, but safe CtdlDecodeBase64(decoded_netconfig, encoded_netconfig, strlen(encoded_netconfig)); return decoded_netconfig; } /* * Deserialize a netconfig , allocate and return structured data */ OneRoomNetCfg *ParseRoomNetConfigFile(char *serialized_data) { const char *Pos = NULL; const CfgLineType *pCfg = NULL; StrBuf *Line = NULL; StrBuf *InStr = NULL; StrBuf *Cfg = NULL; OneRoomNetCfg *OneRNCfg = NULL; int num_lines = 0; int i = 0; OneRNCfg = malloc(sizeof(OneRoomNetCfg)); memset(OneRNCfg, 0, sizeof(OneRoomNetCfg)); Line = NewStrBuf(); InStr = NewStrBuf(); Cfg = NewStrBufPlain(serialized_data, -1); num_lines = num_tokens(ChrPtr(Cfg), '\n'); for (i=0; i 0) { Pos = NULL; StrBufExtract_NextToken(InStr, Line, &Pos, '|'); pCfg = GetCfgTypeByStr(SKEY(InStr)); if (pCfg != NULL) { pCfg->Parser(pCfg, Line, Pos, OneRNCfg); } else { if (OneRNCfg->misc == NULL) { OneRNCfg->misc = NewStrBufDup(Line); } else { if (StrLength(OneRNCfg->misc) > 0) { StrBufAppendBufPlain(OneRNCfg->misc, HKEY("\n"), 0); } StrBufAppendBuf(OneRNCfg->misc, Line, 0); } } } } FreeStrBuf(&InStr); FreeStrBuf(&Line); FreeStrBuf(&Cfg); return OneRNCfg; } void SaveRoomNetConfigFile(OneRoomNetCfg *OneRNCfg, long roomnum) { RoomNetCfg eCfg; StrBuf *Cfg = NULL; StrBuf *OutBuffer = NULL; HashPos *CfgIt; Cfg = NewStrBuf(); OutBuffer = NewStrBuf(); CfgIt = GetNewHashPos(CfgTypeHash, 1); for (eCfg = subpending; eCfg < maxRoomNetCfg; eCfg ++) { const CfgLineType *pCfg; pCfg = GetCfgTypeByEnum(eCfg, CfgIt); if (pCfg->IsSingleLine) { pCfg->Serializer(pCfg, OutBuffer, OneRNCfg, NULL); } else { RoomNetCfgLine *pName = OneRNCfg->NetConfigs[pCfg->C]; while (pName != NULL) { pCfg->Serializer(pCfg, OutBuffer, OneRNCfg, pName); pName = pName->next; } } } DeleteHashPos(&CfgIt); if (OneRNCfg->misc != NULL) { StrBufAppendBuf(OutBuffer, OneRNCfg->misc, 0); } write_netconfig_to_configdb(roomnum, ChrPtr(OutBuffer)); FreeStrBuf(&OutBuffer); FreeStrBuf(&Cfg); } void AddRoomCfgLine(OneRoomNetCfg *OneRNCfg, struct ctdlroom *qrbuf, RoomNetCfg LineType, RoomNetCfgLine *Line) { RoomNetCfgLine **pLine; if (OneRNCfg == NULL) { OneRNCfg = (OneRoomNetCfg*) malloc(sizeof(OneRoomNetCfg)); memset(OneRNCfg, 0, sizeof(OneRoomNetCfg)); } pLine = &OneRNCfg->NetConfigs[LineType]; while(*pLine != NULL) pLine = &((*pLine)->next); *pLine = Line; } void FreeRoomNetworkStructContent(OneRoomNetCfg *OneRNCfg) { RoomNetCfg eCfg; HashPos *CfgIt; CfgIt = GetNewHashPos(CfgTypeHash, 1); for (eCfg = subpending; eCfg < maxRoomNetCfg; eCfg ++) { const CfgLineType *pCfg; RoomNetCfgLine *pNext, *pName; pCfg = GetCfgTypeByEnum(eCfg, CfgIt); pName= OneRNCfg->NetConfigs[eCfg]; while (pName != NULL) { pNext = pName->next; if (pCfg != NULL) { pCfg->DeAllocator(pCfg, &pName); } else { DeleteGenericCfgLine(NULL, &pName); } pName = pNext; } } DeleteHashPos(&CfgIt); FreeStrBuf(&OneRNCfg->Sender); FreeStrBuf(&OneRNCfg->RoomInfo); FreeStrBuf(&OneRNCfg->misc); memset(OneRNCfg, 0, sizeof(OneRoomNetCfg)); } void vFreeRoomNetworkStruct(void *vOneRoomNetCfg) { OneRoomNetCfg *OneRNCfg; OneRNCfg = (OneRoomNetCfg*)vOneRoomNetCfg; FreeRoomNetworkStructContent(OneRNCfg); free(OneRNCfg); } void FreeRoomNetworkStruct(OneRoomNetCfg **pOneRNCfg) { vFreeRoomNetworkStruct(*pOneRNCfg); *pOneRNCfg=NULL; } /* * Fetch the netconfig entry for a room, parse it, and return the data. * Caller owns the returned memory and MUST free it using FreeRoomNetworkStruct() */ OneRoomNetCfg *CtdlGetNetCfgForRoom(long roomnum) { OneRoomNetCfg *OneRNCfg = NULL; char *serialized_config = NULL; serialized_config = LoadRoomNetConfigFile(roomnum); if (!serialized_config) return NULL; OneRNCfg = ParseRoomNetConfigFile(serialized_config); free(serialized_config); return OneRNCfg; } /*-----------------------------------------------------------------------------* * Per room network configs : exchange with client * *-----------------------------------------------------------------------------*/ void cmd_gnet(char *argbuf) { if ( (CC->room.QRflags & QR_MAILBOX) && (CC->user.usernum == atol(CC->room.QRname)) ) { /* users can edit the netconfigs for their own mailbox rooms */ } else if (CtdlAccessCheck(ac_room_aide)) return; cprintf("%d Network settings for room #%ld <%s>\n", LISTING_FOLLOWS, CC->room.QRnumber, CC->room.QRname); char *c = LoadRoomNetConfigFile(CC->room.QRnumber); if (c) { cprintf("%s\n", c); free(c); } cprintf("000\n"); } void cmd_snet(char *argbuf) { struct CitContext *CCC = CC; StrBuf *Line = NULL; StrBuf *TheConfig = NULL; int rc; unbuffer_output(); Line = NewStrBuf(); TheConfig = NewStrBuf(); cprintf("%d send new netconfig now\n", SEND_LISTING); while (rc = CtdlClientGetLine(Line), (rc >= 0)) { if ((rc == 3) && (strcmp(ChrPtr(Line), "000") == 0)) break; StrBufAppendBuf(TheConfig, Line, 0); StrBufAppendBufPlain(TheConfig, HKEY("\n"), 0); } FreeStrBuf(&Line); write_netconfig_to_configdb(CCC->room.QRnumber, ChrPtr(TheConfig)); FreeStrBuf(&TheConfig); } /*-----------------------------------------------------------------------------* * Per node network configs * *-----------------------------------------------------------------------------*/ void DeleteCtdlNodeConf(void *vNode) { CtdlNodeConf *Node = (CtdlNodeConf*) vNode; FreeStrBuf(&Node->NodeName); FreeStrBuf(&Node->Secret); FreeStrBuf(&Node->Host); FreeStrBuf(&Node->Port); free(Node); } CtdlNodeConf *NewNode(StrBuf *SerializedNode) { const char *Pos = NULL; CtdlNodeConf *Node; /* we need at least 4 pipes and some other text so its invalid. */ if (StrLength(SerializedNode) < 8) return NULL; Node = (CtdlNodeConf *) malloc(sizeof(CtdlNodeConf)); Node->DeleteMe = 0; Node->NodeName=NewStrBuf(); StrBufExtract_NextToken(Node->NodeName, SerializedNode, &Pos, '|'); Node->Secret=NewStrBuf(); StrBufExtract_NextToken(Node->Secret, SerializedNode, &Pos, '|'); Node->Host=NewStrBuf(); StrBufExtract_NextToken(Node->Host, SerializedNode, &Pos, '|'); Node->Port=NewStrBuf(); StrBufExtract_NextToken(Node->Port, SerializedNode, &Pos, '|'); return Node; } /* * Load or refresh the Citadel network (IGnet) configuration for this node. */ HashList* CtdlLoadIgNetCfg(void) { const char *LinePos; char *Cfg; StrBuf *Buf; StrBuf *LineBuf; HashList *Hash; CtdlNodeConf *Node; Cfg = CtdlGetSysConfig(IGNETCFG); if ((Cfg == NULL) || IsEmptyStr(Cfg)) { if (Cfg != NULL) free(Cfg); return NULL; } Hash = NewHash(1, NULL); Buf = NewStrBufPlain(Cfg, -1); free(Cfg); LineBuf = NewStrBufPlain(NULL, StrLength(Buf)); LinePos = NULL; do { StrBufSipLine(LineBuf, Buf, &LinePos); if (StrLength(LineBuf) != 0) { Node = NewNode(LineBuf); if (Node != NULL) { Put(Hash, SKEY(Node->NodeName), Node, DeleteCtdlNodeConf); } } } while (LinePos != StrBufNOTNULL); FreeStrBuf(&Buf); FreeStrBuf(&LineBuf); return Hash; } int is_recipient(OneRoomNetCfg *RNCfg, const char *Name) { const RoomNetCfg RecipientCfgs[] = { listrecp, digestrecp, participate, maxRoomNetCfg }; int i; RoomNetCfgLine *nptr; size_t len; len = strlen(Name); i = 0; while (RecipientCfgs[i] != maxRoomNetCfg) { nptr = RNCfg->NetConfigs[RecipientCfgs[i]]; while (nptr != NULL) { if ((StrLength(nptr->Value[0]) == len) && (!strcmp(Name, ChrPtr(nptr->Value[0])))) { return 1; } nptr = nptr->next; } i++; } return 0; } int CtdlNetconfigCheckRoomaccess( char *errmsgbuf, size_t n, const char* RemoteIdentifier) { OneRoomNetCfg *RNCfg; int found; if (RemoteIdentifier == NULL) { snprintf(errmsgbuf, n, "Need sender to permit access."); return (ERROR + USERNAME_REQUIRED); } begin_critical_section(S_NETCONFIGS); RNCfg = CtdlGetNetCfgForRoom (CC->room.QRnumber); if (RNCfg == NULL) { end_critical_section(S_NETCONFIGS); snprintf(errmsgbuf, n, "This mailing list only accepts posts from subscribers."); return (ERROR + NO_SUCH_USER); } found = is_recipient (RNCfg, RemoteIdentifier); FreeRoomNetworkStruct(&RNCfg); end_critical_section(S_NETCONFIGS); if (found) { return (0); } else { snprintf(errmsgbuf, n, "This mailing list only accepts posts from subscribers."); return (ERROR + NO_SUCH_USER); } } /* * cmd_netp() - authenticate to the server as another Citadel node polling * for network traffic */ void cmd_netp(char *cmdbuf) { struct CitContext *CCC = CC; HashList *working_ignetcfg; char *node; StrBuf *NodeStr; long nodelen; int v; long lens[2]; const char *strs[2]; const StrBuf *secret = NULL; const StrBuf *nexthop = NULL; char err_buf[SIZ] = ""; /* Authenticate */ node = CCC->curr_user; nodelen = extract_token(CCC->curr_user, cmdbuf, 0, '|', sizeof CCC->curr_user); NodeStr = NewStrBufPlain(node, nodelen); /* load the IGnet Configuration to check node validity */ working_ignetcfg = CtdlLoadIgNetCfg(); v = CtdlIsValidNode(&nexthop, &secret, NodeStr, working_ignetcfg, NULL); if (v != 0) { snprintf(err_buf, sizeof err_buf, "An unknown Citadel server called \"%s\" attempted to connect from %s [%s].\n", node, CCC->cs_host, CCC->cs_addr ); syslog(LOG_WARNING, "%s", err_buf); cprintf("%d authentication failed\n", ERROR + PASSWORD_REQUIRED); strs[0] = CCC->cs_addr; lens[0] = strlen(CCC->cs_addr); strs[1] = "SRV_UNKNOWN"; lens[1] = sizeof("SRV_UNKNOWN") - 1; CtdlAideFPMessage( err_buf, "IGNet Networking.", 2, strs, (long*) &lens, CCC->cs_pid, 0, time(NULL)); DeleteHash(&working_ignetcfg); FreeStrBuf(&NodeStr); return; } extract_token(CCC->user.password, cmdbuf, 1, '|', sizeof CCC->user.password); if (strcasecmp(CCC->user.password, ChrPtr(secret))) { snprintf(err_buf, sizeof err_buf, "A Citadel server at %s [%s] failed to authenticate as network node \"%s\".\n", CCC->cs_host, CCC->cs_addr, node ); syslog(LOG_WARNING, "%s", err_buf); cprintf("%d authentication failed\n", ERROR + PASSWORD_REQUIRED); strs[0] = CCC->cs_addr; lens[0] = strlen(CCC->cs_addr); strs[1] = "SRV_PW"; lens[1] = sizeof("SRV_PW") - 1; CtdlAideFPMessage( err_buf, "IGNet Networking.", 2, strs, (long*) &lens, CCC->cs_pid, 0, time(NULL)); DeleteHash(&working_ignetcfg); FreeStrBuf(&NodeStr); return; } if (CtdlNetworkTalkingTo(node, nodelen, NTT_CHECK)) { syslog(LOG_WARNING, "Duplicate session for network node <%s>", node); cprintf("%d Already talking to %s right now\n", ERROR + RESOURCE_BUSY, node); DeleteHash(&working_ignetcfg); FreeStrBuf(&NodeStr); return; } nodelen = safestrncpy(CCC->net_node, node, sizeof CCC->net_node); CtdlNetworkTalkingTo(CCC->net_node, nodelen, NTT_ADD); syslog(LOG_NOTICE, "Network node <%s> logged in from %s [%s]", CCC->net_node, CCC->cs_host, CCC->cs_addr ); cprintf("%d authenticated as network node '%s'\n", CIT_OK, CCC->net_node); DeleteHash(&working_ignetcfg); FreeStrBuf(&NodeStr); } /*-----------------------------------------------------------------------------* * Network maps: evaluate other nodes * *-----------------------------------------------------------------------------*/ void DeleteNetMap(void *vNetMap) { CtdlNetMap *TheNetMap = (CtdlNetMap*) vNetMap; FreeStrBuf(&TheNetMap->NodeName); FreeStrBuf(&TheNetMap->NextHop); free(TheNetMap); } CtdlNetMap *NewNetMap(StrBuf *SerializedNetMap) { const char *Pos = NULL; CtdlNetMap *NM; /* we need at least 3 pipes and some other text so its invalid. */ if (StrLength(SerializedNetMap) < 6) return NULL; NM = (CtdlNetMap *) malloc(sizeof(CtdlNetMap)); NM->NodeName=NewStrBuf(); StrBufExtract_NextToken(NM->NodeName, SerializedNetMap, &Pos, '|'); NM->lastcontact = StrBufExtractNext_long(SerializedNetMap, &Pos, '|'); NM->NextHop=NewStrBuf(); StrBufExtract_NextToken(NM->NextHop, SerializedNetMap, &Pos, '|'); return NM; } HashList* CtdlReadNetworkMap(void) { const char *LinePos; char *Cfg; StrBuf *Buf; StrBuf *LineBuf; HashList *Hash; CtdlNetMap *TheNetMap; Hash = NewHash(1, NULL); Cfg = CtdlGetSysConfig(IGNETMAP); if ((Cfg == NULL) || IsEmptyStr(Cfg)) { if (Cfg != NULL) free(Cfg); return Hash; } Buf = NewStrBufPlain(Cfg, -1); free(Cfg); LineBuf = NewStrBufPlain(NULL, StrLength(Buf)); LinePos = NULL; while (StrBufSipLine(Buf, LineBuf, &LinePos)) { TheNetMap = NewNetMap(LineBuf); if (TheNetMap != NULL) { /* TODO: is the NodeName Uniq? */ Put(Hash, SKEY(TheNetMap->NodeName), TheNetMap, DeleteNetMap); } } FreeStrBuf(&Buf); FreeStrBuf(&LineBuf); return Hash; } StrBuf *CtdlSerializeNetworkMap(HashList *Map) { void *vMap; const char *key; long len; StrBuf *Ret = NewStrBuf(); HashPos *Pos = GetNewHashPos(Map, 0); while (GetNextHashPos(Map, Pos, &len, &key, &vMap)) { CtdlNetMap *pMap = (CtdlNetMap*) vMap; StrBufAppendBuf(Ret, pMap->NodeName, 0); StrBufAppendBufPlain(Ret, HKEY("|"), 0); StrBufAppendPrintf(Ret, "%ld", pMap->lastcontact, 0); StrBufAppendBufPlain(Ret, HKEY("|"), 0); StrBufAppendBuf(Ret, pMap->NextHop, 0); StrBufAppendBufPlain(Ret, HKEY("\n"), 0); } DeleteHashPos(&Pos); return Ret; } /* * Learn topology from path fields */ void NetworkLearnTopology(char *node, char *path, HashList *the_netmap, int *netmap_changed) { CtdlNetMap *pNM = NULL; void *vptr; char nexthop[256]; CtdlNetMap *nmptr; if (GetHash(the_netmap, node, strlen(node), &vptr) && (vptr != NULL))/* TODO: is the NodeName Uniq? */ { pNM = (CtdlNetMap*)vptr; extract_token(nexthop, path, 0, '!', sizeof nexthop); if (!strcmp(nexthop, ChrPtr(pNM->NextHop))) { pNM->lastcontact = time(NULL); (*netmap_changed) ++; return; } } /* If we got here then it's not in the map, so add it. */ nmptr = (CtdlNetMap *) malloc(sizeof (CtdlNetMap)); nmptr->NodeName = NewStrBufPlain(node, -1); nmptr->lastcontact = time(NULL); nmptr->NextHop = NewStrBuf (); StrBufExtract_tokenFromStr(nmptr->NextHop, path, strlen(path), 0, '!'); /* TODO: is the NodeName Uniq? */ Put(the_netmap, SKEY(nmptr->NodeName), nmptr, DeleteNetMap); (*netmap_changed) ++; } /* * Check the network map and determine whether the supplied node name is * valid. If it is not a neighbor node, supply the name of a neighbor node * which is the next hop. If it *is* a neighbor node, we also fill in the * shared secret. */ int CtdlIsValidNode(const StrBuf **nexthop, const StrBuf **secret, StrBuf *node, HashList *IgnetCfg, HashList *the_netmap) { void *vNetMap; void *vNodeConf; CtdlNodeConf *TheNode; CtdlNetMap *TheNetMap; if (StrLength(node) == 0) { return(-1); } /* * First try the neighbor nodes */ if (GetCount(IgnetCfg) == 0) { syslog(LOG_INFO, "IgnetCfg is empty!"); if (nexthop != NULL) { *nexthop = NULL; } return(-1); } /* try to find a neigbour with the name 'node' */ if (GetHash(IgnetCfg, SKEY(node), &vNodeConf) && (vNodeConf != NULL)) { TheNode = (CtdlNodeConf*)vNodeConf; if (secret != NULL) *secret = TheNode->Secret; return 0; /* yup, it's a direct neighbor */ } /* * If we get to this point we have to see if we know the next hop *//* TODO: is the NodeName Uniq? */ if ((GetCount(the_netmap) > 0) && (GetHash(the_netmap, SKEY(node), &vNetMap))) { TheNetMap = (CtdlNetMap*)vNetMap; if (nexthop != NULL) *nexthop = TheNetMap->NextHop; return(0); } /* * If we get to this point, the supplied node name is bogus. */ syslog(LOG_ERR, "Invalid node name <%s>", ChrPtr(node)); return(-1); } /* * Convert any legacy configuration files in the "netconfigs" directory */ void convert_legacy_netcfg_files(void) { DIR *dh = NULL; struct dirent *dit = NULL; char filename[PATH_MAX]; long roomnum; FILE *fp; long len; char *v; dh = opendir(ctdl_netcfg_dir); if (!dh) return; syslog(LOG_INFO, "Legacy netconfig files exist - converting them!"); while (dit = readdir(dh), dit != NULL) { // yes, we use the non-reentrant version; we're not in threaded mode yet roomnum = atol(dit->d_name); if (roomnum > 0) { snprintf(filename, sizeof filename, "%s/%ld", ctdl_netcfg_dir, roomnum); fp = fopen(filename, "r"); if (fp) { fseek(fp, 0L, SEEK_END); len = ftell(fp); if (len > 0) { v = malloc(len); if (v) { rewind(fp); if (fread(v, len, 1, fp)) { write_netconfig_to_configdb(roomnum, v); unlink(filename); } free(v); } } else { unlink(filename); // zero length netconfig, just delete it } fclose(fp); } } } closedir(dh); rmdir(ctdl_netcfg_dir); } /* * Module entry point */ CTDL_MODULE_INIT(netconfig) { if (!threading) { convert_legacy_netcfg_files(); CtdlRegisterProtoHook(cmd_gnet, "GNET", "Get network config"); CtdlRegisterProtoHook(cmd_snet, "SNET", "Set network config"); CtdlRegisterProtoHook(cmd_netp, "NETP", "Identify as network poller"); } return "netconfig"; } citadel-902/network/000077500000000000000000000000001271512031400144605ustar00rootroot00000000000000citadel-902/network/mail.aliases000066400000000000000000000001211271512031400167370ustar00rootroot00000000000000bbs,room_aide root,room_aide Auto,room_aide postmaster,room_aide abuse,room_aide citadel-902/notify_about_newmail.js000066400000000000000000000002121271512031400175360ustar00rootroot00000000000000{ "message_notification" : { "to" : "^notifyuser", "syncsource" : "^syncsource", "msgid" : "^msgid", "msgnum" : "^msgnum" } } citadel-902/nttlist.c000066400000000000000000000063161271512031400146420ustar00rootroot00000000000000/* * This module handles shared rooms, inter-Citadel mail, and outbound * mailing list processing. * * Copyright (c) 2000-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. * */ #include "sysdep.h" #include #include #include "ctdl_module.h" #include "serv_extensions.h" /*-----------------------------------------------------------------------------* * Network maps: evaluate other nodes * *-----------------------------------------------------------------------------*/ int NTTDebugEnabled = 0; int NTTDumpEnabled = 0; /* * network_talking_to() -- concurrency checker */ static HashList *nttlist = NULL; int CtdlNetworkTalkingTo(const char *nodename, long len, int operation) { int retval = 0; HashPos *Pos = NULL; void *vdata; begin_critical_section(S_NTTLIST); switch(operation) { case NTT_ADD: if (nttlist == NULL) nttlist = NewHash(1, NULL); Put(nttlist, nodename, len, NewStrBufPlain(nodename, len), HFreeStrBuf); if (NTTDebugEnabled) syslog(LOG_DEBUG, "nttlist: added <%s>\n", nodename); break; case NTT_REMOVE: if ((nttlist == NULL) || (GetCount(nttlist) == 0)) break; Pos = GetNewHashPos(nttlist, 1); if (GetHashPosFromKey (nttlist, nodename, len, Pos)) DeleteEntryFromHash(nttlist, Pos); DeleteHashPos(&Pos); if (NTTDebugEnabled) syslog(LOG_DEBUG, "nttlist: removed <%s>\n", nodename); break; case NTT_CHECK: if ((nttlist == NULL) || (GetCount(nttlist) == 0)) break; if (GetHash(nttlist, nodename, len, &vdata)) retval ++; if (NTTDebugEnabled) syslog(LOG_DEBUG, "nttlist: have [%d] <%s>\n", retval, nodename); break; } if (NTTDumpEnabled) { HashPos *It; StrBuf *NTTDump; long len; const char *Key; void *v; NTTDump = NewStrBuf (); It = GetNewHashPos(nttlist, 0); while (GetNextHashPos(nttlist, It, &len, &Key, &v)) { if (StrLength(NTTDump) > 0) StrBufAppendBufPlain(NTTDump, HKEY("|"), 0); StrBufAppendBuf(NTTDump, (StrBuf*) v, 0); } DeleteHashPos(&It); syslog(LOG_DEBUG, "nttlist: Dump: [%d] <%s>\n", GetCount(nttlist), ChrPtr(NTTDump)); FreeStrBuf(&NTTDump); } end_critical_section(S_NTTLIST); return(retval); } void cleanup_nttlist(void) { begin_critical_section(S_NTTLIST); DeleteHash(&nttlist); end_critical_section(S_NTTLIST); } /* * Module entry point */ void SetNTTDebugEnabled(const int n) { NTTDebugEnabled = n; } void SetNTTDumpEnabled(const int n) { NTTDumpEnabled = n; } /* * Module entry point */ CTDL_MODULE_INIT(nttlist) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("networktalkingto"), SetNTTDebugEnabled, &NTTDebugEnabled); CtdlRegisterDebugFlagHook(HKEY("dumpnetworktalkingto"), SetNTTDumpEnabled, &NTTDumpEnabled); CtdlRegisterCleanupHook(cleanup_nttlist); } return "nttlist"; } citadel-902/openldap/000077500000000000000000000000001271512031400145715ustar00rootroot00000000000000citadel-902/openldap/citadel.schema000066400000000000000000000037671271512031400173750ustar00rootroot00000000000000# $Id$ # (c) 2006 Art Cancro # This file is distributed under the terms of the GNU General Public License v3. # This schema depends on the core.schema, cosine.schema and the inetorgperson.schema # as provided by third parties such as OpenLDAP. It also depends on rfc2739 schema, # which is included in the Citadel distribution. # # If you are using OpenLDAP, slapd.conf should declare schemas like this: # # include /etc/openldap/schema/core.schema # include /etc/openldap/schema/cosine.schema # include /etc/openldap/schema/inetorgperson.schema # include /etc/openldap/schema/rfc2739.schema # include /etc/openldap/schema/citadel.schema ############################################################################## # # Our OID tree so far looks like this: # # 1.3.6.1.4.1.25404 citadel.org # 1.3.6.1.4.1.25404.1 Citadel server project - LDAP schema # 1.3.6.1.4.1.25404.1.1 Custom attributes # 1.3.6.1.4.1.25404.1.2 Custom object classes # ############################################################################## ###################### # citadel attributes # ###################### # alias used to provide alternative rfc822 email addresses for citadel users attributetype ( 1.3.6.1.4.1.25404.1.1.1 NAME 'alias' DESC 'RFC1274: RFC822 Mailbox' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26{256} ) # euid used to provide unique identifier for GAB entries attributetype ( 1.3.6.1.4.1.25404.1.1.2 NAME 'euid' DESC 'unique GAB entry' EQUALITY caseExactMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.44{256} ) ########################## # citadel object classes # ########################## # citadel account # we use a STRUCTURAL in order to ease integration # with existing inetOrgPerson objects objectclass ( 1.3.6.1.4.1.25404.1.2.1 NAME 'citadelInetOrgPerson' DESC 'Citadel Internet Organizational Person' SUP inetOrgPerson STRUCTURAL MUST ( euid ) MAY ( c $ alias $ calFBURL ) ) ) citadel-902/openldap/rfc2739.schema000066400000000000000000000130711271512031400170540ustar00rootroot00000000000000# (c) 2004 Martin Konold # (c) 2006 Art Cancro # This schema is derived from RFC 2739 and may act as a substitute # when used with OpenLDAP as the original schema from RFC 2739 # is syntactically not accepted by OpenLDAP 2.2.14 # The version of this file as distributed in the Citadel upstream packages # contains text claiming copyright by the Internet Society and including # the IETF RFC license, which does not meet Debian's Free Software # Guidelines. However, apart from short and obvious comments, the text of # this file is purely a functional interface specification, which is not # subject to that license and is not copyrightable under US law. # # The license statement is retained below so as not to remove credit, but # as best as we can determine, it is not applicable to the contents of # this file. # Copyright (C) The Internet Society (2000). All Rights Reserved. # # This document and translations of it may be copied and furnished to # others, and derivative works that comment on or otherwise explain it # or assist in its implementation may be prepared, copied, published # and distributed, in whole or in part, without restriction of any # kind, provided that the above copyright notice and this paragraph are # included on all such copies and derivative works. However, this # document itself may not be modified in any way, such as by removing # the copyright notice or references to the Internet Society or other # Internet organizations, except as needed for the purpose of # developing Internet standards in which case the procedures for # copyrights defined in the Internet Standards process must be # followed, or as required to translate it into languages other than # English. # # The limited permissions granted above are perpetual and will not be # revoked by the Internet Society or its successors or assigns. # # This document and the information contained herein is provided on an # "AS IS" basis and THE INTERNET SOCIETY AND THE INTERNET ENGINEERING # TASK FORCE DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING # BUT NOT LIMITED TO ANY WARRANTY THAT THE USE OF THE INFORMATION # HEREIN WILL NOT INFRINGE ANY RIGHTS OR ANY IMPLIED WARRANTIES OF # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. # If you are using OpenLDAP, slapd.conf should declare schemas like this: # # include /etc/openldap/schema/core.schema # include /etc/openldap/schema/cosine.schema # include /etc/openldap/schema/inetorgperson.schema # include /etc/openldap/schema/rfc2739.schema # include /etc/openldap/schema/citadel.schema ################################ # rfc 2739 calendar attributes # ################################ # contains the URI to a snapshot of the user's entire # default calendar attributetype ( 1.2.840.113556.1.4.478 NAME 'calCalURI' DESC 'RFC2739: URI of entire default calendar' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # contains the URI to the user's default # busy time data attributetype (1.2.840.113556.1.4.479 NAME 'calFBURL' DESC 'RFC2739: URI to the users default freebusy data' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # contains a URI that can be used to communicate with # the user's calendar attributetype (1.2.840.113556.1.4.480 NAME 'calCAPURI' DESC 'RFC2739: URI used to communicate with the users calendar' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # contains a URI that points to the location to which event # requests should be sent for that user attributetype (1.2.840.113556.1.4.481 NAME 'calCalAdrURI' DESC 'RFC2739: URI for event equests destination' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # multi-valued property containing URIs to snapshots of # other calendars that the user may have attributetype (1.2.840.113556.1.4.482 NAME 'calOtherCalURIs' DESC 'RFC2739: multi-value URI for snapshots of other calendars' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # multi-valued property containing URIs to snapshots of other # free/busy data that the user may have attributetype (1.2.840.113556.1.4.483 NAME 'calOtherFBURLs' DESC 'RFC2739: multi-value URI for other free/busy data' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # multi-valued property containing URI to other calendars that # the user may have attributetype (1.2.840.113556.1.4.484 NAME 'calOtherCAPURIs' DESC 'RFC2739: multi-value URI to other calendars' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) # URIs to other locations that a user may want # event requests sent to attributetype (1.2.840.113556.1.4.485 NAME 'calOtherCalAdrURIs' DESC 'RFC2739: multi-value URI to other request destinations' EQUALITY caseIgnoreIA5Match SUBSTR caseIgnoreIA5SubstringsMatch SYNTAX 1.3.6.1.4.1.1466.115.121.1.26 USAGE userApplications ) objectclass (1.2.840.113556.1.5.87 NAME 'calEntry' DESC 'RFC2739: Calendar Entry' SUP top AUXILIARY MAY ( calCalURI $ calFBURL $ calOtherCalURIs $ calOtherFBURLs $ calCAPURI $ calOtherCAPURIs ) ) citadel-902/packageversion000066400000000000000000000000021271512031400157030ustar00rootroot000000000000001 citadel-902/parsedate.c000066400000000000000000002077011271512031400151120ustar00rootroot00000000000000/* A Bison parser, made by GNU Bison 3.0.2. */ /* Bison implementation for Yacc-like parsers in C Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. 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 . */ /* As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice, so long as that work isn't itself a parser generator using the skeleton or a modified version thereof as a parser skeleton. Alternatively, if you modify or redistribute the parser skeleton itself, you may (at your option) remove this special exception, which will cause the skeleton and the resulting Bison output files to be licensed under the GNU General Public License without this special exception. This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ /* C LALR(1) parser skeleton written by Richard Stallman, by simplifying the original so-called "semantic" parser. */ /* All symbols defined below should begin with yy or YY, to avoid infringing on user name space. This should be done even for local variables, as they might otherwise be expanded by user macros. There are some unavoidable exceptions within include files to define necessary library symbols; they are noted "INFRINGES ON USER NAME SPACE" below. */ /* Identify Bison output. */ #define YYBISON 1 /* Bison version. */ #define YYBISON_VERSION "3.0.2" /* Skeleton name. */ #define YYSKELETON_NAME "yacc.c" /* Pure parsers. */ #define YYPURE 0 /* Push parsers. */ #define YYPUSH 0 /* Pull parsers. */ #define YYPULL 1 /* Copy the first part of user declarations. */ #line 1 "parsedate.y" /* yacc.c:339 */ /* $Revision$ ** ** Originally written by Steven M. Bellovin while ** at the University of North Carolina at Chapel Hill. Later tweaked by ** a couple of people on Usenet. Completely overhauled by Rich $alz ** and Jim Berets in August, 1990. ** Further revised (removed obsolete constructs and cleaned up timezone ** names) in August, 1991, by Rich. Paul Eggert ** helped in September, 1992. Art Cancro cleaned ** it up for ANSI C in December, 1999. ** ** This grammar has six shift/reduce conflicts. ** ** This code is in the public domain and has no copyright. */ /* SUPPRESS 530 *//* Empty body for statement */ /* SUPPRESS 593 on yyerrlab *//* Label was not used */ /* SUPPRESS 593 on yynewstate *//* Label was not used */ /* SUPPRESS 595 on yypvt *//* Automatic variable may be used before set */ #include "sysdep.h" #include #include #include #include #include #if HAVE_STRING_H # if !STDC_HEADERS && HAVE_MEMORY_H # include # endif # include #endif #if HAVE_STRINGS_H # include #endif #include "parsedate.h" int date_lex(void); #define yyparse date_parse #define yylex date_lex #define yyerror date_error /* See the LeapYears table in Convert. */ #define EPOCH 1970 #define END_OF_TIME 2038 /* Constants for general time calculations. */ #define DST_OFFSET 1 #define SECSPERDAY (24L * 60L * 60L) /* Readability for TABLE stuff. */ #define HOUR(x) (x * 60) #define LPAREN '(' #define RPAREN ')' #define IS7BIT(x) ((unsigned int)(x) < 0200) #define SIZEOF(array) ((int)(sizeof array / sizeof array[0])) #define ENDOF(array) (&array[SIZEOF(array)]) /* ** An entry in the lexical lookup table. */ typedef struct _TABLE { char *name; int type; time_t value; } TABLE; /* ** Daylight-savings mode: on, off, or not yet known. */ typedef enum _DSTMODE { DSTon, DSToff, DSTmaybe } DSTMODE; /* ** Meridian: am, pm, or 24-hour style. */ typedef enum _MERIDIAN { MERam, MERpm, MER24 } MERIDIAN; /* ** Global variables. We could get rid of most of them by using a yacc ** union, but this is more efficient. (This routine predates the ** yacc %union construct.) */ static const char *yyInput; static DSTMODE yyDSTmode; static int yyHaveDate; static int yyHaveRel; static int yyHaveTime; static time_t yyTimezone; static time_t yyDay; static time_t yyHour; static time_t yyMinutes; static time_t yyMonth; static time_t yySeconds; static time_t yyYear; static MERIDIAN yyMeridian; static time_t yyRelMonth; static time_t yyRelSeconds; static void date_error(char *); #line 179 "y.tab.c" /* yacc.c:339 */ # ifndef YY_NULLPTR # if defined __cplusplus && 201103L <= __cplusplus # define YY_NULLPTR nullptr # else # define YY_NULLPTR 0 # endif # endif /* Enabling verbose error messages. */ #ifdef YYERROR_VERBOSE # undef YYERROR_VERBOSE # define YYERROR_VERBOSE 1 #else # define YYERROR_VERBOSE 0 #endif /* Debug traces. */ #ifndef YYDEBUG # define YYDEBUG 0 #endif #if YYDEBUG extern int yydebug; #endif /* Token type. */ #ifndef YYTOKENTYPE # define YYTOKENTYPE enum yytokentype { tDAY = 258, tDAYZONE = 259, tMERIDIAN = 260, tMONTH = 261, tMONTH_UNIT = 262, tSEC_UNIT = 263, tSNUMBER = 264, tUNUMBER = 265, tZONE = 266 }; #endif /* Tokens. */ #define tDAY 258 #define tDAYZONE 259 #define tMERIDIAN 260 #define tMONTH 261 #define tMONTH_UNIT 262 #define tSEC_UNIT 263 #define tSNUMBER 264 #define tUNUMBER 265 #define tZONE 266 /* Value type. */ #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED typedef union YYSTYPE YYSTYPE; union YYSTYPE { #line 114 "parsedate.y" /* yacc.c:355 */ time_t Number; enum _MERIDIAN Meridian; #line 243 "y.tab.c" /* yacc.c:355 */ }; # define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_DECLARED 1 #endif extern YYSTYPE yylval; int yyparse (void); /* Copy the second part of user declarations. */ #line 258 "y.tab.c" /* yacc.c:358 */ #ifdef short # undef short #endif #ifdef YYTYPE_UINT8 typedef YYTYPE_UINT8 yytype_uint8; #else typedef unsigned char yytype_uint8; #endif #ifdef YYTYPE_INT8 typedef YYTYPE_INT8 yytype_int8; #else typedef signed char yytype_int8; #endif #ifdef YYTYPE_UINT16 typedef YYTYPE_UINT16 yytype_uint16; #else typedef unsigned short int yytype_uint16; #endif #ifdef YYTYPE_INT16 typedef YYTYPE_INT16 yytype_int16; #else typedef short int yytype_int16; #endif #ifndef YYSIZE_T # ifdef __SIZE_TYPE__ # define YYSIZE_T __SIZE_TYPE__ # elif defined size_t # define YYSIZE_T size_t # elif ! defined YYSIZE_T # include /* INFRINGES ON USER NAME SPACE */ # define YYSIZE_T size_t # else # define YYSIZE_T unsigned int # endif #endif #define YYSIZE_MAXIMUM ((YYSIZE_T) -1) #ifndef YY_ # if defined YYENABLE_NLS && YYENABLE_NLS # if ENABLE_NLS # include /* INFRINGES ON USER NAME SPACE */ # define YY_(Msgid) dgettext ("bison-runtime", Msgid) # endif # endif # ifndef YY_ # define YY_(Msgid) Msgid # endif #endif #ifndef YY_ATTRIBUTE # if (defined __GNUC__ \ && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C # define YY_ATTRIBUTE(Spec) __attribute__(Spec) # else # define YY_ATTRIBUTE(Spec) /* empty */ # endif #endif #ifndef YY_ATTRIBUTE_PURE # define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) #endif #ifndef YY_ATTRIBUTE_UNUSED # define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) #endif #if !defined _Noreturn \ && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112) # if defined _MSC_VER && 1200 <= _MSC_VER # define _Noreturn __declspec (noreturn) # else # define _Noreturn YY_ATTRIBUTE ((__noreturn__)) # endif #endif /* Suppress unused-variable warnings by "using" E. */ #if ! defined lint || defined __GNUC__ # define YYUSE(E) ((void) (E)) #else # define YYUSE(E) /* empty */ #endif #if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ /* Suppress an incorrect diagnostic about yylval being uninitialized. */ # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ _Pragma ("GCC diagnostic push") \ _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") # define YY_IGNORE_MAYBE_UNINITIALIZED_END \ _Pragma ("GCC diagnostic pop") #else # define YY_INITIAL_VALUE(Value) Value #endif #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN # define YY_IGNORE_MAYBE_UNINITIALIZED_END #endif #ifndef YY_INITIAL_VALUE # define YY_INITIAL_VALUE(Value) /* Nothing. */ #endif #if ! defined yyoverflow || YYERROR_VERBOSE /* The parser invokes alloca or malloc; define the necessary symbols. */ # ifdef YYSTACK_USE_ALLOCA # if YYSTACK_USE_ALLOCA # ifdef __GNUC__ # define YYSTACK_ALLOC __builtin_alloca # elif defined __BUILTIN_VA_ARG_INCR # include /* INFRINGES ON USER NAME SPACE */ # elif defined _AIX # define YYSTACK_ALLOC __alloca # elif defined _MSC_VER # include /* INFRINGES ON USER NAME SPACE */ # define alloca _alloca # else # define YYSTACK_ALLOC alloca # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS # include /* INFRINGES ON USER NAME SPACE */ /* Use EXIT_SUCCESS as a witness for stdlib.h. */ # ifndef EXIT_SUCCESS # define EXIT_SUCCESS 0 # endif # endif # endif # endif # endif # ifdef YYSTACK_ALLOC /* Pacify GCC's 'empty if-body' warning. */ # define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) # ifndef YYSTACK_ALLOC_MAXIMUM /* The OS might guarantee only one guard page at the bottom of the stack, and a page size can be as small as 4096 bytes. So we cannot safely invoke alloca (N) if N exceeds 4096. Use a slightly smaller number to allow for a few compiler-allocated temporary stack slots. */ # define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ # endif # else # define YYSTACK_ALLOC YYMALLOC # define YYSTACK_FREE YYFREE # ifndef YYSTACK_ALLOC_MAXIMUM # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM # endif # if (defined __cplusplus && ! defined EXIT_SUCCESS \ && ! ((defined YYMALLOC || defined malloc) \ && (defined YYFREE || defined free))) # include /* INFRINGES ON USER NAME SPACE */ # ifndef EXIT_SUCCESS # define EXIT_SUCCESS 0 # endif # endif # ifndef YYMALLOC # define YYMALLOC malloc # if ! defined malloc && ! defined EXIT_SUCCESS void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ # endif # endif # ifndef YYFREE # define YYFREE free # if ! defined free && ! defined EXIT_SUCCESS void free (void *); /* INFRINGES ON USER NAME SPACE */ # endif # endif # endif #endif /* ! defined yyoverflow || YYERROR_VERBOSE */ #if (! defined yyoverflow \ && (! defined __cplusplus \ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) /* A type that is properly aligned for any stack member. */ union yyalloc { yytype_int16 yyss_alloc; YYSTYPE yyvs_alloc; }; /* The size of the maximum gap between one aligned stack and the next. */ # define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) /* The size of an array large to enough to hold all stacks, each with N elements. */ # define YYSTACK_BYTES(N) \ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ + YYSTACK_GAP_MAXIMUM) # define YYCOPY_NEEDED 1 /* Relocate STACK from its old location to the new one. The local variables YYSIZE and YYSTACKSIZE give the old and new number of elements in the stack, and YYPTR gives the new location of the stack. Advance YYPTR to a properly aligned location for the next stack. */ # define YYSTACK_RELOCATE(Stack_alloc, Stack) \ do \ { \ YYSIZE_T yynewbytes; \ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ Stack = &yyptr->Stack_alloc; \ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ yyptr += yynewbytes / sizeof (*yyptr); \ } \ while (0) #endif #if defined YYCOPY_NEEDED && YYCOPY_NEEDED /* Copy COUNT objects from SRC to DST. The source and destination do not overlap. */ # ifndef YYCOPY # if defined __GNUC__ && 1 < __GNUC__ # define YYCOPY(Dst, Src, Count) \ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) # else # define YYCOPY(Dst, Src, Count) \ do \ { \ YYSIZE_T yyi; \ for (yyi = 0; yyi < (Count); yyi++) \ (Dst)[yyi] = (Src)[yyi]; \ } \ while (0) # endif # endif #endif /* !YYCOPY_NEEDED */ /* YYFINAL -- State number of the termination state. */ #define YYFINAL 2 /* YYLAST -- Last index in YYTABLE. */ #define YYLAST 40 /* YYNTOKENS -- Number of terminals. */ #define YYNTOKENS 15 /* YYNNTS -- Number of nonterminals. */ #define YYNNTS 9 /* YYNRULES -- Number of rules. */ #define YYNRULES 30 /* YYNSTATES -- Number of states. */ #define YYNSTATES 44 /* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned by yylex, with out-of-bounds checking. */ #define YYUNDEFTOK 2 #define YYMAXUTOK 266 #define YYTRANSLATE(YYX) \ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) /* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM as returned by yylex, without out-of-bounds checking. */ static const yytype_uint8 yytranslate[] = { 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 14, 2, 2, 13, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 12, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }; #if YYDEBUG /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ static const yytype_uint16 yyrline[] = { 0, 128, 128, 129, 132, 141, 145, 148, 153, 165, 171, 178, 184, 194, 198, 202, 210, 216, 237, 241, 253, 257, 262, 266, 271, 278, 281, 284, 287, 292, 295 }; #endif #if YYDEBUG || YYERROR_VERBOSE || 0 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. First, the terminals, then, starting at YYNTOKENS, nonterminals. */ static const char *const yytname[] = { "$end", "error", "$undefined", "tDAY", "tDAYZONE", "tMERIDIAN", "tMONTH", "tMONTH_UNIT", "tSEC_UNIT", "tSNUMBER", "tUNUMBER", "tZONE", "':'", "'/'", "','", "$accept", "spec", "item", "time", "zone", "numzone", "date", "rel", "o_merid", YY_NULLPTR }; #endif # ifdef YYPRINT /* YYTOKNUM[NUM] -- (External) token number corresponding to the (internal) symbol number NUM (which must be that of a token). */ static const yytype_uint16 yytoknum[] = { 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 58, 47, 44 }; # endif #define YYPACT_NINF -29 #define yypact_value_is_default(Yystate) \ (!!((Yystate) == (-29))) #define YYTABLE_NINF -1 #define yytable_value_is_error(Yytable_value) \ 0 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing STATE-NUM. */ static const yytype_int8 yypact[] = { -29, 1, -29, -11, 11, 20, 12, -29, 4, -29, -29, 13, 16, -29, -29, -29, 21, -29, -29, 22, 23, -29, -29, -29, 5, -29, -29, 28, 25, -29, 17, 24, -29, 26, -29, 29, -29, -29, 30, -29, 0, -29, -29, -29 }; /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. Performed when YYTABLE does not specify something else to do. Zero means the default is an error. */ static const yytype_uint8 yydefact[] = { 2, 0, 1, 0, 0, 0, 29, 3, 4, 6, 7, 0, 20, 27, 25, 30, 22, 28, 26, 0, 0, 8, 14, 17, 13, 5, 16, 0, 0, 23, 29, 18, 15, 0, 21, 0, 10, 9, 0, 24, 29, 19, 12, 11 }; /* YYPGOTO[NTERM-NUM]. */ static const yytype_int8 yypgoto[] = { -29, -29, -29, -29, -29, -24, -29, -29, -28 }; /* YYDEFGOTO[NTERM-NUM]. */ static const yytype_int8 yydefgoto[] = { -1, 1, 7, 8, 25, 26, 9, 10, 21 }; /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If positive, shift that token. If negative, reduce the rule whose number is the opposite. If YYTABLE_NINF, syntax error. */ static const yytype_uint8 yytable[] = { 32, 2, 37, 11, 3, 15, 36, 4, 22, 23, 5, 6, 43, 23, 23, 24, 42, 15, 16, 17, 18, 12, 15, 27, 19, 20, 23, 13, 14, 35, 28, 29, 30, 31, 33, 34, 39, 38, 0, 40, 41 }; static const yytype_int8 yycheck[] = { 24, 0, 30, 14, 3, 5, 30, 6, 4, 9, 9, 10, 40, 9, 9, 11, 40, 5, 6, 7, 8, 10, 5, 10, 12, 13, 9, 7, 8, 12, 14, 10, 10, 10, 6, 10, 10, 13, -1, 10, 10 }; /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing symbol of state STATE-NUM. */ static const yytype_uint8 yystos[] = { 0, 16, 0, 3, 6, 9, 10, 17, 18, 21, 22, 14, 10, 7, 8, 5, 6, 7, 8, 12, 13, 23, 4, 9, 11, 19, 20, 10, 14, 10, 10, 10, 20, 6, 10, 12, 20, 23, 13, 10, 10, 10, 20, 23 }; /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ static const yytype_uint8 yyr1[] = { 0, 15, 16, 16, 17, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 19, 20, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 23, 23 }; /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ static const yytype_uint8 yyr2[] = { 0, 2, 0, 2, 1, 2, 1, 1, 2, 4, 4, 6, 6, 1, 1, 2, 1, 1, 3, 5, 2, 4, 2, 3, 5, 2, 2, 2, 2, 0, 1 }; #define yyerrok (yyerrstatus = 0) #define yyclearin (yychar = YYEMPTY) #define YYEMPTY (-2) #define YYEOF 0 #define YYACCEPT goto yyacceptlab #define YYABORT goto yyabortlab #define YYERROR goto yyerrorlab #define YYRECOVERING() (!!yyerrstatus) #define YYBACKUP(Token, Value) \ do \ if (yychar == YYEMPTY) \ { \ yychar = (Token); \ yylval = (Value); \ YYPOPSTACK (yylen); \ yystate = *yyssp; \ goto yybackup; \ } \ else \ { \ yyerror (YY_("syntax error: cannot back up")); \ YYERROR; \ } \ while (0) /* Error token number */ #define YYTERROR 1 #define YYERRCODE 256 /* Enable debugging if requested. */ #if YYDEBUG # ifndef YYFPRINTF # include /* INFRINGES ON USER NAME SPACE */ # define YYFPRINTF fprintf # endif # define YYDPRINTF(Args) \ do { \ if (yydebug) \ YYFPRINTF Args; \ } while (0) /* This macro is provided for backward compatibility. */ #ifndef YY_LOCATION_PRINT # define YY_LOCATION_PRINT(File, Loc) ((void) 0) #endif # define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ do { \ if (yydebug) \ { \ YYFPRINTF (stderr, "%s ", Title); \ yy_symbol_print (stderr, \ Type, Value); \ YYFPRINTF (stderr, "\n"); \ } \ } while (0) /*----------------------------------------. | Print this symbol's value on YYOUTPUT. | `----------------------------------------*/ static void yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) { FILE *yyo = yyoutput; YYUSE (yyo); if (!yyvaluep) return; # ifdef YYPRINT if (yytype < YYNTOKENS) YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep); # endif YYUSE (yytype); } /*--------------------------------. | Print this symbol on YYOUTPUT. | `--------------------------------*/ static void yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep) { YYFPRINTF (yyoutput, "%s %s (", yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); yy_symbol_value_print (yyoutput, yytype, yyvaluep); YYFPRINTF (yyoutput, ")"); } /*------------------------------------------------------------------. | yy_stack_print -- Print the state stack from its BOTTOM up to its | | TOP (included). | `------------------------------------------------------------------*/ static void yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) { YYFPRINTF (stderr, "Stack now"); for (; yybottom <= yytop; yybottom++) { int yybot = *yybottom; YYFPRINTF (stderr, " %d", yybot); } YYFPRINTF (stderr, "\n"); } # define YY_STACK_PRINT(Bottom, Top) \ do { \ if (yydebug) \ yy_stack_print ((Bottom), (Top)); \ } while (0) /*------------------------------------------------. | Report that the YYRULE is going to be reduced. | `------------------------------------------------*/ static void yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule) { unsigned long int yylno = yyrline[yyrule]; int yynrhs = yyr2[yyrule]; int yyi; YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", yyrule - 1, yylno); /* The symbols being reduced. */ for (yyi = 0; yyi < yynrhs; yyi++) { YYFPRINTF (stderr, " $%d = ", yyi + 1); yy_symbol_print (stderr, yystos[yyssp[yyi + 1 - yynrhs]], &(yyvsp[(yyi + 1) - (yynrhs)]) ); YYFPRINTF (stderr, "\n"); } } # define YY_REDUCE_PRINT(Rule) \ do { \ if (yydebug) \ yy_reduce_print (yyssp, yyvsp, Rule); \ } while (0) /* Nonzero means print parse trace. It is left uninitialized so that multiple parsers can coexist. */ int yydebug; #else /* !YYDEBUG */ # define YYDPRINTF(Args) # define YY_SYMBOL_PRINT(Title, Type, Value, Location) # define YY_STACK_PRINT(Bottom, Top) # define YY_REDUCE_PRINT(Rule) #endif /* !YYDEBUG */ /* YYINITDEPTH -- initial size of the parser's stacks. */ #ifndef YYINITDEPTH # define YYINITDEPTH 200 #endif /* YYMAXDEPTH -- maximum size the stacks can grow to (effective only if the built-in stack extension method is used). Do not make this value too large; the results are undefined if YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) evaluated with infinite-precision integer arithmetic. */ #ifndef YYMAXDEPTH # define YYMAXDEPTH 10000 #endif #if YYERROR_VERBOSE # ifndef yystrlen # if defined __GLIBC__ && defined _STRING_H # define yystrlen strlen # else /* Return the length of YYSTR. */ static YYSIZE_T yystrlen (const char *yystr) { YYSIZE_T yylen; for (yylen = 0; yystr[yylen]; yylen++) continue; return yylen; } # endif # endif # ifndef yystpcpy # if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE # define yystpcpy stpcpy # else /* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in YYDEST. */ static char * yystpcpy (char *yydest, const char *yysrc) { char *yyd = yydest; const char *yys = yysrc; while ((*yyd++ = *yys++) != '\0') continue; return yyd - 1; } # endif # endif # ifndef yytnamerr /* Copy to YYRES the contents of YYSTR after stripping away unnecessary quotes and backslashes, so that it's suitable for yyerror. The heuristic is that double-quoting is unnecessary unless the string contains an apostrophe, a comma, or backslash (other than backslash-backslash). YYSTR is taken from yytname. If YYRES is null, do not copy; instead, return the length of what the result would have been. */ static YYSIZE_T yytnamerr (char *yyres, const char *yystr) { if (*yystr == '"') { YYSIZE_T yyn = 0; char const *yyp = yystr; for (;;) switch (*++yyp) { case '\'': case ',': goto do_not_strip_quotes; case '\\': if (*++yyp != '\\') goto do_not_strip_quotes; /* Fall through. */ default: if (yyres) yyres[yyn] = *yyp; yyn++; break; case '"': if (yyres) yyres[yyn] = '\0'; return yyn; } do_not_strip_quotes: ; } if (! yyres) return yystrlen (yystr); return yystpcpy (yyres, yystr) - yyres; } # endif /* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message about the unexpected token YYTOKEN for the state stack whose top is YYSSP. Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is not large enough to hold the message. In that case, also set *YYMSG_ALLOC to the required number of bytes. Return 2 if the required number of bytes is too large to store. */ static int yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, yytype_int16 *yyssp, int yytoken) { YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); YYSIZE_T yysize = yysize0; enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; /* Internationalized format string. */ const char *yyformat = YY_NULLPTR; /* Arguments of yyformat. */ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; /* Number of reported tokens (one for the "unexpected", one per "expected"). */ int yycount = 0; /* There are many possibilities here to consider: - If this state is a consistent state with a default action, then the only way this function was invoked is if the default action is an error action. In that case, don't check for expected tokens because there are none. - The only way there can be no lookahead present (in yychar) is if this state is a consistent state with a default action. Thus, detecting the absence of a lookahead is sufficient to determine that there is no unexpected or expected token to report. In that case, just report a simple "syntax error". - Don't assume there isn't a lookahead just because this state is a consistent state with a default action. There might have been a previous inconsistent state, consistent state with a non-default action, or user semantic action that manipulated yychar. - Of course, the expected token list depends on states to have correct lookahead information, and it depends on the parser not to perform extra reductions after fetching a lookahead from the scanner and before detecting a syntax error. Thus, state merging (from LALR or IELR) and default reductions corrupt the expected token list. However, the list is correct for canonical LR with one exception: it will still contain any token that will not be accepted due to an error action in a later state. */ if (yytoken != YYEMPTY) { int yyn = yypact[*yyssp]; yyarg[yycount++] = yytname[yytoken]; if (!yypact_value_is_default (yyn)) { /* Start YYX at -YYN if negative to avoid negative indexes in YYCHECK. In other words, skip the first -YYN actions for this state because they are default actions. */ int yyxbegin = yyn < 0 ? -yyn : 0; /* Stay within bounds of both yycheck and yytname. */ int yychecklim = YYLAST - yyn + 1; int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; int yyx; for (yyx = yyxbegin; yyx < yyxend; ++yyx) if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR && !yytable_value_is_error (yytable[yyx + yyn])) { if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) { yycount = 1; yysize = yysize0; break; } yyarg[yycount++] = yytname[yyx]; { YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) return 2; yysize = yysize1; } } } } switch (yycount) { # define YYCASE_(N, S) \ case N: \ yyformat = S; \ break YYCASE_(0, YY_("syntax error")); YYCASE_(1, YY_("syntax error, unexpected %s")); YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); # undef YYCASE_ } { YYSIZE_T yysize1 = yysize + yystrlen (yyformat); if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) return 2; yysize = yysize1; } if (*yymsg_alloc < yysize) { *yymsg_alloc = 2 * yysize; if (! (yysize <= *yymsg_alloc && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; return 1; } /* Avoid sprintf, as that infringes on the user's name space. Don't have undefined behavior even if the translation produced a string with the wrong number of "%s"s. */ { char *yyp = *yymsg; int yyi = 0; while ((*yyp = *yyformat) != '\0') if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) { yyp += yytnamerr (yyp, yyarg[yyi++]); yyformat += 2; } else { yyp++; yyformat++; } } return 0; } #endif /* YYERROR_VERBOSE */ /*-----------------------------------------------. | Release the memory associated to this symbol. | `-----------------------------------------------*/ static void yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep) { YYUSE (yyvaluep); if (!yymsg) yymsg = "Deleting"; YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN YYUSE (yytype); YY_IGNORE_MAYBE_UNINITIALIZED_END } /* The lookahead symbol. */ int yychar; /* The semantic value of the lookahead symbol. */ YYSTYPE yylval; /* Number of syntax errors so far. */ int yynerrs; /*----------. | yyparse. | `----------*/ int yyparse (void) { int yystate; /* Number of tokens to shift before error messages enabled. */ int yyerrstatus; /* The stacks and their tools: 'yyss': related to states. 'yyvs': related to semantic values. Refer to the stacks through separate pointers, to allow yyoverflow to reallocate them elsewhere. */ /* The state stack. */ yytype_int16 yyssa[YYINITDEPTH]; yytype_int16 *yyss; yytype_int16 *yyssp; /* The semantic value stack. */ YYSTYPE yyvsa[YYINITDEPTH]; YYSTYPE *yyvs; YYSTYPE *yyvsp; YYSIZE_T yystacksize; int yyn; int yyresult; /* Lookahead token as an internal (translated) token number. */ int yytoken = 0; /* The variables used to return semantic value and location from the action routines. */ YYSTYPE yyval; #if YYERROR_VERBOSE /* Buffer for error messages, and its allocated size. */ char yymsgbuf[128]; char *yymsg = yymsgbuf; YYSIZE_T yymsg_alloc = sizeof yymsgbuf; #endif #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) /* The number of symbols on the RHS of the reduced rule. Keep to zero when no symbol should be popped. */ int yylen = 0; yyssp = yyss = yyssa; yyvsp = yyvs = yyvsa; yystacksize = YYINITDEPTH; YYDPRINTF ((stderr, "Starting parse\n")); yystate = 0; yyerrstatus = 0; yynerrs = 0; yychar = YYEMPTY; /* Cause a token to be read. */ goto yysetstate; /*------------------------------------------------------------. | yynewstate -- Push a new state, which is found in yystate. | `------------------------------------------------------------*/ yynewstate: /* In all cases, when you get here, the value and location stacks have just been pushed. So pushing a state here evens the stacks. */ yyssp++; yysetstate: *yyssp = yystate; if (yyss + yystacksize - 1 <= yyssp) { /* Get the current used size of the three stacks, in elements. */ YYSIZE_T yysize = yyssp - yyss + 1; #ifdef yyoverflow { /* Give user a chance to reallocate the stack. Use copies of these so that the &'s don't force the real ones into memory. */ YYSTYPE *yyvs1 = yyvs; yytype_int16 *yyss1 = yyss; /* Each stack pointer address is followed by the size of the data in use in that stack, in bytes. This used to be a conditional around just the two extra args, but that might be undefined if yyoverflow is a macro. */ yyoverflow (YY_("memory exhausted"), &yyss1, yysize * sizeof (*yyssp), &yyvs1, yysize * sizeof (*yyvsp), &yystacksize); yyss = yyss1; yyvs = yyvs1; } #else /* no yyoverflow */ # ifndef YYSTACK_RELOCATE goto yyexhaustedlab; # else /* Extend the stack our own way. */ if (YYMAXDEPTH <= yystacksize) goto yyexhaustedlab; yystacksize *= 2; if (YYMAXDEPTH < yystacksize) yystacksize = YYMAXDEPTH; { yytype_int16 *yyss1 = yyss; union yyalloc *yyptr = (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); if (! yyptr) goto yyexhaustedlab; YYSTACK_RELOCATE (yyss_alloc, yyss); YYSTACK_RELOCATE (yyvs_alloc, yyvs); # undef YYSTACK_RELOCATE if (yyss1 != yyssa) YYSTACK_FREE (yyss1); } # endif #endif /* no yyoverflow */ yyssp = yyss + yysize - 1; yyvsp = yyvs + yysize - 1; YYDPRINTF ((stderr, "Stack size increased to %lu\n", (unsigned long int) yystacksize)); if (yyss + yystacksize - 1 <= yyssp) YYABORT; } YYDPRINTF ((stderr, "Entering state %d\n", yystate)); if (yystate == YYFINAL) YYACCEPT; goto yybackup; /*-----------. | yybackup. | `-----------*/ yybackup: /* Do appropriate processing given the current state. Read a lookahead token if we need one and don't already have one. */ /* First try to decide what to do without reference to lookahead token. */ yyn = yypact[yystate]; if (yypact_value_is_default (yyn)) goto yydefault; /* Not known => get a lookahead token if don't already have one. */ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ if (yychar == YYEMPTY) { YYDPRINTF ((stderr, "Reading a token: ")); yychar = yylex (); } if (yychar <= YYEOF) { yychar = yytoken = YYEOF; YYDPRINTF ((stderr, "Now at end of input.\n")); } else { yytoken = YYTRANSLATE (yychar); YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); } /* If the proper action on seeing token YYTOKEN is to reduce or to detect an error, take that action. */ yyn += yytoken; if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) goto yydefault; yyn = yytable[yyn]; if (yyn <= 0) { if (yytable_value_is_error (yyn)) goto yyerrlab; yyn = -yyn; goto yyreduce; } /* Count tokens shifted since error; after three, turn off error status. */ if (yyerrstatus) yyerrstatus--; /* Shift the lookahead token. */ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); /* Discard the shifted token. */ yychar = YYEMPTY; yystate = yyn; YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; YY_IGNORE_MAYBE_UNINITIALIZED_END goto yynewstate; /*-----------------------------------------------------------. | yydefault -- do the default action for the current state. | `-----------------------------------------------------------*/ yydefault: yyn = yydefact[yystate]; if (yyn == 0) goto yyerrlab; goto yyreduce; /*-----------------------------. | yyreduce -- Do a reduction. | `-----------------------------*/ yyreduce: /* yyn is the number of a rule to reduce with. */ yylen = yyr2[yyn]; /* If YYLEN is nonzero, implement the default value of the action: '$$ = $1'. Otherwise, the following line sets YYVAL to garbage. This behavior is undocumented and Bison users should not rely upon it. Assigning to YYVAL unconditionally makes the parser a bit smaller, and it avoids a GCC warning that YYVAL may be used uninitialized. */ yyval = yyvsp[1-yylen]; YY_REDUCE_PRINT (yyn); switch (yyn) { case 4: #line 132 "parsedate.y" /* yacc.c:1646 */ { yyHaveTime++; #ifdef lint /* I am compulsive about lint natterings... */ if (yyHaveTime == -1) { YYERROR; } #endif /* lint */ } #line 1364 "y.tab.c" /* yacc.c:1646 */ break; case 5: #line 141 "parsedate.y" /* yacc.c:1646 */ { yyHaveTime++; yyTimezone = (yyvsp[0].Number); } #line 1373 "y.tab.c" /* yacc.c:1646 */ break; case 6: #line 145 "parsedate.y" /* yacc.c:1646 */ { yyHaveDate++; } #line 1381 "y.tab.c" /* yacc.c:1646 */ break; case 7: #line 148 "parsedate.y" /* yacc.c:1646 */ { yyHaveRel = 1; } #line 1389 "y.tab.c" /* yacc.c:1646 */ break; case 8: #line 153 "parsedate.y" /* yacc.c:1646 */ { if ((yyvsp[-1].Number) < 100) { yyHour = (yyvsp[-1].Number); yyMinutes = 0; } else { yyHour = (yyvsp[-1].Number) / 100; yyMinutes = (yyvsp[-1].Number) % 100; } yySeconds = 0; yyMeridian = (yyvsp[0].Meridian); } #line 1406 "y.tab.c" /* yacc.c:1646 */ break; case 9: #line 165 "parsedate.y" /* yacc.c:1646 */ { yyHour = (yyvsp[-3].Number); yyMinutes = (yyvsp[-1].Number); yySeconds = 0; yyMeridian = (yyvsp[0].Meridian); } #line 1417 "y.tab.c" /* yacc.c:1646 */ break; case 10: #line 171 "parsedate.y" /* yacc.c:1646 */ { yyHour = (yyvsp[-3].Number); yyMinutes = (yyvsp[-1].Number); yyTimezone = (yyvsp[0].Number); yyMeridian = MER24; yyDSTmode = DSToff; } #line 1429 "y.tab.c" /* yacc.c:1646 */ break; case 11: #line 178 "parsedate.y" /* yacc.c:1646 */ { yyHour = (yyvsp[-5].Number); yyMinutes = (yyvsp[-3].Number); yySeconds = (yyvsp[-1].Number); yyMeridian = (yyvsp[0].Meridian); } #line 1440 "y.tab.c" /* yacc.c:1646 */ break; case 12: #line 184 "parsedate.y" /* yacc.c:1646 */ { yyHour = (yyvsp[-5].Number); yyMinutes = (yyvsp[-3].Number); yySeconds = (yyvsp[-1].Number); yyTimezone = (yyvsp[0].Number); yyMeridian = MER24; yyDSTmode = DSToff; } #line 1453 "y.tab.c" /* yacc.c:1646 */ break; case 13: #line 194 "parsedate.y" /* yacc.c:1646 */ { (yyval.Number) = (yyvsp[0].Number); yyDSTmode = DSToff; } #line 1462 "y.tab.c" /* yacc.c:1646 */ break; case 14: #line 198 "parsedate.y" /* yacc.c:1646 */ { (yyval.Number) = (yyvsp[0].Number); yyDSTmode = DSTon; } #line 1471 "y.tab.c" /* yacc.c:1646 */ break; case 15: #line 202 "parsedate.y" /* yacc.c:1646 */ { /* Only allow "GMT+300" and "GMT-0800" */ if ((yyvsp[-1].Number) != 0) { YYABORT; } (yyval.Number) = (yyvsp[0].Number); yyDSTmode = DSToff; } #line 1484 "y.tab.c" /* yacc.c:1646 */ break; case 16: #line 210 "parsedate.y" /* yacc.c:1646 */ { (yyval.Number) = (yyvsp[0].Number); yyDSTmode = DSToff; } #line 1493 "y.tab.c" /* yacc.c:1646 */ break; case 17: #line 216 "parsedate.y" /* yacc.c:1646 */ { int i; /* Unix and GMT and numeric timezones -- a little confusing. */ if ((yyvsp[0].Number) < 0) { /* Don't work with negative modulus. */ (yyvsp[0].Number) = -(yyvsp[0].Number); if ((yyvsp[0].Number) > 9999 || (i = (yyvsp[0].Number) % 100) >= 60) { YYABORT; } (yyval.Number) = ((yyvsp[0].Number) / 100) * 60 + i; } else { if ((yyvsp[0].Number) > 9999 || (i = (yyvsp[0].Number) % 100) >= 60) { YYABORT; } (yyval.Number) = -(((yyvsp[0].Number) / 100) * 60 + i); } } #line 1517 "y.tab.c" /* yacc.c:1646 */ break; case 18: #line 237 "parsedate.y" /* yacc.c:1646 */ { yyMonth = (yyvsp[-2].Number); yyDay = (yyvsp[0].Number); } #line 1526 "y.tab.c" /* yacc.c:1646 */ break; case 19: #line 241 "parsedate.y" /* yacc.c:1646 */ { if ((yyvsp[-4].Number) > 100) { yyYear = (yyvsp[-4].Number); yyMonth = (yyvsp[-2].Number); yyDay = (yyvsp[0].Number); } else { yyMonth = (yyvsp[-4].Number); yyDay = (yyvsp[-2].Number); yyYear = (yyvsp[0].Number); } } #line 1543 "y.tab.c" /* yacc.c:1646 */ break; case 20: #line 253 "parsedate.y" /* yacc.c:1646 */ { yyMonth = (yyvsp[-1].Number); yyDay = (yyvsp[0].Number); } #line 1552 "y.tab.c" /* yacc.c:1646 */ break; case 21: #line 257 "parsedate.y" /* yacc.c:1646 */ { yyMonth = (yyvsp[-3].Number); yyDay = (yyvsp[-2].Number); yyYear = (yyvsp[0].Number); } #line 1562 "y.tab.c" /* yacc.c:1646 */ break; case 22: #line 262 "parsedate.y" /* yacc.c:1646 */ { yyDay = (yyvsp[-1].Number); yyMonth = (yyvsp[0].Number); } #line 1571 "y.tab.c" /* yacc.c:1646 */ break; case 23: #line 266 "parsedate.y" /* yacc.c:1646 */ { yyDay = (yyvsp[-2].Number); yyMonth = (yyvsp[-1].Number); yyYear = (yyvsp[0].Number); } #line 1581 "y.tab.c" /* yacc.c:1646 */ break; case 24: #line 271 "parsedate.y" /* yacc.c:1646 */ { yyDay = (yyvsp[-2].Number); yyMonth = (yyvsp[-1].Number); yyYear = (yyvsp[0].Number); } #line 1591 "y.tab.c" /* yacc.c:1646 */ break; case 25: #line 278 "parsedate.y" /* yacc.c:1646 */ { yyRelSeconds += (yyvsp[-1].Number) * (yyvsp[0].Number); } #line 1599 "y.tab.c" /* yacc.c:1646 */ break; case 26: #line 281 "parsedate.y" /* yacc.c:1646 */ { yyRelSeconds += (yyvsp[-1].Number) * (yyvsp[0].Number); } #line 1607 "y.tab.c" /* yacc.c:1646 */ break; case 27: #line 284 "parsedate.y" /* yacc.c:1646 */ { yyRelMonth += (yyvsp[-1].Number) * (yyvsp[0].Number); } #line 1615 "y.tab.c" /* yacc.c:1646 */ break; case 28: #line 287 "parsedate.y" /* yacc.c:1646 */ { yyRelMonth += (yyvsp[-1].Number) * (yyvsp[0].Number); } #line 1623 "y.tab.c" /* yacc.c:1646 */ break; case 29: #line 292 "parsedate.y" /* yacc.c:1646 */ { (yyval.Meridian) = MER24; } #line 1631 "y.tab.c" /* yacc.c:1646 */ break; case 30: #line 295 "parsedate.y" /* yacc.c:1646 */ { (yyval.Meridian) = (yyvsp[0].Meridian); } #line 1639 "y.tab.c" /* yacc.c:1646 */ break; #line 1643 "y.tab.c" /* yacc.c:1646 */ default: break; } /* User semantic actions sometimes alter yychar, and that requires that yytoken be updated with the new translation. We take the approach of translating immediately before every use of yytoken. One alternative is translating here after every semantic action, but that translation would be missed if the semantic action invokes YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an incorrect destructor might then be invoked immediately. In the case of YYERROR or YYBACKUP, subsequent parser actions might lead to an incorrect destructor call or verbose syntax error message before the lookahead is translated. */ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); *++yyvsp = yyval; /* Now 'shift' the result of the reduction. Determine what state that goes to, based on the state we popped back to and the rule number reduced by. */ yyn = yyr1[yyn]; yystate = yypgoto[yyn - YYNTOKENS] + *yyssp; if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp) yystate = yytable[yystate]; else yystate = yydefgoto[yyn - YYNTOKENS]; goto yynewstate; /*--------------------------------------. | yyerrlab -- here on detecting error. | `--------------------------------------*/ yyerrlab: /* Make sure we have latest lookahead translation. See comments at user semantic actions for why this is necessary. */ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); /* If not already recovering from an error, report this error. */ if (!yyerrstatus) { ++yynerrs; #if ! YYERROR_VERBOSE yyerror (YY_("syntax error")); #else # define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ yyssp, yytoken) { char const *yymsgp = YY_("syntax error"); int yysyntax_error_status; yysyntax_error_status = YYSYNTAX_ERROR; if (yysyntax_error_status == 0) yymsgp = yymsg; else if (yysyntax_error_status == 1) { if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); if (!yymsg) { yymsg = yymsgbuf; yymsg_alloc = sizeof yymsgbuf; yysyntax_error_status = 2; } else { yysyntax_error_status = YYSYNTAX_ERROR; yymsgp = yymsg; } } yyerror (yymsgp); if (yysyntax_error_status == 2) goto yyexhaustedlab; } # undef YYSYNTAX_ERROR #endif } if (yyerrstatus == 3) { /* If just tried and failed to reuse lookahead token after an error, discard it. */ if (yychar <= YYEOF) { /* Return failure if at end of input. */ if (yychar == YYEOF) YYABORT; } else { yydestruct ("Error: discarding", yytoken, &yylval); yychar = YYEMPTY; } } /* Else will try to reuse lookahead token after shifting the error token. */ goto yyerrlab1; /*---------------------------------------------------. | yyerrorlab -- error raised explicitly by YYERROR. | `---------------------------------------------------*/ yyerrorlab: /* Pacify compilers like GCC when the user code never invokes YYERROR and the label yyerrorlab therefore never appears in user code. */ if (/*CONSTCOND*/ 0) goto yyerrorlab; /* Do not reclaim the symbols of the rule whose action triggered this YYERROR. */ YYPOPSTACK (yylen); yylen = 0; YY_STACK_PRINT (yyss, yyssp); yystate = *yyssp; goto yyerrlab1; /*-------------------------------------------------------------. | yyerrlab1 -- common code for both syntax error and YYERROR. | `-------------------------------------------------------------*/ yyerrlab1: yyerrstatus = 3; /* Each real token shifted decrements this. */ for (;;) { yyn = yypact[yystate]; if (!yypact_value_is_default (yyn)) { yyn += YYTERROR; if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) { yyn = yytable[yyn]; if (0 < yyn) break; } } /* Pop the current state because it cannot handle the error token. */ if (yyssp == yyss) YYABORT; yydestruct ("Error: popping", yystos[yystate], yyvsp); YYPOPSTACK (1); yystate = *yyssp; YY_STACK_PRINT (yyss, yyssp); } YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN *++yyvsp = yylval; YY_IGNORE_MAYBE_UNINITIALIZED_END /* Shift the error token. */ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); yystate = yyn; goto yynewstate; /*-------------------------------------. | yyacceptlab -- YYACCEPT comes here. | `-------------------------------------*/ yyacceptlab: yyresult = 0; goto yyreturn; /*-----------------------------------. | yyabortlab -- YYABORT comes here. | `-----------------------------------*/ yyabortlab: yyresult = 1; goto yyreturn; #if !defined yyoverflow || YYERROR_VERBOSE /*-------------------------------------------------. | yyexhaustedlab -- memory exhaustion comes here. | `-------------------------------------------------*/ yyexhaustedlab: yyerror (YY_("memory exhausted")); yyresult = 2; /* Fall through. */ #endif yyreturn: if (yychar != YYEMPTY) { /* Make sure we have latest lookahead translation. See comments at user semantic actions for why this is necessary. */ yytoken = YYTRANSLATE (yychar); yydestruct ("Cleanup: discarding lookahead", yytoken, &yylval); } /* Do not reclaim the symbols of the rule whose action triggered this YYABORT or YYACCEPT. */ YYPOPSTACK (yylen); YY_STACK_PRINT (yyss, yyssp); while (yyssp != yyss) { yydestruct ("Cleanup: popping", yystos[*yyssp], yyvsp); YYPOPSTACK (1); } #ifndef yyoverflow if (yyss != yyssa) YYSTACK_FREE (yyss); #endif #if YYERROR_VERBOSE if (yymsg != yymsgbuf) YYSTACK_FREE (yymsg); #endif return yyresult; } #line 300 "parsedate.y" /* yacc.c:1906 */ /* Month and day table. */ static TABLE MonthDayTable[] = { { "january", tMONTH, 1 }, { "february", tMONTH, 2 }, { "march", tMONTH, 3 }, { "april", tMONTH, 4 }, { "may", tMONTH, 5 }, { "june", tMONTH, 6 }, { "july", tMONTH, 7 }, { "august", tMONTH, 8 }, { "september", tMONTH, 9 }, { "october", tMONTH, 10 }, { "november", tMONTH, 11 }, { "december", tMONTH, 12 }, /* The value of the day isn't used... */ { "sunday", tDAY, 0 }, { "monday", tDAY, 0 }, { "tuesday", tDAY, 0 }, { "wednesday", tDAY, 0 }, { "thursday", tDAY, 0 }, { "friday", tDAY, 0 }, { "saturday", tDAY, 0 }, }; /* Time units table. */ static TABLE UnitsTable[] = { { "year", tMONTH_UNIT, 12 }, { "month", tMONTH_UNIT, 1 }, { "week", tSEC_UNIT, 7L * 24 * 60 * 60 }, { "day", tSEC_UNIT, 1L * 24 * 60 * 60 }, { "hour", tSEC_UNIT, 60 * 60 }, { "minute", tSEC_UNIT, 60 }, { "min", tSEC_UNIT, 60 }, { "second", tSEC_UNIT, 1 }, { "sec", tSEC_UNIT, 1 }, }; /* Timezone table. */ static TABLE TimezoneTable[] = { { "gmt", tZONE, HOUR( 0) }, /* Greenwich Mean */ { "ut", tZONE, HOUR( 0) }, /* Universal */ { "utc", tZONE, HOUR( 0) }, /* Universal Coordinated */ { "cut", tZONE, HOUR( 0) }, /* Coordinated Universal */ { "z", tZONE, HOUR( 0) }, /* Greenwich Mean */ { "wet", tZONE, HOUR( 0) }, /* Western European */ { "bst", tDAYZONE, HOUR( 0) }, /* British Summer */ { "nst", tZONE, HOUR(3)+30 }, /* Newfoundland Standard */ { "ndt", tDAYZONE, HOUR(3)+30 }, /* Newfoundland Daylight */ { "ast", tZONE, HOUR( 4) }, /* Atlantic Standard */ { "adt", tDAYZONE, HOUR( 4) }, /* Atlantic Daylight */ { "est", tZONE, HOUR( 5) }, /* Eastern Standard */ { "edt", tDAYZONE, HOUR( 5) }, /* Eastern Daylight */ { "cst", tZONE, HOUR( 6) }, /* Central Standard */ { "cdt", tDAYZONE, HOUR( 6) }, /* Central Daylight */ { "mst", tZONE, HOUR( 7) }, /* Mountain Standard */ { "mdt", tDAYZONE, HOUR( 7) }, /* Mountain Daylight */ { "pst", tZONE, HOUR( 8) }, /* Pacific Standard */ { "pdt", tDAYZONE, HOUR( 8) }, /* Pacific Daylight */ { "yst", tZONE, HOUR( 9) }, /* Yukon Standard */ { "ydt", tDAYZONE, HOUR( 9) }, /* Yukon Daylight */ { "akst", tZONE, HOUR( 9) }, /* Alaska Standard */ { "akdt", tDAYZONE, HOUR( 9) }, /* Alaska Daylight */ { "hst", tZONE, HOUR(10) }, /* Hawaii Standard */ { "hast", tZONE, HOUR(10) }, /* Hawaii-Aleutian Standard */ { "hadt", tDAYZONE, HOUR(10) }, /* Hawaii-Aleutian Daylight */ { "ces", tDAYZONE, -HOUR(1) }, /* Central European Summer */ { "cest", tDAYZONE, -HOUR(1) }, /* Central European Summer */ { "mez", tZONE, -HOUR(1) }, /* Middle European */ { "mezt", tDAYZONE, -HOUR(1) }, /* Middle European Summer */ { "cet", tZONE, -HOUR(1) }, /* Central European */ { "met", tZONE, -HOUR(1) }, /* Middle European */ { "eet", tZONE, -HOUR(2) }, /* Eastern Europe */ { "msk", tZONE, -HOUR(3) }, /* Moscow Winter */ { "msd", tDAYZONE, -HOUR(3) }, /* Moscow Summer */ { "wast", tZONE, -HOUR(8) }, /* West Australian Standard */ { "wadt", tDAYZONE, -HOUR(8) }, /* West Australian Daylight */ { "hkt", tZONE, -HOUR(8) }, /* Hong Kong */ { "cct", tZONE, -HOUR(8) }, /* China Coast */ { "jst", tZONE, -HOUR(9) }, /* Japan Standard */ { "kst", tZONE, -HOUR(9) }, /* Korean Standard */ { "kdt", tZONE, -HOUR(9) }, /* Korean Daylight */ { "cast", tZONE, -(HOUR(9)+30) }, /* Central Australian Standard */ { "cadt", tDAYZONE, -(HOUR(9)+30) }, /* Central Australian Daylight */ { "east", tZONE, -HOUR(10) }, /* Eastern Australian Standard */ { "eadt", tDAYZONE, -HOUR(10) }, /* Eastern Australian Daylight */ { "nzst", tZONE, -HOUR(12) }, /* New Zealand Standard */ { "nzdt", tDAYZONE, -HOUR(12) }, /* New Zealand Daylight */ /* For completeness we include the following entries. */ #if 0 /* Duplicate names. Either they conflict with a zone listed above * (which is either more likely to be seen or just been in circulation * longer), or they conflict with another zone in this section and * we could not reasonably choose one over the other. */ { "fst", tZONE, HOUR( 2) }, /* Fernando De Noronha Standard */ { "fdt", tDAYZONE, HOUR( 2) }, /* Fernando De Noronha Daylight */ { "bst", tZONE, HOUR( 3) }, /* Brazil Standard */ { "est", tZONE, HOUR( 3) }, /* Eastern Standard (Brazil) */ { "edt", tDAYZONE, HOUR( 3) }, /* Eastern Daylight (Brazil) */ { "wst", tZONE, HOUR( 4) }, /* Western Standard (Brazil) */ { "wdt", tDAYZONE, HOUR( 4) }, /* Western Daylight (Brazil) */ { "cst", tZONE, HOUR( 5) }, /* Chile Standard */ { "cdt", tDAYZONE, HOUR( 5) }, /* Chile Daylight */ { "ast", tZONE, HOUR( 5) }, /* Acre Standard */ { "adt", tDAYZONE, HOUR( 5) }, /* Acre Daylight */ { "cst", tZONE, HOUR( 5) }, /* Cuba Standard */ { "cdt", tDAYZONE, HOUR( 5) }, /* Cuba Daylight */ { "est", tZONE, HOUR( 6) }, /* Easter Island Standard */ { "edt", tDAYZONE, HOUR( 6) }, /* Easter Island Daylight */ { "sst", tZONE, HOUR(11) }, /* Samoa Standard */ { "ist", tZONE, -HOUR(2) }, /* Israel Standard */ { "idt", tDAYZONE, -HOUR(2) }, /* Israel Daylight */ { "idt", tDAYZONE, -(HOUR(3)+30) }, /* Iran Daylight */ { "ist", tZONE, -(HOUR(3)+30) }, /* Iran Standard */ { "cst", tZONE, -HOUR(8) }, /* China Standard */ { "cdt", tDAYZONE, -HOUR(8) }, /* China Daylight */ { "sst", tZONE, -HOUR(8) }, /* Singapore Standard */ /* Dubious (e.g., not in Olson's TIMEZONE package) or obsolete. */ { "gst", tZONE, HOUR( 3) }, /* Greenland Standard */ { "wat", tZONE, -HOUR(1) }, /* West Africa */ { "at", tZONE, HOUR( 2) }, /* Azores */ { "gst", tZONE, -HOUR(10) }, /* Guam Standard */ { "nft", tZONE, HOUR(3)+30 }, /* Newfoundland */ { "idlw", tZONE, HOUR(12) }, /* International Date Line West */ { "mewt", tZONE, -HOUR(1) }, /* Middle European Winter */ { "mest", tDAYZONE, -HOUR(1) }, /* Middle European Summer */ { "swt", tZONE, -HOUR(1) }, /* Swedish Winter */ { "sst", tDAYZONE, -HOUR(1) }, /* Swedish Summer */ { "fwt", tZONE, -HOUR(1) }, /* French Winter */ { "fst", tDAYZONE, -HOUR(1) }, /* French Summer */ { "bt", tZONE, -HOUR(3) }, /* Baghdad */ { "it", tZONE, -(HOUR(3)+30) }, /* Iran */ { "zp4", tZONE, -HOUR(4) }, /* USSR Zone 3 */ { "zp5", tZONE, -HOUR(5) }, /* USSR Zone 4 */ { "ist", tZONE, -(HOUR(5)+30) }, /* Indian Standard */ { "zp6", tZONE, -HOUR(6) }, /* USSR Zone 5 */ { "nst", tZONE, -HOUR(7) }, /* North Sumatra */ { "sst", tZONE, -HOUR(7) }, /* South Sumatra */ { "jt", tZONE, -(HOUR(7)+30) }, /* Java (3pm in Cronusland!) */ { "nzt", tZONE, -HOUR(12) }, /* New Zealand */ { "idle", tZONE, -HOUR(12) }, /* International Date Line East */ { "cat", tZONE, HOUR(10) }, /* -- expired 1967 */ { "nt", tZONE, HOUR(11) }, /* -- expired 1967 */ { "ahst", tZONE, HOUR(10) }, /* -- expired 1983 */ { "hdt", tDAYZONE, HOUR(10) }, /* -- expired 1986 */ #endif /* 0 */ }; /* ARGSUSED */ static void date_error(char *s) { /* NOTREACHED */ } static time_t ToSeconds(time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian) { if (Minutes < 0 || Minutes > 59 || Seconds < 0 || Seconds > 61) return -1; if (Meridian == MER24) { if (Hours < 0 || Hours > 23) return -1; } else { if (Hours < 1 || Hours > 12) return -1; if (Hours == 12) Hours = 0; if (Meridian == MERpm) Hours += 12; } return (Hours * 60L + Minutes) * 60L + Seconds; } static time_t Convert(time_t Month, time_t Day, time_t Year, time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian, DSTMODE dst) { static int DaysNormal[13] = { 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; static int DaysLeap[13] = { 0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; static int LeapYears[] = { 1972, 1976, 1980, 1984, 1988, 1992, 1996, 2000, 2004, 2008, 2012, 2016, 2020, 2024, 2028, 2032, 2036 }; register int *yp; register int *mp; register time_t Julian; register int i; time_t tod; if (Year < 0) Year = -Year; if (Year < 100) Year += 1900; if (Year < EPOCH) Year += 100; for (mp = DaysNormal, yp = LeapYears; yp < ENDOF(LeapYears); yp++) if (Year == *yp) { mp = DaysLeap; break; } if (Year < EPOCH || Year > END_OF_TIME || Month < 1 || Month > 12 /* NOSTRICT *//* conversion from long may lose accuracy */ || Day < 1 || Day > mp[(int)Month]) return -1; Julian = Day - 1 + (Year - EPOCH) * 365; for (yp = LeapYears; yp < ENDOF(LeapYears); yp++, Julian++) if (Year <= *yp) break; for (i = 1; i < Month; i++) Julian += *++mp; Julian *= SECSPERDAY; Julian += yyTimezone * 60L; if ((tod = ToSeconds(Hours, Minutes, Seconds, Meridian)) < 0) return -1; Julian += tod; tod = Julian; if (dst == DSTon || (dst == DSTmaybe && localtime(&tod)->tm_isdst)) Julian -= DST_OFFSET * 60L * 60L; return Julian; } static time_t DSTcorrect(time_t Start, time_t Future) { time_t StartDay; time_t FutureDay; StartDay = (localtime(&Start)->tm_hour + 1) % 24; FutureDay = (localtime(&Future)->tm_hour + 1) % 24; return (Future - Start) + (StartDay - FutureDay) * DST_OFFSET * 60L * 60L; } static time_t RelativeMonth(time_t Start, time_t RelMonth) { struct tm *tm; time_t Month; time_t Year; tm = localtime(&Start); Month = 12 * tm->tm_year + tm->tm_mon + RelMonth; Year = Month / 12; Month = Month % 12 + 1; return DSTcorrect(Start, Convert(Month, (time_t)tm->tm_mday, Year, (time_t)tm->tm_hour, (time_t)tm->tm_min, (time_t)tm->tm_sec, MER24, DSTmaybe)); } static int LookupWord(char *buff, register int length) { register char *p; register char *q; register TABLE *tp; register int c; p = buff; c = p[0]; /* See if we have an abbreviation for a month. */ if (length == 3 || (length == 4 && p[3] == '.')) for (tp = MonthDayTable; tp < ENDOF(MonthDayTable); tp++) { q = tp->name; if (c == q[0] && p[1] == q[1] && p[2] == q[2]) { yylval.Number = tp->value; return tp->type; } } else for (tp = MonthDayTable; tp < ENDOF(MonthDayTable); tp++) if (c == tp->name[0] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } /* Try for a timezone. */ for (tp = TimezoneTable; tp < ENDOF(TimezoneTable); tp++) if (c == tp->name[0] && p[1] == tp->name[1] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } /* Try the units table. */ for (tp = UnitsTable; tp < ENDOF(UnitsTable); tp++) if (c == tp->name[0] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } /* Strip off any plural and try the units table again. */ if (--length > 0 && p[length] == 's') { p[length] = '\0'; for (tp = UnitsTable; tp < ENDOF(UnitsTable); tp++) if (c == tp->name[0] && strcmp(p, tp->name) == 0) { p[length] = 's'; yylval.Number = tp->value; return tp->type; } p[length] = 's'; } length++; /* Drop out any periods. */ for (p = buff, q = (char*)buff; *q; q++) if (*q != '.') *p++ = *q; *p = '\0'; /* Try the meridians. */ if (buff[1] == 'm' && buff[2] == '\0') { if (buff[0] == 'a') { yylval.Meridian = MERam; return tMERIDIAN; } if (buff[0] == 'p') { yylval.Meridian = MERpm; return tMERIDIAN; } } /* If we saw any periods, try the timezones again. */ if (p - buff != length) { c = buff[0]; for (p = buff, tp = TimezoneTable; tp < ENDOF(TimezoneTable); tp++) if (c == tp->name[0] && p[1] == tp->name[1] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } } /* Unknown word -- assume GMT timezone. */ yylval.Number = 0; return tZONE; } int date_lex(void) { register char c; register char *p; char buff[20]; register int sign; register int i; register int nesting; for ( ; ; ) { /* Get first character after the whitespace. */ for ( ; ; ) { while (isspace(*yyInput)) yyInput++; c = *yyInput; /* Ignore RFC 822 comments, typically time zone names. */ if (c != LPAREN) break; for (nesting = 1; (c = *++yyInput) != RPAREN || --nesting; ) if (c == LPAREN) nesting++; else if (!IS7BIT(c) || c == '\0' || c == '\r' || (c == '\\' && ((c = *++yyInput) == '\0' || !IS7BIT(c)))) /* Lexical error: bad comment. */ return '?'; yyInput++; } /* A number? */ if (isdigit(c) || c == '-' || c == '+') { if (c == '-' || c == '+') { sign = c == '-' ? -1 : 1; yyInput++; if (!isdigit(*yyInput)) /* Skip the plus or minus sign. */ continue; } else sign = 0; for (i = 0; (c = *yyInput++) != '\0' && isdigit(c); ) i = 10 * i + c - '0'; yyInput--; yylval.Number = sign < 0 ? -i : i; return sign ? tSNUMBER : tUNUMBER; } /* A word? */ if (isalpha(c)) { for (p = buff; (c = *yyInput++) == '.' || isalpha(c); ) if (p < &buff[sizeof buff - 1]) *p++ = isupper(c) ? tolower(c) : c; *p = '\0'; yyInput--; return LookupWord(buff, p - buff); } return *yyInput++; } } time_t parsedate(const char *p) { extern int date_parse(void); time_t Start; yyInput = p; /* well, its supposed to be const... */ yyYear = 0; yyMonth = 0; yyDay = 0; yyTimezone = 0; yyDSTmode = DSTmaybe; yyHour = 0; yyMinutes = 0; yySeconds = 0; yyMeridian = MER24; yyRelSeconds = 0; yyRelMonth = 0; yyHaveDate = 0; yyHaveRel = 0; yyHaveTime = 0; if (date_parse() || yyHaveTime > 1 || yyHaveDate > 1) return -1; if (yyHaveDate || yyHaveTime) { Start = Convert(yyMonth, yyDay, yyYear, yyHour, yyMinutes, yySeconds, yyMeridian, yyDSTmode); if (Start < 0) return -1; } else return -1; Start += yyRelSeconds; if (yyRelMonth) Start += RelativeMonth(Start, yyRelMonth); /* Have to do *something* with a legitimate -1 so it's distinguishable * from the error return value. (Alternately could set errno on error.) */ return Start == -1 ? 0 : Start; } #ifdef TEST #if YYDEBUG extern int yydebug; #endif /* YYDEBUG */ /* ARGSUSED */ int main(int ac, char *av[]) { char buff[128]; time_t d; #if YYDEBUG yydebug = 1; #endif /* YYDEBUG */ (void)printf("Enter date, or blank line to exit.\n\t> "); for ( ; ; ) { (void)printf("\t> "); (void)fflush(stdout); if (fgets(buff, sizeof buff, stdin) == NULL || buff[0] == '\n') break; #if YYDEBUG if (strcmp(buff, "yydebug") == 0) { yydebug = !yydebug; printf("yydebug = %s\n", yydebug ? "on" : "off"); continue; } #endif /* YYDEBUG */ d = parsedate(buff, (TIMEINFO *)NULL); if (d == -1) (void)printf("Bad format - couldn't convert.\n"); else (void)printf("%s", ctime(&d)); } exit(0); /* NOTREACHED */ } #endif /* TEST */ citadel-902/parsedate.h000066400000000000000000000000411271512031400151030ustar00rootroot00000000000000 time_t parsedate(const char *); citadel-902/parsedate.y000066400000000000000000000515741271512031400151450ustar00rootroot00000000000000%{ /* $Revision$ ** ** Originally written by Steven M. Bellovin while ** at the University of North Carolina at Chapel Hill. Later tweaked by ** a couple of people on Usenet. Completely overhauled by Rich $alz ** and Jim Berets in August, 1990. ** Further revised (removed obsolete constructs and cleaned up timezone ** names) in August, 1991, by Rich. Paul Eggert ** helped in September, 1992. Art Cancro cleaned ** it up for ANSI C in December, 1999. ** ** This grammar has six shift/reduce conflicts. ** ** This code is in the public domain and has no copyright. */ /* SUPPRESS 530 *//* Empty body for statement */ /* SUPPRESS 593 on yyerrlab *//* Label was not used */ /* SUPPRESS 593 on yynewstate *//* Label was not used */ /* SUPPRESS 595 on yypvt *//* Automatic variable may be used before set */ #include "sysdep.h" #include #include #include #include #include #if HAVE_STRING_H # if !STDC_HEADERS && HAVE_MEMORY_H # include # endif # include #endif #if HAVE_STRINGS_H # include #endif #include "parsedate.h" int date_lex(void); #define yyparse date_parse #define yylex date_lex #define yyerror date_error /* See the LeapYears table in Convert. */ #define EPOCH 1970 #define END_OF_TIME 2038 /* Constants for general time calculations. */ #define DST_OFFSET 1 #define SECSPERDAY (24L * 60L * 60L) /* Readability for TABLE stuff. */ #define HOUR(x) (x * 60) #define LPAREN '(' #define RPAREN ')' #define IS7BIT(x) ((unsigned int)(x) < 0200) #define SIZEOF(array) ((int)(sizeof array / sizeof array[0])) #define ENDOF(array) (&array[SIZEOF(array)]) /* ** An entry in the lexical lookup table. */ typedef struct _TABLE { char *name; int type; time_t value; } TABLE; /* ** Daylight-savings mode: on, off, or not yet known. */ typedef enum _DSTMODE { DSTon, DSToff, DSTmaybe } DSTMODE; /* ** Meridian: am, pm, or 24-hour style. */ typedef enum _MERIDIAN { MERam, MERpm, MER24 } MERIDIAN; /* ** Global variables. We could get rid of most of them by using a yacc ** union, but this is more efficient. (This routine predates the ** yacc %union construct.) */ static const char *yyInput; static DSTMODE yyDSTmode; static int yyHaveDate; static int yyHaveRel; static int yyHaveTime; static time_t yyTimezone; static time_t yyDay; static time_t yyHour; static time_t yyMinutes; static time_t yyMonth; static time_t yySeconds; static time_t yyYear; static MERIDIAN yyMeridian; static time_t yyRelMonth; static time_t yyRelSeconds; static void date_error(char *); %} %union { time_t Number; enum _MERIDIAN Meridian; } %token tDAY tDAYZONE tMERIDIAN tMONTH tMONTH_UNIT tSEC_UNIT tSNUMBER %token tUNUMBER tZONE %type tDAYZONE tMONTH tMONTH_UNIT tSEC_UNIT %type tSNUMBER tUNUMBER tZONE numzone zone %type tMERIDIAN o_merid %% spec : /* NULL */ | spec item ; item : time { yyHaveTime++; #ifdef lint /* I am compulsive about lint natterings... */ if (yyHaveTime == -1) { YYERROR; } #endif /* lint */ } | time zone { yyHaveTime++; yyTimezone = $2; } | date { yyHaveDate++; } | rel { yyHaveRel = 1; } ; time : tUNUMBER o_merid { if ($1 < 100) { yyHour = $1; yyMinutes = 0; } else { yyHour = $1 / 100; yyMinutes = $1 % 100; } yySeconds = 0; yyMeridian = $2; } | tUNUMBER ':' tUNUMBER o_merid { yyHour = $1; yyMinutes = $3; yySeconds = 0; yyMeridian = $4; } | tUNUMBER ':' tUNUMBER numzone { yyHour = $1; yyMinutes = $3; yyTimezone = $4; yyMeridian = MER24; yyDSTmode = DSToff; } | tUNUMBER ':' tUNUMBER ':' tUNUMBER o_merid { yyHour = $1; yyMinutes = $3; yySeconds = $5; yyMeridian = $6; } | tUNUMBER ':' tUNUMBER ':' tUNUMBER numzone { yyHour = $1; yyMinutes = $3; yySeconds = $5; yyTimezone = $6; yyMeridian = MER24; yyDSTmode = DSToff; } ; zone : tZONE { $$ = $1; yyDSTmode = DSToff; } | tDAYZONE { $$ = $1; yyDSTmode = DSTon; } | tZONE numzone { /* Only allow "GMT+300" and "GMT-0800" */ if ($1 != 0) { YYABORT; } $$ = $2; yyDSTmode = DSToff; } | numzone { $$ = $1; yyDSTmode = DSToff; } ; numzone : tSNUMBER { int i; /* Unix and GMT and numeric timezones -- a little confusing. */ if ($1 < 0) { /* Don't work with negative modulus. */ $1 = -$1; if ($1 > 9999 || (i = $1 % 100) >= 60) { YYABORT; } $$ = ($1 / 100) * 60 + i; } else { if ($1 > 9999 || (i = $1 % 100) >= 60) { YYABORT; } $$ = -(($1 / 100) * 60 + i); } } ; date : tUNUMBER '/' tUNUMBER { yyMonth = $1; yyDay = $3; } | tUNUMBER '/' tUNUMBER '/' tUNUMBER { if ($1 > 100) { yyYear = $1; yyMonth = $3; yyDay = $5; } else { yyMonth = $1; yyDay = $3; yyYear = $5; } } | tMONTH tUNUMBER { yyMonth = $1; yyDay = $2; } | tMONTH tUNUMBER ',' tUNUMBER { yyMonth = $1; yyDay = $2; yyYear = $4; } | tUNUMBER tMONTH { yyDay = $1; yyMonth = $2; } | tUNUMBER tMONTH tUNUMBER { yyDay = $1; yyMonth = $2; yyYear = $3; } | tDAY ',' tUNUMBER tMONTH tUNUMBER { yyDay = $3; yyMonth = $4; yyYear = $5; } ; rel : tSNUMBER tSEC_UNIT { yyRelSeconds += $1 * $2; } | tUNUMBER tSEC_UNIT { yyRelSeconds += $1 * $2; } | tSNUMBER tMONTH_UNIT { yyRelMonth += $1 * $2; } | tUNUMBER tMONTH_UNIT { yyRelMonth += $1 * $2; } ; o_merid : /* NULL */ { $$ = MER24; } | tMERIDIAN { $$ = $1; } ; %% /* Month and day table. */ static TABLE MonthDayTable[] = { { "january", tMONTH, 1 }, { "february", tMONTH, 2 }, { "march", tMONTH, 3 }, { "april", tMONTH, 4 }, { "may", tMONTH, 5 }, { "june", tMONTH, 6 }, { "july", tMONTH, 7 }, { "august", tMONTH, 8 }, { "september", tMONTH, 9 }, { "october", tMONTH, 10 }, { "november", tMONTH, 11 }, { "december", tMONTH, 12 }, /* The value of the day isn't used... */ { "sunday", tDAY, 0 }, { "monday", tDAY, 0 }, { "tuesday", tDAY, 0 }, { "wednesday", tDAY, 0 }, { "thursday", tDAY, 0 }, { "friday", tDAY, 0 }, { "saturday", tDAY, 0 }, }; /* Time units table. */ static TABLE UnitsTable[] = { { "year", tMONTH_UNIT, 12 }, { "month", tMONTH_UNIT, 1 }, { "week", tSEC_UNIT, 7L * 24 * 60 * 60 }, { "day", tSEC_UNIT, 1L * 24 * 60 * 60 }, { "hour", tSEC_UNIT, 60 * 60 }, { "minute", tSEC_UNIT, 60 }, { "min", tSEC_UNIT, 60 }, { "second", tSEC_UNIT, 1 }, { "sec", tSEC_UNIT, 1 }, }; /* Timezone table. */ static TABLE TimezoneTable[] = { { "gmt", tZONE, HOUR( 0) }, /* Greenwich Mean */ { "ut", tZONE, HOUR( 0) }, /* Universal */ { "utc", tZONE, HOUR( 0) }, /* Universal Coordinated */ { "cut", tZONE, HOUR( 0) }, /* Coordinated Universal */ { "z", tZONE, HOUR( 0) }, /* Greenwich Mean */ { "wet", tZONE, HOUR( 0) }, /* Western European */ { "bst", tDAYZONE, HOUR( 0) }, /* British Summer */ { "nst", tZONE, HOUR(3)+30 }, /* Newfoundland Standard */ { "ndt", tDAYZONE, HOUR(3)+30 }, /* Newfoundland Daylight */ { "ast", tZONE, HOUR( 4) }, /* Atlantic Standard */ { "adt", tDAYZONE, HOUR( 4) }, /* Atlantic Daylight */ { "est", tZONE, HOUR( 5) }, /* Eastern Standard */ { "edt", tDAYZONE, HOUR( 5) }, /* Eastern Daylight */ { "cst", tZONE, HOUR( 6) }, /* Central Standard */ { "cdt", tDAYZONE, HOUR( 6) }, /* Central Daylight */ { "mst", tZONE, HOUR( 7) }, /* Mountain Standard */ { "mdt", tDAYZONE, HOUR( 7) }, /* Mountain Daylight */ { "pst", tZONE, HOUR( 8) }, /* Pacific Standard */ { "pdt", tDAYZONE, HOUR( 8) }, /* Pacific Daylight */ { "yst", tZONE, HOUR( 9) }, /* Yukon Standard */ { "ydt", tDAYZONE, HOUR( 9) }, /* Yukon Daylight */ { "akst", tZONE, HOUR( 9) }, /* Alaska Standard */ { "akdt", tDAYZONE, HOUR( 9) }, /* Alaska Daylight */ { "hst", tZONE, HOUR(10) }, /* Hawaii Standard */ { "hast", tZONE, HOUR(10) }, /* Hawaii-Aleutian Standard */ { "hadt", tDAYZONE, HOUR(10) }, /* Hawaii-Aleutian Daylight */ { "ces", tDAYZONE, -HOUR(1) }, /* Central European Summer */ { "cest", tDAYZONE, -HOUR(1) }, /* Central European Summer */ { "mez", tZONE, -HOUR(1) }, /* Middle European */ { "mezt", tDAYZONE, -HOUR(1) }, /* Middle European Summer */ { "cet", tZONE, -HOUR(1) }, /* Central European */ { "met", tZONE, -HOUR(1) }, /* Middle European */ { "eet", tZONE, -HOUR(2) }, /* Eastern Europe */ { "msk", tZONE, -HOUR(3) }, /* Moscow Winter */ { "msd", tDAYZONE, -HOUR(3) }, /* Moscow Summer */ { "wast", tZONE, -HOUR(8) }, /* West Australian Standard */ { "wadt", tDAYZONE, -HOUR(8) }, /* West Australian Daylight */ { "hkt", tZONE, -HOUR(8) }, /* Hong Kong */ { "cct", tZONE, -HOUR(8) }, /* China Coast */ { "jst", tZONE, -HOUR(9) }, /* Japan Standard */ { "kst", tZONE, -HOUR(9) }, /* Korean Standard */ { "kdt", tZONE, -HOUR(9) }, /* Korean Daylight */ { "cast", tZONE, -(HOUR(9)+30) }, /* Central Australian Standard */ { "cadt", tDAYZONE, -(HOUR(9)+30) }, /* Central Australian Daylight */ { "east", tZONE, -HOUR(10) }, /* Eastern Australian Standard */ { "eadt", tDAYZONE, -HOUR(10) }, /* Eastern Australian Daylight */ { "nzst", tZONE, -HOUR(12) }, /* New Zealand Standard */ { "nzdt", tDAYZONE, -HOUR(12) }, /* New Zealand Daylight */ /* For completeness we include the following entries. */ #if 0 /* Duplicate names. Either they conflict with a zone listed above * (which is either more likely to be seen or just been in circulation * longer), or they conflict with another zone in this section and * we could not reasonably choose one over the other. */ { "fst", tZONE, HOUR( 2) }, /* Fernando De Noronha Standard */ { "fdt", tDAYZONE, HOUR( 2) }, /* Fernando De Noronha Daylight */ { "bst", tZONE, HOUR( 3) }, /* Brazil Standard */ { "est", tZONE, HOUR( 3) }, /* Eastern Standard (Brazil) */ { "edt", tDAYZONE, HOUR( 3) }, /* Eastern Daylight (Brazil) */ { "wst", tZONE, HOUR( 4) }, /* Western Standard (Brazil) */ { "wdt", tDAYZONE, HOUR( 4) }, /* Western Daylight (Brazil) */ { "cst", tZONE, HOUR( 5) }, /* Chile Standard */ { "cdt", tDAYZONE, HOUR( 5) }, /* Chile Daylight */ { "ast", tZONE, HOUR( 5) }, /* Acre Standard */ { "adt", tDAYZONE, HOUR( 5) }, /* Acre Daylight */ { "cst", tZONE, HOUR( 5) }, /* Cuba Standard */ { "cdt", tDAYZONE, HOUR( 5) }, /* Cuba Daylight */ { "est", tZONE, HOUR( 6) }, /* Easter Island Standard */ { "edt", tDAYZONE, HOUR( 6) }, /* Easter Island Daylight */ { "sst", tZONE, HOUR(11) }, /* Samoa Standard */ { "ist", tZONE, -HOUR(2) }, /* Israel Standard */ { "idt", tDAYZONE, -HOUR(2) }, /* Israel Daylight */ { "idt", tDAYZONE, -(HOUR(3)+30) }, /* Iran Daylight */ { "ist", tZONE, -(HOUR(3)+30) }, /* Iran Standard */ { "cst", tZONE, -HOUR(8) }, /* China Standard */ { "cdt", tDAYZONE, -HOUR(8) }, /* China Daylight */ { "sst", tZONE, -HOUR(8) }, /* Singapore Standard */ /* Dubious (e.g., not in Olson's TIMEZONE package) or obsolete. */ { "gst", tZONE, HOUR( 3) }, /* Greenland Standard */ { "wat", tZONE, -HOUR(1) }, /* West Africa */ { "at", tZONE, HOUR( 2) }, /* Azores */ { "gst", tZONE, -HOUR(10) }, /* Guam Standard */ { "nft", tZONE, HOUR(3)+30 }, /* Newfoundland */ { "idlw", tZONE, HOUR(12) }, /* International Date Line West */ { "mewt", tZONE, -HOUR(1) }, /* Middle European Winter */ { "mest", tDAYZONE, -HOUR(1) }, /* Middle European Summer */ { "swt", tZONE, -HOUR(1) }, /* Swedish Winter */ { "sst", tDAYZONE, -HOUR(1) }, /* Swedish Summer */ { "fwt", tZONE, -HOUR(1) }, /* French Winter */ { "fst", tDAYZONE, -HOUR(1) }, /* French Summer */ { "bt", tZONE, -HOUR(3) }, /* Baghdad */ { "it", tZONE, -(HOUR(3)+30) }, /* Iran */ { "zp4", tZONE, -HOUR(4) }, /* USSR Zone 3 */ { "zp5", tZONE, -HOUR(5) }, /* USSR Zone 4 */ { "ist", tZONE, -(HOUR(5)+30) }, /* Indian Standard */ { "zp6", tZONE, -HOUR(6) }, /* USSR Zone 5 */ { "nst", tZONE, -HOUR(7) }, /* North Sumatra */ { "sst", tZONE, -HOUR(7) }, /* South Sumatra */ { "jt", tZONE, -(HOUR(7)+30) }, /* Java (3pm in Cronusland!) */ { "nzt", tZONE, -HOUR(12) }, /* New Zealand */ { "idle", tZONE, -HOUR(12) }, /* International Date Line East */ { "cat", tZONE, HOUR(10) }, /* -- expired 1967 */ { "nt", tZONE, HOUR(11) }, /* -- expired 1967 */ { "ahst", tZONE, HOUR(10) }, /* -- expired 1983 */ { "hdt", tDAYZONE, HOUR(10) }, /* -- expired 1986 */ #endif /* 0 */ }; /* ARGSUSED */ static void date_error(char *s) { /* NOTREACHED */ } static time_t ToSeconds(time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian) { if (Minutes < 0 || Minutes > 59 || Seconds < 0 || Seconds > 61) return -1; if (Meridian == MER24) { if (Hours < 0 || Hours > 23) return -1; } else { if (Hours < 1 || Hours > 12) return -1; if (Hours == 12) Hours = 0; if (Meridian == MERpm) Hours += 12; } return (Hours * 60L + Minutes) * 60L + Seconds; } static time_t Convert(time_t Month, time_t Day, time_t Year, time_t Hours, time_t Minutes, time_t Seconds, MERIDIAN Meridian, DSTMODE dst) { static int DaysNormal[13] = { 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; static int DaysLeap[13] = { 0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; static int LeapYears[] = { 1972, 1976, 1980, 1984, 1988, 1992, 1996, 2000, 2004, 2008, 2012, 2016, 2020, 2024, 2028, 2032, 2036 }; register int *yp; register int *mp; register time_t Julian; register int i; time_t tod; if (Year < 0) Year = -Year; if (Year < 100) Year += 1900; if (Year < EPOCH) Year += 100; for (mp = DaysNormal, yp = LeapYears; yp < ENDOF(LeapYears); yp++) if (Year == *yp) { mp = DaysLeap; break; } if (Year < EPOCH || Year > END_OF_TIME || Month < 1 || Month > 12 /* NOSTRICT *//* conversion from long may lose accuracy */ || Day < 1 || Day > mp[(int)Month]) return -1; Julian = Day - 1 + (Year - EPOCH) * 365; for (yp = LeapYears; yp < ENDOF(LeapYears); yp++, Julian++) if (Year <= *yp) break; for (i = 1; i < Month; i++) Julian += *++mp; Julian *= SECSPERDAY; Julian += yyTimezone * 60L; if ((tod = ToSeconds(Hours, Minutes, Seconds, Meridian)) < 0) return -1; Julian += tod; tod = Julian; if (dst == DSTon || (dst == DSTmaybe && localtime(&tod)->tm_isdst)) Julian -= DST_OFFSET * 60L * 60L; return Julian; } static time_t DSTcorrect(time_t Start, time_t Future) { time_t StartDay; time_t FutureDay; StartDay = (localtime(&Start)->tm_hour + 1) % 24; FutureDay = (localtime(&Future)->tm_hour + 1) % 24; return (Future - Start) + (StartDay - FutureDay) * DST_OFFSET * 60L * 60L; } static time_t RelativeMonth(time_t Start, time_t RelMonth) { struct tm *tm; time_t Month; time_t Year; tm = localtime(&Start); Month = 12 * tm->tm_year + tm->tm_mon + RelMonth; Year = Month / 12; Month = Month % 12 + 1; return DSTcorrect(Start, Convert(Month, (time_t)tm->tm_mday, Year, (time_t)tm->tm_hour, (time_t)tm->tm_min, (time_t)tm->tm_sec, MER24, DSTmaybe)); } static int LookupWord(char *buff, register int length) { register char *p; register char *q; register TABLE *tp; register int c; p = buff; c = p[0]; /* See if we have an abbreviation for a month. */ if (length == 3 || (length == 4 && p[3] == '.')) for (tp = MonthDayTable; tp < ENDOF(MonthDayTable); tp++) { q = tp->name; if (c == q[0] && p[1] == q[1] && p[2] == q[2]) { yylval.Number = tp->value; return tp->type; } } else for (tp = MonthDayTable; tp < ENDOF(MonthDayTable); tp++) if (c == tp->name[0] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } /* Try for a timezone. */ for (tp = TimezoneTable; tp < ENDOF(TimezoneTable); tp++) if (c == tp->name[0] && p[1] == tp->name[1] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } /* Try the units table. */ for (tp = UnitsTable; tp < ENDOF(UnitsTable); tp++) if (c == tp->name[0] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } /* Strip off any plural and try the units table again. */ if (--length > 0 && p[length] == 's') { p[length] = '\0'; for (tp = UnitsTable; tp < ENDOF(UnitsTable); tp++) if (c == tp->name[0] && strcmp(p, tp->name) == 0) { p[length] = 's'; yylval.Number = tp->value; return tp->type; } p[length] = 's'; } length++; /* Drop out any periods. */ for (p = buff, q = (char*)buff; *q; q++) if (*q != '.') *p++ = *q; *p = '\0'; /* Try the meridians. */ if (buff[1] == 'm' && buff[2] == '\0') { if (buff[0] == 'a') { yylval.Meridian = MERam; return tMERIDIAN; } if (buff[0] == 'p') { yylval.Meridian = MERpm; return tMERIDIAN; } } /* If we saw any periods, try the timezones again. */ if (p - buff != length) { c = buff[0]; for (p = buff, tp = TimezoneTable; tp < ENDOF(TimezoneTable); tp++) if (c == tp->name[0] && p[1] == tp->name[1] && strcmp(p, tp->name) == 0) { yylval.Number = tp->value; return tp->type; } } /* Unknown word -- assume GMT timezone. */ yylval.Number = 0; return tZONE; } int date_lex(void) { register char c; register char *p; char buff[20]; register int sign; register int i; register int nesting; for ( ; ; ) { /* Get first character after the whitespace. */ for ( ; ; ) { while (isspace(*yyInput)) yyInput++; c = *yyInput; /* Ignore RFC 822 comments, typically time zone names. */ if (c != LPAREN) break; for (nesting = 1; (c = *++yyInput) != RPAREN || --nesting; ) if (c == LPAREN) nesting++; else if (!IS7BIT(c) || c == '\0' || c == '\r' || (c == '\\' && ((c = *++yyInput) == '\0' || !IS7BIT(c)))) /* Lexical error: bad comment. */ return '?'; yyInput++; } /* A number? */ if (isdigit(c) || c == '-' || c == '+') { if (c == '-' || c == '+') { sign = c == '-' ? -1 : 1; yyInput++; if (!isdigit(*yyInput)) /* Skip the plus or minus sign. */ continue; } else sign = 0; for (i = 0; (c = *yyInput++) != '\0' && isdigit(c); ) i = 10 * i + c - '0'; yyInput--; yylval.Number = sign < 0 ? -i : i; return sign ? tSNUMBER : tUNUMBER; } /* A word? */ if (isalpha(c)) { for (p = buff; (c = *yyInput++) == '.' || isalpha(c); ) if (p < &buff[sizeof buff - 1]) *p++ = isupper(c) ? tolower(c) : c; *p = '\0'; yyInput--; return LookupWord(buff, p - buff); } return *yyInput++; } } time_t parsedate(const char *p) { extern int date_parse(void); time_t Start; yyInput = p; /* well, its supposed to be const... */ yyYear = 0; yyMonth = 0; yyDay = 0; yyTimezone = 0; yyDSTmode = DSTmaybe; yyHour = 0; yyMinutes = 0; yySeconds = 0; yyMeridian = MER24; yyRelSeconds = 0; yyRelMonth = 0; yyHaveDate = 0; yyHaveRel = 0; yyHaveTime = 0; if (date_parse() || yyHaveTime > 1 || yyHaveDate > 1) return -1; if (yyHaveDate || yyHaveTime) { Start = Convert(yyMonth, yyDay, yyYear, yyHour, yyMinutes, yySeconds, yyMeridian, yyDSTmode); if (Start < 0) return -1; } else return -1; Start += yyRelSeconds; if (yyRelMonth) Start += RelativeMonth(Start, yyRelMonth); /* Have to do *something* with a legitimate -1 so it's distinguishable * from the error return value. (Alternately could set errno on error.) */ return Start == -1 ? 0 : Start; } #ifdef TEST #if YYDEBUG extern int yydebug; #endif /* YYDEBUG */ /* ARGSUSED */ int main(int ac, char *av[]) { char buff[128]; time_t d; #if YYDEBUG yydebug = 1; #endif /* YYDEBUG */ (void)printf("Enter date, or blank line to exit.\n\t> "); for ( ; ; ) { (void)printf("\t> "); (void)fflush(stdout); if (fgets(buff, sizeof buff, stdin) == NULL || buff[0] == '\n') break; #if YYDEBUG if (strcmp(buff, "yydebug") == 0) { yydebug = !yydebug; printf("yydebug = %s\n", yydebug ? "on" : "off"); continue; } #endif /* YYDEBUG */ d = parsedate(buff, (TIMEINFO *)NULL); if (d == -1) (void)printf("Bad format - couldn't convert.\n"); else (void)printf("%s", ctime(&d)); } exit(0); /* NOTREACHED */ } #endif /* TEST */ citadel-902/po/000077500000000000000000000000001271512031400134055ustar00rootroot00000000000000citadel-902/po/citadel-setup/000077500000000000000000000000001271512031400161505ustar00rootroot00000000000000citadel-902/po/citadel-setup/Makefile.in000066400000000000000000000012701271512031400202150ustar00rootroot00000000000000include ../../Make_sources SRCS:= $(wildcard *.po) OBJS:= $(patsubst %.po, \ ../../locale/%/LC_MESSAGES/citadel-setup.mo, \ $(SRCS)) # ../../locale/%/LC_MESSAGES/citadel_client.mo, \ # ../../locale/%/LC_MESSAGES/citadel_server.mo, \ .SUFFIXES: .po .mo .PHONY: all all: $(OBJS) clean: rm -r ../../locale/* ../../locale/%/LC_MESSAGES/citadel-setup.mo: %.po mkdir -p $(patsubst %.po, ../../locale/%/LC_MESSAGES, $<) msgfmt -o $@ $< #../locale/%/LC_MESSAGES/citadel_client.mo: %.po # mkdir -p $(patsubst %.po, ../locale/%/LC_MESSAGES, $<) # msgfmt -o $@ $< # #../locale/%/LC_MESSAGES/citadel_server.mo: %.po # mkdir -p $(patsubst %.po, ../locale/%/LC_MESSAGES, $<) # msgfmt -o $@ $< # citadel-902/po/citadel-setup/ar.po000066400000000000000000000347121271512031400171210ustar00rootroot00000000000000# translation of ar.po to Arabic # Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER # This file is distributed under the same license as the PACKAGE package. # # Ossama M. Khayat , 2008, 2010. msgid "" msgstr "" "Project-Id-Version: ar\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-22 14:27+0000\n" "Last-Translator: Ossama M. Khayat \n" "Language-Team: Arabic \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-10-23 04:47+0000\n" "X-Generator: Launchpad (build Unknown)\n" "Language: ar\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "كلمة مرور مدير Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "رجاء أدخل اسم حساب مستخدم Citadel الذي يجب أن يحصل على الصلاحيات الإدارية " "عند إنشاءه. إن كنت تستخدم المصادقة الداخلية Ùسيتم إنشاء هذا الحساب إن لم يكن " "موجوداً. أما ÙÙŠ حالة المصادقة الخارجية، Ùيجب أن يكون حساب المستخدم موجود " "مسبقاً." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "كلمة مرور المدير:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "عنوان الإصغاء لخادم Citadel:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "طريقة المصادقة المطلوب استخدامها:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "مضي٠LDAP:" #: ../utils/setup.c:199 #, fuzzy msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "رجاء أدخل اسم المضي٠أو عنوان IP لخادم LDAP الخاص بك." #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "رقم منÙØ° LDAP:" #: ../utils/setup.c:203 #, fuzzy msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "الرجاء إدخال رقم المنÙØ° لخدمة LDAP (عادة 389)" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "LDAP base DN:" #: ../utils/setup.c:207 #, fuzzy msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "رجاء أدخل قيمة Base DN للبحث عن المصادقة (مثال: dc=example,dc=com)." #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "LDAP bind DN:" #: ../utils/setup.c:212 #, fuzzy msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "رجاء اكتب قيمة DN للحساب المطلوب استخدامه للربط بخادم LDAP لتنÙيذ " "الاستعلامات. لا يتطلب هذا الحساب أي صلاحيات أخرى. إن كان خادم LDAP الخاص بك " "يسمح بالاستعلامات من قبل أي مستخدم، Ùيمكنك ترك هذه القيمة Ùارغة." #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "كلمة مرور LDAP bind:" #: ../utils/setup.c:222 #, fuzzy msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "إن أدخلت قيمة Bind DN ÙÙŠ السؤال السابق، Ùيجب الآن أن تكتب كلمة المرور " "المرتبطة بذلك الحساب. وإلا، يمكنك ترك هذه Ùارغة." #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "الرجاء تحديد عنوان IP الذي يجب أن يصغي إليه الخادم. إن استخدمت العنوان " #~ "0.0.0.0ØŒ Ùسيصغي الخادم لجميع العناوين." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "يمكن ترك هذه القيمة الاÙتراضية إلا إن كان هناك أكثر من نسخة Citadel تعمل على " #~ "Ù†Ùس الجهاز." #~ msgid "Internal" #~ msgstr "داخلي" #~ msgid "Host" #~ msgstr "مضيÙ" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since " #~ "changing back requires a full reinstall of Citadel." #~ msgstr "" #~ "لا تغير هذا الخيار ما لم تكن متأكداً من أنه مطلوب، حيث أن استعادة قيمته " #~ "للحالية يتطلب إعادة تثبيت Citadel بالكامل." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "مع أنه ليس إلزامياً، ولكن من المستحسن جداً تعيين كلمة مرور للمستخدم المدير." #~ msgid "Enable external authentication mode?" #~ msgstr "تريد تمكين وضع المصادقة الخارجية؟" #, fuzzy #~ msgid "" #~ "Enter the name of the Citadel administrator (which is probably you). " #~ "When an account is created with this name, it will automatically be " #~ "given administrator-level access." #~ msgstr "" #~ msgid "" #~ "Please enter the name of the Citadel user account that should be granted " #~ "administrative privileges once created." #~ msgstr "" #~ "أدخل اسم مدير Citadel (والذي هو انت غالباً). عندما يتم إنشاء حساب المستخدم " #~ "بهذا الاسم، سيÙعطى صلاحيات وصول المدير تلقائياً." #~ msgid "" #~ "Specify the way authentication is done, either host based or Citadel " #~ "internal. Host based authentication could be /etc/passwd or an LDAP " #~ "directory. WARNING: do not change this setting once your system is " #~ "installed. Answer \"no\" unless you completely understand this option." #~ msgstr "" #~ "حدد الطريقة التي تتم بها المصادقة، إما عبر اسم المضي٠أو طريقة Citadel " #~ "الخاصة. تكون مصادقة المضي٠عبر /etc/passwd أو دليل LDAP. تنبيه: لا تÙغيّر " #~ "هذا الخيار عقب تثبيت نظامك. أجب بالنÙÙŠ ما لم تكن تÙهم هذا الخيار تماماً." #~ msgid "" #~ "For post configuring your Citadel Server, use citadel-webcit with your " #~ "browser, log in as the user you specified as the Administrator, and " #~ "review the Points under the Administration menu. If you have further " #~ "questions review www.citadel.org, especially the FAQ and Documentation " #~ "section." #~ msgstr "" #~ "كي تقوم بتهيئة خادم Citadel لاحقاً، استخدم citadel-webcit من خلال متصÙحك، " #~ "ادخل باسم المستخدم الذي حددته كمدير، واستعرض النقاط ضمن قائمة الإدارة. إن " #~ "كانت لديك أسئلة أخرى رجاءً زÙر الموقع www.citadel.orgØŒ وبالتحديد قسم " #~ "الأسئلة المتكررة والتوثيق." citadel-902/po/citadel-setup/citadel-setup.pot000066400000000000000000000223501271512031400214410ustar00rootroot00000000000000# SOME DESCRIPTIVE TITLE. # Copyright (C) YEAR The Citadel Project - http://www.citadel.org # This file is distributed under the same license as the PACKAGE package. # FIRST AUTHOR , YEAR. # #, fuzzy msgid "" msgstr "" "Project-Id-Version: PACKAGE VERSION\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" "Last-Translator: FULL NAME \n" "Language-Team: LANGUAGE \n" "Language: \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=CHARSET\n" "Content-Transfer-Encoding: 8bit\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" citadel-902/po/citadel-setup/create-pot.sh000077500000000000000000000014501271512031400205520ustar00rootroot00000000000000#!/bin/bash echo Updating citadel.pot from strings in the source code ... xgettext \ --copyright-holder='The Citadel Project - http://www.citadel.org' \ --from-code='utf-8' \ -k_ \ -o citadel-setup.pot \ --add-comments \ ../../utils/setup.c #xgettext \ # --copyright-holder='The Citadel Project - http://www.citadel.org' \ # --from-code='utf-8' \ # -k_ \ # -o citadel-server.pot \ # --add-comments \ # ../*.c \ # `cat ../Make_sources | sed -e "s;.*+= ;;" ` # # #xgettext \ # --copyright-holder='The Citadel Project - http://www.citadel.org' \ # --from-code='utf-8' \ # -k_ \ # -o citadel-client.pot \ # --add-comments \ # ../*.c \ # ../textclient/*.c for x in *.po do echo Merging citadel-setup.pot into $x ... msgmerge $x citadel-setup.pot -o $x done citadel-902/po/citadel-setup/cs.po000066400000000000000000000452371271512031400171300ustar00rootroot00000000000000# Czech translation of citadel debconf messages. # Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER # This file is distributed under the same license as the citadel package. # Miroslav Kure , 2008, 2009 # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-22 14:32+0000\n" "Last-Translator: Miroslav Kure \n" "Language-Team: Czech \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-10-23 04:47+0000\n" "X-Generator: Launchpad (build Unknown)\n" "Language: cs\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Hlavní adresář Citadely" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "NapiÅ¡te prosím celou cestu k adresáři, ve kterém chcete instalaci\n" "Citadely vytvoÅ™it nebo aktualizovat. Pokud nastavíte jiný adresář,\n" "než je výchozí, musíte nastavit i flag -h na serveru, kde budete vÅ¡e " "spouÅ¡tÄ›t.\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Zadejte podadresář pro alternativní instalaci Citadely. Pro porvedení " "výchozí instalace, toto pole nevyplňujte. Pokud zvolíte jiný adresář než " "výchozí, budete muset\n" "zadat volbu -h pÅ™i spouÅ¡tÄ›ní serveru.\n" "Toto pole nemusí obsahovat úvodní lomítko" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Uživatelské jméno správce Citadely:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Zadejte jméno uživatelského úÄtu Citadely, který bude mít správcovská " "oprávnÄ›ní. Používáte-li interní autentizaci Citadely, bude uživatelský úÄet " "v případÄ› potÅ™eby vytvoÅ™en. Pokud používáte externí autentizaci, musí již " "uživatelský úÄet existovat." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Správcovské heslo:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" "Zadejte heslo pro systémového administrátora. Až bude\n" "instalace hotová, Citadela vytvoří úÄet správce\n" "a pÅ™idÄ›lí mu heslo zde zadané.\n" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "ID uživatele Citadely:" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "Citadela musí běžet pod svým vlastním uživatelským ID. To je\n" "obvykle nazváno \"citadel\", avÅ¡ak provozujete-li Citadelu\n" "jako veÅ™ejné BBS, můžete jej nazvat také \"bbs\" nebo \"guest\".\n" "Server bude běžet pod tímto ID. UpÅ™esnÄ›te zde prosím toto\n" "uživatelské ID. Můžete napsat uživatelské jméno nebo použít\n" "Äíselné UID.\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "IP adresa, na které má Citadela naslouchat:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "UpÅ™esnÄ›te prosím adresu, na které by mÄ›l server naslouchat. Můžete zadat " "IPv4 nebo IPv6 adresu, nebo můžete\n" "použít '*' pro jakoukoli adresu, '::' pro libovolnou IPv6 adresu, nebo " "'0.0.0.0'\n" "pro libovolnou IPv4 adresu. Pokud toto pole zanecháte prázdné, bude " "Citadela\n" "naslouchat na vÅ¡ech adresách. Toto pole může být obvykle pÅ™eskoÄeno, ledaže " "by na stejném poÄítaÄi běželo více instancí Citadely." #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Serverové Äíslo portu:" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "UpÅ™esnÄ›te Äíslo TCP portu, na kterém server poběží.\n" "Obvykle je jím port 504, který IANA oficiálnÄ› pÅ™idÄ›lila\n" "Citadelím serverům. Jiný port budete muset zadat\n" "pouze, pokud na stejném poÄítaÄi běží více instancí\n" "Citadely a nÄ›který z nich již port 504 používá.\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Použitá metoda ověření:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Zvolte prosím způsob ověření uživatele. ObyÄejnÄ› Citadela používá vlastní " "vnitří databázi uživatelských úÄtů. Pokud zvolíte Hostitele, uživatelé " "Citadely budou mít úÄet na hostitelském systému, ověřováni pÅ™es /etc/passwd " "nebo zdroj PAM. LDAP vybírá RFC 2307 kompatibilní server, poslední volba " "vybírá nestandardní MS Active Directory LDAP.\n" "Neměňte tuto volbu, nejste-li si jisti, že je to nutné, jelikož zpÄ›tná zmÄ›na " "vyžaduje pÅ™einstalování Citadely.\n" " 0. Vlastní ověřování\n" " 1. Ověřování u hostitele\n" " 2. VnÄ›jší LDAP (RFC 2307)\n" " 3. VnÄ›jší LDAM (nestandardní MS Active Directory)\n" "\n" "NápovÄ›du naleznete na " "http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "OdpovÄ›zte \"0\", ledaže otázce zcela rozumíte\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "LDAP server:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Vložte prosím jméno hostitele nebo IP adresu VaÅ¡eho LDAP serveru.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Číslo LDAP portu:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "Zadejte prosím Äíslo portu LDAP (obvykle 389)\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "Základní LDAP DN:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Zadejte prosím Základní DN (Base DN) k vyhledávání ověření\n" "(NapÅ™.: dc=example,dc=com)\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "DN úÄtu pro LDAP dotazy:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "Zadejte prosím DN úÄtu k pÅ™ipojení k LDAP serveru pÅ™i zasílání dotazů. Tento " "úÄet nemusí mít žádná jiná práva. Pokud Váš LDAP server povoluje anonymní " "dotazy, můžete nechat toto pole nevyplnÄ›né.\n" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Heslo úÄtu pro LDAP dotazy:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "Pokud jste v pÅ™edchozí otázce zadali DN úÄtu, musíte nyní zadat\n" "heslo k tomuto úÄtu. V opaÄném případÄ› můžete necat toto pole\n" "prázdné.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Ano/Ne" #: ../utils/setup.c:300 msgid "Yes" msgstr "Ano" #: ../utils/setup.c:300 msgid "No" msgstr "Ne" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Pro pokraÄování stisknÄ›te Enter..." #: ../utils/setup.c:364 msgid "Important Message" msgstr "Důležitá zpráva" #: ../utils/setup.c:379 msgid "Error" msgstr "Chyba" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "PÅ™idávám zápis služby..." #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "Nelze otevřít" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" "Zdá se, že Citadela je již nastavena, aby se pÅ™i naÄtení systému spustila.\n" "PÅ™ejete si ponechat toto nastavení nezmÄ›nÄ›no?\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "PÅ™ejete si spouÅ¡tÄ›t Citadelu automaticky pÅ™i spuÅ¡tÄ›ní systému?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "Nelze vytvoÅ™it" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" "Instalátor může nastavit službu \"xinetd\", aby automaticky\n" "spojovala příchozí spojení telnetu s Citadelou bez výzvy\n" "k pÅ™ihlášení na hostitelském systému. PÅ™ejete si to provést?\n" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "Zdá se, že emailový program " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " běží\n" "na vaÅ¡em systému. Chcete-li mail Citadely\n" "spojit s " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " , budete to muset provést\n" "ruÄnÄ›. VýhodnÄ›jší je zakázat " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" "a použít Citadelí\n" "SMTP, POP3 a IMAP služby.\n" "\n" "Má Citadela zakázat " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" ", aby mohla pÅ™istupovat k portům\n" "25, 110 a 143?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "Toto je nyní nastaveno na:" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "Zadejte novou hodnotu, nebo stisknÄ›te Enter (a nic neměňte):" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "instalace: nelze otevřít" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" "\n" "/etc/nsswitch.conf je nastaven, aby používal modul 'db' pro\n" "jednu nebo více služeb. To není na vÄ›tÅ¡inÄ› systémů potÅ™eba\n" "a je známo, že Citadela spadne pÅ™i doruÄování\n" "mailů na internet\n" "\n" "Chcete tento modul zakázat?\n" "\n" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "Instalace dokonÄena" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" "Instalace Citadelího serveru je hotova.\n" "Pokud budete používat WebCit, spusÅ¥te\n" "jeho nastavení nyní, v opaÄném případÄ›\n" "spusÅ¥te ./citadel k pÅ™ihlášení.\n" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "Instalace selhala" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" "Instalace je dokonÄena, ale nepodaÅ™ilo se spustit Citadelí server.\n" "JdÄ›te zpÄ›t a zkontrolujte svou konfiguraci.\n" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "Instalace je dokonÄena. Nyní můžete spustit Citadelí server" #: ../utils/setup.c:1279 msgid "My System" msgstr "Můj Systém" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "instalace: nelze pÅ™ipojit" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Instalace Citadely" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "Zadaný adresář neexistuje" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "Citadelí server stále běží.\n" "Zastavte jej prosím ruÄnÄ› a spusÅ¥te instalaci znovu." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Program pro instalaci Citadely" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "Tato instalace Citadely je příliÅ¡ stará na povýšení." #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "Nastavuji oprávnÄ›ní souborů" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Zadejte IP adresu, na které má server naslouchat. Zadáte-li 0.0.0.0, bude " #~ "server naslouchat na vÅ¡ech adresách." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Pokud na tomto poÄítaÄi nemáte více instancí Citadel, můžete nejspíš " #~ "ponechat výchozí hodnotu." #~ msgid "Internal" #~ msgstr "vlastní" #~ msgid "Host" #~ msgstr "hostitel" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "Pokud si nejste jisti, že tuto možnost opravdu chcete, radÄ›ji ji neměňte, " #~ "protože návrat zpÄ›t znamená kompletní reinstalaci Citadel." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "I když není heslo pro správce povinné, důraznÄ› doporuÄujeme jej nastavit." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "vlastní, hostitel, LDAP, Active Directory" #~ msgid "Enable external authentication mode?" #~ msgstr "Povolit externí autentizaci?" #~ msgid "" #~ "Specify the IP address on which your server will run. If you specify " #~ "0.0.0.0, Citadel will listen on all addresses. You can usually skip this " #~ "unless you are running multiple instances of Citadel on the same computer." #~ msgstr "" #~ "Zadejte IP adresu, na které má server naslouchat. Zadáte-li 0.0.0.0, bude " #~ "Citadel naslouchat na vÅ¡ech adresách. Pokud na tomto poÄítaÄi nemáte více " #~ "instancí Citadel, nejspíš můžete otázku pÅ™eskoÄit." #~ msgid "" #~ "Specify the way authentication is done, either host based or Citadel " #~ "internal. Host based accounting could be /etc/passwd or an LDAP directory. " #~ "WARNING: do not change this setting once your system is installed. Answer " #~ "\"no\" unless you completely understand this option." #~ msgstr "" #~ "Zadejte způsob autentizace - buÄ založený na mechanismech hostitelského " #~ "poÄítaÄe, nebo na interní správÄ› přímo v Citadel. Ověřováním podle " #~ "hostitelského poÄítaÄe se myslí /etc/passwd nebo LDAP adresář. VAROVÃNÃ: po " #~ "instalaci systému již toto nastavení neměňte. Pokud si nejste zcela jisti, " #~ "zda otázce rozumíte, odpovÄ›zte „ne“." #~ msgid "" #~ "Enter the name of the Citadel administrator (which is probably you). When an " #~ "account is created with this name, it will automatically be given " #~ "administrator-level access." #~ msgstr "" #~ "Zadejte jméno správce Citadel (což budete pravdÄ›podobnÄ› vy). PÅ™i vytvoÅ™ení " #~ "úÄtu se zadaným jménem mu budou automaticky pÅ™idána správcovská oprávnÄ›ní." #~ msgid "" #~ "For post configuring your Citadel Server, use citadel-webcit with your " #~ "browser, log in as the user you specified as the Administrator, and review " #~ "the Points under the Administration menu. If you have further questions " #~ "review www.citadel.org, specialy the FAQ and Documentation section." #~ msgstr "" #~ "Pro poinstalaÄní nastavení Citadel serveru si nainstalujte balík citadel-" #~ "webcit. Ve webovém prohlížeÄi se pÅ™ihlaste pod uživatelem, kterého jste " #~ "zvolili za správce a projdÄ›te si menu Administration. Máte-li další otázky, " #~ "podívejte se na http://www.citadel.org do Äástí Dokumentace a FAQ." citadel-902/po/citadel-setup/de.po000066400000000000000000000446711271512031400171140ustar00rootroot00000000000000# Translation of citadel debconf templates to German # Copyright (C) Helge Kreutzmann , 2008, 2009. # This file is distributed under the same license as the citadel package. # msgid "" msgstr "" "Project-Id-Version: citadel 7.63-1\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-22 14:33+0000\n" "Last-Translator: Helge Kreutzmann \n" "Language-Team: de \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=ISO-8859-15\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-11-03 04:54+0000\n" "X-Generator: Launchpad (build Unknown)\n" "Language: \n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Citadel Basis Verzeichnis" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "Geben Sie den vollen Pfad Ihrer Citadel Installation / Update an.\n" "Wenn Sie ein anderes Verzeichnis anstelle des Default-Werts\n" "angeben, starten Sie den Citadel-Server mit der Option '-h'.\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Geben Sie einen Unterordner für eine alternative Installation von Citadel " "an. Um den Default-Wert zu verwenden, lassen Sie das Feld leer.\n" "Wenn Sie ein anderes Verzeichnis als das Default angeben, müssen Sie den " "Server mit der Option '-h' starten.\n" "Den Pfad bitte ohne führendes '/' angeben." #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Benutzername des Citadel-Administrators:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Bitte geben Sie den Namen des Citadel-Benutzerkontos an, dem nach der " "Erstellung administrative Privilegien erteilt werden sollen. Falls interne " "Authentifizierung verwandt wird und das Benutzerkonto noch nicht existiert, " "wird es erstellt. Für externe Authentifizierung muss das Benutzerkonto " "existieren." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Administrator Passwort:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" "Bitte geben Sie ein Passwort für den System-Administrator an.\n" "Wennn das Setup abgeschlossen ist, wird der System-Administrator\n" "mit diesem Passwort angelegt.\n" # #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "Citadel Benutzer Kennung" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "Citadel muss unter einer eigenen Benutzer-ID laufen. Üblicherweise\n" "lautet diese 'citadel', wenn Sie Citadel aber als öffentlicher BBS laufen " "lassen,\n" "nennen Sie die ID 'bbs' oder 'guest'. Der Server wird unter dieser ID " "ausgeführt.\n" "Geben Sie nun den Benutzernamen oder UID an.\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Adresse, auf der Citadel auf Anfragen wartet:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "Bitte geben Sie die IP-Adresse, die der Server sein sollte zuhören. Sie " "können den Namen einer bestimmten IPv4 oder IPv6-Adresse, oder Sie können " "festlegen,\n" "'*' Für 'eine beliebige Adresse', ':' für 'alle IPv6-Adresse \"oder '0 " ".0.0.0'\n" "für \"alle IPv4-Adresse\". Wenn Sie dieses Feld leer lassen, wird Citadel\n" "hören auf alle Adressen. Diese können in der Regel auf den Standardwert " "belassen werden, es sei denn mehrere Instanzen Zitadelle auf dem gleichen " "Computer ausgeführt werden." # #: ../utils/setup.c:168 msgid "Server port number:" msgstr "LDAP-Portnummer:" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "Geben Sie den TCP-Port-Nummer auf dem Server ausgeführt wird.\n" "Normalerweise wird dieser Port 504, die die offizielle Schnittstelle ist\n" "zugewiesen von der IANA für Citadel-Servern. Sie müssen nur\n" "Um einen anderen Port-Nummer, wenn Sie mehrere Instanzen laufen\n" "der Zitadelle auf dem gleichen Computer, und es ist etwas anderes\n" "bereits über Port 504 auf.\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Zu verwendene Authentifizierungsmethode:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Bitte wählen Sie die Benutzer-Authentifizierung-Modus. Standardmäßig Citadel " "wird seine eigenen internen Benutzerkonten-Datenbank. Wenn Sie Host wählen, " "wird Citadel Benutzer haben Accounts auf dem Host-System, über / etc / " "passwd oder eine PAM Quelle authentifiziert. LDAP wählt eine RFC 2307 " "kompatiblen Verzeichnisserver, wählt die letzte Option der Nicht-Standard-MS " "Active Directory LDAP Schema.\n" "Ändern Sie diese Option, wenn Sie sicher, dass es erforderlich ist, sind " "seit dem Wechsel zurück erfordert ein voller Citadel neu zu installieren.\n" "0. Eigenständiges Authentifizierung\n" "1. Host-System integrierte Authentifizierung\n" "2. Externe LDAP - RFC 2307 konforme Verzeichnisdienste\n" "3. Externe LDAP - Nicht-Standard-MS Active Directory\n" "\n" "Für Hilfe: http://www.citadel.org/doku.php/faq:installation:authmodes\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "LDAP-Host:" # #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" "Bitte geben Sie den Rechnernamen oder die IP-Adresse Ihres LDAP-Servers an.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "LDAP-Portnummer:" # #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" "Bitte geben Sie die Portnummer Ihres LDAP-Dienstes an (normalerweise 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "LDAP-base-DN:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Bitte geben Sie die »Base DN«, die zur Authentifizierung durchsucht werden " "soll (beispielsweise dc=example,dc=com), an.\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "LDAP-bind-DN:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "Bitte geben Sie die DN eines Kontos an, das zum Binden an den LDAP-Server " "zur Durchführung von Abfragen verwandt wird. Das Konto benötigt keine " "weiteren Privilegien. Falls Ihr LDAP-Server anonyme Abfragen erlaubt, können " "Sie dies leer lassen.\n" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "LDAP-bind-Passwort:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "Falls Sie in der vorherigen Frage eine Bind-DN eingegeben haben, müssen Sie " "\n" "jetzt das zum Konto zugehörige Passwort eingeben. Lassen Sie dies \n" "andernfalls leer.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Ja/Nein" #: ../utils/setup.c:300 msgid "Yes" msgstr "Erlauben" #: ../utils/setup.c:300 msgid "No" msgstr "Keine" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Drücken Sie die Eingabetaste, um fortzufahren" #: ../utils/setup.c:364 msgid "Important Message" msgstr "Wichtige Nachricht" #: ../utils/setup.c:379 msgid "Error" msgstr "Fehler" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "Füge Serviceeintrag hinzu" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "Kann nicht öffnen" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "Übersetzung überprüfen\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "Soll Citadel automatisch beim Systemstart gestartet werden?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "Erstellen fehlgeschlagen" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" "Setup kann den \"xinetd\" Dämon so konfigurieren,\n" "dass einkommende telnet-Verbindungen an dem\n" "Host System login vorbei zu Citadel durchgereicht werden.\n" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "zur Zeit nicht übersetzt " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " Email Programm\n" "läuft auf Ihrem System. Wenn Sie möchten das Citdael Mail\n" "sich zu %s " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " verbindet, muss dies per Hand eingerichtet werden.\n" "Es wird empfohlen %s zu deaktivieren " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" "und Citadel's\n" "SMTP, POP3 und IMAP Dämon zu nutzen.\n" "\n" "Soll nun %s abgeschaltet werden? " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" "hat Citadel Zugriff auf Port\n" "25, 110 and 143?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "Dies ist momentan eingestellt auf:" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "Geben Sie einen neuen Wert ein oder drücken sie Enter:" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "Setup: Kann nicht geöffnet werden." #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" "\n" "/etc/nsswitch.conf ist so konfiguriert, dass das Modul 'db' für\n" "ein oder mehrere Dämonen zu nutzen. Dies ist auf den meisten Systemen\n" "nicht notwendig und kann zu einem Absturz des Citadel Servers führen,\n" "wenn dieser Emails in das Internet versendet.\n" "\n" "Möchten Sie dieses Modul automatisch deaktivieren?\n" "\n" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "Installation beendet." #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" "Die Installation von Citadel-Server ist abgeschlossen.\n" "Wenn Sie die WebCit Oberfläche nutzen wollen,\n" "starten Sie nun die Installation.\n" "Anderenfalls starten Sie './citadel' und loggen Sie sich ein.\n" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "Installation fehlgeschlagen" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" "Installation beendet konnte aber Citadel server nicht starten.\n" "Bitte überprüfen sie ihre Einstellungen.\n" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "Installation beendet. Sie können den Server jetzt starten." #: ../utils/setup.c:1279 msgid "My System" msgstr "Mein System" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "Installation: kann nicht fortfahren" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Citadel Setup" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "Das Verzeichniss existiert nicht." #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "Der Citadel Dämon läuft bereits.\n" "Bitte stoppen Sie in per Hand und starten das Setup erneut." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Citadel Setup Programm" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "Diese Citadelinstallation ist zu alt um upgegradet zu werden." #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "Setze Datei Zugriffsrechte" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Bitte geben Sie die IP-Adressen an, auf der der Server auf Anfragen warten " #~ "soll. Falls Sie 0.0.0.0 angeben, wird der Server auf allen Adressen auf " #~ "Anfragen warten." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Normalerweise können Sie die Vorgabe beibehalten, falls Sie nicht mehrere " #~ "Instanzen von Citadel auf dem gleichen Computer betreiben." #~ msgid "Internal" #~ msgstr "Intern" #~ msgid "Host" #~ msgstr "Host" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "Ändern Sie diese Option nur, falls Sie sich sicher sind, dass Sie sie " #~ "benötigen. Das Zurücksetzen dieser Option benötigt eine komplette " #~ "Neuinstallation von Citadel." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "Es ist zwar nicht zwingend notwendig, wird aber nachdrücklich empfohlen, " #~ "dass Sie für den administrativen Benutzer ein Passwort setzen." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Intern, Host, LDAP, Active Directory" #~ msgid "Enable external authentication mode?" #~ msgstr "Externen Authentifizierungsmodus aktivieren?" #~ msgid "" #~ "Please enter the name of the Citadel user account that should be granted " #~ "administrative privileges once created." #~ msgstr "" #~ "Geben Sie den Namen des Citadel-Benutzerkontos ein, dem nach der Erstellung " #~ "administrative Privilegien gewährt werden sollen." #~ msgid "" #~ "Specify the way authentication is done, either host based or Citadel " #~ "internal. Host based authentication could be /etc/passwd or an LDAP " #~ "directory. WARNING: do not change this setting once your system is " #~ "installed. Answer \"no\" unless you completely understand this option." #~ msgstr "" #~ "Geben Sie an, wie die Authentifizierung läuft, entweder Rechner-basiert oder " #~ "Citadel-intern. Rechner-basierte Authentifizierung könnte /etc/passwd oder " #~ "ein LDAP-Verzeichnis sein. WARNUNG: Ändern Sie diese Option nicht, nachdem " #~ "Ihr System installiert ist. Antworten Sie »Nein« falls Sie diese Option " #~ "nicht komplett verstehen." #~ msgid "" #~ "For post configuring your Citadel Server, use citadel-webcit with your " #~ "browser, log in as the user you specified as the Administrator, and review " #~ "the Points under the Administration menu. If you have further questions " #~ "review www.citadel.org, especially the FAQ and Documentation section." #~ msgstr "" #~ "Für die weitere Konfiguration Ihres Citadel-Servers verwenden Sie bitte " #~ "citadel-webcit in Ihrem Browser. Melden Sie sich dort als den Benutzer an, " #~ "den Sie eben als Administrator angegeben haben und schauen Sie dann die " #~ "Punkte im Administrations-Menü durch. Falls Sie weitere Fragen haben, lesen " #~ "Sie www.citadel.org, insbesondere die FAQ und den Dokumentations-Abschnitt." citadel-902/po/citadel-setup/en_GB.po000066400000000000000000000361141271512031400174670ustar00rootroot00000000000000# English (United Kingdom) translation for citadel # Copyright (c) 2012 Rosetta Contributors and Canonical Ltd 2012 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2012. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2012-09-19 12:46+0000\n" "Last-Translator: Biffaboy \n" "Language-Team: English (United Kingdom) \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2012-09-20 04:31+0000\n" "X-Generator: Launchpad (build 15985)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Citadel Home Directory" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Citadel administrator username:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Administrator password:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "Citadel User ID:" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Listening address for the Citadel server:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Server port number:" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Authentication method to use:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "LDAP host:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Please enter the host name or IP address of your LDAP server.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "LDAP port number:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "Please enter the port number of the LDAP service (usually 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "LDAP base DN:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "LDAP bind DN:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "LDAP bind password:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Yes/No" #: ../utils/setup.c:300 msgid "Yes" msgstr "Yes" #: ../utils/setup.c:300 msgid "No" msgstr "No" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Press return to continue..." #: ../utils/setup.c:364 msgid "Important Message" msgstr "Important Message" #: ../utils/setup.c:379 msgid "Error" msgstr "Error" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "Adding service entry..." #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "Cannot open" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "Would you like to automatically start Citadel at boot?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "Cannot create" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "You appear to have the " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " you will have to manually integrate\n" "them. It is preferable to disable " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "This is currently set to:" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "Enter new value or press return to leave unchanged:" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "setup: cannot open" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "Setup finished" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "Setup failed" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "Setup is finished. You may now start the server." #: ../utils/setup.c:1279 msgid "My System" msgstr "My System" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "setup: cannot append" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Citadel Setup" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "The directory you specified does not exist" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Citadel setup program" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "This Citadel installation is too old to be upgraded." #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "Setting file permissions" citadel-902/po/citadel-setup/es.po000066400000000000000000000431121271512031400171200ustar00rootroot00000000000000# citadel po-debconf translation to Spanish # Copyright (C) 2009 Software in the Public Interest # This file is distributed under the same license as the citadel package. # # Changes: # - Initial translation # Shukoh , 2009 # # # Traductores, si no conoce el formato PO, merece la pena leer la # documentación de gettext, especialmente las secciones dedicadas a este # formato, por ejemplo ejecutando: # info -n '(gettext)PO Files' # info -n '(gettext)Header Entry' # # Equipo de traducción al español, por favor lean antes de traducir # los siguientes documentos: # # - El proyecto de traducción de Debian al español # http://www.debian.org/intl/spanish/coordinacion # especialmente las notas de traducción en # http://www.debian.org/intl/spanish/notas # # - La guía de traducción de po's de debconf: # /usr/share/doc/po-debconf/README-trans # o http://www.debian.org/intl/l10n/po-debconf/README-trans # msgid "" msgstr "" "Project-Id-Version: citadel-7.66-1\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2012-05-28 16:11+0000\n" "Last-Translator: Enrique D A \n" "Language-Team: Debian Spanish \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2012-05-29 04:33+0000\n" "X-Generator: Launchpad (build 15316)\n" "Language: es\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Carpeta personal Citadel" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "Introduzca la ruta completa del directorio en el que\n" "se encuentra la instalación de Citadel. Si especifica\n" "un directorio diferente al predeterminado, deberá\n" "especificar la opción -h en el servidor cuando lo inicie.\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Ingrese el nombre de subdirectorio para una instalación alternativa de " "Citadel. Para una instalación predeterminada solo dejelo vacío. Si " "especifica un directorio diferente al predeterminado,\n" "necesitará especificar la bandera -h al servidor cuando lo inicie.\n" "observe que el nombre no termina con /" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Nombre de usuario del administrador de Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Por favor, introduzca el nombre de la cuenta de usuario de Citadel a la que " "se le deben conceder privilegios de administrador una vez creada. Si emplea " "autenticación interna esta cuenta de usuario se creará, si aún no existe. " "Para autenticación externa esta cuenta tiene que existir." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Contraseña del administrador:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" "Introduzca una contraseña para la administración del sistema.\n" "Cuando finalice la configuración se intentará crear un usuario\n" "administrador con la contraseña indicada.\n" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "ID de usuario de Citadel:" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "Citadel necesita correr bajo su propio ID de usuario. Este puede\n" "llamarse \"citadel\", pero si está corriendo Citadel\n" "como un BBS público, podría llamarlo \"bbs\" o \"invitado\".\n" "El servidor correrá bajo este ID de usuario. Por favor indique el\n" "ID de usuario aquí. Puede especificar tanto un nombre de usuario o un \n" "UID númerico.\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Dirección de escucha para el servidor Citadel:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "Por favor especifique la dirección IP que el servidor deberá escuchar. Puede " "nombrar una dirección especifica IPv4 o IPv6, o puede\n" "especificar '*' para 'cualquier dirección', '::' para 'cualquier dirección " "IPv6' o '0.0.0.0'\n" "para 'cualquier dirección IPv4'. Si lo deja en blanco, Citadel escuchará\n" "en todas las direcciones. Puede dejar el valor predeterminado a menos que " "varias instancias de Citadel esten corriendo en la misma computadora." #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Número de puerto del servidor:" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "Especifica el número del puerto TCP con el que su sistema se ejecutará.\n" "Normalmente, este será el puerto 504, que es el puerto oficial\n" "asignado por la IANA para los servidores de Citadel. Sólos tendrá\n" "que especificar un número de puerto diferente si ejecutas múltiples " "instancias\n" "de Citadel en el mismo ordenador y hay algo más usando el puerto 504.\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Método de autenticación a utilizar:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Por favor seleccione el modo de autenticación del usuario. Citadel puede " "usar su propia base de datos de cuentas de usuario internas. Si elige " "anfitrión (Host), Los usuarios de Citadel deberán tener cuentas en el equipo " "anfitrión, autenticados por medio de /etc/passwd o una fuente PAM. LDAP " "selecciona un servidor de directorio que cumple con RFC 2307, la última " "opción elige el esquema no estándar de Directorio Activo de MS.\n" "No cambie esta opción a menos que este seguro que es requerida, ya que " "cambiarla de nuevo requiere una reinstalación completa de Citadel.\n" "0. Autenticación interna\n" "1. Autenticación integrada en el sistema anfitrión\n" "3. LDAP Externo - Directorio compatible RFC 2307\n" "3. LDAP Externo - Directorio Activo MS no estándar\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "Equipo de LDAP:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" "Por favor, introduzca el nombre del equipo o la dirección IP de su servidor " "LDAP.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Número del puerto de LDAP:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" "Por favor, introduzca el número del puerto del servicio LDAP (generalmente " "389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "DN base de LDAP:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Por favor, introduzca el DN base para buscar la autenticación (por ejemplo:\n" "dc=ejemplo, dc=com).\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "DN de enlace de LDAP:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "Por favor introduzca el DN de una cuenta a usar para ligar al servidor LDAP\n" "para realizar consultas. La cuenta no requiere ningún otro\n" "privilegio. Si el servidor LDAP permite consultas anónimas, puede\n" "dejarlo en blanco.\n" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Contraseña para el enlace de LDAP:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "Si introdujo un Bind DN en la pregunta anterior, ahora debe introducir\n" "la contraseña asociada con esa cuenta. Si no, puede dejar este\n" "en blanco.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Sí/No" #: ../utils/setup.c:300 msgid "Yes" msgstr "Sí" #: ../utils/setup.c:300 msgid "No" msgstr "No" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Pulse Intro para continuar..." #: ../utils/setup.c:364 msgid "Important Message" msgstr "Mensaje importante" #: ../utils/setup.c:379 msgid "Error" msgstr "Error" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "Adición de entrada de servicio" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "No se pudo abrir" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" "Citadel parece estar configurado para iniciarse en el arranque.\n" "¿Quiere mantener su configuración de arranque, como está?\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "¿Te gustaría que Citadel se iniciase automáticamente al arrancar?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "No se pudo crear" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" "El programa de instalación puede configurar el servicio \"xinetd\" para " "automáticamente\n" "conectar las sesiones entrantes de telnet al Citadel, sin pasar por el\n" "inicio de sesión del sistema anfitrión. ¿Quiere hacer esto?\n" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "Parece que tiene el " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " programa de correo\n" "corriendo en su sistema. Si desea que Citadel mal\n" "se conecte con " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " tendrá que integrarlos manualmente.\n" "Es preferible desactivarlo " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" ", y usar los servicios de Citadel\n" "SMTP, POP3 e IMAP\n" "Podemos desactivarlos " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" "para que Citadel tenga acceso a los puertos\n" "25, 110 y 143?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "Esto está actualmente establecido a:" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "Entre un nuevo valor o presione retorno para dejarlo sin cambio:" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "instalación: no puede abrir" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" "\n" "/etc/nsswitch.conf está configurador para usar el modulo 'db' para\n" "uno o más servicios. Esto no es necesario en la mayoría de los sistemas,\n" "y se sabe que bloquea el servidor Citadel al entregar el correo\n" "a Internet.\n" "\n" "¿Quieres que este módulo se desactive automáticamente?\n" "\n" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "Configuración terminada" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" "La configuración del servidor Citadel está completa.\n" "Si usará Webcit, por favor ejecute su\n" "programa de configuración ahora, de lo contrario, corra './citadel'\n" "para entrar.\n" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "La configuración fallo." #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" "La configuración ha concluido, pero el servidor Citadel fallo al iniciar.\n" "Regrese y revise su configuración.\n" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "La configuración ha terminado. Ahora puede iniciar el servidor." #: ../utils/setup.c:1279 msgid "My System" msgstr "Mi Sistema" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "configuración: no puede anexar" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Instalar Citadel" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "El directorio especificado no existe" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "El servicio Citadel aún está corriendo.\n" "Por favor detenga el servicio manualmente y corra la configuración otra vez." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Programa de configuración de Citadel" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "Esta instalación de Citadel es demasiado vieja para ser actualizada." #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "Configurar permisos de archivo" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Por favor, indique la dirección IP en la que el servidor debería estar " #~ "escuchando. Si indica la 0.0.0.0, el servidor escuchará en todas las " #~ "direcciones." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Normalmente se puede dejar el valor predeterminado, a no ser que tenga " #~ "varias instancias de Citadel ejecutándose en el mismo equipo." #~ msgid "Internal" #~ msgstr "Interna" #~ msgid "Host" #~ msgstr "Host" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "No cambie esta opción a no ser que esté seguro de que es necesario, ya que " #~ "si lo cambia se deberá reinstalar completamente Citadel para volver al " #~ "estado anterior." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "A pesar de que no es obligatorio, es bastante recomendable establecer una " #~ "contraseña para el administrador." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Interna, Host, LDAP, Active Directory" citadel-902/po/citadel-setup/fi.po000066400000000000000000000267221271512031400171170ustar00rootroot00000000000000# Esko Arajärvi , 2009. msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-22 14:35+0000\n" "Last-Translator: Esko Arajärvi \n" "Language-Team: Finnish \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-11-03 04:54+0000\n" "X-Generator: Launchpad (build Unknown)\n" "X-Poedit-Country: FINLAND\n" "Language: fi\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Citadel-ylläpitäjän käyttäjätunnus:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Anna sen Citadel-käyttäjätunnuksen nimi, jolle annetaan luotaessa " "ylläpitäjän oikeudet. Käytettäessä sisäistä tunnistautumista, tämä " "käyttäjätunnus luodaan, jos sitä ei ole. Ulkoista tunnistautumista " "käytettäessä tämän käyttäjätunnuksen täytyy olla olemassa." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Ylläpitäjän salasana:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Osoite, jota Citadel-palvelin kuuntelee:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "LDAP-kone:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Anna LDAP-palvelimen verkkonimi tai IP-osoite.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "LDAP-portin numero:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "Anna LDAP-palvelun porttinumero (yleensä 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "LDAPin kanta-DN (erittelevä nimi):" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Anna erittelevä nimi, josta kirjautumistietoja etsitään (esimerkiksi: " "dc=example,dc=com).\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "LDAPin yhteys-DN (yhteyden erittelevä nimi):" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "LDAP-yhteyden salasana:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "Jos määrittelit yhteys-DN:n aiemmassa kysymyksessä, syötä tähän tunnuksen\n" "salasana. Voi muussa tapauksessa jättää kentän tyhjäksi.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Anna IP-osoite, jota palvelin kuuntelee. Jos syötät 0.0.0.0 palvelin " #~ "kuuntelee kaikkia osoitteita." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Oletusarvoa voidaan yleensä käyttää, ellei samalla koneella ajeta useampia " #~ "Citadel-instansseja." #~ msgid "Internal" #~ msgstr "Sisäinen" #~ msgid "Host" #~ msgstr "Isäntä" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "Älä vaihda tätä valintaa, ellet ole varma, että se on tarpeen, koska " #~ "takaisin vaihtaminen vaatii, että Citadel asennetaan täysin uudelleen." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "On erittäin suositeltavaa asettaa ylläpitäjälle salasana, vaikka se ei " #~ "olekaan pakollista." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Sisäinen, Isäntä, LDAP, Active Directory" #~ msgid "Enable external authentication mode?" #~ msgstr "Otetaanko ulkoinen tunnistautumistapa käyttöön?" citadel-902/po/citadel-setup/fr.po000066400000000000000000000435751271512031400171350ustar00rootroot00000000000000# Translation of citadel debconf templates to French # Copyright (C) 2005-2009 Debian French l10n team # This file is distributed under the same license as the citadel package. # # Translators: # Jean-Luc Coulon (f5ibh) , 2008. # Christian Perrier , 2008, 2009. # Nicolas Delvaux msgid "" msgstr "" "Project-Id-Version: fr-new\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2012-04-29 19:54+0100\n" "Last-Translator: François LANKAR \n" "Language-Team: French \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2012-06-06 04:33+0000\n" "X-Generator: Launchpad (build 15353)\n" "Language: fr\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Répertoire principal Citadel" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "Entrez le chemin complet du répertoire dans lequel se trouve\n" "l'installation de Citadel que vous créez ou mettez à jour. Si vous\n" "spécifiez un répertoire différent de celui par défaut, vous devrez\n" "indiquer le paramètre -f au serveur lorsque vous le démarrerez.\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Entrez le chemin complet du répertoire dans lequel se trouve\n" "l'installation de Citadel que vous créez ou mettez à jour. Si vous\n" "spécifiez un répertoire autre que celui par défaut, vous devrez\n" "indiquer le paramètre -f au serveur lorsque vous le démarrerez." #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Identifiant de l'administrateur de Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Veuillez indiquer l'identifiant Citadel qui disposera des privilèges " "d'administration après création. Si le système interne d'authentification " "est utilisé, ce compte sera créé s'il n'existe déjà. Si un système externe " "d'authentification est utilisé, ce compte doit déjà y exister." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Mot de passe de l'administrateur:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" "Entrer le mot de passe de l'administrateur du système. Lors de la\n" "finalisation de l'installation un compte administrateur sera créé\n" "avec le mot de passe défini ici.\n" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "ID utilisateur Citadel :" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "Citadel doit s'exécuter avec son propre identifiant utilisateur " "généralement\n" "appelé \"citadel\", mais si vous lancez Citadel en tant que BBS publique, " "vous\n" "pouvez aussi l'appeler \"bbs\" ou \"guest\". Le serveur utilisera cet " "identifiant.\n" "Renseignez ici cet identifiant utilisateur. Vous pouvez renseigner soit le " "nom\n" "d'utilisateur soit son UID numérique.\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Adresse IP où Citadel sera à l'écoute :" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "Définissez l'adresse IP sur laquelle le serveur sera en écoute. Vous pourrez " "renseigner une adresse IPv4 ou IPv6 spécifique, ou renseigner\n" "'*' pour 'n'importe quelle adresse', '::' pour 'n'importe quelle adresse " "IPv6', ou '0.0.0.0'\n" "pour 'n'importe quelle adresse IPv4'. Si vous laissez vide, Citadel sera en " "écoute\n" "sur toutes les adresses. Ce champ est généralement laissé à sa valeur par " "défaut à moins d'exécuter plusieurs instances de Citadel sur le même server." #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Numéro de port du serveur :" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "Définissez le port TCP sur lequel le serveur sera en écoute.\n" "Généralement, ce port est le 504, correspondant au numéro\n" "de port officiel attribué aux serveurs Citadel par le IANA.\n" "Vous n'aurez besoin de définir un autre numéro de port que\n" "si vous lancez plusieurs instances de Citadel sur la même machine\n" "ou qu'une autre application utilise déjà le port 504.\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Méthode d'authentification à utiliser :" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Sélectionnez le mode d'authentification utilisateur. Par défaut Citadel " "utilise ses propres comptes utilisateur interne de base de données. Si vous " "choisissez Authentification Interne, les utilisateurs Citadel auront leurs " "comptes sur le système hôte, authentifié par /etc/passwd ou par une source " "PAM. Faire le choix LDAP pour un serveur-répertoire compatible avec la RFC " "2307, et en dernier choix le schéma LDAP non-standard de MS Active " "Directory.\n" "Ne changez cette option que si vous êtes sûr que c'est nécessaire, car le " "retour arrière nécessite une réinstallation complète de Citadel.\n" " 0. Auto-authentification\n" " 1. Authentification interne au système\n" " 2. LDAP externe - répertoire compatible RFC 2307\n" " 3. LDAP externe - non-standard MS Active Directory\n" "\n" "Aide à : http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "CHOISISSEZ \"0\" SI VOUS NE MAITRISEZ PAS COMPLETEMENT CETTE OPTION.\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "Serveur LDAP :" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Veuillez indiquer le nom d'hôte ou l'adresse IP du serveur LDAP.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Port du serveur LDAP:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" "Veuillez indiquer le numéro du port d'écoute pour le serveur LDAP (en " "général 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "DN de base du serveur LDAP:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Veuillez indiquer la base de recherche pour l'authentification LDAP " "(p. ex. dc=example,dc=com).\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "Compte de connexion LDAP:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "Veuillez entrer l'identifiant unique d'un compte à utiliser pour la liaison " "avec le serveur LDAP pour l'exécution des requêtes. Le compte ne nécessite " "pas d'autres privilèges. Si votre serveur LDAP autorise les requêtes " "anonymes, vous pouvez laisser ce champ vide.\n" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Mot de passe de connexion LDAP:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "Si vous avez entré un identifiant Bind à la question précédente, vous devez " "maintenant entrer \n" "le mot de passe associé à ce compte. Sinon, vous pouvez laisser ce \n" "champ vide.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Oui/Non" #: ../utils/setup.c:300 msgid "Yes" msgstr "Oui" #: ../utils/setup.c:300 msgid "No" msgstr "Non" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Appuyer sur entrée pour continuer…" #: ../utils/setup.c:364 msgid "Important Message" msgstr "Message important" #: ../utils/setup.c:379 msgid "Error" msgstr "Erreur" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "Ajouter un service" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "Ne peut être ouvert" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" "Citadel est déjà configuré pour se lancer au démarrage.\n" "Voulez-vous garder cette configuration de démarrage ?\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "Voulez-vous lancer Citadel au démarrage ?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "Ne peut être créé" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" "Le programme d'installation peut configurer le service \"xinetd\" pour se " "connecter\n" "automatiquement à des sessions telnet entrantes vers Citadel, outrepassant " "l'invite \n" "de connexion au système hôte. Voulez-vous faire cela ?\n" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "Vous semblez avoir le " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " programme de messagerie \n" "en cours d'exécution sur votre système. Si vous voulez que la messagerie de " "Citadel y soit \n" "connecté " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " vous devrez les intégrer manuellement.\n" "Il est préférable de désactiver " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" ", et utilise les services\n" "SMTP, POP3 et IMAP de Citadel.\n" "\n" "Nous pourrions désactiver " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" "de telle sorte que Citadel ait accès aux ports \n" "25, 110 et 143 ?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "Actuellement défini à :" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" "Entrez une nouvelle valeur ou appuyez sur entrée pour laisser la valeur " "actuelle :" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "setup : ne peut être ouvert" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" "\n" "/etc/nsswitch.conf est configuré pour utiliser le module « db » pour \n" "un ou plusieurs services. Ce n'est pas nécessaire sur la plupart des " "systèmes, \n" "et il est connu pour faire planter le serveur Citadel lorsqu'il envoie \n" "un courrier sur Internet. \n" "\n" "Voulez-vous que ce module soit désactivé automatiquement ?\n" "\n" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "Installation terminée" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" "L'installation du serveur Citadel est terminée.\n" "Si vous voulez utiliser WebCit, veuillez lancer\n" "maintenant son programme d'installation ;\n" "sinon, lancez « ./citadel » pour vous identifier.\n" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "Installation échouée" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" "L'installation est terminée mais le serveur Citadel n'a pu être lancé.\n" "Retournez en arrière pour vérifier votre configuration.\n" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" "L'installation est terminée. Vous pouvez maintenant lancer le serveur." #: ../utils/setup.c:1279 msgid "My System" msgstr "Mon Système" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "Programme d'installation : ne peut pas ajouter" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Installation de Citadel" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "Le répertoire indiqué n'existe pas." #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "Le service Citadel est toujours en cours d'exécution.\n" "Arrêtez le service manuellement et relancer l'installation." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Programme d'installation de Citadel" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" "Cette installation de Citadel est trop ancienne pour être mise à jour." #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "Définition des autorisations de fichiers" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Veuillez indiquer l'adresse IP sur laquelle le serveur sera actif. Si " #~ "vous indiquez 0.0.0.0, Citadel sera à l'écoute de toutes les adresses." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of " #~ "Citadel are running on the same computer." #~ msgstr "" #~ "Vous pouvez normalement sauter cette étape à moins que plusieurs " #~ "instances de Citadel ne tournent sur le même ordinateur." #~ msgid "Internal" #~ msgstr "Interne" #~ msgid "Host" #~ msgstr "Hôte" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since " #~ "changing back requires a full reinstall of Citadel." #~ msgstr "" #~ "Ne modifiez cette option que si elle est indispensable car il n'est pas " #~ "possible de la changer sans entièrement réinstaller Citadel." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "Bien que cela ne soit pas indispensable, il est fortement conseillé de " #~ "choisir un mot de passe pour l'utilisateur qui disposera des privilèges " #~ "d'administration." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Interne, Hôte, LDAP, Active Directory" #~ msgid "Enable external authentication mode?" #~ msgstr "Faut-il activer le mode d'authentification ?" #~ msgid "" #~ "Please enter the name of the Citadel user account that should be granted " #~ "administrative privileges once created." #~ msgstr "" #~ "Veuillez indiquer l'identifiant qui bénéficiera des privilèges " #~ "d'administration de Citadel." citadel-902/po/citadel-setup/hu.po000066400000000000000000000225061271512031400171310ustar00rootroot00000000000000# Hungarian translation for citadel # Copyright (c) 2011 Rosetta Contributors and Canonical Ltd 2011 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2011. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2011-06-07 16:32+0000\n" "Last-Translator: FULL NAME \n" "Language-Team: Hungarian \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2011-06-08 04:32+0000\n" "X-Generator: Launchpad (build 12959)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" citadel-902/po/citadel-setup/it.po000066400000000000000000000226631271512031400171350ustar00rootroot00000000000000# Italian translation for citadel # Copyright (c) 2011 Rosetta Contributors and Canonical Ltd 2011 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2011. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2011-08-27 14:10+0000\n" "Last-Translator: Guybrush88 \n" "Language-Team: Italian \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2011-08-28 04:30+0000\n" "X-Generator: Launchpad (build 13794)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Cartella principale di Citadel" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Nome utente dell'amministratore di Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Password amministratore:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "ID utente di Citadel:" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" citadel-902/po/citadel-setup/ja.po000066400000000000000000000273731271512031400171160ustar00rootroot00000000000000# Copyright (C) 2009 Debian Citadel Team # This file is distributed under the same license as citadel package. # Hideki Yamane (Debian-JP) , 2009. # msgid "" msgstr "" "Project-Id-Version: citadel 7.66-1\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-24 16:01+0000\n" "Last-Translator: Hideki Yamane (Debian-JP) \n" "Language-Team: Japanese \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-10-25 04:35+0000\n" "X-Generator: Launchpad (build Unknown)\n" "Language: ja\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Citadel ã®ç®¡ç†è€…ユーザå:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "作æˆå¾Œã«ç®¡ç†è€…特権を与ãˆã‚‹ Citadel " "ã®ãƒ¦ãƒ¼ã‚¶ã‚¢ã‚«ã‚¦ãƒ³ãƒˆåを入力ã—ã¦ãã ã•ã„。内部アカウントã§ã®èªè¨¼ã‚’使ã†å ´åˆã€ã“ã®ãƒ¦ãƒ¼ã‚¶ã‚¢ã‚«ã‚¦ãƒ³ãƒˆãŒå­˜åœ¨ã—ãªã„ã®ã§ã‚ã‚Œã°ä½œæˆã•ã‚Œã¾ã™ã€‚外部èªè¨¼ã®å ´åˆã¯ã€ã“ã®ãƒ¦" "ーザアカウントãŒå­˜åœ¨ã—ã¦ã„ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™ã€‚" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "管ç†è€…パスワード:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Citadel サーãƒã®å¾…ã¡å—ã‘アドレス:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "利用ã™ã‚‹èªè¨¼æ–¹å¼:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "LDAP ホスト:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "LDAP サーãƒã®ãƒ›ã‚¹ãƒˆåã€ã‚ã‚‹ã„㯠IP アドレスを入力ã—ã¦ãã ã•ã„。\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "LDAP ã®ãƒãƒ¼ãƒˆç•ªå·:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "LDAP サービスã®ãƒãƒ¼ãƒˆç•ªå·ã‚’入力ã—ã¦ãã ã•ã„ (通常㯠389 ã§ã™)。\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "LDAP ベース DN:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "èªè¨¼ã®éš›ã€æ¤œç´¢ã«ä½¿ã†ãƒ™ãƒ¼ã‚¹ DN を入力ã—ã¦ãã ã•ã„\n" " (例:dc=example,dc=com)。\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "LDAP ã¸ã®ãƒã‚¤ãƒ³ãƒ‰ã«ä½¿ã† DN:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "LDAP ã¸ã®ãƒã‚¤ãƒ³ãƒ‰ã«ä½¿ã†ãƒ‘スワード:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "サーãƒãŒå¾…ã¡å—ã‘ã‚’ã™ã‚‹ IP アドレスを指定ã—ã¦ãã ã•ã„。0.0.0.0 を指定ã—ãŸå ´åˆã€ã‚µãƒ¼ãƒã¯ã™ã¹ã¦ã®ã‚¢ãƒ‰ãƒ¬ã‚¹ã§å¾…ã¡å—ã‘ã¾ã™ã€‚" #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "åŒã˜ã‚³ãƒ³ãƒ”ュータ上ã§è¤‡æ•°ã® Citadel インスタンスãŒå‹•ä½œã—ã¦ã„ãªã‘ã‚Œã°ã€ã“ã‚Œã¯é€šå¸¸ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã®ã¾ã¾ã§æ§‹ã„ã¾ã›ã‚“。" #~ msgid "Internal" #~ msgstr "内部アカウント" #~ msgid "Host" #~ msgstr "ホスト上" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "何ãŒå¿…è¦ã‹åˆ†ã‹ã£ã¦ã„ãªã„å ´åˆã¯ã€ã“ã®ã‚ªãƒ—ションを変更ã—ãªã„ã§ãã ã•ã„。変更を元ã«æˆ»ã™ã«ã¯ Citadel をゼロã‹ã‚‰å†ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹ã“ã¨ãŒå¿…è¦ã§ã™ã€‚" #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "å¿…é ˆã§ã¯ãªã„ã‚‚ã®ã®ã€ç®¡ç†è€…ユーザã«ãƒ‘スワードを設定ã™ã‚‹ã“ã¨ã‚’å¼·ããŠå‹§ã‚ã—ã¾ã™ã€‚" #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "内部アカウント, ホスト上, LDAP, Active Directory" citadel-902/po/citadel-setup/kk.po000066400000000000000000000225021271512031400171160ustar00rootroot00000000000000# Kazakh translation for citadel # Copyright (c) 2010 Rosetta Contributors and Canonical Ltd 2010 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2010. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-12-26 10:06+0000\n" "Last-Translator: FULL NAME \n" "Language-Team: Kazakh \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-12-27 04:35+0000\n" "X-Generator: Launchpad (build Unknown)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" citadel-902/po/citadel-setup/ko.po000066400000000000000000000225001271512031400171200ustar00rootroot00000000000000# Korean translation for citadel # Copyright (c) 2013 Rosetta Contributors and Canonical Ltd 2013 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2013. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2013-11-20 21:46+0000\n" "Last-Translator: FULL NAME \n" "Language-Team: Korean \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2013-11-21 05:11+0000\n" "X-Generator: Launchpad (build 16831)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" citadel-902/po/citadel-setup/pl.po000066400000000000000000000225001271512031400171220ustar00rootroot00000000000000# Polish translation for citadel # Copyright (c) 2013 Rosetta Contributors and Canonical Ltd 2013 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2013. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2013-11-27 07:09+0000\n" "Last-Translator: FULL NAME \n" "Language-Team: Polish \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2013-11-28 05:10+0000\n" "X-Generator: Launchpad (build 16847)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" citadel-902/po/citadel-setup/pt.po000066400000000000000000000323111271512031400171330ustar00rootroot00000000000000# Portuguese translation of citadel's debconf messages. # Copyright (C) 2008, Pedro Ribeiro # This file is distributed under the same license as the citadel package. # Pedro Ribeiro , 2008-2010. # msgid "" msgstr "" "Project-Id-Version: citadel-7.72-1\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-22 14:42+0000\n" "Last-Translator: Pedro Ribeiro \n" "Language-Team: Portuguese \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=utf-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-10-25 04:35+0000\n" "X-Generator: Launchpad (build Unknown)\n" "Language: pt\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Nome de utilizador do administrador Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Indique, por favor, o nome da conta de utilizador do Citadel à qual serão " "concedidos privilégios de administração aquando da sua criação. Se usar a " "autenticação interna, a conta será criada se não existir. Se usar " "autenticação externa, a conta tem que existir." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Palavra-passe de administrador:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Endereço de escuta para o Citadel:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Número de porto LDAP:" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Método de autenticação a usar:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "Servidor LDAP:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Indique por favor o nome ou endereço IP do servidor LDAP.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Número de porto LDAP:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" "Indique por favor o número de porto do serviço LDAP (normalmente 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "DN de base LDAP:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Indique por favor o DN de Base para procurar por autenticação \n" "(por exemplo: dc=exemplo,dc=com).\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "DN ligação LDAP:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Palavra-passe de ligação:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Por favor, indique o endereço IP no qual o servidor irá estar à escuta. Se " #~ "indicar 0.0.0.0 o servidor irá escutar em todos os endereços." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Pode normalmente deixar o valor pré-definido a não ser que execute várias " #~ "instâncias do Citadel no mesmo computador." #~ msgid "Internal" #~ msgstr "Interna" #~ msgid "Host" #~ msgstr "Host" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "Não altere esta opção a não ser que esteja seguro da sua necessidade, uma " #~ "vez que mudá-la posteriormente necessita de uma reinstalação do Citadel." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "Embora não sendo obrigatória, é altamente recomendado que defina uma palavra-" #~ "passe para o administrador." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Interna, Host, LDAP, Active Directory" #~ msgid "Enable external authentication mode?" #~ msgstr "Habilitar modo de autenticação externa?" #~ msgid "" #~ "Please enter the name of the Citadel user account that should be granted " #~ "administrative privileges once created." #~ msgstr "" #~ "Indique o nome da conta de utilizador do Citadel à qual serão " #~ "automaticamente atribuídos privilégios administrativos aquando da sua " #~ "criação." #~ msgid "" #~ "Specify the way authentication is done, either host based or Citadel " #~ "internal. Host based authentication could be /etc/passwd or an LDAP " #~ "directory. WARNING: do not change this setting once your system is " #~ "installed. Answer \"no\" unless you completely understand this option." #~ msgstr "" #~ "Indique o modo como a autenticação é efectuada, ou pela máquina ou " #~ "internamente pelo Citadel. A autenticação pela máquina pode ser através " #~ "de/etc/passwd ou dum directório LDAP. ATENÇÃO: não mude esta opção após o " #~ "seusistema estar instalado. Responda \"no\" a não ser que entenda " #~ "completamente esta opção." #~ msgid "" #~ "For post configuring your Citadel Server, use citadel-webcit with your " #~ "browser, log in as the user you specified as the Administrator, and review " #~ "the Points under the Administration menu. If you have further questions " #~ "review www.citadel.org, especially the FAQ and Documentation section." #~ msgstr "" #~ "Para configuração posterior do seu servidor Citadel, use o citadel-webcit " #~ "com o seu browser, entre com o nome de utilazdor designado como " #~ "Administrator, e reveja 'Points' no menu 'Administration'. Se tem mais " #~ "dúvidas reveja www.citadel.org, especialmente o FAQ e a secção de " #~ "Documentação." citadel-902/po/citadel-setup/pt_BR.po000066400000000000000000000343021271512031400175200ustar00rootroot00000000000000# Brazilian Portuguese translation for citadel # Copyright (c) 2011 Rosetta Contributors and Canonical Ltd 2011 # This file is distributed under the same license as the citadel package. # FIRST AUTHOR , 2011. # msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: FULL NAME \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2012-03-10 19:41+0000\n" "Last-Translator: Darlildo Lima \n" "Language-Team: Brazilian Portuguese \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2012-03-11 04:33+0000\n" "X-Generator: Launchpad (build 14914)\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Diretório Principal do Citadel" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "Insira a localização completa do diretório em que a instalação Citadel\n" "que estas criando ou atualizando reside. Se escolheres um diretório " "diferente do padrão, terás\n" "que especificar a etiqueta -h para o servidor quando iniciares o programa.\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Insira o nome do subdiretório para uma instalação alternativa de Citadel. " "Para instalar no local padrão deixe em branco. Se escolheres um diretório " "diferente do padrão, terás\n" "que especificar a etiqueta -h para o servidor quando iniciares o programa.\n" "Note que talvez não tenha / antecedendo" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Nome de usuário administrador Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Favor inserir o nome do usuário da conta Citadel que deverá ter opções " "administrativas quando criada. Se estiveres usando autenticação interna, " "está conta será criada caso não exista. Para autenticação externa, a conta " "já deve existir." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Senha do administrador:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" "Crie uma senha para o administrador do sistema. Quando a instalação estiver " "completa, \n" "o sistema tentará criar o usuário administrador \n" "usando a senha que especificares aqui.\n" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "ID de usuário Citadel:" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "Citadel precisa executar sob seu proprio ID de usuario. Isto tipicamente\n" "seria chamado \"citadel\", mas se estiveres executando Citadel \n" "como um BBS público, poderás também o chamar de \"bbs\" ou \"hóspede\".\n" "O servidor executará usando esta ID. Por favor especifique esta ID aqui. " "Poderás especificar em forma escrita ou numérica.\n" "UID.\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Acessando endereço do servidor Citadel:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "Por favor especifique o endereço de IP que o servidor deverá tentar " "conecção. Podes nomear um endreço específico de IPv4 ou IPv6, ou podes " "especificar\n" "'*' para 'qualquer endereço', '::' para 'qualquer endereço IPv6', ou " "'0.0.0.0'\n" "para 'qualquer endereço IPv4'. Se deixares isto em branco, Citadel irá\n" "tentar conecção em todos os endereços. Isto normalmente pode ser deixado no " "padrão normal, exceto quando tiveres várias instâncias do Citadel no mesmo " "computador." #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Número da porta do servidor:" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "Especifique o número da porta TCP em que o servidor irá executar.\n" "Normalmente, será a porta 504, que é a porta oficial\n" "assinada pelo IANA para servidores Citadel. Você só precisa\n" "especificar um número de porta diferente se você executar\n" "várias instâncias do Citadel no mesmo computador ou outra\n" "coisa que utilize a porta 504.\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Método de autenticação a ser usado:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Por favor escolha o mode de autenticação do usuário. Por padrão, Citadel " "usará a sua própria database interna de usuários. Se escolheres Hóspede, " "usuários Citadel terão suas contas no sistema hóspede, autenticados\n" "via /etc/passwd ou uma fonte PAM. LDAP escolhe um diretório compatível com " "RFC 2307, a última opção escolhe o esquema não-padrão a MS Active Directory " "LDAP.\n" "Não mude esta opção exceto se estiveres certo que a mudança e necessária, " "pois voltar para a configuração padrão requer a reinstalação completa do " "Citadel.\n" " 0. Autenticação independente\n" " 1. Autenticação integrada ao sistema hóspede.\n" " 2. Diretório externo LDAP - compatível com RFC 2307\n" " 3. Diretório externo LDAP - não-padrão MS Active Directory\n" "\n" "Para ajuda visite " "http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "RESPONDA \"0\" SE NÃO ENTEDERES ESTA OPÇÃO COMPLETAMENTE.\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "Hóspede LDAP" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "" "Por favor informe o nome do hóspede ou o endereço de IP de seu servidor " "LDAP.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Número da porta do LDAP:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "" "Por favor, indique o número da porta do serviço LDAP (normalmente 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "Base DN do LDAP" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Sim/Não" #: ../utils/setup.c:300 msgid "Yes" msgstr "Sim" #: ../utils/setup.c:300 msgid "No" msgstr "Não" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Pressione enter para continuar..." #: ../utils/setup.c:364 msgid "Important Message" msgstr "Mensagem Importante" #: ../utils/setup.c:379 msgid "Error" msgstr "Erro" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "Adicionando entrada de serviço..." #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "Não foi possível abrir" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" "Citadel parece já estar configurado para iniciar no boot (inicialização).\n" "Gostaria de manter a configuração de inicialização como está?\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "Gostaria de iniciar o Citadel com o boot (inicialização)?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "Não é possível criar" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "Aparentemente você tem o " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " programa de email\n" "executando em seu sistema. Se você deseja o Citadel mail\n" "conectado com " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " você deve integrá-los manualmente.\n" "é preferível desabilitar " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" ", e use os serviços\n" "SMTP, POP3, e IMAP do Citadel.\n" "\n" "Para desabilitarmos " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" "e então o Citadel tenha acesso as\n" "portas 25, 110, e 143?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "Isto está definido como:" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "Digite um novo valor ou pressione Enter para deixar inalterada:" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "Instalação: Não foi possível abrir" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "Instalação concluída" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "A instalação falhou" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "A instalação foi concluída. Você deve agora iniciar o servidor." #: ../utils/setup.c:1279 msgid "My System" msgstr "Meu sistema" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Instalação do Citadel" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "O serviço do Citadel ainda está em execução.\n" "Por favor, pare o serviço manualmente e execute a instalação novamente." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Programa de instalação do Citadel" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "Esta instalação do Citadel é muito antiga e não pode ser atualizada." #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "Configurando permisões de arquivo" citadel-902/po/citadel-setup/ru.po000066400000000000000000000501351271512031400171420ustar00rootroot00000000000000# translation of citadel_7.63-1_ru.po to Russian # Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER # This file is distributed under the same license as the PACKAGE package. # # Yuri Kozlov , 2008. # Max Kosmach , 2009. # Yuri Kozlov , 2009. msgid "" msgstr "" "Project-Id-Version: citadel 7.63-1\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2012-01-01 22:15+0000\n" "Last-Translator: Alexander Vrublevskiy \n" "Language-Team: Russian \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2012-01-02 04:55+0000\n" "X-Generator: Launchpad (build 14560)\n" "Language: ru\n" "Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && n" "%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "Ð”Ð¸Ñ€ÐµÐºÑ‚Ð¾Ñ€Ð¸Ñ Citadel" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" "Введите полный путь к директории уÑтановки/Ð¾Ð±Ð½Ð¾Ð²Ð»ÐµÐ½Ð¸Ñ Citadel.\n" "ЕÑли путь отличаетÑÑ Ð¾Ñ‚ пути по умолчанию, не забудьте указать\n" "его в значении параметра -h при запуÑке citserver\n" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" "Ð”Ð»Ñ ÑƒÑтановки в директорию по умолчанию оÑтавьте Ñто поле пуÑтым.\n" "ЕÑли вам необходимо уÑтановить Citadel в какое-либо другое меÑто,\n" "введите здеÑÑŒ полный путь к нужной директории (без / в начале!).\n" "Имейте в виду, что Ñто значение нужно будет передать Ñ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð¾Ð¼ -h при " "запуÑке citserver" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "ÐдминиÑтратор Citadel" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Введите Ð¸Ð¼Ñ ÑƒÑ‡ÐµÑ‚Ð½Ð¾Ð¹ запиÑи админиÑтратора Citadel.\r\n" "ЕÑли иÑпользуетÑÑ Ð²Ð½ÐµÑˆÐ½ÑÑ Ð°ÑƒÑ‚ÐµÐ½Ñ‚Ð¸Ñ„Ð¸ÐºÐ°Ñ†Ð¸Ñ, запиÑÑŒ должна ÑущеÑтвовать.\r\n" "ЕÑли внешнÑÑ Ð°ÑƒÑ‚ÐµÐ½Ñ‚Ð¸Ñ„Ð¸ÐºÐ°Ñ†Ð¸Ñ Ð¿Ñ€Ð¾Ð¸Ñходит через LDAP/AD,\r\n" "в качеÑтве имени админиÑтратора укажите Display Name нужной запиÑи" #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Пароль админиÑтратора" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "Введите пароль админиÑтратора\n" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "ID Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚ÐµÐ»Ñ Citadel" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" "По умолчанию программа setup автоматичеÑки Ñоздает пользователÑ,\n" "от имени которого будет работать Ñервер - citadel.\n" "ЕÑли Ñто вам не подходит, вы можете указать в Ñтом поле Ð¸Ð¼Ñ Ð¸Ð»Ð¸ ID другого " "пользователÑ\n" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "IP Ð°Ð´Ñ€ÐµÑ Ð½Ð° котором Citadel ожидает запроÑÑ‹" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" "По умолчанию Ñервер Citadel ожидает запроÑÑ‹ на вÑех IP адреÑах ÑиÑтемы.\n" "Обычно Ñтого доÑтаточно, еÑли только вы не планируете запуÑкать\n" "неÑколько ÑкземплÑров Citadel. Тем не менее, здеÑÑŒ вы можете указать\n" "конкретный Ð°Ð´Ñ€ÐµÑ IPv4 или IPv6, на котором Citadel будет ожидать запроÑÑ‹" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "Ðомер порта" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" "По умолчанию Citadel работает на порту 504/tcp, который официально\n" "зарегиÑтрирован в IANA. Однако, еÑли вы хотите запуÑтить неÑколько\n" "ÑкземплÑров Citadel на одной машине, укажите здеÑÑŒ какое-либо иное значение\n" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "СпоÑоб аутентификации" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" "Укажите ÑпоÑоб аутентификации пользователей.\n" "По умолчанию Citadel иÑпользует ÑобÑтвенный механизм аутентификации.\n" "Однако, еÑÑ‚ÑŒ варианты ÑиÑтемной аутентификацией (через /etc/passwd или любой " "модуль PAM),\n" "а также аутентификации через LDAP (RFC2307) и Active Directory (выбирайте " "Ñтот вариант,\n" "еÑли у Ð²Ð°Ñ AD). Имейте в виду, что метод аутентификации в дальнейшем " "невозможно\n" "будет изменить без потери доÑтупа Ð´Ð»Ñ Ð²Ñех ÑущеÑтвующих пользователей!\n" "\n" "0) внутреннÑÑ Ð°ÑƒÑ‚ÐµÐ½Ñ‚Ð¸Ñ„Ð¸ÐºÐ°Ñ†Ð¸Ñ (по умолчанию)\n" "1) ÑиÑÑ‚ÐµÐ¼Ð½Ð°Ñ Ð°ÑƒÑ‚ÐµÐ½Ñ‚Ð¸Ñ„Ð¸ÐºÐ°Ñ†Ð¸Ñ (/etc/passwd)\n" "2) внешнÑÑ Ð°ÑƒÑ‚ÐµÐ½Ñ‚Ð¸Ñ„Ð¸ÐºÐ°Ñ†Ð¸Ñ - LDAP RFC2307\n" "3) внешнÑÑ Ð°ÑƒÑ‚ÐµÐ½Ñ‚Ð¸Ñ„Ð¸ÐºÐ°Ñ†Ð¸Ñ - M$ Active Directory\n" "\n" "Подробнее: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "Ð’ÐИМÐÐИЕ!!! ЕÑли не уверены в Ñвоих дейÑтвиÑÑ…, выбирайте вариант \"0\"!\n" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "Сервер LDAP" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Введите Ð°Ð´Ñ€ÐµÑ Ñервера LDAP\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Порт LDAP" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "Введите номер порта LDAP (обычно 389)\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "ПоиÑк в LDAP" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Введите distinguished name отправной точки Ð´Ð»Ñ Ð¿Ð¾Ð¸Ñка учетных запиÑей в " "LDAP\n" "(например, CN=Users,DC=domain,DC=local)\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "Пользователь LDAP" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" "ЕÑли ваш Ñервер LDAP позволÑет выполнение анонимных запроÑов, можете " "оÑтавить Ñто поле пуÑтым.\n" "Ð’ противном Ñлучае, введите здеÑÑŒ distinguished name учетной запиÑи LDAP,\n" "у которой еÑÑ‚ÑŒ права на Ð·Ð°Ð¿Ñ€Ð¾Ñ Ð¸Ð½Ñ„Ð¾Ñ€Ð¼Ð°Ñ†Ð¸Ð¸,\n" "например CN=User,OU=Office,DC=domain,DC=local.\n" "\n" "Ð’ÐЖÐО! Ð”Ð»Ñ Ð´Ð°Ð½Ð½Ð¾Ð¹ запиÑи не нужно никаких оÑобенных прав,\n" "например, в Ñлучае аутентификации в AD, лучше ограничить права Ñтой запиÑи " "только членÑтвом в группе Domain Guests\n" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Пароль LDAP" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "ЕÑли ваш Ñервер LDAP позволÑет выполнение анонимных запроÑов, можете " "оÑтавить Ñто поле пуÑтым.\n" "Ð’ противном Ñлучае, введите здеÑÑŒ пароль учетной запиÑи Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚ÐµÐ»Ñ LDAP из " "предыдущего пункта\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "Да/Ðет" #: ../utils/setup.c:300 msgid "Yes" msgstr "Да" #: ../utils/setup.c:300 msgid "No" msgstr "Ðет" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "Ðажмите Enter чтобы продолжить..." #: ../utils/setup.c:364 msgid "Important Message" msgstr "Важное Ñообщение" #: ../utils/setup.c:379 msgid "Error" msgstr "Ошибка" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "ДобавлÑетÑÑ ÑÐ»ÑƒÐ¶ÐµÐ±Ð½Ð°Ñ Ð·Ð°Ð¿Ð¸ÑÑŒ..." #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "Ðевозможно открыть" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" "Похоже, что ÑиÑтема Ñконфигурирована автоматичеÑки запуÑкать Citadel при " "Ñтарте.\n" "Это то, что вам нужно (обычно да)?\n" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "ЗапуÑкать Citadel автоматичеÑки при Ñтарте ÑиÑтемы?\n" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "Ошибка ÑозданиÑ" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" "Программа setup может попытатьÑÑ Ð°Ð²Ñ‚Ð¾Ð¼Ð°Ñ‚Ð¸Ñ‡ÐµÑки наÑтроить xinetd,\n" "чтобы при подключении по telnet к Ñерверу Citadel пользователи\n" "миновали приглашение зарегиÑтрироватьÑÑ Ð² ÑиÑтеме. ÐаÑтроить?\n" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "Похоже, у Ð²Ð°Ñ ÑƒÐ¶Ðµ уÑтановлена " #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" " ÑÐ²Ð¾Ñ Ð¿Ð¾Ñ‡Ñ‚Ð¾Ð²Ð°Ñ ÑиÑтема. ЕÑли вы хотите,\n" "чтобы Citadel работала ÑовмеÑтно Ñ Ð½ÐµÐ¹, " #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" " вам придетÑÑ Ñовмещать их работу ÑамоÑтоÑтельно.\n" "РекомендуетÑÑ Ð¾Ñ‚ÐºÐ»ÑŽÑ‡Ð¸Ñ‚ÑŒ " #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" "ÑущеÑтвующую ÑиÑтему и иÑпользовать Ñлужбы\n" "SMTP, POP3 и IMAP4, предоÑтавлÑемые Citadel.\n" "Позволить программе setup отключить вашу почтовую ÑиÑтему " #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" "таки образом, чтобы Citadel занÑла порты\n" "25, 110 и 143?\n" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "Текущие наÑтройки" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" "Введите новое значение или нажмите Enter, чтобы оÑтавить без изменений" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "Программа setup: ошибка при открытии" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" "\n" "УÑÑ‚Ð°Ñ€ÐµÐ²ÑˆÐ°Ñ Ð½Ð°Ñтройка /etc/nsswitch.conf (модуль 'db')\n" "может помешать работе Citadel.\n" "Ð’ большинÑтве Ñлучаев она не нужна. Попробовать отключить ее?\n" "\n" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "УÑтановка завершена" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" "УÑтановка Citadel завершена.\n" "ЕÑли вы ÑобираетеÑÑŒ иÑпользовать Webcit, уÑтановите его.\n" "Либо запуÑтите ./citadel чтобы приÑтупить к работе прÑмо ÑейчаÑ.\n" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "Ошибка уÑтановки" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" "УÑтановка завершена, но программе setup не удалоÑÑŒ запуÑтить Citadel.\n" "ПожалуйÑта, перепроверьте вÑе наÑтройки.\n" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "ÐаÑтройка завершена, можно запуÑкать Citadel." #: ../utils/setup.c:1279 msgid "My System" msgstr "ÐœÐ¾Ñ ÑиÑтема" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "US 800 555 1212" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "Программа setup: невозможно добавить" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "Программа setup" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "Ð£ÐºÐ°Ð·Ð°Ð½Ð½Ð°Ñ Ð´Ð¸Ñ€ÐµÐºÑ‚Ð¾Ñ€Ð¸Ñ Ð½Ðµ ÑущеÑтвует" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" "Даемон Citadel в данный момент запущен.\n" "ОÑтановите его и перезапуÑтите программу setup." #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "Программа setup" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "Увы, ваша Citadel Ñлишком уÑтарела и не может быть обновлена" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "УÑтанавливаютÑÑ Ð¿Ñ€Ð°Ð²Ð° доÑтупа к файлам" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Введите IP-адреÑ, который будет иÑпользовать Ñервер Ð´Ð»Ñ Ð¾Ð¶Ð¸Ð´Ð°Ð½Ð¸Ñ " #~ "подключений. ЕÑли указать 0.0.0.0, то Citadel будет ожидать Ð¿Ð¾Ð´ÐºÐ»ÑŽÑ‡ÐµÐ½Ð¸Ñ Ð½Ð° " #~ "адреÑах вÑех интерфейÑов." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "ЕÑли вы не запуÑкаете неÑколько ÑкземплÑров Citadel на одном компьютере, то " #~ "можно оÑтавить значение по умолчанию." #~ msgid "Internal" #~ msgstr "ВнутреннÑÑ" #~ msgid "Host" #~ msgstr "МашиннаÑ" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "Ðе выбирайте других пунктов кроме первого, еÑли не уверены, что Ñто " #~ "дейÑтвительно нужно, так как Ð´Ð»Ñ Ð¸Ð·Ð¼ÐµÐ½ÐµÐ½Ð¸Ñ Ð¿Ð¾Ñ‚Ñ€ÐµÐ±ÑƒÐµÑ‚ÑÑ Ð¿Ð¾Ð»Ð½Ð¾Ñтью " #~ "переуÑтановить Citadel." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "Ð¥Ð¾Ñ‚Ñ Ñто необÑзательно, наÑтоÑтельно рекомендуетÑÑ Ð·Ð°Ð´Ð°Ñ‚ÑŒ пароль Ð´Ð»Ñ " #~ "админиÑтративного пользователÑ." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "ВнутреннÑÑ, МашиннаÑ, LDAP, Active Directory" citadel-902/po/citadel-setup/sv.po000066400000000000000000000274541271512031400171540ustar00rootroot00000000000000# translation of citadel.po to Swedish # Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER # This file is distributed under the same license as the Citadel package. # # Martin Bagge , 2008. msgid "" msgstr "" "Project-Id-Version: citadel\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-24 15:58+0000\n" "Last-Translator: brother \n" "Language-Team: swedish \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "X-Launchpad-Export-Date: 2010-10-25 04:36+0000\n" "X-Generator: Launchpad (build Unknown)\n" "X-Poedit-Country: Sweden\n" "Language: sv\n" "X-Poedit-Language: Swedish\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Användarnamn för Citadel-administratören:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Ange namnet pÃ¥ det användarkonto i Citadel som ska ha administrativa " "rättigheter när det skapas. Om intern autentisering används kommer detta " "användarkonto att skapas om det inte existerar. För extern autentisering " "mÃ¥ste detta användarkonto existera frÃ¥n början." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Administratörens lösenord:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Adress som Citadel-servern ska lyssna pÃ¥:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "Identifieringsmetod som ska användas:" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "LDAP-värd:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Ange värdnamnet eller IP-adressen för din LDAP-server.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Portnummer för LDAP:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "Ange portnummer för din LDAP-server (vanligen 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "Bas-DN för LDAP:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" "Ange det Bas-DN som ska användas vid sökning för identifiering av användare " "\n" "(ex. dc=example,dc=com).\n" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "DN för förfrÃ¥gningar till LDAP:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Lösenord för förfrÃ¥gnings-DN:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Ange IP-adressen som servern ska lyssna pÃ¥. Om du anger 0.0.0.0 kommer " #~ "servern att lyssna pÃ¥ alla adresser." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Standardvalet fungerar utmärkt för alla som endast kör en instans av Citadel " #~ "pÃ¥ samma dator." #~ msgid "Internal" #~ msgstr "Internt" #~ msgid "Host" #~ msgstr "Värd" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "Ändra inte denna inställning om du inte är helt säker pÃ¥ att det behövs. För " #~ "att Ã¥terställa mÃ¥ste hela Citadel installeras om." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "Det är förvisso inget krav men det är en stark rekomendation att du anger " #~ "ett lösenord för den administrativa användaren." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Internt, Värd, LDAP, Active Directory" #~ msgid "Enable external authentication mode?" #~ msgstr "Aktivera det externa identifieringsläget?" #~ msgid "" #~ "Please enter the name of the Citadel user account that should be granted " #~ "administrative privileges once created." #~ msgstr "" #~ "Ange namnet pÃ¥ det Citadel-konto som ska agera adminstratör när det skapats." citadel-902/po/citadel-setup/vi.po000066400000000000000000000275151271512031400171400ustar00rootroot00000000000000# Vietnamese translation for Citadel. # Copyright © 2009 Free Software Foundation, Inc. # Clytie Siddall , 2008-2009. # msgid "" msgstr "" "Project-Id-Version: citadel 7.61-1\n" "Report-Msgid-Bugs-To: \n" "POT-Creation-Date: 2010-09-28 00:22+0200\n" "PO-Revision-Date: 2010-10-24 15:58+0000\n" "Last-Translator: Clytie Siddall \n" "Language-Team: Vietnamese \n" "MIME-Version: 1.0\n" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=1; plural=0;\n" "X-Generator: LocFactoryEditor 1.8\n" "X-Launchpad-Export-Date: 2010-10-23 04:47+0000\n" "X-Generator: Launchpad (build Unknown)\n" "Language: vi\n" #: ../utils/setup.c:119 msgid "Citadel Home Directory" msgstr "" #: ../utils/setup.c:122 msgid "" "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" msgstr "" #: ../utils/setup.c:128 msgid "" "Enter the subdirectory name for an alternate installation of Citadel. To do " "a default installation just leave it blank.If you specify a directory other " "than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /" msgstr "" #: ../utils/setup.c:135 msgid "Citadel administrator username:" msgstr "Tên ngÆ°á»i dùng quản trị Citadel:" #: ../utils/setup.c:137 msgid "" "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist." msgstr "" "Hãy gõ tên của tài khoản ngÆ°á»i dùng Citadel nên có quyá»n quản trị. Nếu sá»­ " "dụng chức năng xác thá»±c ná»™i bá»™ thì tài khoản ngÆ°á»i dùng này không tồn tại sẽ " "được tạo. Äối vá»›i xác thá»±c từ xa, tài khoản ngÆ°á»i dùng này phải tồn tại." #: ../utils/setup.c:143 msgid "Administrator password:" msgstr "Mật khẩu quản trị:" #: ../utils/setup.c:145 msgid "" "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n" msgstr "" #: ../utils/setup.c:149 msgid "Citadel User ID:" msgstr "" #: ../utils/setup.c:151 msgid "" "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public BBS, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n" msgstr "" #: ../utils/setup.c:158 msgid "Listening address for the Citadel server:" msgstr "Äịa chỉ lắng nghe cho trình phục vụ Citadel:" #: ../utils/setup.c:160 msgid "" "Please specify the IP address which the server should be listening to. You " "can name a specific IPv4 or IPv6 address, or you can specify\n" "'*' for 'any address', '::' for 'any IPv6 address', or '0.0.0.0'\n" "for 'any IPv4 address'. If you leave this blank, Citadel will\n" "listen on all addresses. This can usually be left to the default unless " "multiple instances of Citadel are running on the same computer." msgstr "" #: ../utils/setup.c:168 msgid "Server port number:" msgstr "" #: ../utils/setup.c:170 msgid "" "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n" msgstr "" #: ../utils/setup.c:177 msgid "Authentication method to use:" msgstr "" #: ../utils/setup.c:179 msgid "" "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme.\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel.\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n" msgstr "" #: ../utils/setup.c:197 msgid "LDAP host:" msgstr "Máy chủ LDAP:" #: ../utils/setup.c:199 msgid "Please enter the host name or IP address of your LDAP server.\n" msgstr "Hãy gõ tên máy hay địa chỉ IP của máy phục vụ LDAP nên dùng.\n" #: ../utils/setup.c:201 msgid "LDAP port number:" msgstr "Số thứ tá»± cổng LDAP:" #: ../utils/setup.c:203 msgid "Please enter the port number of the LDAP service (usually 389).\n" msgstr "Hãy gõ số thứ tá»± cổng của dịch vụ LDAP (thÆ°á»ng là 389).\n" #: ../utils/setup.c:205 msgid "LDAP base DN:" msgstr "DN cÆ¡ bản LDAP:" #: ../utils/setup.c:207 msgid "" "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n" msgstr "" #: ../utils/setup.c:210 msgid "LDAP bind DN:" msgstr "DN tổ hợp LDAP:" #: ../utils/setup.c:212 msgid "" "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.Please " "enter the DN of an account to use for binding to the LDAP server\n" "for performing queries. The account does not require any other\n" "privileges. If your LDAP server allows anonymous queries, you can\n" "leave this blank.\n" msgstr "" #: ../utils/setup.c:220 msgid "LDAP bind password:" msgstr "Mật khẩu tổ hợp LDAP:" #: ../utils/setup.c:222 msgid "" "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n" msgstr "" "Nếu bạn đã nhập má»™t tên phân biệt (DN) kiểu đóng kết khi đáp ứng câu há»i \n" "đằng trÆ°á»›c, ở đây cÅ©ng cần gõ mật khẩu tÆ°Æ¡ng ứng vá»›i tài khoản đó. Không " "thì\n" "bá» trống trÆ°á»ng này.\n" #: ../utils/setup.c:299 msgid "Yes/No" msgstr "" #: ../utils/setup.c:300 msgid "Yes" msgstr "" #: ../utils/setup.c:300 msgid "No" msgstr "" #: ../utils/setup.c:346 msgid "Press return to continue..." msgstr "" #: ../utils/setup.c:364 msgid "Important Message" msgstr "" #: ../utils/setup.c:379 msgid "Error" msgstr "" #: ../utils/setup.c:459 msgid "Adding service entry..." msgstr "" #. Other errors might mean something really did go wrong. #. #: ../utils/setup.c:463 ../utils/setup.c:510 ../utils/setup.c:518 msgid "Cannot open" msgstr "" #: ../utils/setup.c:569 msgid "" "Citadel already appears to be configured to start at boot.\n" "Would you like to keep your boot configuration as is?\n" msgstr "" #: ../utils/setup.c:577 msgid "Would you like to automatically start Citadel at boot?\n" msgstr "" #: ../utils/setup.c:583 msgid "Cannot create" msgstr "" #: ../utils/setup.c:682 #, c-format msgid "" "Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" msgstr "" #: ../utils/setup.c:740 msgid "You appear to have the " msgstr "" #: ../utils/setup.c:742 msgid "" " email program\n" "running on your system. If you want Citadel mail\n" "connected with " msgstr "" #: ../utils/setup.c:746 msgid "" " you will have to manually integrate\n" "them. It is preferable to disable " msgstr "" #: ../utils/setup.c:749 msgid "" ", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n" "\n" "May we disable " msgstr "" #: ../utils/setup.c:753 msgid "" "so that Citadel has access to ports\n" "25, 110, and 143?\n" msgstr "" #: ../utils/setup.c:863 msgid "This is currently set to:" msgstr "" #: ../utils/setup.c:864 msgid "Enter new value or press return to leave unchanged:" msgstr "" #: ../utils/setup.c:1067 ../utils/setup.c:1072 ../utils/setup.c:1384 msgid "setup: cannot open" msgstr "" #: ../utils/setup.c:1175 #, c-format msgid "" "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" msgstr "" #: ../utils/setup.c:1236 ../utils/setup.c:1252 msgid "Setup finished" msgstr "" #: ../utils/setup.c:1237 msgid "" "Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n" msgstr "" #: ../utils/setup.c:1243 msgid "Setup failed" msgstr "" #: ../utils/setup.c:1244 msgid "" "Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n" msgstr "" #: ../utils/setup.c:1253 msgid "Setup is finished. You may now start the server." msgstr "" #: ../utils/setup.c:1279 msgid "My System" msgstr "" #: ../utils/setup.c:1282 msgid "US 800 555 1212" msgstr "" #: ../utils/setup.c:1368 ../utils/setup.c:1373 msgid "setup: cannot append" msgstr "" #: ../utils/setup.c:1450 ../utils/setup.c:1457 ../utils/setup.c:1472 #: ../utils/setup.c:1512 msgid "Citadel Setup" msgstr "" #: ../utils/setup.c:1459 msgid "The directory you specified does not exist" msgstr "" #: ../utils/setup.c:1473 msgid "" "The Citadel service is still running.\n" "Please stop the service manually and run setup again." msgstr "" #: ../utils/setup.c:1485 msgid "Citadel setup program" msgstr "" #: ../utils/setup.c:1513 msgid "This Citadel installation is too old to be upgraded." msgstr "" #: ../utils/setup.c:1552 ../utils/setup.c:1554 ../utils/setup.c:1556 msgid "Setting file permissions" msgstr "" #~ msgid "" #~ "Please specify the IP address which the server should be listening to. If " #~ "you specify 0.0.0.0, the server will listen on all addresses." #~ msgstr "" #~ "Hãy chỉ định địa chỉ IP trên đó trình phục vụ nên lắng nghe. Äặt địa chỉ « " #~ "0.0.0.0 » thì trình phục vụ lắng nghe trên má»i địa chỉ." #~ msgid "" #~ "This can usually be left to the default unless multiple instances of Citadel " #~ "are running on the same computer." #~ msgstr "" #~ "Giá trị mặc định thÆ°á»ng vẫn thích hợp nếu chỉ có má»™t tiến trình Citadel Ä‘ang " #~ "chạy trên máy này." #~ msgid "Internal" #~ msgstr "Ná»™i bá»™" #~ msgid "Host" #~ msgstr "Máy chủ" #~ msgid "LDAP" #~ msgstr "LDAP" #~ msgid "" #~ "Do not change this option unless you are sure it is required, since changing " #~ "back requires a full reinstall of Citadel." #~ msgstr "" #~ "ChÆ°a chắc thì không nên bật tuỳ chá»n này, vì việc hoàn nguyên tuỳ chá»n này " #~ "cần thiết cài đặt lại Citadel má»™t cách hoàn toàn." #~ msgid "" #~ "While not mandatory, it is highly recommended that you set a password for " #~ "the administrator user." #~ msgstr "" #~ "Äể bảo vệ máy tính, rất khuyên bạn đặt mật khẩu cho ngÆ°á»i dùng quản trị." #~ msgid "Internal, Host, LDAP, Active Directory" #~ msgstr "Ná»™i bá»™, Máy chủ, LDAP, ThÆ° mục Hoạt Ä‘á»™ng" #~ msgid "Enable external authentication mode?" #~ msgstr "Bật chế Ä‘á»™ xác thá»±c bên ngoài không?" citadel-902/public_clients000066400000000000000000000004271271512031400157140ustar00rootroot00000000000000# public_clients # # This file contains a list of hosts at which well-known public # copies of client software exist. If the originating host # for a client is one of these, then the server will use the # location of the user that it is told by the client. localhost 127.0.0.1 citadel-902/room_ops.c000066400000000000000000001022431271512031400147720ustar00rootroot00000000000000/* * Server functions which perform operations on room objects. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include #include "citserver.h" #include "ctdl_module.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "room_ops.h" struct floor *floorcache[MAXFLOORS]; /* * Determine whether the currently logged in session has permission to read * messages in the current room. */ int CtdlDoIHavePermissionToReadMessagesInThisRoom(void) { if ( (!(CC->logged_in)) && (!(CC->internal_pgm)) && (!CtdlGetConfigInt("c_guest_logins")) ) { return(om_not_logged_in); } return(om_ok); } /* * Check to see whether we have permission to post a message in the current * room. Returns a *CITADEL ERROR CODE* and puts a message in errmsgbuf, or * returns 0 on success. */ int CtdlDoIHavePermissionToPostInThisRoom( char *errmsgbuf, size_t n, const char* RemoteIdentifier, PostType PostPublic, int is_reply ) { int ra; if (!(CC->logged_in) && (PostPublic == POST_LOGGED_IN)) { snprintf(errmsgbuf, n, "Not logged in."); return (ERROR + NOT_LOGGED_IN); } else if (PostPublic == CHECK_EXISTANCE) { return (0); // We're Evaling whether a recipient exists } else if (!(CC->logged_in)) { if ((CC->room.QRflags & QR_READONLY)) { snprintf(errmsgbuf, n, "Not logged in."); return (ERROR + NOT_LOGGED_IN); } if (CC->room.QRflags2 & QR2_MODERATED) { snprintf(errmsgbuf, n, "Not logged in Moderation feature not yet implemented!"); return (ERROR + NOT_LOGGED_IN); } if ((PostPublic!=POST_LMTP) &&(CC->room.QRflags2 & QR2_SMTP_PUBLIC) == 0) { return CtdlNetconfigCheckRoomaccess(errmsgbuf, n, RemoteIdentifier); } return (0); } if ((CC->user.axlevel < AxProbU) && ((CC->room.QRflags & QR_MAILBOX) == 0)) { snprintf(errmsgbuf, n, "Need to be validated to enter (except in %s> to sysop)", MAILROOM); return (ERROR + HIGHER_ACCESS_REQUIRED); } CtdlRoomAccess(&CC->room, &CC->user, &ra, NULL); if (ra & UA_POSTALLOWED) { strcpy(errmsgbuf, "OK to post or reply here"); return(0); } if ( (ra & UA_REPLYALLOWED) && (is_reply) ) { /* * To be thorough, we ought to check to see if the message they are * replying to is actually a valid one in this room, but unless this * actually becomes a problem we'll go with high performance instead. */ strcpy(errmsgbuf, "OK to reply here"); return(0); } if ( (ra & UA_REPLYALLOWED) && (!is_reply) ) { /* Clarify what happened with a better error message */ snprintf(errmsgbuf, n, "You may only reply to existing messages here."); return (ERROR + HIGHER_ACCESS_REQUIRED); } snprintf(errmsgbuf, n, "Higher access is required to post in this room."); return (ERROR + HIGHER_ACCESS_REQUIRED); } /* * Check whether the current user has permission to delete messages from * the current room (returns 1 for yes, 0 for no) */ int CtdlDoIHavePermissionToDeleteMessagesFromThisRoom(void) { int ra; CtdlRoomAccess(&CC->room, &CC->user, &ra, NULL); if (ra & UA_DELETEALLOWED) return(1); return(0); } /* * Retrieve access control information for any user/room pair. * Yes, it has a couple of gotos. If you don't like that, go die in a car fire. */ void CtdlRoomAccess(struct ctdlroom *roombuf, struct ctdluser *userbuf, int *result, int *view) { int retval = 0; visit vbuf; int is_me = 0; int is_guest = 0; if (userbuf == &CC->user) { is_me = 1; } if ((is_me) && (CtdlGetConfigInt("c_guest_logins")) && (!CC->logged_in)) { is_guest = 1; } /* for internal programs, always do everything */ if (((CC->internal_pgm)) && (roombuf->QRflags & QR_INUSE)) { retval = (UA_KNOWN | UA_GOTOALLOWED | UA_POSTALLOWED | UA_DELETEALLOWED | UA_REPLYALLOWED); vbuf.v_view = 0; goto SKIP_EVERYTHING; } /* If guest mode is enabled, always grant access to the Lobby */ if ((is_guest) && (!strcasecmp(roombuf->QRname, BASEROOM))) { retval = (UA_KNOWN | UA_GOTOALLOWED); vbuf.v_view = 0; goto SKIP_EVERYTHING; } /* Locate any applicable user/room relationships */ if (is_guest) { memset(&vbuf, 0, sizeof vbuf); } else { CtdlGetRelationship(&vbuf, userbuf, roombuf); } /* Force the properties of the Aide room */ if (!strcasecmp(roombuf->QRname, CtdlGetConfigStr("c_aideroom"))) { if (userbuf->axlevel >= AxAideU) { retval = UA_KNOWN | UA_GOTOALLOWED | UA_POSTALLOWED | UA_DELETEALLOWED | UA_REPLYALLOWED; } else { retval = 0; } goto NEWMSG; } /* If this is a public room, it's accessible... */ if ( ((roombuf->QRflags & QR_PRIVATE) == 0) && ((roombuf->QRflags & QR_MAILBOX) == 0) ) { retval = retval | UA_KNOWN | UA_GOTOALLOWED; } /* If this is a preferred users only room, check access level */ if (roombuf->QRflags & QR_PREFONLY) { if (userbuf->axlevel < AxPrefU) { retval = retval & ~UA_KNOWN & ~UA_GOTOALLOWED; } } /* For private rooms, check the generation number matchups */ if ( (roombuf->QRflags & QR_PRIVATE) && ((roombuf->QRflags & QR_MAILBOX) == 0) ) { /* An explicit match means the user belongs in this room */ if (vbuf.v_flags & V_ACCESS) { retval = retval | UA_KNOWN | UA_GOTOALLOWED; } /* Otherwise, check if this is a guess-name or passworded * room. If it is, a goto may at least be attempted */ else if ( (roombuf->QRflags & QR_PRIVATE) || (roombuf->QRflags & QR_PASSWORDED) ) { retval = retval & ~UA_KNOWN; retval = retval | UA_GOTOALLOWED; } } /* For mailbox rooms, also check the namespace */ /* Also, mailbox owners can delete their messages */ if ( (roombuf->QRflags & QR_MAILBOX) && (atol(roombuf->QRname) != 0)) { if (userbuf->usernum == atol(roombuf->QRname)) { retval = retval | UA_KNOWN | UA_GOTOALLOWED | UA_POSTALLOWED | UA_DELETEALLOWED | UA_REPLYALLOWED; } /* An explicit match means the user belongs in this room */ if (vbuf.v_flags & V_ACCESS) { retval = retval | UA_KNOWN | UA_GOTOALLOWED | UA_POSTALLOWED | UA_DELETEALLOWED | UA_REPLYALLOWED; } } /* For non-mailbox rooms... */ else { /* User is allowed to post in the room unless: * - User is not validated * - User has no net privileges and it is a shared network room * - It is a read-only room * - It is a blog room (in which case we only allow replies to existing messages) */ int post_allowed = 1; int reply_allowed = 1; if (userbuf->axlevel < AxProbU) { post_allowed = 0; reply_allowed = 0; } if ((userbuf->axlevel < AxNetU) && (roombuf->QRflags & QR_NETWORK)) { post_allowed = 0; reply_allowed = 0; } if (roombuf->QRflags & QR_READONLY) { post_allowed = 0; reply_allowed = 0; } if (roombuf->QRdefaultview == VIEW_BLOG) { post_allowed = 0; } if (post_allowed) { retval = retval | UA_POSTALLOWED | UA_REPLYALLOWED; } if (reply_allowed) { retval = retval | UA_REPLYALLOWED; } /* If "collaborative deletion" is active for this room, any user who can post * is also allowed to delete */ if (roombuf->QRflags2 & QR2_COLLABDEL) { if (retval & UA_POSTALLOWED) { retval = retval | UA_DELETEALLOWED; } } } /* Check to see if the user has forgotten this room */ if (vbuf.v_flags & V_FORGET) { retval = retval & ~UA_KNOWN; if ( ( ((roombuf->QRflags & QR_PRIVATE) == 0) && ((roombuf->QRflags & QR_MAILBOX) == 0) ) || ( (roombuf->QRflags & QR_MAILBOX) && (atol(roombuf->QRname) == CC->user.usernum)) ) { retval = retval | UA_ZAPPED; } } /* If user is explicitly locked out of this room, deny everything */ if (vbuf.v_flags & V_LOCKOUT) { retval = retval & ~UA_KNOWN & ~UA_GOTOALLOWED & ~UA_POSTALLOWED & ~UA_REPLYALLOWED; } /* Aides get access to all private rooms */ if ( (userbuf->axlevel >= AxAideU) && ((roombuf->QRflags & QR_MAILBOX) == 0) ) { if (vbuf.v_flags & V_FORGET) { retval = retval | UA_GOTOALLOWED | UA_POSTALLOWED | UA_REPLYALLOWED; } else { retval = retval | UA_KNOWN | UA_GOTOALLOWED | UA_POSTALLOWED | UA_REPLYALLOWED; } } /* Aides can gain access to mailboxes as well, but they don't show * by default. */ if ( (userbuf->axlevel >= AxAideU) && (roombuf->QRflags & QR_MAILBOX) ) { retval = retval | UA_GOTOALLOWED | UA_POSTALLOWED | UA_REPLYALLOWED; } /* Aides and Room Aides have admin privileges */ if ( (userbuf->axlevel >= AxAideU) || (userbuf->usernum == roombuf->QRroomaide) ) { retval = retval | UA_ADMINALLOWED | UA_DELETEALLOWED | UA_POSTALLOWED | UA_REPLYALLOWED; } NEWMSG: /* By the way, we also check for the presence of new messages */ if (is_msg_in_sequence_set(vbuf.v_seen, roombuf->QRhighest) == 0) { retval = retval | UA_HASNEWMSGS; } /* System rooms never show up in the list. */ if (roombuf->QRflags2 & QR2_SYSTEM) { retval = retval & ~UA_KNOWN; } SKIP_EVERYTHING: /* Now give the caller the information it wants. */ if (result != NULL) *result = retval; if (view != NULL) *view = vbuf.v_view; } /* * Self-checking stuff for a room record read into memory */ void room_sanity_check(struct ctdlroom *qrbuf) { /* Mailbox rooms are always on the lowest floor */ if (qrbuf->QRflags & QR_MAILBOX) { qrbuf->QRfloor = 0; } /* Listing order of 0 is illegal except for base rooms */ if (qrbuf->QRorder == 0) if ( !(qrbuf->QRflags & QR_MAILBOX) && strncasecmp(qrbuf->QRname, CtdlGetConfigStr("c_baseroom"), ROOMNAMELEN) && strncasecmp(qrbuf->QRname, CtdlGetConfigStr("c_aideroom"), ROOMNAMELEN) ) { qrbuf->QRorder = 64; } } /* * CtdlGetRoom() - retrieve room data from disk */ int CtdlGetRoom(struct ctdlroom *qrbuf, const char *room_name) { struct cdbdata *cdbqr; char lowercase_name[ROOMNAMELEN]; char personal_lowercase_name[ROOMNAMELEN]; const char *sptr; char *dptr, *eptr; dptr = lowercase_name; sptr = room_name; eptr = (dptr + (sizeof lowercase_name - 1)); while (!IsEmptyStr(sptr) && (dptr < eptr)){ *dptr = tolower(*sptr); sptr++; dptr++; } *dptr = '\0'; memset(qrbuf, 0, sizeof(struct ctdlroom)); /* First, try the public namespace */ cdbqr = cdb_fetch(CDB_ROOMS, lowercase_name, strlen(lowercase_name)); /* If that didn't work, try the user's personal namespace */ if (cdbqr == NULL) { snprintf(personal_lowercase_name, sizeof personal_lowercase_name, "%010ld.%s", CC->user.usernum, lowercase_name); cdbqr = cdb_fetch(CDB_ROOMS, personal_lowercase_name, strlen(personal_lowercase_name)); } if (cdbqr != NULL) { memcpy(qrbuf, cdbqr->ptr, ((cdbqr->len > sizeof(struct ctdlroom)) ? sizeof(struct ctdlroom) : cdbqr->len)); cdb_free(cdbqr); room_sanity_check(qrbuf); return (0); } else { return (1); } } /* * CtdlGetRoomLock() - same as getroom() but locks the record (if supported) */ int CtdlGetRoomLock(struct ctdlroom *qrbuf, const char *room_name) { register int retval; retval = CtdlGetRoom(qrbuf, room_name); if (retval == 0) begin_critical_section(S_ROOMS); return(retval); } /* * b_putroom() - back end to putroom() and b_deleteroom() * (if the supplied buffer is NULL, delete the room record) */ void b_putroom(struct ctdlroom *qrbuf, char *room_name) { char lowercase_name[ROOMNAMELEN]; char *aptr, *bptr; long len; aptr = room_name; bptr = lowercase_name; while (!IsEmptyStr(aptr)) { *bptr = tolower(*aptr); aptr++; bptr++; } *bptr='\0'; len = bptr - lowercase_name; if (qrbuf == NULL) { cdb_delete(CDB_ROOMS, lowercase_name, len); } else { time(&qrbuf->QRmtime); cdb_store(CDB_ROOMS, lowercase_name, len, qrbuf, sizeof(struct ctdlroom)); } } /* * CtdlPutRoom() - store room data to disk */ void CtdlPutRoom(struct ctdlroom *qrbuf) { b_putroom(qrbuf, qrbuf->QRname); } /* * b_deleteroom() - delete a room record from disk */ void b_deleteroom(char *room_name) { b_putroom(NULL, room_name); } /* * CtdlPutRoomLock() - same as CtdlPutRoom() but unlocks the record (if supported) */ void CtdlPutRoomLock(struct ctdlroom *qrbuf) { CtdlPutRoom(qrbuf); end_critical_section(S_ROOMS); } /* * CtdlGetFloorByName() - retrieve the number of the named floor * return < 0 if not found else return floor number */ int CtdlGetFloorByName(const char *floor_name) { int a; struct floor *flbuf = NULL; for (a = 0; a < MAXFLOORS; ++a) { flbuf = CtdlGetCachedFloor(a); /* check to see if it already exists */ if ((!strcasecmp(flbuf->f_name, floor_name)) && (flbuf->f_flags & F_INUSE)) { return a; } } return -1; } /* * CtdlGetFloorByNameLock() - retrieve floor number for given floor and lock the floor list. */ int CtdlGetFloorByNameLock(const char *floor_name) { begin_critical_section(S_FLOORTAB); return CtdlGetFloorByName(floor_name); } /* * CtdlGetAvailableFloor() - Return number of first unused floor * return < 0 if none available */ int CtdlGetAvailableFloor(void) { int a; struct floor *flbuf = NULL; for (a = 0; a < MAXFLOORS; a++) { flbuf = CtdlGetCachedFloor(a); /* check to see if it already exists */ if ((flbuf->f_flags & F_INUSE) == 0) { return a; } } return -1; } /* * CtdlGetFloor() - retrieve floor data from disk */ void CtdlGetFloor(struct floor *flbuf, int floor_num) { struct cdbdata *cdbfl; memset(flbuf, 0, sizeof(struct floor)); cdbfl = cdb_fetch(CDB_FLOORTAB, &floor_num, sizeof(int)); if (cdbfl != NULL) { memcpy(flbuf, cdbfl->ptr, ((cdbfl->len > sizeof(struct floor)) ? sizeof(struct floor) : cdbfl->len)); cdb_free(cdbfl); } else { if (floor_num == 0) { safestrncpy(flbuf->f_name, "Main Floor", sizeof flbuf->f_name); flbuf->f_flags = F_INUSE; flbuf->f_ref_count = 3; } } } /* * lgetfloor() - same as CtdlGetFloor() but locks the record (if supported) */ void lgetfloor(struct floor *flbuf, int floor_num) { begin_critical_section(S_FLOORTAB); CtdlGetFloor(flbuf, floor_num); } /* * CtdlGetCachedFloor() - Get floor record from *cache* (loads from disk if needed) * * This is strictly a performance hack. */ struct floor *CtdlGetCachedFloor(int floor_num) { static int initialized = 0; int i; int fetch_new = 0; struct floor *fl = NULL; begin_critical_section(S_FLOORCACHE); if (initialized == 0) { for (i=0; iptr, ((cdbqr->len > sizeof(struct ctdlroom)) ? sizeof(struct ctdlroom) : cdbqr->len) ); cdb_free(cdbqr); room_sanity_check(&qrbuf); if (qrbuf.QRflags & QR_INUSE) { CB(&qrbuf, in_data); } } } /* * Iterate through the room table, performing a callback for each room that has a netconfig entry. */ void CtdlForEachNetCfgRoom(ForEachRoomNetCfgCallBack CB, void *in_data) { struct ctdlroom qrbuf; struct cdbdata *cdbqr; cdb_rewind(CDB_ROOMS); while (cdbqr = cdb_next_item(CDB_ROOMS), cdbqr != NULL) { memset(&qrbuf, 0, sizeof(struct ctdlroom)); memcpy(&qrbuf, cdbqr->ptr, ((cdbqr->len > sizeof(struct ctdlroom)) ? sizeof(struct ctdlroom) : cdbqr->len)); cdb_free(cdbqr); room_sanity_check(&qrbuf); if (qrbuf.QRflags & QR_INUSE) { OneRoomNetCfg *RNCfg; RNCfg = CtdlGetNetCfgForRoom(qrbuf.QRnumber); if (RNCfg != NULL) { CB(&qrbuf, in_data, RNCfg); FreeRoomNetworkStruct(&RNCfg); } } } } /* * delete_msglist() - delete room message pointers */ void delete_msglist(struct ctdlroom *whichroom) { struct cdbdata *cdbml; /* Make sure the msglist we're deleting actually exists, otherwise * libdb will complain when we try to delete an invalid record */ cdbml = cdb_fetch(CDB_MSGLISTS, &whichroom->QRnumber, sizeof(long)); if (cdbml != NULL) { cdb_free(cdbml); /* Go ahead and delete it */ cdb_delete(CDB_MSGLISTS, &whichroom->QRnumber, sizeof(long)); } } /* * Message pointer compare function for sort_msglist() */ int sort_msglist_cmp(const void *m1, const void *m2) { if ((*(const long *)m1) > (*(const long *)m2)) return(1); if ((*(const long *)m1) < (*(const long *)m2)) return(-1); return(0); } /* * sort message pointers * (returns new msg count) */ int sort_msglist(long listptrs[], int oldcount) { int numitems; int i = 0; numitems = oldcount; if (numitems < 2) { return (oldcount); } /* do the sort */ qsort(listptrs, numitems, sizeof(long), sort_msglist_cmp); /* and yank any nulls */ while ((i < numitems) && (listptrs[i] == 0L)) i++; if (i > 0) { memmove(&listptrs[0], &listptrs[i], (sizeof(long) * (numitems - i))); numitems-=i; } return (numitems); } /* * Determine whether a given room is non-editable. */ int CtdlIsNonEditable(struct ctdlroom *qrbuf) { /* Mail> rooms are non-editable */ if ( (qrbuf->QRflags & QR_MAILBOX) && (!strcasecmp(&qrbuf->QRname[11], MAILROOM)) ) return (1); /* Everything else is editable */ return (0); } /* * Make the specified room the current room for this session. No validation * or access control is done here -- the caller should make sure that the * specified room exists and is ok to access. */ void CtdlUserGoto(char *where, int display_result, int transiently, int *retmsgs, int *retnew, long *retoldest, long *retnewest) { struct CitContext *CCC = CC; int a; int new_messages = 0; int old_messages = 0; int total_messages = 0; long oldest_message = 0; long newest_message = 0; int info = 0; int rmailflag; int raideflag; int newmailcount = 0; visit vbuf; char truncated_roomname[ROOMNAMELEN]; struct cdbdata *cdbfr; long *msglist = NULL; int num_msgs = 0; unsigned int original_v_flags; int num_sets; int s; char setstr[128], lostr[64], histr[64]; long lo, hi; int is_trash = 0; /* If the supplied room name is NULL, the caller wants us to know that * it has already copied the room record into CC->room, so * we can skip the extra database fetch. */ if (where != NULL) { safestrncpy(CCC->room.QRname, where, sizeof CCC->room.QRname); CtdlGetRoom(&CCC->room, where); } /* Take care of all the formalities. */ begin_critical_section(S_USERS); CtdlGetRelationship(&vbuf, &CCC->user, &CCC->room); original_v_flags = vbuf.v_flags; /* Know the room ... but not if it's the page log room, or if the * caller specified that we're only entering this room transiently. */ if ((strcasecmp(CCC->room.QRname, CtdlGetConfigStr("c_logpages"))) && (transiently == 0)) { vbuf.v_flags = vbuf.v_flags & ~V_FORGET & ~V_LOCKOUT; vbuf.v_flags = vbuf.v_flags | V_ACCESS; } /* Only rewrite the database record if we changed something */ if (vbuf.v_flags != original_v_flags) { CtdlSetRelationship(&vbuf, &CCC->user, &CCC->room); } end_critical_section(S_USERS); /* Check for new mail */ newmailcount = NewMailCount(); /* Set info to 1 if the room banner is new since our last visit. * Some clients only want to display it when it changes. */ if (CCC->room.msgnum_info > vbuf.v_lastseen) { info = 1; } cdbfr = cdb_fetch(CDB_MSGLISTS, &CCC->room.QRnumber, sizeof(long)); if (cdbfr != NULL) { msglist = (long *) cdbfr->ptr; cdbfr->ptr = NULL; /* CtdlUserGoto() now owns this memory */ num_msgs = cdbfr->len / sizeof(long); cdb_free(cdbfr); } total_messages = 0; for (a=0; a 0L) ++total_messages; } if (total_messages > 0) { oldest_message = msglist[0]; newest_message = msglist[num_msgs - 1]; } num_sets = num_tokens(vbuf.v_seen, ','); for (s=0; s= 2) { extract_token(histr, setstr, 1, ':', sizeof histr); if (!strcmp(histr, "*")) { snprintf(histr, sizeof histr, "%ld", LONG_MAX); } } else { strcpy(histr, lostr); } lo = atol(lostr); hi = atol(histr); for (a=0; a 0L) { if ((msglist[a] >= lo) && (msglist[a] <= hi)) { ++old_messages; msglist[a] = 0L; } } } new_messages = total_messages - old_messages; if (msglist != NULL) free(msglist); if (CCC->room.QRflags & QR_MAILBOX) rmailflag = 1; else rmailflag = 0; if ((CCC->room.QRroomaide == CCC->user.usernum) || (CCC->user.axlevel >= AxAideU)) raideflag = 1; else raideflag = 0; safestrncpy(truncated_roomname, CCC->room.QRname, sizeof truncated_roomname); if ( (CCC->room.QRflags & QR_MAILBOX) && (atol(CCC->room.QRname) == CCC->user.usernum) ) { safestrncpy(truncated_roomname, &truncated_roomname[11], sizeof truncated_roomname); } if (!strcasecmp(truncated_roomname, USERTRASHROOM)) { is_trash = 1; } if (retmsgs != NULL) *retmsgs = total_messages; if (retnew != NULL) *retnew = new_messages; if (retoldest != NULL) *retoldest = oldest_message; if (retnewest != NULL) *retnewest = newest_message; MSG_syslog(LOG_DEBUG, "<%s> %d new of %d total messages, oldest=%ld, newest=%ld", CCC->room.QRname, new_messages, total_messages, oldest_message, newest_message ); CCC->curr_view = (int)vbuf.v_view; if (display_result) { cprintf("%d%c%s|%d|%d|%d|%d|%ld|%ld|%d|%d|%d|%d|%d|%d|%d|%d|%ld|\n", CIT_OK, CtdlCheckExpress(), truncated_roomname, (int)new_messages, (int)total_messages, (int)info, (int)CCC->room.QRflags, (long)CCC->room.QRhighest, (long)vbuf.v_lastseen, (int)rmailflag, (int)raideflag, (int)newmailcount, (int)CCC->room.QRfloor, (int)vbuf.v_view, (int)CCC->room.QRdefaultview, (int)is_trash, (int)CCC->room.QRflags2, (long)CCC->room.QRmtime ); } } /* * Handle some of the macro named rooms */ void convert_room_name_macros(char *towhere, size_t maxlen) { if (!strcasecmp(towhere, "_BASEROOM_")) { safestrncpy(towhere, CtdlGetConfigStr("c_baseroom"), maxlen); } else if (!strcasecmp(towhere, "_MAIL_")) { safestrncpy(towhere, MAILROOM, maxlen); } else if (!strcasecmp(towhere, "_TRASH_")) { safestrncpy(towhere, USERTRASHROOM, maxlen); } else if (!strcasecmp(towhere, "_DRAFTS_")) { safestrncpy(towhere, USERDRAFTROOM, maxlen); } else if (!strcasecmp(towhere, "_BITBUCKET_")) { safestrncpy(towhere, CtdlGetConfigStr("c_twitroom"), maxlen); } else if (!strcasecmp(towhere, "_CALENDAR_")) { safestrncpy(towhere, USERCALENDARROOM, maxlen); } else if (!strcasecmp(towhere, "_TASKS_")) { safestrncpy(towhere, USERTASKSROOM, maxlen); } else if (!strcasecmp(towhere, "_CONTACTS_")) { safestrncpy(towhere, USERCONTACTSROOM, maxlen); } else if (!strcasecmp(towhere, "_NOTES_")) { safestrncpy(towhere, USERNOTESROOM, maxlen); } } /* * Back end function to rename a room. * You can also specify which floor to move the room to, or specify -1 to * keep the room on the same floor it was on. * * If you are renaming a mailbox room, you must supply the namespace prefix * in *at least* the old name! */ int CtdlRenameRoom(char *old_name, char *new_name, int new_floor) { struct CitContext *CCC = CC; int old_floor = 0; struct ctdlroom qrbuf; struct ctdlroom qrtmp; int ret = 0; struct floor *fl; struct floor flbuf; long owner = 0L; char actual_old_name[ROOMNAMELEN]; MSG_syslog(LOG_DEBUG, "CtdlRenameRoom(%s, %s, %d)", old_name, new_name, new_floor); if (new_floor >= 0) { fl = CtdlGetCachedFloor(new_floor); if ((fl->f_flags & F_INUSE) == 0) { return(crr_invalid_floor); } } begin_critical_section(S_ROOMS); if ( (CtdlGetRoom(&qrtmp, new_name) == 0) && (strcasecmp(new_name, old_name)) ) { ret = crr_already_exists; } else if (CtdlGetRoom(&qrbuf, old_name) != 0) { ret = crr_room_not_found; } else if ( (CCC->user.axlevel < AxAideU) && (!CCC->internal_pgm) && (CCC->user.usernum != qrbuf.QRroomaide) && ( (((qrbuf.QRflags & QR_MAILBOX) == 0) || (atol(qrbuf.QRname) != CCC->user.usernum))) ) { ret = crr_access_denied; } else if (CtdlIsNonEditable(&qrbuf)) { ret = crr_noneditable; } else { /* Rename it */ safestrncpy(actual_old_name, qrbuf.QRname, sizeof actual_old_name); if (qrbuf.QRflags & QR_MAILBOX) { owner = atol(qrbuf.QRname); } if ( (owner > 0L) && (atol(new_name) == 0L) ) { snprintf(qrbuf.QRname, sizeof(qrbuf.QRname), "%010ld.%s", owner, new_name); } else { safestrncpy(qrbuf.QRname, new_name, sizeof(qrbuf.QRname)); } /* Reject change of floor for baseroom/aideroom */ if (!strncasecmp(old_name, CtdlGetConfigStr("c_baseroom"), ROOMNAMELEN) || !strncasecmp(old_name, CtdlGetConfigStr("c_aideroom"), ROOMNAMELEN)) { new_floor = 0; } /* Take care of floor stuff */ old_floor = qrbuf.QRfloor; if (new_floor < 0) { new_floor = old_floor; } qrbuf.QRfloor = new_floor; CtdlPutRoom(&qrbuf); begin_critical_section(S_CONFIG); /* If baseroom/aideroom name changes, update config */ if (!strncasecmp(old_name, CtdlGetConfigStr("c_baseroom"), ROOMNAMELEN)) { CtdlSetConfigStr("c_baseroom", new_name); } if (!strncasecmp(old_name, CtdlGetConfigStr("c_aideroom"), ROOMNAMELEN)) { CtdlSetConfigStr("c_aideroom", new_name); } end_critical_section(S_CONFIG); /* If the room name changed, then there are now two room * records, so we have to delete the old one. */ if (strcasecmp(new_name, old_name)) { b_deleteroom(actual_old_name); } ret = crr_ok; } end_critical_section(S_ROOMS); /* Adjust the floor reference counts if necessary */ if (new_floor != old_floor) { lgetfloor(&flbuf, old_floor); --flbuf.f_ref_count; lputfloor(&flbuf, old_floor); MSG_syslog(LOG_DEBUG, "Reference count for floor %d is now %d", old_floor, flbuf.f_ref_count); lgetfloor(&flbuf, new_floor); ++flbuf.f_ref_count; lputfloor(&flbuf, new_floor); MSG_syslog(LOG_DEBUG, "Reference count for floor %d is now %d", new_floor, flbuf.f_ref_count); } /* ...and everybody say "YATTA!" */ return(ret); } /* * Asynchronously schedule a room for deletion. By placing the room into an invalid private namespace, * the room will appear deleted to the user(s), but the session doesn't need to block while waiting for * database operations to complete. Instead, the room gets purged when THE DREADED AUTO-PURGER makes * its next run. Aren't we so clever?!! */ void CtdlScheduleRoomForDeletion(struct ctdlroom *qrbuf) { char old_name[ROOMNAMELEN]; static int seq = 0; syslog(LOG_NOTICE, "Scheduling room <%s> for deletion", qrbuf->QRname); safestrncpy(old_name, qrbuf->QRname, sizeof old_name); CtdlGetRoom(qrbuf, qrbuf->QRname); /* Turn the room into a private mailbox owned by a user who doesn't * exist. This will immediately make the room invisible to everyone, * and qualify the room for purging. */ snprintf(qrbuf->QRname, sizeof qrbuf->QRname, "9999999999.%08lx.%04d.%s", time(NULL), ++seq, old_name ); qrbuf->QRflags |= QR_MAILBOX; time(&qrbuf->QRgen); /* Use a timestamp as the new generation number */ CtdlPutRoom(qrbuf); b_deleteroom(old_name); } /* * Back end processing to delete a room and everything associated with it * (This one is synchronous and should only get called by THE DREADED * AUTO-PURGER in serv_expire.c. All user-facing code should call * the asynchronous schedule_room_for_deletion() instead.) */ void CtdlDeleteRoom(struct ctdlroom *qrbuf) { struct floor flbuf; char configdbkeyname[25]; syslog(LOG_NOTICE, "Deleting room <%s>", qrbuf->QRname); /* Delete the room's network configdb entry */ netcfg_keyname(configdbkeyname, qrbuf->QRnumber); CtdlDelConfig(configdbkeyname); /* Delete the messages in the room * (Careful: this opens an S_ROOMS critical section!) */ CtdlDeleteMessages(qrbuf->QRname, NULL, 0, ""); /* Flag the room record as not in use */ CtdlGetRoomLock(qrbuf, qrbuf->QRname); qrbuf->QRflags = 0; CtdlPutRoomLock(qrbuf); /* then decrement the reference count for the floor */ lgetfloor(&flbuf, (int) (qrbuf->QRfloor)); flbuf.f_ref_count = flbuf.f_ref_count - 1; lputfloor(&flbuf, (int) (qrbuf->QRfloor)); /* Delete the room record from the database! */ b_deleteroom(qrbuf->QRname); } /* * Check access control for deleting a room */ int CtdlDoIHavePermissionToDeleteThisRoom(struct ctdlroom *qr) { if ((!(CC->logged_in)) && (!(CC->internal_pgm))) { return(0); } if (CtdlIsNonEditable(qr)) { return(0); } /* * For mailboxes, check stuff */ if (qr->QRflags & QR_MAILBOX) { if (strlen(qr->QRname) < 12) return(0); /* bad name */ if (atol(qr->QRname) != CC->user.usernum) { return(0); /* not my room */ } /* Can't delete your Mail> room */ if (!strcasecmp(&qr->QRname[11], MAILROOM)) return(0); /* Otherwise it's ok */ return(1); } /* * For normal rooms, just check for admin or room admin status. */ return(is_room_aide()); } /* * Internal code to create a new room (returns room flags) * * Room types: 0=public, 1=hidden, 2=passworded, 3=invitation-only, * 4=mailbox, 5=mailbox, but caller supplies namespace */ unsigned CtdlCreateRoom(char *new_room_name, int new_room_type, char *new_room_pass, int new_room_floor, int really_create, int avoid_access, int new_room_view) { struct ctdlroom qrbuf; struct floor flbuf; visit vbuf; MARK_syslog(LOG_DEBUG, "CtdlCreateRoom(name=%s, type=%d, view=%d)", new_room_name, new_room_type, new_room_view); if (CtdlGetRoom(&qrbuf, new_room_name) == 0) { MARK_syslog(LOG_DEBUG, "Cannot create room <%s> - already exists", new_room_name); return(0); } memset(&qrbuf, 0, sizeof(struct ctdlroom)); safestrncpy(qrbuf.QRpasswd, new_room_pass, sizeof qrbuf.QRpasswd); qrbuf.QRflags = QR_INUSE; if (new_room_type > 0) qrbuf.QRflags = (qrbuf.QRflags | QR_PRIVATE); if (new_room_type == 1) qrbuf.QRflags = (qrbuf.QRflags | QR_GUESSNAME); if (new_room_type == 2) qrbuf.QRflags = (qrbuf.QRflags | QR_PASSWORDED); if ( (new_room_type == 4) || (new_room_type == 5) ) { qrbuf.QRflags = (qrbuf.QRflags | QR_MAILBOX); /* qrbuf.QRflags2 |= QR2_SUBJECTREQ; */ } /* If the user is requesting a personal room, set up the room * name accordingly (prepend the user number) */ if (new_room_type == 4) { CtdlMailboxName(qrbuf.QRname, sizeof qrbuf.QRname, &CC->user, new_room_name); } else { safestrncpy(qrbuf.QRname, new_room_name, sizeof qrbuf.QRname); } /* If the room is private, and the system administrator has elected * to automatically grant room admin privileges, do so now. */ if ((qrbuf.QRflags & QR_PRIVATE) && (CREATAIDE == 1)) { qrbuf.QRroomaide = CC->user.usernum; } /* Blog owners automatically become room admins of their blogs. * (In the future we will offer a site-wide configuration setting to suppress this behavior.) */ else if (new_room_view == VIEW_BLOG) { qrbuf.QRroomaide = CC->user.usernum; } /* Otherwise, set the room admin to undefined. */ else { qrbuf.QRroomaide = (-1L); } /* * If the caller is only interested in testing whether this will work, * return now without creating the room. */ if (!really_create) return (qrbuf.QRflags); qrbuf.QRnumber = get_new_room_number(); qrbuf.QRhighest = 0L; /* No messages in this room yet */ time(&qrbuf.QRgen); /* Use a timestamp as the generation number */ qrbuf.QRfloor = new_room_floor; qrbuf.QRdefaultview = new_room_view; /* save what we just did... */ CtdlPutRoom(&qrbuf); /* bump the reference count on whatever floor the room is on */ lgetfloor(&flbuf, (int) qrbuf.QRfloor); flbuf.f_ref_count = flbuf.f_ref_count + 1; lputfloor(&flbuf, (int) qrbuf.QRfloor); /* Grant the creator access to the room unless the avoid_access * parameter was specified. */ if ( (CC->logged_in) && (avoid_access == 0) ) { CtdlGetRelationship(&vbuf, &CC->user, &qrbuf); vbuf.v_flags = vbuf.v_flags & ~V_FORGET & ~V_LOCKOUT; vbuf.v_flags = vbuf.v_flags | V_ACCESS; CtdlSetRelationship(&vbuf, &CC->user, &qrbuf); } /* resume our happy day */ return (qrbuf.QRflags); } citadel-902/room_ops.h000066400000000000000000000017701271512031400150020ustar00rootroot00000000000000int is_known (struct ctdlroom *roombuf, int roomnum, struct ctdluser *userbuf); int has_newmsgs (struct ctdlroom *roombuf, int roomnum, struct ctdluser *userbuf); int is_zapped (struct ctdlroom *roombuf, int roomnum, struct ctdluser *userbuf); void b_putroom(struct ctdlroom *qrbuf, char *room_name); void b_deleteroom(char *); void lgetfloor (struct floor *flbuf, int floor_num); void lputfloor (struct floor *flbuf, int floor_num); int sort_msglist (long int *listptrs, int oldcount); void list_roomname(struct ctdlroom *qrbuf, int ra, int current_view, int default_view); void convert_room_name_macros(char *towhere, size_t maxlen); typedef enum _POST_TYPE{ POST_LOGGED_IN, POST_EXTERNAL, CHECK_EXISTANCE, POST_LMTP }PostType; int CtdlDoIHavePermissionToPostInThisRoom(char *errmsgbuf, size_t n, const char* RemoteIdentifier, PostType PostPublic, int is_reply ); int CtdlDoIHavePermissionToDeleteMessagesFromThisRoom(void); int CtdlDoIHavePermissionToReadMessagesInThisRoom(void); citadel-902/scripts/000077500000000000000000000000001271512031400144565ustar00rootroot00000000000000citadel-902/scripts/dolcov.sh000077500000000000000000000011161271512031400163020ustar00rootroot00000000000000#!/bin/bash CITDIR=`pwd` OUTDIR=${CITDIR}/../../coverage/citadel ln -s parsedate.c y.tab.c # if we call citserver with ./citserver, we don't need these: #cd ${CITDIR}/utillib/; ln -s . utillib; cd .. #cd ${CITDIR}/modules #for i in *; do cd $CITDIR/modules/$i; ln -s . modules; ln -s . $i; ln -s ../../user_ops.h .; done cd ${CITDIR} mkdir -p ${OUTDIR} lcov --base-directory ${CITDIR} --directory . --capture --output-file ${OUTDIR}/citadel.info $@ genhtml --output-directory ${OUTDIR} ${OUTDIR}/citadel.info #exit #rm y.tab.c find -type l -exec rm {} \; rm -f .#user_ops.h.gcovcitadel-902/scripts/mk_module_init.sh000077500000000000000000000121151271512031400200140ustar00rootroot00000000000000#!/bin/sh # # Script to generate $C_FILE # ECHO=/usr/bin/printf SED=/bin/sed #MINUS_e=X`$ECHO -n -e` #if [ $MINUS_e != "X" ] ; then # MINUS_e="" #else # MINUS_e="-e" #fi #MINUS_E=X`$ECHO -n -E` #if [ $MINUS_E != "X" ] ; then # MINUS_E="" #else # MINUS_E="-E" #fi CUR_DIR=`pwd` C_FILE="$CUR_DIR/modules_init.c" H_FILE="$CUR_DIR/modules_init.h" MOD_FILE="$CUR_DIR/Make_modules" SRC_FILE="$CUR_DIR/Make_sources" U_FILE="$CUR_DIR/modules_upgrade.c" /usr/bin/printf "Scanning extension modules for entry points.\n" STATIC_FIRST_MODULES="control modules euidindex msgbase nttlist database" DYNAMIC_MODULES=`grep CTDL_MODULE_INIT modules/*/*.c |$SED 's;.*(\(.*\));\1;'` if test -d user_modules; then USER_MODULES=`grep CTDL_MODULE_INIT user_modules/*/*.c |$SED 's;.*(\(.*\));\1;'` else USER_MODULES= fi STATIC_LAST_MODULES="netconfig" ############################################################################### # start the c file # ############################################################################### cat <$C_FILE /* * $C_FILE * Auto generated by mk_modules_init.sh DO NOT EDIT THIS FILE */ #include "sysdep.h" #include #include #include #include #include #include #include #include "citadel.h" #include "modules_init.h" #include "sysdep_decls.h" #include "serv_extensions.h" void LogPrintMessages(long err); extern long DetailErrorFlags; void initialise_modules (int threading) { long filter; const char *pMod; if (threading) { MODM_syslog(LOG_DEBUG, "Initializing, CtdlThreads enabled.\n"); } else { MODM_syslog(LOG_INFO, "Initializing. CtdlThreads not yet enabled.\n"); } EOF for i in ${STATIC_FIRST_MODULES} ${DYNAMIC_MODULES} ${USER_MODULES} ${STATIC_LAST_MODULES}; do cat <> $C_FILE pMod = CTDL_INIT_CALL($i); MOD_syslog(LOG_DEBUG, "Loaded module: %s\n", pMod); EOF done cat <> $C_FILE for (filter = 1; filter != 0; filter = filter << 1) if ((filter & DetailErrorFlags) != 0) LogPrintMessages(filter); } EOF ############################################################################### # start the header file # ############################################################################### cat < $H_FILE /* * $H_FILE * Auto generated by mk_modules_init.sh DO NOT EDIT THIS FILE */ #ifndef MODULES_INIT_H #define MODULES_INIT_H #include "ctdl_module.h" extern size_t nSizErrmsg; void initialise_modules (int threading); void upgrade_modules(void); EOF for i in ${STATIC_FIRST_MODULES} ${DYNAMIC_MODULES} ${USER_MODULES} ${STATIC_LAST_MODULES}; do # Add this entry point to the .h file cat <> $H_FILE CTDL_MODULE_INIT($i); EOF done grep CTDL_MODULE_UPGRADE *.c modules/*/*.c |$SED 's;.*(\(.*\));\CTDL_MODULE_UPGRADE(\1)\;\n;' >> $H_FILE cat <> $H_FILE #endif /* MODULES_INIT_H */ EOF ############################################################################### # u start the Makefile included file for $SERV_MODULES # ############################################################################### cat <$MOD_FILE # # Make_modules # This file is to be included by Makefile to dynamically add modules to the build process # THIS FILE WAS AUTO GENERATED BY mk_modules_init.sh DO NOT EDIT THIS FILE # SERV_MODULES = \\ EOF echo modules/*/*.c | $SED -e "s;\.c ;.o \\\\\n;g" -e "s;\.c;.o;" >> $MOD_FILE echo >> $MOD_FILE ############################################################################### # start of the files which inturn removes any existing file # ############################################################################### # start the Makefile included file for $SOURCES cat <$SRC_FILE # # Make_sources # This file is to be included by Makefile to dynamically add modules to the build process # THIS FILE WAS AUTO GENERATED BY mk_modules_init.sh DO NOT EDIT THIS FILE # SOURCES = \\ EOF echo modules/*/*.c | $SED "s;\.c ;.c \\\\\n;g" >> $SRC_FILE echo >> $SRC_FILE ############################################################################### # start the upgrade file # ############################################################################### cat <$U_FILE /* * $U_FILE * Auto generated by mk_modules_init.sh DO NOT EDIT THIS FILE */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include "citadel.h" #include "modules_init.h" #include "sysdep_decls.h" #include "serv_extensions.h" void upgrade_modules (void) { const char *pMod; MODM_syslog(LOG_INFO, "Upgrade modules.\n"); EOF # Add this entry point to the .c file grep CTDL_MODULE_UPGRADE *.c modules/*/*.c |$SED 's;.*(\(.*\));\tpMod = CTDL_UPGRADE_CALL(\1)\;\n\tMOD_syslog(LOG_INFO, "%s\\n", pMod)\;\n;' >> $U_FILE #close the upgrade file /usr/bin/printf "}\n" >> $U_FILE citadel-902/scripts/mk_svn_revision.sh000077500000000000000000000026071271512031400202350ustar00rootroot00000000000000#!/bin/sh # # Script to generate svn_revision.c # ECHO=/usr/bin/printf SCRIPT_DIR=`dirname $0` SRC_DIR=`dirname $SCRIPT_DIR` CUR_DIR=`pwd` C_FILE="$CUR_DIR/svn_revision.c" H_FILE="$CUR_DIR/svn_revision.h" # determine if this code base came from subversion. if test -d $SRC_DIR/.svn ; then echo "have subversion repository" SVNVERSION=`which svnversion` if test -x $SVNVERSION ; then echo "have svnversion at $SVNVERSION" BUILD=`svnversion -n .` echo "This code base svn-revision: $BUILD" CAN_BUILD_SVN_REVISION="yes" fi else if test -d $SRC_DIR/../.git ; then echo "have Git repository." BUILD=`/usr/bin/git log -1 --pretty=%h . ` echo "This code base git-revision: $BUILD" CAN_BUILD_SVN_REVISION="yes" else if test -f $C_FILE; then exit fi fi fi if [ "$CAN_BUILD_SVN_REVISION" = "yes" ] ; then cat < $C_FILE /* * Subversion / GIT revision functions * * Autogenerated at make/release time * * Do not modify this file * */ const char *svn_revision (void) { const char *SVN_Version = "$BUILD"; return SVN_Version; } EOF elif test ! -f $C_FILE ; then cat < $C_FILE /* * Subversion / GIT revision functions * * Autogenerated at make time * * There should have been one with your source distribution * * Do not modify this file * */ const char *svn_revision (void) { const char *SVN_Version = "(unknown)"; return SVN_Version; } EOF fi citadel-902/scripts/valgrind_suspressions.txt000066400000000000000000000077041271512031400216750ustar00rootroot00000000000000{ blargtest ion_name_here Memcheck:Cond obj:/lib/libc-2.11.2.so fun:ERR_load_ERR_strings fun:ERR_load_crypto_strings fun:SSL_load_error_strings fun:init_ssl fun:init_sysdep fun:main } { Memcheck:Value8 obj:/lib/libc-2.11.2.so fun:ERR_load_ERR_strings fun:ERR_load_crypto_strings fun:SSL_load_error_strings fun:init_ssl fun:init_sysdep fun:main } { Memcheck:Cond fun:__GI_strlen obj:/usr/lib/libcrypto.so.0.9.8 fun:BIO_gets fun:PEM_read_bio fun:PEM_bytes_read_bio fun:PEM_ASN1_read_bio fun:SSL_CTX_use_certificate_chain_file fun:init_ssl fun:init_sysdep fun:main } { Memcheck:Cond fun:PEM_read_bio fun:PEM_bytes_read_bio fun:PEM_ASN1_read_bio fun:SSL_CTX_use_certificate_chain_file fun:init_ssl fun:init_sysdep fun:main } { some openssl initializationshit Memcheck:Cond ... fun:SSL_load_error_strings fun:init_ssl fun:init_sysdep fun:main } { some openssl shit Memcheck:Value8 ... fun:SSL_load_error_strings fun:init_ssl fun:init_sysdep fun:main } # obj:/lib/libc-* { more openssl library shit Memcheck:Leak ... fun:SSL_library_init fun:init_ssl fun:init_sysdep fun:main } { more openssl library shit Memcheck:Cond ... fun:SSL_CTX_use_certificate_chain_file fun:init_ssl fun:init_sysdep fun:main } { more openssl library shit Memcheck:Cond ... fun:SSL_CTX_use_PrivateKey_file fun:init_ssl fun:init_sysdep fun:main } { more openssl library shit Memcheck:Value8 ... fun:SSL_CTX_use_PrivateKey_file fun:init_ssl fun:init_sysdep fun:main } { Memcheck:Value8 ... fun:SSL_CTX_use_certificate_chain_file fun:init_ssl fun:init_sysdep fun:main } { Memcheck:Cond ... fun:_dl_start obj:/lib/ld-2.11.2.so obj:* obj:* obj:* } { Memcheck:Cond ... fun:dl_main fun:_dl_sysdep_start fun:_dl_start obj:/lib/ld-2.11.2.so obj:* obj:* } { Memcheck:Addr8 ... fun:__env_open fun:open_databases fun:master_startup fun:main } { Memcheck:Cond ... fun:__env_open fun:open_databases fun:master_startup fun:main } { Memcheck:Value8 ... fun:__env_open fun:open_databases fun:master_startup fun:main } { Memcheck:Value8 ... fun:__env_open fun:open_databases fun:master_startup } { Memcheck:Cond ... fun:__db_open_pp fun:open_databases fun:master_startup fun:main } { Memcheck:Cond ... fun:__env_open fun:open_databases fun:master_startup } { Memcheck:Value8 ... fun:__db_open_pp fun:open_databases fun:master_startup fun:main } { Memcheck:Value8 ... fun:__db_open_pp fun:open_databases fun:master_startup fun:main } { Memcheck:Cond ... fun:__db_open_pp fun:open_databases } { Memcheck:Value8 ... fun:__db_open_pp fun:open_databases fun:master_startup } { Memcheck:Value8 ... fun:__db_open_pp fun:open_databases } { Memcheck:Value8 fun:CtdlRegisterServiceHook ... } { Memcheck:Cond fun:__GI_strlen fun:CtdlRegisterServiceHook ... } # close { Memcheck:Cond ... fun:close_databases fun:master_cleanup fun:main } citadel-902/sendwelcomemail.sh000066400000000000000000000012551271512031400164760ustar00rootroot00000000000000#!/bin/bash export FOO=2600908b3f21ae7f692b973ed26e212d export WELCOMEHTML=welcomemail.html export WELCOMETXT=welcomemail.txt export FROM=nobody@example.com export TO=room_lobby ( printf "MIME-Version: 1.0\r\nContent-Type: multipart/alternative; \r\n boundary=$FOO\r\n\r\nThis is a multi-part message in MIME format.\r\n\r\n--$FOO\r\nContent-Type: text/plain; charset=utf-8\r\nContent-Transfer-Encoding: quoted-printable\r\n\r\n"; cat $WELCOMETXT printf "\r\n\r\n--$FOO\r\nContent-Type: text/html; charset=US-ASCII\r\nContent-Transfer-Encoding: quoted-printable\r\n\r\n" cat $WELCOMEHTML; printf "\r\n\r\n--$FOO--\r\n\r\n") | \ citmail -bm -r "$FROM" "$TO" citadel-902/serv_extensions.c000066400000000000000000001022631271512031400163750ustar00rootroot00000000000000/* * Citadel Extension Loader * Written by Brian Costello * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include #include "sysdep_decls.h" #include "modules/crypto/serv_crypto.h" /* Needed until a universal crypto startup hook is implimented for CtdlStartTLS */ #include "serv_extensions.h" #include "ctdl_module.h" #include "config.h" int DebugModules = 0; int EnableMarkers = 0; int EnableCtlProto = 0; /* * Structure defentitions for hook tables */ HashList *LogDebugEntryTable = NULL; typedef struct LogFunctionHook LogFunctionHook; struct LogFunctionHook { LogFunctionHook *next; int loglevel; void (*h_function_pointer) (char *); }; LogFunctionHook *LogHookTable = NULL; typedef struct FixedOutputHook FixedOutputHook; struct FixedOutputHook { FixedOutputHook *next; char content_type[64]; void (*h_function_pointer) (char *, int); }; FixedOutputHook *FixedOutputTable = NULL; /* * TDAPVetoHookFunctionHook extensions are used for any type of hook for which * may prevent the autopurger to run for this specific data class. * the function should at least LOG_INFO that it does so. */ typedef struct TDAPVetoHookFunctionHook TDAPVetoHookFunctionHook; struct TDAPVetoHookFunctionHook { TDAPVetoHookFunctionHook *next; int Priority; int (*h_function_pointer) (StrBuf *); int eventtype; }; TDAPVetoHookFunctionHook *TDAPVetoHookTable = NULL; /* * SessionFunctionHook extensions are used for any type of hook for which * the context in which it's being called (which is determined by the event * type) will make it obvious for the hook function to know where to look for * pertinent data. */ typedef struct SessionFunctionHook SessionFunctionHook; struct SessionFunctionHook { SessionFunctionHook *next; int Priority; void (*h_function_pointer) (void); int eventtype; }; SessionFunctionHook *SessionHookTable = NULL; /* * UserFunctionHook extensions are used for any type of hook which implements * an operation on a user or username (potentially) other than the one * operating the current session. */ typedef struct UserFunctionHook UserFunctionHook; struct UserFunctionHook { UserFunctionHook *next; void (*h_function_pointer) (struct ctdluser *usbuf); int eventtype; }; UserFunctionHook *UserHookTable = NULL; /* * MessageFunctionHook extensions are used for hooks which implement handlers * for various types of message operations (save, read, etc.) */ typedef struct MessageFunctionHook MessageFunctionHook; struct MessageFunctionHook { MessageFunctionHook *next; int (*h_function_pointer) (struct CtdlMessage *msg, recptypes *recps); int eventtype; }; MessageFunctionHook *MessageHookTable = NULL; /* * NetprocFunctionHook extensions are used for hooks which implement handlers * for incoming network messages. */ typedef struct NetprocFunctionHook NetprocFunctionHook; struct NetprocFunctionHook { NetprocFunctionHook *next; int (*h_function_pointer) (struct CtdlMessage *msg, char *target_room); }; NetprocFunctionHook *NetprocHookTable = NULL; /* * DeleteFunctionHook extensions are used for hooks which get called when a * message is about to be deleted. */ typedef struct DeleteFunctionHook DeleteFunctionHook; struct DeleteFunctionHook { DeleteFunctionHook *next; void (*h_function_pointer) (char *target_room, long msgnum); }; DeleteFunctionHook *DeleteHookTable = NULL; /* * ExpressMessageFunctionHook extensions are used for hooks which implement * the sending of an instant message through various channels. Any function * registered should return the number of recipients to whom the message was * successfully transmitted. */ typedef struct XmsgFunctionHook XmsgFunctionHook; struct XmsgFunctionHook { XmsgFunctionHook *next; int (*h_function_pointer) (char *, char *, char *, char *); int order; }; XmsgFunctionHook *XmsgHookTable = NULL; /* * RoomFunctionHook extensions are used for hooks which impliment room * processing functions when new messages are added EG. SIEVE. */ typedef struct RoomFunctionHook RoomFunctionHook; struct RoomFunctionHook { RoomFunctionHook *next; int (*fcn_ptr) (struct ctdlroom *); }; RoomFunctionHook *RoomHookTable = NULL; typedef struct SearchFunctionHook SearchFunctionHook; struct SearchFunctionHook { SearchFunctionHook *next; void (*fcn_ptr) (int *, long **, const char *); char *name; }; SearchFunctionHook *SearchFunctionHookTable = NULL; CleanupFunctionHook *CleanupHookTable = NULL; CleanupFunctionHook *EVCleanupHookTable = NULL; ServiceFunctionHook *ServiceHookTable = NULL; typedef struct ProtoFunctionHook ProtoFunctionHook; struct ProtoFunctionHook { void (*handler) (char *cmdbuf); const char *cmd; const char *desc; }; HashList *ProtoHookList = NULL; #define ERR_PORT (1 << 1) static StrBuf *portlist = NULL; static StrBuf *errormessages = NULL; long DetailErrorFlags; ConstStr Empty = {HKEY("")}; char *ErrSubject = "Startup Problems"; ConstStr ErrGeneral[] = { {HKEY("Citadel had trouble on starting up. ")}, {HKEY(" This means, citadel won't be the service provider for a specific service you configured it to.\n\n" "If you don't want citadel to provide these services, turn them off in WebCit via: ")}, {HKEY("To make both ways actualy take place restart the citserver with \"sendcommand down\"\n\n" "The errors returned by the system were:\n")}, {HKEY("You can recheck the above if you follow this faq item:\n" "http://www.citadel.org/doku.php?id=faq:mastering_your_os:net#netstat")} }; ConstStr ErrPortShort = { HKEY("We couldn't bind all ports you configured to be provided by citadel server.\n")}; ConstStr ErrPortWhere = { HKEY("\"Admin->System Preferences->Network\".\n\nThe failed ports and sockets are: ")}; ConstStr ErrPortHint = { HKEY("If you want citadel to provide you with that functionality, " "check the output of \"netstat -lnp\" on linux Servers or \"netstat -na\" on *BSD" " and stop the program that binds these ports.\n You should eventually remove " " their initscripts in /etc/init.d so that you won't get this trouble once more.\n" " After that goto \"Administration -> Shutdown Citadel\" to make Citadel restart & retry to bind this port.\n")}; void LogPrintMessages(long err) { StrBuf *Message; StrBuf *List, *DetailList; ConstStr *Short, *Where, *Hint; Message = NewStrBufPlain(NULL, StrLength(portlist) + StrLength(errormessages)); DetailErrorFlags = DetailErrorFlags & ~err; switch (err) { case ERR_PORT: Short = &ErrPortShort; Where = &ErrPortWhere; Hint = &ErrPortHint; List = portlist; DetailList = errormessages; break; default: Short = &Empty; Where = &Empty; Hint = &Empty; List = NULL; DetailList = NULL; } StrBufAppendBufPlain(Message, CKEY(ErrGeneral[0]), 0); StrBufAppendBufPlain(Message, CKEY(*Short), 0); StrBufAppendBufPlain(Message, CKEY(ErrGeneral[1]), 0); StrBufAppendBufPlain(Message, CKEY(*Where), 0); StrBufAppendBuf(Message, List, 0); StrBufAppendBufPlain(Message, HKEY("\n\n"), 0); StrBufAppendBufPlain(Message, CKEY(*Hint), 0); StrBufAppendBufPlain(Message, HKEY("\n\n"), 0); StrBufAppendBufPlain(Message, CKEY(ErrGeneral[2]), 0); StrBufAppendBuf(Message, DetailList, 0); StrBufAppendBufPlain(Message, HKEY("\n\n"), 0); StrBufAppendBufPlain(Message, CKEY(ErrGeneral[3]), 0); MOD_syslog(LOG_EMERG, "%s", ChrPtr(Message)); MOD_syslog(LOG_EMERG, "%s", ErrSubject); quickie_message("Citadel", NULL, NULL, AIDEROOM, ChrPtr(Message), FMT_FIXED, ErrSubject); FreeStrBuf(&Message); FreeStrBuf(&List); FreeStrBuf(&DetailList); } void AddPortError(char *Port, char *ErrorMessage) { long len; DetailErrorFlags |= ERR_PORT; len = StrLength(errormessages); if (len > 0) StrBufAppendBufPlain(errormessages, HKEY("; "), 0); else errormessages = NewStrBuf(); StrBufAppendBufPlain(errormessages, ErrorMessage, -1, 0); len = StrLength(portlist); if (len > 0) StrBufAppendBufPlain(portlist, HKEY(";"), 0); else portlist = NewStrBuf(); StrBufAppendBufPlain(portlist, Port, -1, 0); } int DLoader_Exec_Cmd(char *cmdbuf) { void *vP; ProtoFunctionHook *p; if (GetHash(ProtoHookList, cmdbuf, 4, &vP) && (vP != NULL)) { p = (ProtoFunctionHook*) vP; p->handler(&cmdbuf[5]); return 1; } return 0; } void CtdlRegisterDebugFlagHook(const char *Name, long Len, CtdlDbgFunction F, const int *LogP) { LogDebugEntry *E; if (LogDebugEntryTable == NULL) LogDebugEntryTable = NewHash(1, NULL); E = (LogDebugEntry*) malloc(sizeof(LogDebugEntry)); E->F = F; E->Name = Name; E->Len = Len; E->LogP = LogP; Put(LogDebugEntryTable, Name, Len, E, NULL); } void CtdlSetDebugLogFacilities(const char **Str, long n) { StrBuf *Token = NULL; StrBuf *Buf = NULL; const char *ch; int i; int DoAll = 0; void *vptr; for (i=0; i < n; i++){ if ((Str[i] != NULL) && !IsEmptyStr(Str[i])) { if (strcmp(Str[i], "all") == 0) { DoAll = 1; continue; } Buf = NewStrBufPlain(Str[i], -1); ch = NULL; if (Token == NULL) Token = NewStrBufPlain(NULL, StrLength(Buf)); while ((ch != StrBufNOTNULL) && StrBufExtract_NextToken(Token, Buf, &ch, ',')) { if (GetHash(LogDebugEntryTable, SKEY(Token), &vptr) && (vptr != NULL)) { LogDebugEntry *E = (LogDebugEntry*)vptr; E->F(1); } } } FreeStrBuf(&Buf); } FreeStrBuf(&Token); if (DoAll) { long HKLen; const char *ch; HashPos *Pos; Pos = GetNewHashPos(LogDebugEntryTable, 0); while (GetNextHashPos(LogDebugEntryTable, Pos, &HKLen, &ch, &vptr)) { LogDebugEntry *E = (LogDebugEntry*)vptr; E->F(1); } DeleteHashPos(&Pos); } } void CtdlDestroyDebugTable(void) { DeleteHash(&LogDebugEntryTable); } void CtdlRegisterProtoHook(void (*handler) (char *), char *cmd, char *desc) { ProtoFunctionHook *p; if (ProtoHookList == NULL) ProtoHookList = NewHash (1, FourHash); p = (ProtoFunctionHook *) malloc(sizeof(ProtoFunctionHook)); if (p == NULL) { fprintf(stderr, "can't malloc new ProtoFunctionHook\n"); exit(EXIT_FAILURE); } p->handler = handler; p->cmd = cmd; p->desc = desc; Put(ProtoHookList, cmd, 4, p, NULL); MOD_syslog(LOG_DEBUG, "Registered server command %s (%s)\n", cmd, desc); } void CtdlDestroyProtoHooks(void) { DeleteHash(&ProtoHookList); } void CtdlRegisterCleanupHook(void (*fcn_ptr) (void)) { CleanupFunctionHook *newfcn; newfcn = (CleanupFunctionHook *) malloc(sizeof(CleanupFunctionHook)); newfcn->next = CleanupHookTable; newfcn->h_function_pointer = fcn_ptr; CleanupHookTable = newfcn; MODM_syslog(LOG_DEBUG, "Registered a new cleanup function\n"); } void CtdlUnregisterCleanupHook(void (*fcn_ptr) (void)) { CleanupFunctionHook *cur, *p, *last; last = NULL; cur = CleanupHookTable; while (cur != NULL) { if (fcn_ptr == cur->h_function_pointer) { MODM_syslog(LOG_DEBUG, "Unregistered cleanup function\n"); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else CleanupHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyCleanupHooks(void) { CleanupFunctionHook *cur, *p; cur = CleanupHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed cleanup function\n"); p = cur->next; free(cur); cur = p; } CleanupHookTable = NULL; } void CtdlRegisterEVCleanupHook(void (*fcn_ptr) (void)) { CleanupFunctionHook *newfcn; newfcn = (CleanupFunctionHook *) malloc(sizeof(CleanupFunctionHook)); newfcn->next = EVCleanupHookTable; newfcn->h_function_pointer = fcn_ptr; EVCleanupHookTable = newfcn; MODM_syslog(LOG_DEBUG, "Registered a new cleanup function\n"); } void CtdlUnregisterEVCleanupHook(void (*fcn_ptr) (void)) { CleanupFunctionHook *cur, *p, *last; last = NULL; cur = EVCleanupHookTable; while (cur != NULL) { if (fcn_ptr == cur->h_function_pointer) { MODM_syslog(LOG_DEBUG, "Unregistered cleanup function\n"); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else EVCleanupHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyEVCleanupHooks(void) { CleanupFunctionHook *cur, *p; cur = EVCleanupHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed cleanup function\n"); p = cur->next; cur->h_function_pointer(); free(cur); cur = p; } EVCleanupHookTable = NULL; } void CtdlRegisterTDAPVetoHook(int (*fcn_ptr) (StrBuf*), int EventType, int Priority) { TDAPVetoHookFunctionHook *newfcn; newfcn = (TDAPVetoHookFunctionHook *) malloc(sizeof(TDAPVetoHookFunctionHook)); newfcn->Priority = Priority; newfcn->h_function_pointer = fcn_ptr; newfcn->eventtype = EventType; TDAPVetoHookFunctionHook **pfcn; pfcn = &TDAPVetoHookTable; while ((*pfcn != NULL) && ((*pfcn)->Priority < newfcn->Priority) && ((*pfcn)->next != NULL)) pfcn = &(*pfcn)->next; newfcn->next = *pfcn; *pfcn = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new TDAP Veto function (type %d Priority %d)\n", EventType, Priority); } void CtdlUnregisterTDAPVetoHook(int (*fcn_ptr) (StrBuf*), int EventType) { TDAPVetoHookFunctionHook *cur, *p, *last; last = NULL; cur = TDAPVetoHookTable; while (cur != NULL) { if ((fcn_ptr == cur->h_function_pointer) && (EventType == cur->eventtype)) { MOD_syslog(LOG_DEBUG, "Unregistered TDAP Veto function (type %d)\n", EventType); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else TDAPVetoHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyTDAPVetoHooks(void) { TDAPVetoHookFunctionHook *cur, *p; cur = TDAPVetoHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed TDAP Veto function\n"); p = cur->next; free(cur); cur = p; } TDAPVetoHookTable = NULL; } void CtdlRegisterSessionHook(void (*fcn_ptr) (void), int EventType, int Priority) { SessionFunctionHook *newfcn; newfcn = (SessionFunctionHook *) malloc(sizeof(SessionFunctionHook)); newfcn->Priority = Priority; newfcn->h_function_pointer = fcn_ptr; newfcn->eventtype = EventType; SessionFunctionHook **pfcn; pfcn = &SessionHookTable; while ((*pfcn != NULL) && ((*pfcn)->Priority < newfcn->Priority) && ((*pfcn)->next != NULL)) pfcn = &(*pfcn)->next; newfcn->next = *pfcn; *pfcn = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new session function (type %d Priority %d)\n", EventType, Priority); } void CtdlUnregisterSessionHook(void (*fcn_ptr) (void), int EventType) { SessionFunctionHook *cur, *p, *last; last = NULL; cur = SessionHookTable; while (cur != NULL) { if ((fcn_ptr == cur->h_function_pointer) && (EventType == cur->eventtype)) { MOD_syslog(LOG_DEBUG, "Unregistered session function (type %d)\n", EventType); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else SessionHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroySessionHooks(void) { SessionFunctionHook *cur, *p; cur = SessionHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed session function\n"); p = cur->next; free(cur); cur = p; } SessionHookTable = NULL; } void CtdlRegisterUserHook(void (*fcn_ptr) (ctdluser *), int EventType) { UserFunctionHook *newfcn; newfcn = (UserFunctionHook *) malloc(sizeof(UserFunctionHook)); newfcn->next = UserHookTable; newfcn->h_function_pointer = fcn_ptr; newfcn->eventtype = EventType; UserHookTable = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new user function (type %d)\n", EventType); } void CtdlUnregisterUserHook(void (*fcn_ptr) (struct ctdluser *), int EventType) { UserFunctionHook *cur, *p, *last; last = NULL; cur = UserHookTable; while (cur != NULL) { if ((fcn_ptr == cur->h_function_pointer) && (EventType == cur->eventtype)) { MOD_syslog(LOG_DEBUG, "Unregistered user function (type %d)\n", EventType); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else UserHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyUserHooks(void) { UserFunctionHook *cur, *p; cur = UserHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed user function \n"); p = cur->next; free(cur); cur = p; } UserHookTable = NULL; } void CtdlRegisterMessageHook(int (*handler)(struct CtdlMessage *, recptypes *), int EventType) { MessageFunctionHook *newfcn; newfcn = (MessageFunctionHook *) malloc(sizeof(MessageFunctionHook)); newfcn->next = MessageHookTable; newfcn->h_function_pointer = handler; newfcn->eventtype = EventType; MessageHookTable = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new message function (type %d)\n", EventType); } void CtdlUnregisterMessageHook(int (*handler)(struct CtdlMessage *, recptypes *), int EventType) { MessageFunctionHook *cur, *p, *last; last = NULL; cur = MessageHookTable; while (cur != NULL) { if ((handler == cur->h_function_pointer) && (EventType == cur->eventtype)) { MOD_syslog(LOG_DEBUG, "Unregistered message function (type %d)\n", EventType); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else MessageHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyMessageHook(void) { MessageFunctionHook *cur, *p; cur = MessageHookTable; while (cur != NULL) { MOD_syslog(LOG_DEBUG, "Destroyed message function (type %d)\n", cur->eventtype); p = cur->next; free(cur); cur = p; } MessageHookTable = NULL; } void CtdlRegisterRoomHook(int (*fcn_ptr)(struct ctdlroom *)) { RoomFunctionHook *newfcn; newfcn = (RoomFunctionHook *) malloc(sizeof(RoomFunctionHook)); newfcn->next = RoomHookTable; newfcn->fcn_ptr = fcn_ptr; RoomHookTable = newfcn; MODM_syslog(LOG_DEBUG, "Registered a new room function\n"); } void CtdlUnregisterRoomHook(int (*fcn_ptr)(struct ctdlroom *)) { RoomFunctionHook *cur, *p, *last; last = NULL; cur = RoomHookTable; while (cur != NULL) { if (fcn_ptr == cur->fcn_ptr) { MODM_syslog(LOG_DEBUG, "Unregistered room function\n"); p = cur->next; free(cur); cur = NULL; if (last != NULL) last->next = p; else RoomHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyRoomHooks(void) { RoomFunctionHook *cur, *p; cur = RoomHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed room function\n"); p = cur->next; free(cur); cur = p; } RoomHookTable = NULL; } void CtdlRegisterNetprocHook(int (*handler)(struct CtdlMessage *, char *) ) { NetprocFunctionHook *newfcn; newfcn = (NetprocFunctionHook *) malloc(sizeof(NetprocFunctionHook)); newfcn->next = NetprocHookTable; newfcn->h_function_pointer = handler; NetprocHookTable = newfcn; MODM_syslog(LOG_DEBUG, "Registered a new netproc function\n"); } void CtdlUnregisterNetprocHook(int (*handler)(struct CtdlMessage *, char *) ) { NetprocFunctionHook *cur, *p, *last; cur = NetprocHookTable; last = NULL; while (cur != NULL) { if (handler == cur->h_function_pointer) { MODM_syslog(LOG_DEBUG, "Unregistered netproc function\n"); p = cur->next; free(cur); if (last != NULL) { last->next = p; } else { NetprocHookTable = p; } cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyNetprocHooks(void) { NetprocFunctionHook *cur, *p; cur = NetprocHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed netproc function\n"); p = cur->next; free(cur); cur = p; } NetprocHookTable = NULL; } void CtdlRegisterDeleteHook(void (*handler)(char *, long) ) { DeleteFunctionHook *newfcn; newfcn = (DeleteFunctionHook *) malloc(sizeof(DeleteFunctionHook)); newfcn->next = DeleteHookTable; newfcn->h_function_pointer = handler; DeleteHookTable = newfcn; MODM_syslog(LOG_DEBUG, "Registered a new delete function\n"); } void CtdlUnregisterDeleteHook(void (*handler)(char *, long) ) { DeleteFunctionHook *cur, *p, *last; last = NULL; cur = DeleteHookTable; while (cur != NULL) { if (handler == cur->h_function_pointer ) { MODM_syslog(LOG_DEBUG, "Unregistered delete function\n"); p = cur->next; free(cur); if (last != NULL) last->next = p; else DeleteHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyDeleteHooks(void) { DeleteFunctionHook *cur, *p; cur = DeleteHookTable; while (cur != NULL) { MODM_syslog(LOG_DEBUG, "Destroyed delete function\n"); p = cur->next; free(cur); cur = p; } DeleteHookTable = NULL; } void CtdlRegisterFixedOutputHook(char *content_type, void (*handler)(char *, int) ) { FixedOutputHook *newfcn; newfcn = (FixedOutputHook *) malloc(sizeof(FixedOutputHook)); newfcn->next = FixedOutputTable; newfcn->h_function_pointer = handler; safestrncpy(newfcn->content_type, content_type, sizeof newfcn->content_type); FixedOutputTable = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new fixed output function for %s\n", newfcn->content_type); } void CtdlUnregisterFixedOutputHook(char *content_type) { FixedOutputHook *cur, *p, *last; last = NULL; cur = FixedOutputTable; while (cur != NULL) { /* This will also remove duplicates if any */ if (!strcasecmp(content_type, cur->content_type)) { MOD_syslog(LOG_DEBUG, "Unregistered fixed output function for %s\n", content_type); p = cur->next; free(cur); if (last != NULL) last->next = p; else FixedOutputTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyFixedOutputHooks(void) { FixedOutputHook *cur, *p; cur = FixedOutputTable; while (cur != NULL) { MOD_syslog(LOG_DEBUG, "Destroyed fixed output function for %s\n", cur->content_type); p = cur->next; free(cur); cur = p; } FixedOutputTable = NULL; } /* returns nonzero if we found a hook and used it */ int PerformFixedOutputHooks(char *content_type, char *content, int content_length) { FixedOutputHook *fcn; for (fcn = FixedOutputTable; fcn != NULL; fcn = fcn->next) { if (!strcasecmp(content_type, fcn->content_type)) { (*fcn->h_function_pointer) (content, content_length); return(1); } } return(0); } void CtdlRegisterXmsgHook(int (*fcn_ptr) (char *, char *, char *, char *), int order) { XmsgFunctionHook *newfcn; newfcn = (XmsgFunctionHook *) malloc(sizeof(XmsgFunctionHook)); newfcn->next = XmsgHookTable; newfcn->order = order; newfcn->h_function_pointer = fcn_ptr; XmsgHookTable = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new x-msg function (priority %d)\n", order); } void CtdlUnregisterXmsgHook(int (*fcn_ptr) (char *, char *, char *, char *), int order) { XmsgFunctionHook *cur, *p, *last; last = NULL; cur = XmsgHookTable; while (cur != NULL) { /* This will also remove duplicates if any */ if (fcn_ptr == cur->h_function_pointer && order == cur->order) { MOD_syslog(LOG_DEBUG, "Unregistered x-msg function " "(priority %d)\n", order); p = cur->next; free(cur); if (last != NULL) last->next = p; else XmsgHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroyXmsgHooks(void) { XmsgFunctionHook *cur, *p; cur = XmsgHookTable; while (cur != NULL) { MOD_syslog(LOG_DEBUG, "Destroyed x-msg function " "(priority %d)\n", cur->order); p = cur->next; free(cur); cur = p; } XmsgHookTable = NULL; } void CtdlRegisterServiceHook(int tcp_port, char *sockpath, void (*h_greeting_function) (void), void (*h_command_function) (void), void (*h_async_function) (void), const char *ServiceName) { ServiceFunctionHook *newfcn; char *message; char error[SIZ]; strcpy(error, ""); newfcn = (ServiceFunctionHook *) malloc(sizeof(ServiceFunctionHook)); message = (char*) malloc (SIZ + SIZ); newfcn->next = ServiceHookTable; newfcn->tcp_port = tcp_port; newfcn->sockpath = sockpath; newfcn->h_greeting_function = h_greeting_function; newfcn->h_command_function = h_command_function; newfcn->h_async_function = h_async_function; newfcn->ServiceName = ServiceName; if (sockpath != NULL) { newfcn->msock = ctdl_uds_server(sockpath, CtdlGetConfigInt("c_maxsessions"), error); snprintf(message, SIZ, "Unix domain socket '%s': ", sockpath); } else if (tcp_port <= 0) { /* port -1 to disable */ MOD_syslog(LOG_INFO, "Service %s has been manually disabled, skipping\n", ServiceName); free (message); free(newfcn); return; } else { newfcn->msock = ctdl_tcp_server(CtdlGetConfigStr("c_ip_addr"), tcp_port, CtdlGetConfigInt("c_maxsessions"), error); snprintf(message, SIZ, "TCP port %s:%d: (%s) ", CtdlGetConfigStr("c_ip_addr"), tcp_port, ServiceName); } if (newfcn->msock > 0) { ServiceHookTable = newfcn; strcat(message, "registered."); MOD_syslog(LOG_INFO, "%s\n", message); } else { AddPortError(message, error); strcat(message, "FAILED."); MOD_syslog(LOG_CRIT, "%s\n", message); free(newfcn); } free(message); } void CtdlUnregisterServiceHook(int tcp_port, char *sockpath, void (*h_greeting_function) (void), void (*h_command_function) (void), void (*h_async_function) (void) ) { ServiceFunctionHook *cur, *p, *last; last = NULL; cur = ServiceHookTable; while (cur != NULL) { /* This will also remove duplicates if any */ if (h_greeting_function == cur->h_greeting_function && h_command_function == cur->h_command_function && h_async_function == cur->h_async_function && tcp_port == cur->tcp_port && !(sockpath && cur->sockpath && strcmp(sockpath, cur->sockpath)) ) { if (cur->msock > 0) close(cur->msock); if (sockpath) { MOD_syslog(LOG_INFO, "Closed UNIX domain socket %s\n", sockpath); unlink(sockpath); } else if (tcp_port) { MOD_syslog(LOG_INFO, "Closed TCP port %d\n", tcp_port); } else { MOD_syslog(LOG_INFO, "Unregistered service \"%s\"\n", cur->ServiceName); } p = cur->next; free(cur); if (last != NULL) last->next = p; else ServiceHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlShutdownServiceHooks(void) { /* sort of a duplicate of close_masters() but called earlier */ ServiceFunctionHook *cur; cur = ServiceHookTable; while (cur != NULL) { if (cur->msock != -1) { close(cur->msock); cur->msock = -1; if (cur->sockpath != NULL){ MOD_syslog(LOG_INFO, "[%s] Closed UNIX domain socket %s\n", cur->ServiceName, cur->sockpath); unlink(cur->sockpath); } else { MOD_syslog(LOG_INFO, "[%s] closing service\n", cur->ServiceName); } } cur = cur->next; } } void CtdlDestroyServiceHook(void) { const char *Text; ServiceFunctionHook *cur, *p; cur = ServiceHookTable; while (cur != NULL) { if (cur->msock != -1) { close(cur->msock); Text = "Closed"; } else { Text = " Not closing again"; } if (cur->sockpath) { MOD_syslog(LOG_INFO, "%s UNIX domain socket %s\n", Text, cur->sockpath); unlink(cur->sockpath); } else if (cur->tcp_port) { MOD_syslog(LOG_INFO, "%s TCP port %d\n", Text, cur->tcp_port); } else { MOD_syslog(LOG_INFO, "Destroyed service \"%s\"\n", cur->ServiceName); } p = cur->next; free(cur); cur = p; } ServiceHookTable = NULL; } void CtdlRegisterSearchFuncHook(void (*fcn_ptr)(int *, long **, const char *), char *name) { SearchFunctionHook *newfcn; if (!name || !fcn_ptr) { return; } newfcn = (SearchFunctionHook *) malloc(sizeof(SearchFunctionHook)); newfcn->next = SearchFunctionHookTable; newfcn->name = name; newfcn->fcn_ptr = fcn_ptr; SearchFunctionHookTable = newfcn; MOD_syslog(LOG_DEBUG, "Registered a new search function (%s)\n", name); } void CtdlUnregisterSearchFuncHook(void (*fcn_ptr)(int *, long **, const char *), char *name) { SearchFunctionHook *cur, *p, *last; last = NULL; cur = SearchFunctionHookTable; while (cur != NULL) { if (fcn_ptr && (cur->fcn_ptr == fcn_ptr) && name && !strcmp(name, cur->name)) { MOD_syslog(LOG_DEBUG, "Unregistered search function(%s)\n", name); p = cur->next; free (cur); if (last != NULL) last->next = p; else SearchFunctionHookTable = p; cur = p; } else { last = cur; cur = cur->next; } } } void CtdlDestroySearchHooks(void) { SearchFunctionHook *cur, *p; cur = SearchFunctionHookTable; SearchFunctionHookTable = NULL; while (cur != NULL) { p = cur->next; free(cur); cur = p; } } void CtdlModuleDoSearch(int *num_msgs, long **search_msgs, const char *search_string, const char *func_name) { SearchFunctionHook *fcn = NULL; for (fcn = SearchFunctionHookTable; fcn != NULL; fcn = fcn->next) { if (!func_name || !strcmp(func_name, fcn->name)) { (*fcn->fcn_ptr) (num_msgs, search_msgs, search_string); return; } } *num_msgs = 0; } int CheckTDAPVeto (int DBType, StrBuf *ErrMsg) { int Result = 0; TDAPVetoHookFunctionHook *fcn = NULL; for (fcn = TDAPVetoHookTable; (fcn != NULL) && (Result == 0); fcn = fcn->next) { if (fcn->eventtype == DBType) { Result = (*fcn->h_function_pointer) (ErrMsg); } } return Result; } void PerformSessionHooks(int EventType) { SessionFunctionHook *fcn = NULL; for (fcn = SessionHookTable; fcn != NULL; fcn = fcn->next) { if (fcn->eventtype == EventType) { if (EventType == EVT_TIMER) { pthread_setspecific(MyConKey, NULL); /* for every hook */ } (*fcn->h_function_pointer) (); } } } void PerformUserHooks(ctdluser *usbuf, int EventType) { UserFunctionHook *fcn = NULL; for (fcn = UserHookTable; fcn != NULL; fcn = fcn->next) { if (fcn->eventtype == EventType) { (*fcn->h_function_pointer) (usbuf); } } } int PerformMessageHooks(struct CtdlMessage *msg, recptypes *recps, int EventType) { MessageFunctionHook *fcn = NULL; int total_retval = 0; /* Other code may elect to protect this message from server-side * handlers; if this is the case, don't do anything. MOD_syslog(LOG_DEBUG, "** Event type is %d, flags are %d\n", EventType, msg->cm_flags); */ if (msg->cm_flags & CM_SKIP_HOOKS) { MODM_syslog(LOG_DEBUG, "Skipping hooks\n"); return(0); } /* Otherwise, run all the hooks appropriate to this event type. */ for (fcn = MessageHookTable; fcn != NULL; fcn = fcn->next) { if (fcn->eventtype == EventType) { total_retval = total_retval + (*fcn->h_function_pointer) (msg, recps); } } /* Return the sum of the return codes from the hook functions. If * this is an EVT_BEFORESAVE event, a nonzero return code will cause * the save operation to abort. */ return total_retval; } int PerformRoomHooks(struct ctdlroom *target_room) { RoomFunctionHook *fcn; int total_retval = 0; MOD_syslog(LOG_DEBUG, "Performing room hooks for <%s>\n", target_room->QRname); for (fcn = RoomHookTable; fcn != NULL; fcn = fcn->next) { total_retval = total_retval + (*fcn->fcn_ptr) (target_room); } /* Return the sum of the return codes from the hook functions. */ return total_retval; } int PerformNetprocHooks(struct CtdlMessage *msg, char *target_room) { NetprocFunctionHook *fcn; int total_retval = 0; for (fcn = NetprocHookTable; fcn != NULL; fcn = fcn->next) { total_retval = total_retval + (*fcn->h_function_pointer) (msg, target_room); } /* Return the sum of the return codes from the hook functions. * A nonzero return code will cause the message to *not* be imported. */ return total_retval; } void PerformDeleteHooks(char *room, long msgnum) { DeleteFunctionHook *fcn; for (fcn = DeleteHookTable; fcn != NULL; fcn = fcn->next) { (*fcn->h_function_pointer) (room, msgnum); } } int PerformXmsgHooks(char *sender, char *sender_email, char *recp, char *msg) { XmsgFunctionHook *fcn; int total_sent = 0; int p; for (p=0; pnext) { if (fcn->order == p) { total_sent += (*fcn->h_function_pointer) (sender, sender_email, recp, msg); } } /* Break out of the loop if a higher-priority function * successfully delivered the message. This prevents duplicate * deliveries to local users simultaneously signed onto * remote services. */ if (total_sent) break; } return total_sent; } /* * Dirty hack until we impliment a hook mechanism for this */ void CtdlModuleStartCryptoMsgs(char *ok_response, char *nosup_response, char *error_response) { #ifdef HAVE_OPENSSL CtdlStartTLS (ok_response, nosup_response, error_response); #endif } void DebugModulesEnable(const int n) { DebugModules = n; } void MarkersEnable(const int n) { EnableMarkers = n; } void DebugCitadelProtoEnable(const int n) { EnableCtlProto = n; } CTDL_MODULE_INIT(modules) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("modules"), DebugModulesEnable, &DebugModules); CtdlRegisterDebugFlagHook(HKEY("periodicmarkers"), MarkersEnable, &EnableMarkers); CtdlRegisterDebugFlagHook(HKEY("citadelprotocol"), DebugCitadelProtoEnable, &EnableCtlProto); } return "modules"; } citadel-902/serv_extensions.h000066400000000000000000000072251271512031400164040ustar00rootroot00000000000000 #ifndef SERV_EXTENSIONS_H #define SERV_EXTENSIONS_H #include "server.h" /* * This is where we declare all of the server extensions we have. * We'll probably start moving these to a more sane location in the near * future. For now, this just shuts up the compiler. */ //void serv_calendar_destroy(void); //char *serv_test_init(void); //char *serv_postfix_tcpdict(void); /* */ typedef void (*CtdlDbgFunction) (const int); extern int DebugModules; #define MDBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (DebugModules != 0)) #define MOD_syslog(LEVEL, FORMAT, ...) \ MDBGLOG(LEVEL) syslog(LEVEL, \ "%s Modules: " FORMAT, IOSTR, __VA_ARGS__) #define MODM_syslog(LEVEL, FORMAT) \ MDBGLOG(LEVEL) syslog(LEVEL, \ "%s Modules: " FORMAT, IOSTR); extern int EnableMarkers; #define MARKLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (EnableMarkers != 0)) #define MARK_syslog(LEVEL, FORMAT, ...) \ MARKLOG(LEVEL) syslog(LEVEL, \ "%s: " FORMAT, IOSTR, __VA_ARGS__) #define MARKM_syslog(LEVEL, FORMAT) \ MARKLOG(LEVEL) syslog(LEVEL, \ "%s: " FORMAT, IOSTR); extern int EnableCtlProto; #define CTDLLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (EnableCtlProto != 0)) #define CTDL_syslog(LEVEL, FORMAT, ...) \ CTDLLOG(LEVEL) syslog(LEVEL, \ "%s CC[%d]: " FORMAT, IOSTR, CCCID, __VA_ARGS__) #define CTDLM_syslog(LEVEL, FORMAT) \ CTDLLOG(LEVEL) syslog(LEVEL, \ "%s CC[%d]: " FORMAT, IOSTR, CCCID); /* * ServiceFunctionHook extensions are used for hooks which implement various * protocols (either on TCP or on unix domain sockets) directly in the Citadel server. */ typedef struct ServiceFunctionHook ServiceFunctionHook; struct ServiceFunctionHook { ServiceFunctionHook *next; int tcp_port; char *sockpath; void (*h_greeting_function) (void) ; void (*h_command_function) (void) ; void (*h_async_function) (void) ; int msock; const char* ServiceName; /* this is just for debugging and logging purposes. */ }; extern ServiceFunctionHook *ServiceHookTable; typedef struct CleanupFunctionHook CleanupFunctionHook; struct CleanupFunctionHook { CleanupFunctionHook *next; void (*h_function_pointer) (void); }; extern CleanupFunctionHook *CleanupHookTable; typedef struct __LogDebugEntry { CtdlDbgFunction F; const char *Name; long Len; const int *LogP; } LogDebugEntry; extern HashList *LogDebugEntryTable; void initialize_server_extensions(void); int DLoader_Exec_Cmd(char *cmdbuf); char *Dynamic_Module_Init(void); void CtdlDestroySessionHooks(void); void PerformSessionHooks(int EventType); int CheckTDAPVeto (int DBType, StrBuf *ErrMsg); void CtdlDestroyTDAPVetoHooks(void); void CtdlDestroyUserHooks(void); void PerformUserHooks(struct ctdluser *usbuf, int EventType); int PerformXmsgHooks(char *, char *, char *, char *); void CtdlDestroyXmsgHooks(void); void CtdlDestroyMessageHook(void); int PerformMessageHooks(struct CtdlMessage *, recptypes *recps, int EventType); void CtdlDestroyNetprocHooks(void); int PerformNetprocHooks(struct CtdlMessage *, char *); void CtdlDestroyRoomHooks(void); int PerformRoomHooks(struct ctdlroom *); void CtdlDestroyDeleteHooks(void); void PerformDeleteHooks(char *, long); void CtdlDestroyCleanupHooks(void); void CtdlDestroyProtoHooks(void); void CtdlDestroyServiceHook(void); void CtdlDestroySearchHooks(void); void CtdlDestroyFixedOutputHooks(void); int PerformFixedOutputHooks(char *, char *, int); void CtdlRegisterDebugFlagHook(const char *Name, long len, CtdlDbgFunction F, const int *); void CtdlSetDebugLogFacilities(const char **Str, long n); void CtdlDestroyDebugTable(void); void netcfg_keyname(char *keybuf, long roomnum); #endif /* SERV_EXTENSIONS_H */ citadel-902/serv_sieve.h000066400000000000000000000042371271512031400153200ustar00rootroot00000000000000 #include #include struct sdm_script { struct sdm_script *next; char script_name[256]; int script_active; char *script_content; }; struct sdm_vacation { struct sdm_vacation *next; char fromaddr[256]; time_t timestamp; }; struct sdm_userdata { sieve2_context_t *sieve2_context; /**< for libsieve's use */ long config_msgnum; /**< confirms that a sieve config was located */ char config_roomname[ROOMNAMELEN]; long lastproc; /**< last message processed */ struct sdm_script *first_script; struct sdm_vacation *first_vacation; }; struct ctdl_sieve { char *rfc822headers; int cancel_implicit_keep; /* Set to 1 if the message was successfully acted upon */ int keep; /* Set to 1 to suppress message deletion from the inbox */ long usernum; /* Owner of the mailbox we're processing */ long msgnum; /* Message base ID of the message being processed */ struct sdm_userdata *u; /* Info related to the current session */ char recp_user[256]; char recp_node[256]; char recp_name[256]; char sender[256]; /* To whom shall we send reject bounces or vacation messages? */ char subject[1024]; /* Retain msg subject so we can use it in vacation messages */ char envelope_from[1024]; char envelope_to[1024]; }; /* If you change this string you will break all of your Sieve configs. */ #define CTDLSIEVECONFIGSEPARATOR "\n-==-\n" /* Maximum time we keep vacation fromaddr records online. This implies that a vacation * rule cannot exceed this amount of time. (Any more than 30 days is a ridiculously * long vacation which the person probably doesn't deserve.) */ #define MAX_VACATION 30 extern struct RoomProcList *sieve_list; void sieve_queue_room(struct ctdlroom *); void perform_sieve_processing(void); void msiv_load(struct sdm_userdata *u); void msiv_store(struct sdm_userdata *u, int changes_made); int msiv_setactive(struct sdm_userdata *u, char *script_name); char *msiv_getscript(struct sdm_userdata *u, char *script_name); int msiv_deletescript(struct sdm_userdata *u, char *script_name); void msiv_putscript(struct sdm_userdata *u, char *script_name, char *script_content); extern char *msiv_extensions; citadel-902/serv_vcard.h000066400000000000000000000002741271512031400153010ustar00rootroot00000000000000void extract_inet_email_addrs(char *, size_t, char *, size_t, struct vCard *v, int local_addrs_only); struct vCard *vcard_get_user(struct ctdluser *u); enum { V2L_WRITE, V2L_DELETE }; citadel-902/server.h000066400000000000000000000231061271512031400144500ustar00rootroot00000000000000/* * Main declarations file for the Citadel server * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #ifndef SERVER_H #define SERVER_H #ifdef __GNUC__ #define INLINE __inline__ #else #define INLINE #endif #include "citadel.h" #ifdef HAVE_OPENSSL #define OPENSSL_NO_KRB5 /* work around redhat b0rken ssl headers */ #include #endif /* * New format for a message in memory */ struct CtdlMessage { int cm_magic; /* Self-check (NOT SAVED TO DISK) */ char cm_anon_type; /* Anonymous or author-visible */ char cm_format_type; /* Format type */ char *cm_fields[256]; /* Data fields */ long cm_lengths[256]; /* size of datafields */ unsigned int cm_flags; /* How to handle (NOT SAVED TO DISK) */ }; #define CTDLMESSAGE_MAGIC 0x159d #define CM_SKIP_HOOKS 0x01 /* Don't run server-side handlers */ /* Data structure returned by validate_recipients() */ typedef struct __recptypes { int recptypes_magic; int num_local; int num_internet; int num_ignet; int num_room; int num_error; char *errormsg; char *recp_local; char *recp_internet; char *recp_ignet; char *recp_room; char *recp_orgroom; char *display_recp; char *bounce_to; char *envelope_from; char *sending_room; } recptypes; #define RECPTYPES_MAGIC 0xfeeb #define CTDLEXIT_SHUTDOWN 0 /* Normal shutdown; do NOT auto-restart */ /* * Exit codes 101 through 109 are used for conditions in which * we deliberately do NOT want the service to automatically * restart. */ #define CTDLEXIT_CONFIG 101 /* Could not read citadel.config */ #define CTDLEXIT_CONTROL 102 /* Could not acquire lock */ #define CTDLEXIT_HOME 103 /* Citadel home directory not found */ #define CTDLEXIT_OOD 104 /* Out Of Date config - rerun setup */ #define CTDLEXIT_DB 105 /* Unable to initialize database */ #define CTDLEXIT_LIBCITADEL 106 /* Incorrect version of libcitadel */ #define CTDL_EXIT_UNSUP_AUTH 107 /* Unsupported auth mode configured */ #define CTDLEXIT_UNUSER 108 /* Could not determine uid to run as */ /* * Reasons why a session would be terminated (set CC->kill_me to these values) */ enum { KILLME_NOT, KILLME_UNKNOWN, KILLME_CLIENT_LOGGED_OUT, KILLME_IDLE, KILLME_CLIENT_DISCONNECTED, KILLME_AUTHFAILED, KILLME_SERVER_SHUTTING_DOWN, KILLME_MAX_SESSIONS_EXCEEDED, KILLME_ADMIN_TERMINATE, KILLME_SELECT_INTERRUPTED, KILLME_SELECT_FAILED, KILLME_WRITE_FAILED, KILLME_SIMULATION_WORKER, KILLME_NOLOGIN, KILLME_NO_CRYPTO, KILLME_READSTRING_FAILED, KILLME_MALLOC_FAILED, KILLME_QUOTA, KILLME_READ_FAILED, KILLME_ILLEGAL_MANAGESIEVE_COMMAND, KILLME_SPAMMER, KILLME_XML_PARSER }; #define CS_STEALTH 1 /* stealth mode */ #define CS_CHAT 2 /* chat mode */ #define CS_POSTING 4 /* Posting */ extern int ScheduledShutdown; extern uid_t ctdluid; struct ExpressMessage { struct ExpressMessage *next; time_t timestamp; /* When this message was sent */ unsigned flags; /* Special instructions */ char sender[256]; /* Name of sending user */ char sender_email[256]; /* Email or JID of sending user */ char *text; /* Message text (if applicable) */ }; #define EM_BROADCAST 1 /* Broadcast message */ #define EM_GO_AWAY 2 /* Server requests client log off */ #define EM_CHAT 4 /* Server requests client enter chat */ /* * Various things we need to lock and unlock */ enum { S_USERS, S_ROOMS, S_SESSION_TABLE, S_FLOORTAB, S_CHATQUEUE, S_CONTROL, S_NETDB, S_SUPPMSGMAIN, S_CONFIG, S_HOUSEKEEPING, S_NTTLIST, S_DIRECTORY, S_NETCONFIGS, S_PUBLIC_CLIENTS, S_FLOORCACHE, S_ATBF, S_JOURNAL_QUEUE, S_RPLIST, S_SIEVELIST, S_CHKPWD, S_LOG, S_NETSPOOL, S_XMPP_QUEUE, S_SCHEDULE_LIST, S_SINGLE_USER, S_LDAP, S_IM_LOGS, MAX_SEMAPHORES }; /* * Upload types */ #define UPL_FILE 0 #define UPL_NET 1 #define UPL_IMAGE 2 /* * message transfer formats */ enum { MT_CITADEL, /* Citadel proprietary */ MT_RFC822, /* RFC822 */ MT_MIME, /* MIME-formatted message */ MT_DOWNLOAD, /* Download a component */ MT_SPEW_SECTION /* Download a component in a single operation */ }; /* * Message format types in the database */ #define FMT_CITADEL 0 /* Citadel vari-format (proprietary) */ #define FMT_FIXED 1 /* Fixed format (proprietary) */ #define FMT_RFC822 4 /* Standard (headers are in M field) */ /* * Citadel DataBases (define one for each cdb we need to open) */ enum { CDB_MSGMAIN, /* message base */ CDB_USERS, /* user file */ CDB_ROOMS, /* room index */ CDB_FLOORTAB, /* floor index */ CDB_MSGLISTS, /* room message lists */ CDB_VISIT, /* user/room relationships */ CDB_DIRECTORY, /* address book directory */ CDB_USETABLE, /* network use table */ CDB_BIGMSGS, /* larger message bodies */ CDB_FULLTEXT, /* full text search index */ CDB_EUIDINDEX, /* locate msgs by EUID */ CDB_USERSBYNUMBER, /* index of users by number */ CDB_OPENID, /* associates OpenIDs with users */ CDB_CONFIG, /* system configuration database */ MAXCDB /* total number of CDB's defined */ }; struct cdbdata { size_t len; char *ptr; }; /* * Event types can't be enum'ed, because they must remain consistent between * builds (to allow for binary modules built somewhere else) */ #define EVT_STOP 0 /* Session is terminating */ #define EVT_START 1 /* Session is starting */ #define EVT_LOGIN 2 /* A user is logging in */ #define EVT_NEWROOM 3 /* Changing rooms */ #define EVT_LOGOUT 4 /* A user is logging out */ #define EVT_SETPASS 5 /* Setting or changing password */ #define EVT_CMD 6 /* Called after each server command */ #define EVT_RWHO 7 /* An RWHO command is being executed */ #define EVT_ASYNC 8 /* Doing asynchronous messages */ #define EVT_STEALTH 9 /* Entering stealth mode */ #define EVT_UNSTEALTH 10 /* Exiting stealth mode */ #define EVT_TIMER 50 /* Timer events are called once per minute and are not tied to any session */ #define EVT_HOUSE 51 /* as needed houskeeping stuff */ #define EVT_SHUTDOWN 52 /* Server is shutting down */ #define EVT_PURGEUSER 100 /* Deleting a user */ #define EVT_NEWUSER 102 /* Creating a user */ #define EVT_BEFOREREAD 200 #define EVT_BEFORESAVE 201 #define EVT_AFTERSAVE 202 #define EVT_SMTPSCAN 203 /* called before submitting a msg from SMTP */ #define EVT_AFTERUSRMBOXSAVE 204 /* called afte a message was saved into a users inbox */ /* Priority levels for paging functions (lower is better) */ enum { XMSG_PRI_LOCAL, /* Other users on -this- server */ XMSG_PRI_REMOTE, /* Other users on a Citadel network (future) */ XMSG_PRI_FOREIGN, /* Contacts on foreign instant message hosts */ MAX_XMSG_PRI }; /* Defines the relationship of a user to a particular room */ typedef struct __visit { long v_roomnum; long v_roomgen; long v_usernum; long v_lastseen; unsigned int v_flags; char v_seen[SIZ]; char v_answered[SIZ]; int v_view; } visit; #define V_FORGET 1 /* User has zapped this room */ #define V_LOCKOUT 2 /* User is locked out of this room */ #define V_ACCESS 4 /* Access is granted to this room */ /* Supplementary data for a message on disk * These are kept separate from the message itself for one of two reasons: * 1. Either their values may change at some point after initial save, or * 2. They are merely caches of data which exist somewhere else, for speed. */ struct MetaData { long meta_msgnum; /* Message number in *local* message base */ int meta_refcount; /* Number of rooms pointing to this msg */ char meta_content_type[64]; /* Cached MIME content-type */ long meta_rfc822_length; /* Cache of RFC822-translated msg length */ char mimetype[64]; /* if we were able to guess the mimetype for the data */ }; /* Calls to AdjRefCount() are queued and deferred, so the user doesn't * have to wait for various disk-intensive operations to complete synchronously. * This is the record format. */ struct arcq { long arcq_msgnum; /* Message number being adjusted */ int arcq_delta; /* Adjustment ( usually 1 or -1 ) */ }; /* * Serialization routines use this struct to return a pointer and a length */ struct ser_ret { size_t len; unsigned char *ser; }; /* * The S_USETABLE database is used in several modules now, so we define its format here. */ struct UseTable { char ut_msgid[SIZ]; time_t ut_timestamp; }; /* Preferred field order */ /* ********** Important fields */ /* *************** Semi-important fields */ /* ** internal only */ /* * Message text (MUST be last) */ ///#define FORDER "IPTAFONHRDBCEWJGKLQSVXZYU12M" typedef enum _MsgField { eAuthor = 'A', eBig_message = 'B', eRemoteRoom = 'C', eDestination = 'D', eExclusiveID = 'E', erFc822Addr = 'F', eHumanNode = 'H', emessageId = 'I', eJournal = 'J', eReplyTo = 'K', eListID = 'L', eMesageText = 'M', eNodeName = 'N', eOriginalRoom = 'O', eMessagePath = 'P', eRecipient = 'R', eSpecialField = 'S', eTimestamp = 'T', eMsgSubject = 'U', eenVelopeTo = 'V', eWeferences = 'W', eCarbonCopY = 'Y', eErrorMsg = '0', eSuppressIdx = '1', eExtnotify = '2', eVltMsgNum = '3' }eMsgField; #endif /* SERVER_H */ citadel-902/server_main.c000066400000000000000000000213271271512031400154520ustar00rootroot00000000000000/* * citserver's main() function lives here. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include "citserver.h" #include "svn_revision.h" #include "modules_init.h" #include "config.h" #include "control.h" #include "serv_extensions.h" #include "citadel_dirs.h" #include "user_ops.h" #include "ecrash.h" uid_t ctdluid = 0; const char *CitadelServiceUDS="citadel-UDS"; const char *CitadelServiceTCP="citadel-TCP"; void go_threading(void); /* * Here's where it all begins. */ int main(int argc, char **argv) { size_t basesize = 64; char facility[32]; int a; /* General-purpose variables */ struct passwd pw, *pwp = NULL; char pwbuf[SIZ]; int drop_root_perms = 1; int relh=0; int home=0; int dbg=0; char relhome[PATH_MAX]=""; char ctdldir[PATH_MAX]=CTDLDIR; int syslog_facility = LOG_DAEMON; const char *eDebuglist[] = {NULL, NULL}; uid_t u = 0; struct passwd *p = NULL; #ifdef HAVE_RUN_DIR struct stat filestats; #endif #ifdef HAVE_BACKTRACE eCrashParameters params; // eCrashSymbolTable symbol_table; #endif /* initialize the master context */ InitializeMasterCC(); InitializeMasterTSD(); /* parse command-line arguments */ while ((a=getopt(argc, argv, "l:dh:x:t:B:Dru:")) != EOF) switch(a) { case 'l': safestrncpy(facility, optarg, sizeof(facility)); syslog_facility = SyslogFacility(facility); break; /* run in the background if -d was specified */ case 'd': running_as_daemon = 1; break; case 'h': relh = optarg[0] != '/'; if (!relh) { safestrncpy(ctdl_home_directory, optarg, sizeof ctdl_home_directory); } else { safestrncpy(relhome, optarg, sizeof relhome); } home=1; break; case 'x': eDebuglist [0] = optarg; break; case 't': /* deprecated */ break; case 'B': /* Basesize */ basesize = atoi(optarg); break; case 'D': dbg = 1; break; /* -r tells the server not to drop root permissions. * Don't use this unless you know what you're doing. */ case 'r': drop_root_perms = 0; break; /* -u tells the server what uid to run under... */ case 'u': u = atoi(optarg); if (u > 0) { ctdluid = u; } else { p = getpwnam(optarg); if (p) { u = p->pw_uid; } } if (u > 0) { ctdluid = u; } break; default: /* any other parameter makes it crash and burn */ fprintf(stderr, "citserver: usage: " "citserver " "[-l LogFacility] " "[-d] [-D] [-r] " "[-u user] " "[-h HomeDir]\n" ); exit(1); } /* Last ditch effort to determine the user name ... if there's a user called "citadel" then use that */ if (ctdluid == 0) { p = getpwnam("citadel"); if (!p) { p = getpwnam("bbs"); } if (!p) { p = getpwnam("guest"); } if (p) { u = p->pw_uid; } if (u > 0) { ctdluid = u; } } if ((ctdluid == 0) && (drop_root_perms == 0)) { fprintf(stderr, "citserver: cannot determine user to run as; please specify -r or -u options\n"); exit(CTDLEXIT_UNUSER); } StartLibCitadel(basesize); openlog("citserver", ( running_as_daemon ? (LOG_PID) : (LOG_PID | LOG_PERROR) ), syslog_facility ); calc_dirs_n_files(relh, home, relhome, ctdldir, dbg); /* daemonize, if we were asked to */ if (running_as_daemon) { start_daemon(0); drop_root_perms = 1; } #if 0 def HAVE_BACKTRACE bzero(¶ms, sizeof(params)); params.filename = file_pid_paniclog; panic_fd=open(file_pid_paniclog, O_APPEND|O_CREAT|O_DIRECT); params.filep = fopen(file_pid_paniclog, "a+"); params.debugLevel = ECRASH_DEBUG_VERBOSE; params.dumpAllThreads = TRUE; params.useBacktraceSymbols = 1; params.signals[0]=SIGSEGV; params.signals[1]=SIGILL; params.signals[2]=SIGBUS; params.signals[3]=SIGABRT; eCrash_Init(¶ms); eCrash_RegisterThread("MasterThread", 0); #endif /* Tell 'em who's in da house */ syslog(LOG_NOTICE, " "); syslog(LOG_NOTICE, " "); syslog(LOG_NOTICE, "*** Citadel server engine ***\n"); syslog(LOG_NOTICE, "Version %d (build %s) ***", REV_LEVEL, svn_revision()); syslog(LOG_NOTICE, "Copyright (C) 1987-2016 by the Citadel development team."); syslog(LOG_NOTICE, "This program is distributed under the terms of the GNU " "General Public License."); syslog(LOG_NOTICE, " "); syslog(LOG_DEBUG, "Called as: %s", argv[0]); syslog(LOG_INFO, "%s", libcitadel_version_string()); #ifdef HAVE_RUN_DIR /* on some dists rundir gets purged on startup. so we need to recreate it. */ if (stat(ctdl_run_dir, &filestats)==-1){ #ifdef HAVE_GETPWUID_R #ifdef SOLARIS_GETPWUID pwp = getpwuid_r(ctdluid, &pw, pwbuf, sizeof(pwbuf)); #else // SOLARIS_GETPWUID getpwuid_r(ctdluid, &pw, pwbuf, sizeof(pwbuf), &pwp); #endif // SOLARIS_GETPWUID #else // HAVE_GETPWUID_R pwp = NULL; #endif // HAVE_GETPWUID_R if ((mkdir(ctdl_run_dir, 0755) != 0) && (errno != EEXIST)) syslog(LOG_EMERG, "unable to create run directory [%s]: %s", ctdl_run_dir, strerror(errno)); if (chown(ctdl_run_dir, ctdluid, (pwp==NULL)?-1:pw.pw_gid) != 0) syslog(LOG_EMERG, "unable to set the access rights for [%s]: %s", ctdl_run_dir, strerror(errno)); } #endif /* Initialize... */ init_sysdep(); /* * Do non system dependent startup functions. */ master_startup(); /* * Check that the control record is correct and place sensible values if it isn't */ check_control(); /* * Run any upgrade entry points */ syslog(LOG_INFO, "Upgrading modules."); upgrade_modules(); /* * Load the user for the masterCC or create them if they don't exist */ if (CtdlGetUser(&masterCC.user, "SYS_Citadel")) { /* User doesn't exist. We can't use create user here as the user number needs to be 0 */ strcpy (masterCC.user.fullname, "SYS_Citadel") ; CtdlPutUser(&masterCC.user); CtdlGetUser(&masterCC.user, "SYS_Citadel"); /* Just to be safe */ } /* * Bind the server to a Unix-domain socket (user client access) */ CtdlRegisterServiceHook(0, file_citadel_socket, citproto_begin_session, do_command_loop, do_async_loop, CitadelServiceUDS); /* * Bind the server to a Unix-domain socket (admin client access) */ CtdlRegisterServiceHook(0, file_citadel_admin_socket, citproto_begin_admin_session, do_command_loop, do_async_loop, CitadelServiceUDS); chmod(file_citadel_admin_socket, S_IRWXU); /* for your eyes only */ /* * Bind the server to our favorite TCP port (usually 504). */ CtdlRegisterServiceHook(CtdlGetConfigInt("c_port_number"), NULL, citproto_begin_session, do_command_loop, do_async_loop, CitadelServiceTCP); /* * Load any server-side extensions available here. */ syslog(LOG_INFO, "Initializing server extensions"); initialise_modules(0); eDebuglist[1] = getenv("CITADEL_LOGDEBUG"); CtdlSetDebugLogFacilities(eDebuglist, 2); /* * If we need host auth, start our chkpwd daemon. */ if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_HOST) { start_chkpwd_daemon(); } /* * check, whether we're fired up another time after a crash. * if, post an aide message, so the admin has a chance to react. */ checkcrash (); /* * Now that we've bound the sockets, change to the Citadel user id and its * corresponding group ids */ if (drop_root_perms) { cdb_chmod_data(); /* make sure we own our data files */ #ifdef HAVE_GETPWUID_R #ifdef SOLARIS_GETPWUID pwp = getpwuid_r(ctdluid, &pw, pwbuf, sizeof(pwbuf)); #else // SOLARIS_GETPWUID getpwuid_r(ctdluid, &pw, pwbuf, sizeof(pwbuf), &pwp); #endif // SOLARIS_GETPWUID #else // HAVE_GETPWUID_R pwp = NULL; #endif // HAVE_GETPWUID_R if (pwp == NULL) syslog(LOG_CRIT, "WARNING: getpwuid(%ld): %s" "Group IDs will be incorrect.\n", (long)CTDLUID, strerror(errno)); else { initgroups(pw.pw_name, pw.pw_gid); if (setgid(pw.pw_gid)) syslog(LOG_CRIT, "setgid(%ld): %s", (long)pw.pw_gid, strerror(errno)); } syslog(LOG_INFO, "Changing uid to %ld", (long)CTDLUID); if (setuid(CTDLUID) != 0) { syslog(LOG_CRIT, "setuid() failed: %s", strerror(errno)); } #if defined (HAVE_SYS_PRCTL_H) && defined (PR_SET_DUMPABLE) prctl(PR_SET_DUMPABLE, 1); #endif } /* We want to check for idle sessions once per minute */ CtdlRegisterSessionHook(terminate_idle_sessions, EVT_TIMER, PRIO_CLEANUP + 1); go_threading(); master_cleanup(exit_signal); return(0); } citadel-902/snprintf.c000066400000000000000000000034751271512031400150070ustar00rootroot00000000000000/* * Replacements for snprintf() and vsnprintf() * * modified from Sten Gunterberg's BUGTRAQ post of 22 Jul 1997 * --nathan bryant * * Use it only if you have the "spare" cycles needed to effectively * do every snprintf operation twice! Why is that? Because everything * is first vfprintf()'d to /dev/null to determine the number of bytes. * Perhaps a bit slow for demanding applications on slow machines, * no problem for a fast machine with some spare cycles. * * You don't have a /dev/null? Every Linux contains one for free! * * Because the format string is never even looked at, all current and * possible future printf-conversions should be handled just fine. * * Written July 1997 by Sten Gunterberg (gunterberg@ergon.ch) */ #include #include #include #include static int needed (const char *fmt, va_list argp) { static FILE *sink = NULL; /* ok, there's a small race here that could result in the sink being * opened more than once if we're threaded, but I'd rather ignore it than * spend cycles synchronizing :-) */ if (sink == NULL) { if ((sink = fopen("/dev/null", "w")) == NULL) { perror("/dev/null"); exit(1); } } return vfprintf(sink, fmt, argp); } int vsnprintf (char *buf, size_t max, const char *fmt, va_list argp) { char *p; int size; if ((p = malloc(needed(fmt, argp) + 1)) == NULL) { fprintf(stderr, "vsnprintf: malloc failed, aborting\n"); abort(); } if ((size = vsprintf(p, fmt, argp)) >= max) size = -1; strncpy(buf, p, max); buf[max - 1] = 0; free(p); return size; } int snprintf (char *buf, size_t max, const char *fmt, ...) { va_list argp; int bytes; va_start(argp, fmt); bytes = vsnprintf(buf, max, fmt, argp); va_end(argp); return bytes; } citadel-902/snprintf.h000066400000000000000000000006211271512031400150020ustar00rootroot00000000000000#ifndef __DECC #ifdef __GNUC__ int snprintf (char *buf, size_t max, const char *fmt, ...) __attribute__((__format__(__printf__,3,4))); int vsnprintf (char *buf, size_t max, const char *fmt, va_list argp) __attribute__((__format__(__printf__,3,0))); #else int snprintf (char *buf, size_t max, const char *fmt, ...); int vsnprintf (char *buf, size_t max, const char *fmt, va_list argp); #endif #endif citadel-902/support.c000066400000000000000000000033321271512031400146500ustar00rootroot00000000000000/* * Server-side utility functions */ #include "sysdep.h" #include #include #include #include #include "citadel.h" #include "support.h" /* * strproc() - make a string 'nice' */ void strproc(char *string) { int a, b; if (string == NULL) return; if (IsEmptyStr(string)) return; /* Convert non-printable characters to blanks */ for (a=0; !IsEmptyStr(&string[a]); ++a) { if (string[a]<32) string[a]=32; if (string[a]>126) string[a]=32; } /* a is now the length of our string. */ /* Remove leading and trailing blanks */ while( (string[a-1]<33) && (!IsEmptyStr(string)) ) string[--a]=0; b = 0; while( (string[b]<33) && (!IsEmptyStr(&string[b])) ) b++; if (b > 0) memmove(string,&string[b], a - b + 1); /* Remove double blanks */ for (a=0; !IsEmptyStr(&string[a]); ++a) { if ((string[a]==32)&&(string[a+1]==32)) { strcpy(&string[a],&string[a+1]); a=0; } } /* remove characters which would interfere with the network */ for (a=0; !IsEmptyStr(&string[a]); ++a) { while (string[a]=='!') strcpy(&string[a],&string[a+1]); while (string[a]=='@') strcpy(&string[a],&string[a+1]); while (string[a]=='_') strcpy(&string[a],&string[a+1]); while (string[a]==',') strcpy(&string[a],&string[a+1]); while (string[a]=='%') strcpy(&string[a],&string[a+1]); while (string[a]=='|') strcpy(&string[a],&string[a+1]); } } /* * get a line of text from a file * ignores lines starting with # */ int getstring(FILE *fp, char *string) { int a,c; do { strcpy(string,""); a=0; do { c=getc(fp); if (c<0) { string[a]=0; return(-1); } string[a++]=c; } while(c!=10); string[a-1]=0; } while(string[0]=='#'); return(strlen(string)); } citadel-902/support.h000066400000000000000000000001311271512031400146470ustar00rootroot00000000000000#include void strproc (char *string); int getstring (FILE *fp, char *string); citadel-902/svn_revision.c000066400000000000000000000003311271512031400156540ustar00rootroot00000000000000/* * Subversion / GIT revision functions * * Autogenerated at make/release time * * Do not modify this file * */ const char *svn_revision (void) { const char *SVN_Version = "1a4ec92"; return SVN_Version; } citadel-902/svn_revision.h000066400000000000000000000000441271512031400156620ustar00rootroot00000000000000 const char *svn_revision(void); citadel-902/sysconfig.h000066400000000000000000000072641271512031400151550ustar00rootroot00000000000000/* * NOTE: this file is for client software tuning, not customization. For * making changes to the behavior of the client, you want to edit citadel.rc, * not this file. */ /* * If you want to keep a transcript of all multiuser chats that go across * your system, define CHATLOG to the filename to be saved to. Otherwise, * set CHATLOG to "/dev/null". */ #define CHATLOG "/dev/null" /* * Logging level to use if none is specified on the command line. * Note that this will suppress messages before they even get to syslog(). */ #define DEFAULT_VERBOSITY 7 /* * NLI is the string that shows up in a ho's online listing for sessions * that are active, but for which no user has yet authenticated. */ #define NLI "(not logged in)" /* * Maximum number of floors on the system. * WARNING! *Never* change this value once your system is up; THINGS WILL DIE! * Also, do not set it higher than 127. */ #define MAXFLOORS 16 /* * Standard buffer size for string datatypes. DO NOT CHANGE! Not only does * there exist a minimum buffer size for certain protocols (such as IMAP), but * fixed-length buffers are now stored in some of the data structures on disk, * so if you change the buffer size you'll fux0r your database. */ #define SIZ 4096 /* * If the body of a message is beyond this size, it will be stored in * a separate table. */ #define BIGMSG 1024 /* * SMTP delivery retry rules (all values are in seconds) * * If delivery of a message via SMTP is unsuccessful, Citadel will try again * after SMTP_RETRY_INTERVAL seconds. This interval will double after each * unsuccessful delivery, up to a maximum of SMTP_RETRY_MAX seconds. If no * successful delivery has been accomplished after SMTP_GIVE_UP seconds, the * message will be returned to its sender. */ #define SMTP_RETRY_INTERVAL 300 /* 5 minutes */ #define SMTP_RETRY_MAX 43200 /* 12 hours */ #define SMTP_GIVE_UP 432000 /* 5 days */ /* * Who bounced messages appear to be from */ #define BOUNCESOURCE "Citadel Mail Delivery Subsystem" /* * This variable defines the amount of network spool data that may be carried * in one server transfer command. For some reason, some networks get hung * up on larger packet sizes. We don't know why. In any case, never set the * packet size higher than 4096 or your server sessions will crash. */ #define IGNET_PACKET_SIZE 4000 /* * The names of rooms which are automatically created by the system */ #define BASEROOM "Lobby" #define MAILROOM "Mail" #define SENTITEMS "Sent Items" #define AIDEROOM "Aide" #define USERCONFIGROOM "My Citadel Config" #define USERCALENDARROOM "Calendar" #define USERTASKSROOM "Tasks" #define USERCONTACTSROOM "Contacts" #define USERNOTESROOM "Notes" #define USERDRAFTROOM "Drafts" #define USERTRASHROOM "Trash" #define PAGELOGROOM "Sent/Received Pages" #define SYSCONFIGROOM "Local System Configuration" #define SMTP_SPOOLOUT_ROOM "__CitadelSMTPspoolout__" #define FNBL_QUEUE_ROOM "__CitadelFNBLqueue__" /* * Where we keep messages containing the vCards that source our directory. It * makes no sense to change this, because you'd have to change it on every * system on the network. That would be stupid. */ #define ADDRESS_BOOK_ROOM "Global Address Book" /* * How long (in seconds) to retain message entries in the use table */ #define USETABLE_RETAIN 864000L /* 10 days */ #define USETABLE_ANTIEXPIRE 345600l /* 4 days */ #define USETABLE_ANTIEXPIRE_HIRES 86400l /* 1 day */ /* * The size of per-thread stacks. If set too low, citserver will randomly crash. */ #define THREADSTACKSIZE 0x100000 /* * How many messages may the full text indexer scan before flushing its * tables to disk? */ #define FT_MAX_CACHE 2500 citadel-902/sysdep.c000066400000000000000000001076161271512031400144550ustar00rootroot00000000000000/* * Citadel "system dependent" stuff. * * Here's where we (hopefully) have most parts of the Citadel server that * would need to be altered to run the server in a non-POSIX environment. * * If we ever port to a different platform and either have multiple * variants of this file or simply load it up with #ifdefs. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #include #define SHOW_ME_VAPPEND_PRINTF #include #include "citserver.h" #include "config.h" #include "ctdl_module.h" #include "sysdep_decls.h" #include "modules/crypto/serv_crypto.h" /* Needed for init_ssl, client_write_ssl, client_read_ssl, destruct_ssl */ #include "housekeeping.h" #include "context.h" /* * Signal handler to shut down the server. */ volatile int exit_signal = 0; volatile int shutdown_and_halt = 0; volatile int restart_server = 0; volatile int running_as_daemon = 0; static RETSIGTYPE signal_cleanup(int signum) { syslog(LOG_DEBUG, "Caught signal %d; shutting down.", signum); exit_signal = signum; server_shutting_down = 1; } static RETSIGTYPE signal_exit(int signum) { exit(1); } /* * Some initialization stuff... */ void init_sysdep(void) { sigset_t set; /* Avoid vulnerabilities related to FD_SETSIZE if we can. */ #ifdef FD_SETSIZE #ifdef RLIMIT_NOFILE struct rlimit rl; getrlimit(RLIMIT_NOFILE, &rl); rl.rlim_cur = FD_SETSIZE; rl.rlim_max = FD_SETSIZE; setrlimit(RLIMIT_NOFILE, &rl); #endif #endif /* If we've got OpenSSL, we're going to use it. */ #ifdef HAVE_OPENSSL init_ssl(); #endif /* * Set up a place to put thread-specific data. * We only need a single pointer per thread - it points to the * CitContext structure (in the ContextList linked list) of the * session to which the calling thread is currently bound. */ if (pthread_key_create(&MyConKey, NULL) != 0) { syslog(LOG_CRIT, "Can't create TSD key: %s", strerror(errno)); } /* * Interript, hangup, and terminate signals should cause the server * to gracefully clean up and shut down. */ sigemptyset(&set); sigaddset(&set, SIGINT); sigaddset(&set, SIGHUP); sigaddset(&set, SIGTERM); sigprocmask(SIG_UNBLOCK, &set, NULL); signal(SIGINT, signal_cleanup); signal(SIGHUP, signal_cleanup); signal(SIGTERM, signal_cleanup); signal(SIGUSR2, signal_exit); /* * Do not shut down the server on broken pipe signals, otherwise the * whole Citadel service would come down whenever a single client * socket breaks. */ signal(SIGPIPE, SIG_IGN); } /* * This is a generic function to set up a master socket for listening on * a TCP port. The server shuts down if the bind fails. (IPv4/IPv6 version) * * ip_addr IP address to bind * port_number port number to bind * queue_len number of incoming connections to allow in the queue */ int ctdl_tcp_server(char *ip_addr, int port_number, int queue_len, char *errormessage) { struct protoent *p; struct sockaddr_in6 sin6; struct sockaddr_in sin4; int s, i, b; int ip_version = 6; memset(&sin6, 0, sizeof(sin6)); memset(&sin4, 0, sizeof(sin4)); sin6.sin6_family = AF_INET6; sin4.sin_family = AF_INET; if ( (ip_addr == NULL) /* any IPv6 */ || (IsEmptyStr(ip_addr)) || (!strcmp(ip_addr, "*")) ) { ip_version = 6; sin6.sin6_addr = in6addr_any; } else if (!strcmp(ip_addr, "0.0.0.0")) /* any IPv4 */ { ip_version = 4; sin4.sin_addr.s_addr = INADDR_ANY; } else if ((strchr(ip_addr, '.')) && (!strchr(ip_addr, ':'))) /* specific IPv4 */ { ip_version = 4; if (inet_pton(AF_INET, ip_addr, &sin4.sin_addr) <= 0) { snprintf(errormessage, SIZ, "Error binding to [%s] : %s", ip_addr, strerror(errno) ); syslog(LOG_ALERT, "%s", errormessage); return (-1); } } else /* specific IPv6 */ { ip_version = 6; if (inet_pton(AF_INET6, ip_addr, &sin6.sin6_addr) <= 0) { snprintf(errormessage, SIZ, "Error binding to [%s] : %s", ip_addr, strerror(errno) ); syslog(LOG_ALERT, "%s", errormessage); return (-1); } } if (port_number == 0) { snprintf(errormessage, SIZ, "Can't start: no port number specified."); syslog(LOG_ALERT, "%s", errormessage); return (-1); } sin6.sin6_port = htons((u_short) port_number); sin4.sin_port = htons((u_short) port_number); p = getprotobyname("tcp"); s = socket( ((ip_version == 6) ? PF_INET6 : PF_INET), SOCK_STREAM, (p->p_proto)); if (s < 0) { snprintf(errormessage, SIZ, "Can't create a listening socket: %s", strerror(errno) ); syslog(LOG_ALERT, "%s", errormessage); return (-1); } /* Set some socket options that make sense. */ i = 1; setsockopt(s, SOL_SOCKET, SO_REUSEADDR, &i, sizeof(i)); if (ip_version == 6) { b = bind(s, (struct sockaddr *) &sin6, sizeof(sin6)); } else { b = bind(s, (struct sockaddr *) &sin4, sizeof(sin4)); } if (b < 0) { snprintf(errormessage, SIZ, "Can't bind: %s", strerror(errno) ); syslog(LOG_ALERT, "%s", errormessage); return (-1); } fcntl(s, F_SETFL, O_NONBLOCK); if (listen(s, ((queue_len >= 5) ? queue_len : 5) ) < 0) { snprintf(errormessage, SIZ, "Can't listen: %s", strerror(errno) ); syslog(LOG_ALERT, "%s", errormessage); return (-1); } return (s); } /* * Create a Unix domain socket and listen on it */ int ctdl_uds_server(char *sockpath, int queue_len, char *errormessage) { struct sockaddr_un addr; int s; int i; int actual_queue_len; #ifdef HAVE_STRUCT_UCRED int passcred = 1; #endif actual_queue_len = queue_len; if (actual_queue_len < 5) actual_queue_len = 5; i = unlink(sockpath); if ((i != 0) && (errno != ENOENT)) { snprintf(errormessage, SIZ, "citserver: can't unlink %s: %s", sockpath, strerror(errno) ); syslog(LOG_EMERG, "%s", errormessage); return(-1); } memset(&addr, 0, sizeof(addr)); addr.sun_family = AF_UNIX; safestrncpy(addr.sun_path, sockpath, sizeof addr.sun_path); s = socket(AF_UNIX, SOCK_STREAM, 0); if (s < 0) { snprintf(errormessage, SIZ, "citserver: Can't create a socket: %s", strerror(errno)); syslog(LOG_EMERG, "%s", errormessage); return(-1); } if (bind(s, (struct sockaddr *)&addr, sizeof(addr)) < 0) { snprintf(errormessage, SIZ, "citserver: Can't bind: %s", strerror(errno)); syslog(LOG_EMERG, "%s", errormessage); return(-1); } /* set to nonblock - we need this for some obscure situations */ if (fcntl(s, F_SETFL, O_NONBLOCK) < 0) { snprintf(errormessage, SIZ, "citserver: Can't set socket to non-blocking: %s", strerror(errno)); syslog(LOG_EMERG, "%s", errormessage); close(s); return(-1); } if (listen(s, actual_queue_len) < 0) { snprintf(errormessage, SIZ, "citserver: Can't listen: %s", strerror(errno)); syslog(LOG_EMERG, "%s", errormessage); return(-1); } #ifdef HAVE_STRUCT_UCRED setsockopt(s, SOL_SOCKET, SO_PASSCRED, &passcred, sizeof(passcred)); #endif chmod(sockpath, S_ISGID|S_IRUSR|S_IWUSR|S_IXUSR|S_IRGRP|S_IWGRP|S_IXGRP|S_IROTH|S_IWOTH|S_IXOTH); return(s); } /* * The following functions implement output buffering on operating systems which * support it (such as Linux and various BSD flavors). */ #ifndef HAVE_DARWIN #ifdef TCP_CORK # define HAVE_TCP_BUFFERING #else # ifdef TCP_NOPUSH # define HAVE_TCP_BUFFERING # define TCP_CORK TCP_NOPUSH # endif #endif /* TCP_CORK */ #endif /* HAVE_DARWIN */ static unsigned on = 1, off = 0; void buffer_output(void) { #ifdef HAVE_TCP_BUFFERING #ifdef HAVE_OPENSSL if (!CC->redirect_ssl) #endif setsockopt(CC->client_socket, IPPROTO_TCP, TCP_CORK, &on, 4); #endif } void unbuffer_output(void) { #ifdef HAVE_TCP_BUFFERING #ifdef HAVE_OPENSSL if (!CC->redirect_ssl) #endif setsockopt(CC->client_socket, IPPROTO_TCP, TCP_CORK, &off, 4); #endif } void flush_output(void) { #ifdef HAVE_TCP_BUFFERING struct CitContext *CCC = CC; setsockopt(CCC->client_socket, IPPROTO_TCP, TCP_CORK, &off, 4); setsockopt(CCC->client_socket, IPPROTO_TCP, TCP_CORK, &on, 4); #endif } /* static void flush_client_inbuf(void) { CitContext *CCC=CC; FlushStrBuf(CCC->ReadBuf); CCC->RecvBuf->ReadWritePointer = NULL; } */ /* * client_close() ... close the client socket */ void client_close(void) { CitContext *CCC = CC; if (!CCC) return; if (CCC->client_socket <= 0) return; syslog(LOG_DEBUG, "Closing socket %d", CCC->client_socket); close(CCC->client_socket); CCC->client_socket = -1 ; } /* * client_write() ... Send binary data to the client. */ int client_write(const char *buf, int nbytes) { int bytes_written = 0; int retval; #ifndef HAVE_TCP_BUFFERING int old_buffer_len = 0; #endif fd_set wset; CitContext *Ctx; int fdflags; if (nbytes < 1) return(0); Ctx = CC; #ifdef BIGBAD_IODBG { int rv = 0; char fn [SIZ]; FILE *fd; snprintf(fn, SIZ, "/tmp/foolog_%s.%d", Ctx->ServiceName, Ctx->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Sending: BufSize: %d BufContent: [", nbytes); rv = fwrite(buf, nbytes, 1, fd); fprintf(fd, "]\n"); fclose(fd); } #endif // flush_client_inbuf(); if (Ctx->redirect_buffer != NULL) { StrBufAppendBufPlain(Ctx->redirect_buffer, buf, nbytes, 0); return 0; } #ifdef HAVE_OPENSSL if (Ctx->redirect_ssl) { client_write_ssl(buf, nbytes); return 0; } #endif if (Ctx->client_socket == -1) return -1; fdflags = fcntl(Ctx->client_socket, F_GETFL); while ((bytes_written < nbytes) && (Ctx->client_socket != -1)){ if ((fdflags & O_NONBLOCK) == O_NONBLOCK) { FD_ZERO(&wset); FD_SET(Ctx->client_socket, &wset); if (select(1, NULL, &wset, NULL, NULL) == -1) { if (errno == EINTR) { syslog(LOG_DEBUG, "client_write(%d bytes) select() interrupted.", nbytes-bytes_written ); if (server_shutting_down) { CC->kill_me = KILLME_SELECT_INTERRUPTED; return (-1); } else { /* can't trust fd's and stuff so we need to re-create them */ continue; } } else { syslog(LOG_ERR, "client_write(%d bytes) select failed: %s (%d)", nbytes - bytes_written, strerror(errno), errno ); cit_backtrace(); client_close(); Ctx->kill_me = KILLME_SELECT_FAILED; return -1; } } } retval = write(Ctx->client_socket, &buf[bytes_written], nbytes - bytes_written); if (retval < 1) { syslog(LOG_ERR, "client_write(%d bytes) failed: %s (%d)", nbytes - bytes_written, strerror(errno), errno ); cit_backtrace(); client_close(); Ctx->kill_me = KILLME_WRITE_FAILED; return -1; } bytes_written = bytes_written + retval; } return 0; } void cputbuf(const StrBuf *Buf) { client_write(ChrPtr(Buf), StrLength(Buf)); } /* * cprintf() Send formatted printable data to the client. * Implemented in terms of client_write() so it's technically not sysdep... */ void cprintf(const char *format, ...) { va_list arg_ptr; char buf[1024]; va_start(arg_ptr, format); if (vsnprintf(buf, sizeof buf, format, arg_ptr) == -1) buf[sizeof buf - 2] = '\n'; client_write(buf, strlen(buf)); va_end(arg_ptr); } /* * Read data from the client socket. * * sock socket fd to read from * buf buffer to read into * bytes number of bytes to read * timeout Number of seconds to wait before timing out * * Possible return values: * 1 Requested number of bytes has been read. * 0 Request timed out. * -1 Connection is broken, or other error. */ int client_read_blob(StrBuf *Target, int bytes, int timeout) { CitContext *CCC=CC; const char *Error; int retval = 0; #ifdef HAVE_OPENSSL if (CCC->redirect_ssl) { #ifdef BIGBAD_IODBG int rv = 0; char fn [SIZ]; FILE *fd; snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Reading BLOB: BufSize: %d ", bytes); rv = fwrite(ChrPtr(Target), StrLength(Target), 1, fd); fprintf(fd, "]\n"); fclose(fd); #endif retval = client_read_sslblob(Target, bytes, timeout); if (retval < 0) { syslog(LOG_CRIT, "client_read_blob() failed"); } #ifdef BIGBAD_IODBG snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Read: %d BufContent: [", StrLength(Target)); rv = fwrite(ChrPtr(Target), StrLength(Target), 1, fd); fprintf(fd, "]\n"); fclose(fd); #endif } else #endif { #ifdef BIGBAD_IODBG int rv = 0; char fn [SIZ]; FILE *fd; snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Reading BLOB: BufSize: %d ", bytes); rv = fwrite(ChrPtr(Target), StrLength(Target), 1, fd); fprintf(fd, "]\n"); fclose(fd); #endif retval = StrBufReadBLOBBuffered(Target, CCC->RecvBuf.Buf, &CCC->RecvBuf.ReadWritePointer, &CCC->client_socket, 1, bytes, O_TERM, &Error); if (retval < 0) { syslog(LOG_CRIT, "client_read_blob() failed: %s", Error); client_close(); return retval; } #ifdef BIGBAD_IODBG snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Read: %d BufContent: [", StrLength(Target)); rv = fwrite(ChrPtr(Target), StrLength(Target), 1, fd); fprintf(fd, "]\n"); fclose(fd); #endif } return retval; } /* * to make client_read_random_blob() more efficient, increase buffer size. * just use in greeting function, else your buffer may be flushed */ void client_set_inbound_buf(long N) { CitContext *CCC=CC; FlushStrBuf(CCC->RecvBuf.Buf); ReAdjustEmptyBuf(CCC->RecvBuf.Buf, N * SIZ, N * SIZ); } int client_read_random_blob(StrBuf *Target, int timeout) { CitContext *CCC=CC; int rc; rc = client_read_blob(Target, 1, timeout); if (rc > 0) { long len; const char *pch; len = StrLength(CCC->RecvBuf.Buf); pch = ChrPtr(CCC->RecvBuf.Buf); if (len > 0) { if (CCC->RecvBuf.ReadWritePointer != NULL) { len -= CCC->RecvBuf.ReadWritePointer - pch; pch = CCC->RecvBuf.ReadWritePointer; } StrBufAppendBufPlain(Target, pch, len, 0); FlushStrBuf(CCC->RecvBuf.Buf); CCC->RecvBuf.ReadWritePointer = NULL; #ifdef BIGBAD_IODBG { int rv = 0; char fn [SIZ]; FILE *fd; snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } fprintf(fd, "Read: BufSize: %d BufContent: [", StrLength(Target)); rv = fwrite(ChrPtr(Target), StrLength(Target), 1, fd); fprintf(fd, "]\n"); fclose(fd); } #endif return StrLength(Target); } return rc; } else return rc; } int client_read_to(char *buf, int bytes, int timeout) { CitContext *CCC=CC; int rc; rc = client_read_blob(CCC->MigrateBuf, bytes, timeout); if (rc < 0) { *buf = '\0'; return rc; } else { memcpy(buf, ChrPtr(CCC->MigrateBuf), StrLength(CCC->MigrateBuf) + 1); FlushStrBuf(CCC->MigrateBuf); return rc; } } int HaveMoreLinesWaiting(CitContext *CCC) { if ((CCC->kill_me != 0) || ( (CCC->RecvBuf.ReadWritePointer == NULL) && (StrLength(CCC->RecvBuf.Buf) == 0) && (CCC->client_socket != -1)) ) return 0; else return 1; } /* * Read data from the client socket with default timeout. * (This is implemented in terms of client_read_to() and could be * justifiably moved out of sysdep.c) */ INLINE int client_read(char *buf, int bytes) { return(client_read_to(buf, bytes, CtdlGetConfigInt("c_sleeping"))); } int CtdlClientGetLine(StrBuf *Target) { CitContext *CCC=CC; const char *Error; int rc; FlushStrBuf(Target); #ifdef HAVE_OPENSSL if (CCC->redirect_ssl) { #ifdef BIGBAD_IODBG char fn [SIZ]; FILE *fd; int len = 0; int rlen = 0; int nlen = 0; int nrlen = 0; const char *pch; snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } pch = ChrPtr(CCC->RecvBuf.Buf); len = StrLength(CCC->RecvBuf.Buf); if (CCC->RecvBuf.ReadWritePointer != NULL) rlen = CCC->RecvBuf.ReadWritePointer - pch; else rlen = 0; /* fprintf(fd, "\n\n\nBufSize: %d BufPos: %d \nBufContent: [%s]\n\n_____________________\n", len, rlen, pch); */ fprintf(fd, "\n\n\nSSL1: BufSize: %d BufPos: %d \n_____________________\n", len, rlen); #endif rc = client_readline_sslbuffer(Target, CCC->RecvBuf.Buf, &CCC->RecvBuf.ReadWritePointer, 1); #ifdef BIGBAD_IODBG pch = ChrPtr(CCC->RecvBuf.Buf); nlen = StrLength(CCC->RecvBuf.Buf); if (CCC->RecvBuf.ReadWritePointer != NULL) nrlen = CCC->RecvBuf.ReadWritePointer - pch; else nrlen = 0; /* fprintf(fd, "\n\n\nBufSize: was: %d is: %d BufPos: was: %d is: %d \nBufContent: [%s]\n\n_____________________\n", len, nlen, rlen, nrlen, pch); */ fprintf(fd, "\n\n\nSSL2: BufSize: was: %d is: %d BufPos: was: %d is: %d \n", len, nlen, rlen, nrlen); fprintf(fd, "SSL3: Read: BufSize: %d BufContent: [%s]\n\n*************\n", StrLength(Target), ChrPtr(Target)); fclose(fd); if (rc < 0) { syslog(LOG_CRIT, "CtdlClientGetLine() failed"); } #endif return rc; } else #endif { #ifdef BIGBAD_IODBG char fn [SIZ]; FILE *fd; int len, rlen, nlen, nrlen; const char *pch; snprintf(fn, SIZ, "/tmp/foolog_%s.%d", CCC->ServiceName, CCC->cs_pid); fd = fopen(fn, "a+"); if (fd == NULL) { syslog(LOG_EMERG, "failed to open file %s: %s", fn, strerror(errno)); cit_backtrace(); exit(1); } pch = ChrPtr(CCC->RecvBuf.Buf); len = StrLength(CCC->RecvBuf.Buf); if (CCC->RecvBuf.ReadWritePointer != NULL) rlen = CCC->RecvBuf.ReadWritePointer - pch; else rlen = 0; /* fprintf(fd, "\n\n\nBufSize: %d BufPos: %d \nBufContent: [%s]\n\n_____________________\n", len, rlen, pch); */ fprintf(fd, "\n\n\nBufSize: %d BufPos: %d \n_____________________\n", len, rlen); #endif rc = StrBufTCP_read_buffered_line_fast(Target, CCC->RecvBuf.Buf, &CCC->RecvBuf.ReadWritePointer, &CCC->client_socket, 5, 1, &Error); #ifdef BIGBAD_IODBG pch = ChrPtr(CCC->RecvBuf.Buf); nlen = StrLength(CCC->RecvBuf.Buf); if (CCC->RecvBuf.ReadWritePointer != NULL) nrlen = CCC->RecvBuf.ReadWritePointer - pch; else nrlen = 0; /* fprintf(fd, "\n\n\nBufSize: was: %d is: %d BufPos: was: %d is: %d \nBufContent: [%s]\n\n_____________________\n", len, nlen, rlen, nrlen, pch); */ fprintf(fd, "\n\n\nBufSize: was: %d is: %d BufPos: was: %d is: %d \n", len, nlen, rlen, nrlen); fprintf(fd, "Read: BufSize: %d BufContent: [%s]\n\n*************\n", StrLength(Target), ChrPtr(Target)); fclose(fd); if ((rc < 0) && (Error != NULL)) { syslog(LOG_CRIT, "CtdlClientGetLine() failed: %s", Error); } #endif return rc; } } /* * client_getln() ... Get a LF-terminated line of text from the client. * (This is implemented in terms of client_read() and could be * justifiably moved out of sysdep.c) */ int client_getln(char *buf, int bufsize) { int i, retval; CitContext *CCC=CC; const char *pCh; retval = CtdlClientGetLine(CCC->MigrateBuf); if (retval < 0) return(retval >= 0); i = StrLength(CCC->MigrateBuf); pCh = ChrPtr(CCC->MigrateBuf); /* Strip the trailing LF, and the trailing CR if present. */ if (bufsize <= i) i = bufsize - 1; while ( (i > 0) && ( (pCh[i - 1]==13) || ( pCh[i - 1]==10)) ) { i--; } memcpy(buf, pCh, i); buf[i] = 0; FlushStrBuf(CCC->MigrateBuf); if (retval < 0) { safestrncpy(&buf[i], "000", bufsize - i); } return(retval >= 0); } /* * Cleanup any contexts that are left lying around */ void close_masters (void) { struct ServiceFunctionHook *serviceptr; const char *Text; /* * close all protocol master sockets */ for (serviceptr = ServiceHookTable; serviceptr != NULL; serviceptr = serviceptr->next ) { if (serviceptr->tcp_port > 0) { if (serviceptr->msock == -1) Text = "not closing again"; else Text = "Closing"; syslog(LOG_INFO, "%s %d listener on port %d\n", Text, serviceptr->msock, serviceptr->tcp_port); serviceptr->tcp_port = 0; } if (serviceptr->sockpath != NULL) { if (serviceptr->msock == -1) Text = "not closing again"; else Text = "Closing"; syslog(LOG_INFO, "%s %d listener on '%s'\n", Text, serviceptr->msock, serviceptr->sockpath); } if (serviceptr->msock != -1) { close(serviceptr->msock); serviceptr->msock = -1; } /* If it's a Unix domain socket, remove the file. */ if (serviceptr->sockpath != NULL) { unlink(serviceptr->sockpath); serviceptr->sockpath = NULL; } } } /* * The system-dependent part of master_cleanup() - close the master socket. */ void sysdep_master_cleanup(void) { close_masters(); context_cleanup(); #ifdef HAVE_OPENSSL destruct_ssl(); #endif CtdlDestroyProtoHooks(); CtdlDestroyDeleteHooks(); CtdlDestroyXmsgHooks(); CtdlDestroyNetprocHooks(); CtdlDestroyUserHooks(); CtdlDestroyMessageHook(); CtdlDestroyCleanupHooks(); CtdlDestroyFixedOutputHooks(); CtdlDestroySessionHooks(); CtdlDestroyTDAPVetoHooks(); CtdlDestroyServiceHook(); CtdlDestroyRoomHooks(); CtdlDestroySearchHooks(); CtdlDestroyDebugTable(); #ifdef HAVE_BACKTRACE /// eCrash_Uninit(); #endif } pid_t current_child; void graceful_shutdown(int signum) { kill(current_child, signum); unlink(file_pid_file); exit(0); } int nFireUps = 0; int nFireUpsNonRestart = 0; pid_t ForkedPid = 1; /* * Start running as a daemon. */ void start_daemon(int unused) { int status = 0; pid_t child = 0; FILE *fp; int do_restart = 0; current_child = 0; /* Close stdin/stdout/stderr and replace them with /dev/null. * We don't just call close() because we don't want these fd's * to be reused for other files. */ if (chdir(ctdl_run_dir) != 0) syslog(LOG_EMERG, "unable to change into directory [%s]: %s", ctdl_run_dir, strerror(errno)); child = fork(); if (child != 0) { exit(0); } signal(SIGHUP, SIG_IGN); signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN); setsid(); umask(0); if ((freopen("/dev/null", "r", stdin) != stdin) || (freopen("/dev/null", "w", stdout) != stdout) || (freopen("/dev/null", "w", stderr) != stderr)) syslog(LOG_EMERG, "unable to reopen stdin/out/err %s", strerror(errno)); do { current_child = fork(); signal(SIGTERM, graceful_shutdown); if (current_child < 0) { perror("fork"); exit(errno); } else if (current_child == 0) { return; /* continue starting citadel. */ } else { fp = fopen(file_pid_file, "w"); if (fp != NULL) { fprintf(fp, ""F_PID_T"\n", getpid()); fclose(fp); } waitpid(current_child, &status, 0); } nFireUpsNonRestart = nFireUps; /* Exit code 0 means the watcher should exit */ if (WIFEXITED(status) && (WEXITSTATUS(status) == CTDLEXIT_SHUTDOWN)) { do_restart = 0; } /* Exit code 101-109 means the watcher should exit */ else if (WIFEXITED(status) && (WEXITSTATUS(status) >= 101) && (WEXITSTATUS(status) <= 109)) { do_restart = 0; } /* Any other exit code, or no exit code, means we should restart. */ else { do_restart = 1; nFireUps++; ForkedPid = current_child; } } while (do_restart); unlink(file_pid_file); exit(WEXITSTATUS(status)); } void checkcrash(void) { if (nFireUpsNonRestart != nFireUps) { StrBuf *CrashMail; const char *msgs[1] = {"crash"}; const long lens[1] = {sizeof("crash") - 1}; CrashMail = NewStrBuf(); syslog(LOG_ALERT, "Posting crash message\n"); StrBufPrintf(CrashMail, " \n" " The Citadel server process (citserver) terminated unexpectedly." "\n \n" " This could be the result of a bug in the server program, or some external " "factor.\n \n" " You can obtain more information about this by enabling core dumps.\n \n" " For more information, please see:\n \n" " http://citadel.org/doku.php?id=faq:mastering_your_os:gdb#how.do.i.make.my.system.produce.core-files" "\n \n" " If you have already done this, the core dump is likely to be found at %score.%d\n" , ctdl_run_dir, ForkedPid); CtdlAideFPMessage(ChrPtr(CrashMail), "Citadel server process terminated unexpectedly", 1, msgs, lens, 0, 0, time(NULL)); FreeStrBuf(&CrashMail); } } /* * Generic routine to convert a login name to a full name (gecos) * Returns nonzero if a conversion took place */ int convert_login(char NameToConvert[]) { struct passwd *pw; unsigned int a; pw = getpwnam(NameToConvert); if (pw == NULL) { return(0); } else { strcpy(NameToConvert, pw->pw_gecos); for (a=0; anext) { if ((ptr->state == CON_SYS) && (ptr->client_socket == 0)) continue; /* Initialize the fdset. */ FD_ZERO(&readfds); highest = 0; tv.tv_sec = 0; /* wake up every second if no input */ tv.tv_usec = 0; /* Don't select on dead sessions, only truly idle ones */ if ( (ptr->state == CON_IDLE) && (ptr->kill_me == 0) && (ptr->client_socket > 0) ) { FD_SET(ptr->client_socket, &readfds); if (ptr->client_socket > highest) highest = ptr->client_socket; if ((select(highest + 1, &readfds, NULL, NULL, &tv) < 0) && (errno == EBADF)) { /* Gotcha! */ syslog(LOG_EMERG, "Killing Session CC[%d] bad FD: [%d:%d] User[%s] Host[%s:%s]\n", ptr->cs_pid, ptr->client_socket, ptr->is_local_socket, ptr->curr_user, ptr->cs_host,ptr->cs_addr); ptr->kill_me = 1; ptr->client_socket = -1; break; } } } end_critical_section(S_SESSION_TABLE); /* First, add the various master sockets to the fdset. */ for (serviceptr = ServiceHookTable; serviceptr != NULL; serviceptr = serviceptr->next ) { /* Initialize the fdset. */ highest = 0; tv.tv_sec = 0; /* wake up every second if no input */ tv.tv_usec = 0; FD_SET(serviceptr->msock, &readfds); if (serviceptr->msock > highest) { highest = serviceptr->msock; } if ((select(highest + 1, &readfds, NULL, NULL, &tv) < 0) && (errno == EBADF)) { /* Gotcha! server socket dead? commit suicide! */ syslog(LOG_EMERG, "Found bad FD: %d and its a server socket! Shutting Down!\n", serviceptr->msock); server_shutting_down = 1; break; } } } const char *WorkerLogStr = "W"; /* * This loop just keeps going and going and going... */ void *worker_thread(void *blah) { int highest; CitContext *ptr; CitContext *bind_me = NULL; fd_set readfds; int retval = 0; struct timeval tv; int force_purge = 0; struct ServiceFunctionHook *serviceptr; int ssock; /* Descriptor for client socket */ CitContext *con = NULL; /* Temporary context pointer */ int i; pthread_mutex_lock(&ThreadCountMutex); ++num_workers; pthread_mutex_unlock(&ThreadCountMutex); pthread_setspecific(evConKey, WorkerLogStr); while (!server_shutting_down) { /* make doubly sure we're not holding any stale db handles * which might cause a deadlock. */ cdb_check_handles(); do_select: force_purge = 0; bind_me = NULL; /* Which session shall we handle? */ /* Initialize the fdset. */ FD_ZERO(&readfds); highest = 0; /* First, add the various master sockets to the fdset. */ for (serviceptr = ServiceHookTable; serviceptr != NULL; serviceptr = serviceptr->next ) { FD_SET(serviceptr->msock, &readfds); if (serviceptr->msock > highest) { highest = serviceptr->msock; } } /* Next, add all of the client sockets. */ begin_critical_section(S_SESSION_TABLE); for (ptr = ContextList; ptr != NULL; ptr = ptr->next) { if ((ptr->state == CON_SYS) && (ptr->client_socket == 0)) continue; /* Don't select on dead sessions, only truly idle ones */ if ( (ptr->state == CON_IDLE) && (ptr->kill_me == 0) && (ptr->client_socket > 0) ) { FD_SET(ptr->client_socket, &readfds); if (ptr->client_socket > highest) highest = ptr->client_socket; } if ((bind_me == NULL) && (ptr->state == CON_READY)) { bind_me = ptr; ptr->state = CON_EXECUTING; break; } if ((bind_me == NULL) && (ptr->state == CON_GREETING)) { bind_me = ptr; ptr->state = CON_STARTING; break; } } end_critical_section(S_SESSION_TABLE); if (bind_me) { goto SKIP_SELECT; } /* If we got this far, it means that there are no sessions * which a previous thread marked for attention, so we go * ahead and get ready to select(). */ if (!server_shutting_down) { tv.tv_sec = 1; /* wake up every second if no input */ tv.tv_usec = 0; retval = select(highest + 1, &readfds, NULL, NULL, &tv); } else { --num_workers; return NULL; } /* Now figure out who made this select() unblock. * First, check for an error or exit condition. */ if (retval < 0) { if (errno == EBADF) { syslog(LOG_EMERG, "select() failed: (%s)\n", strerror(errno)); HuntBadSession (); goto do_select; } if (errno != EINTR) { syslog(LOG_EMERG, "Exiting (%s)\n", strerror(errno)); server_shutting_down = 1; continue; } else { #if 0 syslog(LOG_DEBUG, "Interrupted select()\n"); #endif if (server_shutting_down) { --num_workers; return(NULL); } goto do_select; } } else if (retval == 0) { if (server_shutting_down) { --num_workers; return(NULL); } } /* Next, check to see if it's a new client connecting * on a master socket. */ else if ((retval > 0) && (!server_shutting_down)) for (serviceptr = ServiceHookTable; serviceptr != NULL; serviceptr = serviceptr->next) { if (FD_ISSET(serviceptr->msock, &readfds)) { ssock = accept(serviceptr->msock, NULL, 0); if (ssock >= 0) { syslog(LOG_DEBUG, "New client socket %d", ssock); /* The master socket is non-blocking but the client * sockets need to be blocking, otherwise certain * operations barf on FreeBSD. Not a fatal error. */ if (fcntl(ssock, F_SETFL, 0) < 0) { syslog(LOG_EMERG, "citserver: Can't set socket to blocking: %s\n", strerror(errno)); } /* New context will be created already * set up in the CON_EXECUTING state. */ con = CreateNewContext(); /* Assign our new socket number to it. */ con->tcp_port = serviceptr->tcp_port; con->client_socket = ssock; con->h_command_function = serviceptr->h_command_function; con->h_async_function = serviceptr->h_async_function; con->h_greeting_function = serviceptr->h_greeting_function; con->ServiceName = serviceptr->ServiceName; /* Determine whether it's a local socket */ if (serviceptr->sockpath != NULL) { con->is_local_socket = 1; } /* Set the SO_REUSEADDR socket option */ i = 1; setsockopt(ssock, SOL_SOCKET, SO_REUSEADDR, &i, sizeof(i)); con->state = CON_GREETING; retval--; if (retval == 0) break; } } } /* It must be a client socket. Find a context that has data * waiting on its socket *and* is in the CON_IDLE state. Any * active sockets other than our chosen one are marked as * CON_READY so the next thread that comes around can just bind * to one without having to select() again. */ begin_critical_section(S_SESSION_TABLE); for (ptr = ContextList; ptr != NULL; ptr = ptr->next) { int checkfd = ptr->client_socket; if ((checkfd != -1) && (ptr->state == CON_IDLE) ){ if (FD_ISSET(checkfd, &readfds)) { ptr->input_waiting = 1; if (!bind_me) { bind_me = ptr; /* I choose you! */ bind_me->state = CON_EXECUTING; } else { ptr->state = CON_READY; } } else if ((ptr->is_async) && (ptr->async_waiting) && (ptr->h_async_function)) { if (!bind_me) { bind_me = ptr; /* I choose you! */ bind_me->state = CON_EXECUTING; } else { ptr->state = CON_READY; } } } } end_critical_section(S_SESSION_TABLE); SKIP_SELECT: /* We're bound to a session */ pthread_mutex_lock(&ThreadCountMutex); ++active_workers; pthread_mutex_unlock(&ThreadCountMutex); if (bind_me != NULL) { become_session(bind_me); if (bind_me->state == CON_STARTING) { bind_me->state = CON_EXECUTING; begin_session(bind_me); bind_me->h_greeting_function(); } /* If the client has sent a command, execute it. */ if (CC->input_waiting) { CC->h_command_function(); while (HaveMoreLinesWaiting(CC)) CC->h_command_function(); CC->input_waiting = 0; } /* If there are asynchronous messages waiting and the * client supports it, do those now */ if ((CC->is_async) && (CC->async_waiting) && (CC->h_async_function != NULL)) { CC->h_async_function(); CC->async_waiting = 0; } force_purge = CC->kill_me; become_session(NULL); bind_me->state = CON_IDLE; } dead_session_purge(force_purge); do_housekeeping(); pthread_mutex_lock(&ThreadCountMutex); --active_workers; if ((active_workers + CtdlGetConfigInt("c_min_workers") < num_workers) && (num_workers > CtdlGetConfigInt("c_min_workers"))) { num_workers--; pthread_mutex_unlock(&ThreadCountMutex); return (NULL); } pthread_mutex_unlock(&ThreadCountMutex); } /* If control reaches this point, the server is shutting down */ pthread_mutex_lock(&ThreadCountMutex); --num_workers; pthread_mutex_unlock(&ThreadCountMutex); return(NULL); } /* * SyslogFacility() * Translate text facility name to syslog.h defined value. */ int SyslogFacility(char *name) { int i; struct { int facility; char *name; } facTbl[] = { { LOG_KERN, "kern" }, { LOG_USER, "user" }, { LOG_MAIL, "mail" }, { LOG_DAEMON, "daemon" }, { LOG_AUTH, "auth" }, { LOG_SYSLOG, "syslog" }, { LOG_LPR, "lpr" }, { LOG_NEWS, "news" }, { LOG_UUCP, "uucp" }, { LOG_LOCAL0, "local0" }, { LOG_LOCAL1, "local1" }, { LOG_LOCAL2, "local2" }, { LOG_LOCAL3, "local3" }, { LOG_LOCAL4, "local4" }, { LOG_LOCAL5, "local5" }, { LOG_LOCAL6, "local6" }, { LOG_LOCAL7, "local7" }, { 0, NULL } }; for(i = 0; facTbl[i].name != NULL; i++) { if(!strcasecmp(name, facTbl[i].name)) return facTbl[i].facility; } return LOG_DAEMON; } citadel-902/sysdep.h.in000066400000000000000000000251521271512031400150610ustar00rootroot00000000000000/* sysdep.h.in. Generated from configure.ac by autoheader. */ /* where to search our automatic config files */ #undef AUTO_ETC_DIR /* define this to the Citadel home directory */ #undef CTDLDIR /* define, if the user suplied a data-directory to use. */ #undef DATA_DIR /* the socket from Pseudo Random Generator */ #undef EGD_POOL /* whether we have NLS support */ #undef ENABLE_NLS /* where to search our config files */ #undef ETC_DIR /* whats the matching format string for pid_t? */ #undef F_PID_T /* whats the matching format string for uid_t? */ #undef F_UID_T /* whats the matching format string for xpid_t? */ #undef F_XPID_T /* Define to 1 if the `getpgrp' function requires zero arguments. */ #undef GETPGRP_VOID /* Define to 1 if you have the header file. */ #undef HAVE_ARPA_NAMESER_COMPAT_H /* Define to 1 if you have the header file. */ #undef HAVE_ARPA_NAMESER_H /* should we search our automatic config in an alternate place? */ #undef HAVE_AUTO_ETC_DIR /* Define to 1 if you have the `backtrace' function. */ #undef HAVE_BACKTRACE /* Define to 1 if you have the `connect' function. */ #undef HAVE_CONNECT /* Define to 1 if you have the `crypt' function. */ #undef HAVE_CRYPT /* Define to use c-ares library */ #undef HAVE_C_ARES /* define if using OS X/Darwin */ #undef HAVE_DARWIN /* use alternate database location? */ #undef HAVE_DATA_DIR /* Define to 1 if you have the header file. */ #undef HAVE_DB4_DB_H /* Define to 1 if you have the header file. */ #undef HAVE_DB_H /* Define to 1 if you have the header file, and it defines `DIR'. */ #undef HAVE_DIRENT_H /* Define to 1 if you have the header file. */ #undef HAVE_DL_H /* Define to 1 if you don't have `vprintf' but do have `_doprnt.' */ #undef HAVE_DOPRNT /* should we search our system config in an alternate place? */ #undef HAVE_ETC_DIR /* Define to 1 if you have the header file. */ #undef HAVE_FCNTL_H /* Define to 1 if you have the `flock' function. */ #undef HAVE_FLOCK /* Define to 1 if you have the `gethostbyname' function. */ #undef HAVE_GETHOSTBYNAME /* Define to 1 if you have the `getloadavg' function. */ #undef HAVE_GETLOADAVG /* Define to 1 if you have the `getpwnam_r' function. */ #undef HAVE_GETPWNAM_R /* Define to 1 if you have the `getpwuid_r' function. */ #undef HAVE_GETPWUID_R /* Define to 1 if you have the `getspnam' function. */ #undef HAVE_GETSPNAM /* Define to 1 if you have the `gettext' function. */ #undef HAVE_GETTEXT /* Define to 1 if you have the `getutxline' function. */ #undef HAVE_GETUTXLINE /* use alternate database location? */ #undef HAVE_HELP_DIR /* whether we have iconv for charset conversion */ #undef HAVE_ICONV /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* define this if you have OpenLDAP client available */ #undef HAVE_LDAP /* Define to 1 if you have the header file. */ #undef HAVE_LDAP_H /* Define to 1 if you have the `nsl' library (-lnsl). */ #undef HAVE_LIBNSL /* Define to 1 if you have the `pthread' library (-lpthread). */ #undef HAVE_LIBPTHREAD /* Define to 1 if you have the `pthreads' library (-lpthreads). */ #undef HAVE_LIBPTHREADS /* Define to 1 if you have the `rt' library (-lrt). */ #undef HAVE_LIBRT /* Define to 1 if you have the `socket' library (-lsocket). */ #undef HAVE_LIBSOCKET /* Define to 1 if you have the header file. */ #undef HAVE_LIMITS_H /* Define to 1 if you have the header file. */ #undef HAVE_MALLOC_H /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the `mkdir' function. */ #undef HAVE_MKDIR /* Define to 1 if you have the `mkfifo' function. */ #undef HAVE_MKFIFO /* Define to 1 if you have the `mktime' function. */ #undef HAVE_MKTIME /* Define to 1 if you have the header file, and it defines `DIR'. */ #undef HAVE_NDIR_H /* Define to 1 if you have the header file. */ #undef HAVE_NETINET_IN_H /* define this if the OS has broken non-reentrant gethostby{name,addr}() */ #undef HAVE_NONREENTRANT_NETDB /* Define if you have OpenSSL. */ #undef HAVE_OPENSSL /* Define to 1 if you have the `pam_start' function. */ #undef HAVE_PAM_START /* Define to 1 if you have the header file. */ #undef HAVE_PATHS_H /* define this if you have the pthread_cancel() function */ #undef HAVE_PTHREAD_CANCEL /* Define to 1 if you have the header file. */ #undef HAVE_PTHREAD_H /* Define to 1 if you have the `resizeterm' function. */ #undef HAVE_RESIZETERM /* define this if you have the resolv.h header file. */ #undef HAVE_RESOLV_H /* Define to 1 if you have the `rmdir' function. */ #undef HAVE_RMDIR /* should we put our non volatile files elsewhere? */ #undef HAVE_RUN_DIR /* Define to 1 if you have the `select' function. */ #undef HAVE_SELECT /* Define to 1 if you have the `socket' function. */ #undef HAVE_SOCKET /* enable alternate spool dir? */ #undef HAVE_SPOOL_DIR /* should we activate an alternate static text location? */ #undef HAVE_STATICDATA_DIR /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the `strcasecmp' function. */ #undef HAVE_STRCASECMP /* Define to 1 if you have the `strerror' function. */ #undef HAVE_STRERROR /* Define to 1 if you have the `strftime_l' function. */ #undef HAVE_STRFTIME_L /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the `strncasecmp' function. */ #undef HAVE_STRNCASECMP /* Define to 1 if `tm_gmtoff' is a member of `struct tm'. */ #undef HAVE_STRUCT_TM_TM_GMTOFF /* Define if struct ucred is present from sys/socket.h */ #undef HAVE_STRUCT_UCRED /* Define to 1 if you have the header file. */ #undef HAVE_SYSCALL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYSLOG_H /* Define to 1 if you have the header file, and it defines `DIR'. */ #undef HAVE_SYS_DIR_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_IOCTL_H /* Define to 1 if you have the header file, and it defines `DIR'. */ #undef HAVE_SYS_NDIR_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_PRCTL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SELECT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SYSCALL_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TIME_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have that is POSIX.1 compatible. */ #undef HAVE_SYS_WAIT_H /* Define to 1 if you have the header file. */ #undef HAVE_TERMIOS_H /* Define if you don't have `tm_gmtoff' but do have the external variable `timezone'. */ #undef HAVE_TIMEZONE /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to 1 if you have the `uselocale' function. */ #undef HAVE_USELOCALE /* should we put our helper binaries to another location? */ #undef HAVE_UTILBIN_DIR /* Define to 1 if you have the header file. */ #undef HAVE_UTMPX_H /* Define to 1 if you have the header file. */ #undef HAVE_UTMP_H /* define this if struct utmp has an ut_host member */ #undef HAVE_UT_HOST /* define this if struct utmp has an ut_type member */ #undef HAVE_UT_TYPE /* Define to 1 if you have the `vprintf' function. */ #undef HAVE_VPRINTF /* Define to 1 if you have the `vw_printw' function. */ #undef HAVE_VW_PRINTW /* Define to 1 if you have the `wcolor_set' function. */ #undef HAVE_WCOLOR_SET /* Define to 1 if you have the `wresize' function. */ #undef HAVE_WRESIZE /* define, if the user suplied a helpfile-directory to use. */ #undef HELP_DIR /* where to find our pot files */ #undef LOCALEDIR /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the home page for this package. */ #undef PACKAGE_URL /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define as the return type of signal handlers (`int' or `void'). */ #undef RETSIGTYPE /* define, where the config should go in unix style */ #undef RUN_DIR /* The size of `char', as computed by sizeof. */ #undef SIZEOF_CHAR /* The size of `int', as computed by sizeof. */ #undef SIZEOF_INT /* The size of `loff_t', as computed by sizeof. */ #undef SIZEOF_LOFF_T /* The size of `long', as computed by sizeof. */ #undef SIZEOF_LONG /* The size of `short', as computed by sizeof. */ #undef SIZEOF_SHORT /* The size of `size_t', as computed by sizeof. */ #undef SIZEOF_SIZE_T /* do we need to use solaris call syntax? */ #undef SOLARIS_GETPWUID /* where do we place our spool dirs? */ #undef SPOOL_DIR /* were should we put our keys? */ #undef SSL_DIR /* where do we put our static text data? */ #undef STATICDATA_DIR /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define to 1 if you can safely include both and . */ #undef TIME_WITH_SYS_TIME /* Define to 1 if your declares `struct tm'. */ #undef TM_IN_SYS_TIME /* Enable extensions on AIX 3, Interix. */ #ifndef _ALL_SOURCE # undef _ALL_SOURCE #endif /* Enable GNU extensions on systems that have them. */ #ifndef _GNU_SOURCE # undef _GNU_SOURCE #endif /* Enable threading extensions on Solaris. */ #ifndef _POSIX_PTHREAD_SEMANTICS # undef _POSIX_PTHREAD_SEMANTICS #endif /* Enable extensions on HP NonStop. */ #ifndef _TANDEM_SOURCE # undef _TANDEM_SOURCE #endif /* Enable general extensions on Solaris. */ #ifndef __EXTENSIONS__ # undef __EXTENSIONS__ #endif /* were to put our helper programs */ #undef UTILBIN_DIR /* Define to 1 if on MINIX. */ #undef _MINIX /* Define to 2 if the system does not provide POSIX.1 features except with this defined. */ #undef _POSIX_1_SOURCE /* Define to 1 if you need to in order for `stat' and other things to work. */ #undef _POSIX_SOURCE /* Define to empty if `const' does not conform to ANSI C. */ #undef const /* Define to `int' if does not define. */ #undef pid_t /* Define to `unsigned int' if does not define. */ #undef size_t citadel-902/sysdep_decls.h000066400000000000000000000037721271512031400156320ustar00rootroot00000000000000 #ifndef SYSDEP_DECLS_H #define SYSDEP_DECLS_H #include #include "sysdep.h" #ifdef HAVE_PTHREAD_H #include #endif #ifdef HAVE_DB_H #include #elif defined(HAVE_DB4_DB_H) #include #else #error Neither nor was found by configure. Install db4-devel. #endif #if DB_VERSION_MAJOR < 4 || DB_VERSION_MINOR < 1 #error Citadel requires Berkeley DB v4.1 or newer. Please upgrade. #endif #include "server.h" #include "database.h" #if SIZEOF_SIZE_T == SIZEOF_INT #define SIZE_T_FMT "%d" #else #define SIZE_T_FMT "%ld" #endif #if SIZEOF_LOFF_T == SIZEOF_LONG #define LOFF_T_FMT "%ld" #else #define LOFF_T_FMT "%lld" #endif void cputbuf(const StrBuf *Buf); #ifdef __GNUC__ void cprintf (const char *format, ...) __attribute__((__format__(__printf__,1,2))); #else void cprintf (const char *format, ...); #endif void init_sysdep (void); int ctdl_tcp_server(char *ip_addr, int port_number, int queue_len, char *errormessage); int ctdl_uds_server(char *sockpath, int queue_len, char *errormessage); void buffer_output(void); void unbuffer_output(void); void flush_output(void); int client_write (const char *buf, int nbytes); int client_read_to (char *buf, int bytes, int timeout); int client_read (char *buf, int bytes); int client_getln (char *buf, int maxbytes); int CtdlClientGetLine(StrBuf *Target); int client_read_blob(StrBuf *Target, int bytes, int timeout); void client_set_inbound_buf(long N); int client_read_random_blob(StrBuf *Target, int timeout); void client_close(void); void sysdep_master_cleanup (void); void kill_session (int session_to_kill); void start_daemon (int do_close_stdio); void checkcrash(void); int convert_login (char *NameToConvert); void init_master_fdset(void); void *worker_thread(void *); extern volatile int exit_signal; extern volatile int shutdown_and_halt; extern volatile int running_as_daemon; extern volatile int restart_server; extern int verbosity; extern int rescan[]; extern int SyslogFacility(char *name); #endif /* SYSDEP_DECLS_H */ citadel-902/threads.c000066400000000000000000000120131271512031400145620ustar00rootroot00000000000000/* * Thread handling stuff for Citadel server * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include #include #include #include "modules_init.h" #include "serv_extensions.h" #include "ctdl_module.h" #include "config.h" #include "context.h" #include "threads.h" int num_workers = 0; /* Current number of worker threads */ int active_workers = 0; /* Number of ACTIVE worker threads */ pthread_key_t ThreadKey; pthread_mutex_t Critters[MAX_SEMAPHORES]; /* Things needing locking */ struct thread_tsd masterTSD; int server_shutting_down = 0; /* set to nonzero during shutdown */ pthread_mutex_t ThreadCountMutex;; void InitializeSemaphores(void) { int i; /* Set up a bunch of semaphores to be used for critical sections */ for (i=0; i 0) && (countdown-- > 0)) { syslog(LOG_DEBUG, "Waiting %d seconds for %d worker threads to exit", countdown, num_workers ); usleep(1000000); } } citadel-902/threads.h000066400000000000000000000020561271512031400145750ustar00rootroot00000000000000 #ifndef THREADS_H #define THREADS_H #include "sysdep.h" #ifdef HAVE_PTHREAD_H #include #endif #include #include #ifdef HAVE_DB_H #include #elif defined(HAVE_DB4_DB_H) #include #else #error Neither nor was found by configure. Install db4-devel. #endif #include "server.h" #include "sysdep_decls.h" /* * Things we need to keep track of per-thread instead of per-session */ struct thread_tsd { DB_TXN *tid; /* Transaction handle */ DBC *cursors[MAXCDB]; /* Cursors, for traversals... */ }; extern struct thread_tsd masterTSD; #define TSD MyThread() extern int num_workers; extern int active_workers; extern int server_shutting_down; struct thread_tsd *MyThread(void); int try_critical_section (int which_one); void begin_critical_section (int which_one); void end_critical_section (int which_one); void go_threading(void); void InitializeMasterTSD(void); void CtdlThreadCreate(void *(*start_routine)(void*)); extern pthread_mutex_t ThreadCountMutex;; #endif // THREADS_H citadel-902/typesize.h000066400000000000000000000040431271512031400150150ustar00rootroot00000000000000 /* This file defines typedefs for 8, 16, and 32 bit integers. They are: cit_int8_t default 8-bit int cit_int16_t default 16-bit int cit_int32_t default 32-bit int cit_int64_t default 64-bit int (not implemented yet) cit_sint8_t signed 8-bit int cit_sint16_t signed 16-bit int cit_sint32_t signed 32-bit int cit_sint64_t signed 64-bit int (not implemented yet) cit_uint8_t unsigned 8-bit int cit_uint16_t unsigned 16-bit int cit_uint32_t unsigned 32-bit int cit_uint64_t unsigned 64-bit int (not implemented yet) The sizes are determined during the configure process; see the AC_CHECK_SIZEOF macros in configure.in. In no way do we assume that any given datatype is any particular width, e.g. we don't assume short is two bytes; we check for it specifically. This might seem excessively paranoid, but I've seen some WEIRD systems and some bizarre compilers (Domain/OS for instance) in my time. */ #ifndef _CITADEL_UX_TYPESIZE_H #define _CITADEL_UX_TYPESIZE_H /* Include sysdep.h if not already included */ #ifndef CTDLDIR # include "sysdep.h" #endif /* 8-bit - If this fails, your compiler is broken */ #if SIZEOF_CHAR == 1 typedef char cit_int8_t; typedef signed char cit_sint8_t; typedef unsigned char cit_uint8_t; #else # error Unable to find an 8-bit integer datatype #endif /* 16-bit - If this fails, your compiler is broken */ #if SIZEOF_SHORT == 2 typedef short cit_int16_t; typedef signed short cit_sint16_t; typedef unsigned short cit_uint16_t; #elif SIZEOF_INT == 2 typedef int cit_int16_t; typedef signed int cit_sint16_t; typedef unsigned int cit_uint16_t; #else # error Unable to find a 16-bit integer datatype #endif /* 32-bit - If this fails, your compiler is broken */ #if SIZEOF_INT == 4 typedef int cit_int32_t; typedef signed int cit_sint32_t; typedef unsigned int cit_uint32_t; #elif SIZEOF_LONG == 4 typedef long cit_int32_t; typedef signed long cit_sint32_t; typedef unsigned long cit_uint32_t; #else # error Unable to find a 32-bit integer datatype #endif #endif /* _CITADEL_UX_TYPESIZE_H */ citadel-902/user_ops.c000066400000000000000000001010161271512031400147710ustar00rootroot00000000000000/* * Server functions which perform operations on user objects. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or * modify it under the terms of the GNU General Public License, version 3. * * 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. */ #include "sysdep.h" #include #include #include "control.h" #include "support.h" #include "citserver.h" #include "config.h" #include "citadel_ldap.h" #include "ctdl_module.h" #include "user_ops.h" #include "internet_addressing.h" /* These pipes are used to talk to the chkpwd daemon, which is forked during startup */ int chkpwd_write_pipe[2]; int chkpwd_read_pipe[2]; /* * CtdlGetUser() - retrieve named user into supplied buffer. * returns 0 on success */ int CtdlGetUserLen(struct ctdluser *usbuf, const char *name, long len) { char usernamekey[USERNAME_SIZE]; struct cdbdata *cdbus; if (usbuf != NULL) { memset(usbuf, 0, sizeof(struct ctdluser)); } makeuserkey(usernamekey, name, len); cdbus = cdb_fetch(CDB_USERS, usernamekey, strlen(usernamekey)); if (cdbus == NULL) { /* user not found */ return(1); } if (usbuf != NULL) { memcpy(usbuf, cdbus->ptr, ((cdbus->len > sizeof(struct ctdluser)) ? sizeof(struct ctdluser) : cdbus->len)); } cdb_free(cdbus); return (0); } int CtdlGetUser(struct ctdluser *usbuf, char *name) { return CtdlGetUserLen(usbuf, name, cutuserkey(name)); } int CtdlLockGetCurrentUser(void) { CitContext *CCC = CC; return CtdlGetUserLen(&CCC->user, CCC->curr_user, cutuserkey(CCC->curr_user)); } /* * CtdlGetUserLock() - same as getuser() but locks the record */ int CtdlGetUserLock(struct ctdluser *usbuf, char *name) { int retcode; retcode = CtdlGetUser(usbuf, name); if (retcode == 0) { begin_critical_section(S_USERS); } return (retcode); } /* * CtdlPutUser() - write user buffer into the correct place on disk */ void CtdlPutUser(struct ctdluser *usbuf) { char usernamekey[USERNAME_SIZE]; makeuserkey(usernamekey, usbuf->fullname, cutuserkey(usbuf->fullname)); usbuf->version = REV_LEVEL; cdb_store(CDB_USERS, usernamekey, strlen(usernamekey), usbuf, sizeof(struct ctdluser)); } void CtdlPutCurrentUserLock() { CtdlPutUser(&CC->user); } /* * CtdlPutUserLock() - same as putuser() but locks the record */ void CtdlPutUserLock(struct ctdluser *usbuf) { CtdlPutUser(usbuf); end_critical_section(S_USERS); } /* * rename_user() - this is tricky because the user's display name is the database key * * Returns 0 on success or nonzero if there was an error... * */ int rename_user(char *oldname, char *newname) { int retcode = RENAMEUSER_OK; struct ctdluser usbuf; char oldnamekey[USERNAME_SIZE]; char newnamekey[USERNAME_SIZE]; /* Create the database keys... */ makeuserkey(oldnamekey, oldname, cutuserkey(oldname)); makeuserkey(newnamekey, newname, cutuserkey(newname)); /* Lock up and get going */ begin_critical_section(S_USERS); /* We cannot rename a user who is currently logged in */ if (CtdlIsUserLoggedIn(oldname)) { end_critical_section(S_USERS); return RENAMEUSER_LOGGED_IN; } if (CtdlGetUser(&usbuf, newname) == 0) { retcode = RENAMEUSER_ALREADY_EXISTS; } else { if (CtdlGetUser(&usbuf, oldname) != 0) { retcode = RENAMEUSER_NOT_FOUND; } else { /* Sanity checks succeeded. Now rename the user. */ if (usbuf.usernum == 0) { CONM_syslog(LOG_DEBUG, "Can not rename user \"Citadel\".\n"); retcode = RENAMEUSER_NOT_FOUND; } else { CON_syslog(LOG_DEBUG, "Renaming <%s> to <%s>\n", oldname, newname); cdb_delete(CDB_USERS, oldnamekey, strlen(oldnamekey)); safestrncpy(usbuf.fullname, newname, sizeof usbuf.fullname); CtdlPutUser(&usbuf); cdb_store(CDB_USERSBYNUMBER, &usbuf.usernum, sizeof(long), usbuf.fullname, strlen(usbuf.fullname)+1 ); retcode = RENAMEUSER_OK; } } } end_critical_section(S_USERS); return(retcode); } /* * Index-generating function used by Ctdl[Get|Set]Relationship */ int GenerateRelationshipIndex(char *IndexBuf, long RoomID, long RoomGen, long UserID) { struct { long iRoomID; long iRoomGen; long iUserID; } TheIndex; TheIndex.iRoomID = RoomID; TheIndex.iRoomGen = RoomGen; TheIndex.iUserID = UserID; memcpy(IndexBuf, &TheIndex, sizeof(TheIndex)); return (sizeof(TheIndex)); } /* * Back end for CtdlSetRelationship() */ void put_visit(visit *newvisit) { char IndexBuf[32]; int IndexLen = 0; memset (IndexBuf, 0, sizeof (IndexBuf)); /* Generate an index */ IndexLen = GenerateRelationshipIndex(IndexBuf, newvisit->v_roomnum, newvisit->v_roomgen, newvisit->v_usernum); /* Store the record */ cdb_store(CDB_VISIT, IndexBuf, IndexLen, newvisit, sizeof(visit) ); } /* * Define a relationship between a user and a room */ void CtdlSetRelationship(visit *newvisit, struct ctdluser *rel_user, struct ctdlroom *rel_room) { /* We don't use these in Citadel because they're implicit by the * index, but they must be present if the database is exported. */ newvisit->v_roomnum = rel_room->QRnumber; newvisit->v_roomgen = rel_room->QRgen; newvisit->v_usernum = rel_user->usernum; put_visit(newvisit); } /* * Locate a relationship between a user and a room */ void CtdlGetRelationship(visit *vbuf, struct ctdluser *rel_user, struct ctdlroom *rel_room) { char IndexBuf[32]; int IndexLen; struct cdbdata *cdbvisit; /* Generate an index */ IndexLen = GenerateRelationshipIndex(IndexBuf, rel_room->QRnumber, rel_room->QRgen, rel_user->usernum); /* Clear out the buffer */ memset(vbuf, 0, sizeof(visit)); cdbvisit = cdb_fetch(CDB_VISIT, IndexBuf, IndexLen); if (cdbvisit != NULL) { memcpy(vbuf, cdbvisit->ptr, ((cdbvisit->len > sizeof(visit)) ? sizeof(visit) : cdbvisit->len)); cdb_free(cdbvisit); } else { /* If this is the first time the user has seen this room, * set the view to be the default for the room. */ vbuf->v_view = rel_room->QRdefaultview; } /* Set v_seen if necessary */ if (vbuf->v_seen[0] == 0) { snprintf(vbuf->v_seen, sizeof vbuf->v_seen, "*:%ld", vbuf->v_lastseen); } } void CtdlMailboxName(char *buf, size_t n, const struct ctdluser *who, const char *prefix) { snprintf(buf, n, "%010ld.%s", who->usernum, prefix); } void MailboxName(char *buf, size_t n, const struct ctdluser *who, const char *prefix) { snprintf(buf, n, "%010ld.%s", who->usernum, prefix); } /* * Check to see if the specified user has Internet mail permission * (returns nonzero if permission is granted) */ int CtdlCheckInternetMailPermission(struct ctdluser *who) { /* Do not allow twits to send Internet mail */ if (who->axlevel <= AxProbU) return(0); /* Globally enabled? */ if (CtdlGetConfigInt("c_restrict") == 0) return(1); /* User flagged ok? */ if (who->flags & US_INTERNET) return(2); /* Admin level access? */ if (who->axlevel >= AxAideU) return(3); /* No mail for you! */ return(0); } /* * Convenience function. */ int CtdlAccessCheck(int required_level) { if (CC->internal_pgm) return(0); if (required_level >= ac_internal) { cprintf("%d This is not a user-level command.\n", ERROR + HIGHER_ACCESS_REQUIRED); return(-1); } if ((required_level >= ac_logged_in_or_guest) && (CC->logged_in == 0) && (CtdlGetConfigInt("c_guest_logins") == 0)) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); return(-1); } if ((required_level >= ac_logged_in) && (CC->logged_in == 0)) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); return(-1); } if (CC->user.axlevel >= AxAideU) return(0); if (required_level >= ac_aide) { cprintf("%d This command requires Admin access.\n", ERROR + HIGHER_ACCESS_REQUIRED); return(-1); } if (is_room_aide()) return(0); if (required_level >= ac_room_aide) { cprintf("%d This command requires Admin or Room Admin access.\n", ERROR + HIGHER_ACCESS_REQUIRED); return(-1); } /* shhh ... succeed quietly */ return(0); } /* * Is the user currently logged in an Admin? */ int is_aide(void) { if (CC->user.axlevel >= AxAideU) return (1); else return (0); } /* * Is the user currently logged in an Admin *or* the room Admin for this room? */ int is_room_aide(void) { if (!CC->logged_in) { return (0); } if ((CC->user.axlevel >= AxAideU) || (CC->room.QRroomaide == CC->user.usernum)) { return (1); } else { return (0); } } /* * CtdlGetUserByNumber() - get user by number * returns 0 if user was found * * Note: fetching a user this way requires one additional database operation. */ int CtdlGetUserByNumber(struct ctdluser *usbuf, long number) { struct cdbdata *cdbun; int r; cdbun = cdb_fetch(CDB_USERSBYNUMBER, &number, sizeof(long)); if (cdbun == NULL) { CON_syslog(LOG_INFO, "User %ld not found\n", number); return(-1); } CON_syslog(LOG_INFO, "User %ld maps to %s\n", number, cdbun->ptr); r = CtdlGetUser(usbuf, cdbun->ptr); cdb_free(cdbun); return(r); } /* * Helper function for rebuild_usersbynumber() */ void rebuild_ubn_for_user(struct ctdluser *usbuf, void *data) { struct ubnlist { struct ubnlist *next; char username[USERNAME_SIZE]; long usernum; }; static struct ubnlist *u = NULL; struct ubnlist *ptr = NULL; /* Lazy programming here. Call this function as a ForEachUser backend * in order to queue up the room names, or call it with a null user * to make it do the processing. */ if (usbuf != NULL) { ptr = (struct ubnlist *) malloc(sizeof (struct ubnlist)); if (ptr == NULL) return; ptr->usernum = usbuf->usernum; safestrncpy(ptr->username, usbuf->fullname, sizeof ptr->username); ptr->next = u; u = ptr; return; } while (u != NULL) { CON_syslog(LOG_DEBUG, "Rebuilding usersbynumber index %10ld : %s\n", u->usernum, u->username); cdb_store(CDB_USERSBYNUMBER, &u->usernum, sizeof(long), u->username, strlen(u->username)+1); ptr = u; u = u->next; free(ptr); } } /* * Rebuild the users-by-number index */ void rebuild_usersbynumber(void) { cdb_trunc(CDB_USERSBYNUMBER); /* delete the old indices */ ForEachUser(rebuild_ubn_for_user, NULL); /* enumerate the users */ rebuild_ubn_for_user(NULL, NULL); /* and index them */ } /* * getuserbyuid() - get user by system uid (for PAM mode authentication) * returns 0 if user was found * * WARNING: don't use this function unless you absolutely have to. It does * a sequential search and therefore is computationally expensive. */ int getuserbyuid(struct ctdluser *usbuf, uid_t number) { struct cdbdata *cdbus; cdb_rewind(CDB_USERS); while (cdbus = cdb_next_item(CDB_USERS), cdbus != NULL) { memset(usbuf, 0, sizeof(struct ctdluser)); memcpy(usbuf, cdbus->ptr, ((cdbus->len > sizeof(struct ctdluser)) ? sizeof(struct ctdluser) : cdbus->len)); cdb_free(cdbus); if (usbuf->uid == number) { cdb_close_cursor(CDB_USERS); return (0); } } return (-1); } /* * Back end for cmd_user() and its ilk * * NOTE: "authname" should only be used if we are attempting to use the "master user" feature */ int CtdlLoginExistingUser(char *authname, const char *trythisname) { char username[SIZ]; int found_user; long len; CON_syslog(LOG_DEBUG, "CtdlLoginExistingUser(%s, %s)\n", authname, trythisname); if ((CC->logged_in)) { return login_already_logged_in; } if (trythisname == NULL) return login_not_found; if (!strncasecmp(trythisname, "SYS_", 4)) { CON_syslog(LOG_DEBUG, "System user \"%s\" is not allowed to log in.\n", trythisname); return login_not_found; } /* If a "master user" is defined, handle its authentication if specified */ CC->is_master = 0; if ( (!IsEmptyStr(CtdlGetConfigStr("c_master_user"))) && (!IsEmptyStr(CtdlGetConfigStr("c_master_pass"))) && (authname != NULL) && (!strcasecmp(authname, CtdlGetConfigStr("c_master_user"))) ) { CC->is_master = 1; } /* Continue attempting user validation... */ safestrncpy(username, trythisname, sizeof (username)); striplt(username); len = cutuserkey(username); if (IsEmptyStr(username)) { return login_not_found; } if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_HOST) { /* host auth mode */ struct passwd pd; struct passwd *tempPwdPtr; char pwdbuffer[256]; CON_syslog(LOG_DEBUG, "asking host about <%s>\n", username); #ifdef HAVE_GETPWNAM_R #ifdef SOLARIS_GETPWUID CON_syslog(LOG_DEBUG, "Calling getpwnam_r()\n"); tempPwdPtr = getpwnam_r(username, &pd, pwdbuffer, sizeof pwdbuffer); #else // SOLARIS_GETPWUID CONM_syslog(LOG_DEBUG, "Calling getpwnam_r()\n"); getpwnam_r(username, &pd, pwdbuffer, sizeof pwdbuffer, &tempPwdPtr); #endif // SOLARIS_GETPWUID #else // HAVE_GETPWNAM_R CON_syslog(LOG_DEBUG, "SHOULD NEVER GET HERE!!!\n"); tempPwdPtr = NULL; #endif // HAVE_GETPWNAM_R if (tempPwdPtr == NULL) { CON_syslog(LOG_DEBUG, "no such user <%s>\n", username); return login_not_found; } /* Locate the associated Citadel account. * If not found, make one attempt to create it. */ found_user = getuserbyuid(&CC->user, pd.pw_uid); CON_syslog(LOG_DEBUG, "found it: uid=%ld, gecos=%s here: %d\n", (long)pd.pw_uid, pd.pw_gecos, found_user); if (found_user != 0) { len = cutuserkey(username); create_user(username, len, 0); found_user = getuserbyuid(&CC->user, pd.pw_uid); } } #ifdef HAVE_LDAP else if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) { /* LDAP auth mode */ uid_t ldap_uid; char ldap_cn[256]; char ldap_dn[256]; found_user = CtdlTryUserLDAP(username, ldap_dn, sizeof ldap_dn, ldap_cn, sizeof ldap_cn, &ldap_uid, 0); if (found_user != 0) { return login_not_found; } found_user = getuserbyuid(&CC->user, ldap_uid); if (found_user != 0) { create_user(username, len, 0); found_user = getuserbyuid(&CC->user, ldap_uid); } if (found_user == 0) { if (CC->ldap_dn != NULL) free(CC->ldap_dn); CC->ldap_dn = strdup(ldap_dn); } } #endif else { /* native auth mode */ recptypes *valid = NULL; /* First, try to log in as if the supplied name is a display name */ found_user = CtdlGetUser(&CC->user, username); /* If that didn't work, try to log in as if the supplied name * is an e-mail address */ if (found_user != 0) { valid = validate_recipients(username, NULL, 0); if (valid != NULL) { if (valid->num_local == 1) { found_user = CtdlGetUser(&CC->user, valid->recp_local); } free_recipients(valid); } } } /* Did we find something? */ if (found_user == 0) { if (((CC->nologin)) && (CC->user.axlevel < AxAideU)) { return login_too_many_users; } else { safestrncpy(CC->curr_user, CC->user.fullname, sizeof CC->curr_user); return login_ok; } } return login_not_found; } /* * session startup code which is common to both cmd_pass() and cmd_newu() */ void do_login(void) { struct CitContext *CCC = CC; CCC->logged_in = 1; CON_syslog(LOG_NOTICE, "<%s> logged in\n", CCC->curr_user); CtdlGetUserLock(&CCC->user, CCC->curr_user); ++(CCC->user.timescalled); CCC->previous_login = CCC->user.lastcall; time(&CCC->user.lastcall); /* If this user's name is the name of the system administrator * (as specified in setup), automatically assign access level 6. */ if (!strcasecmp(CCC->user.fullname, CtdlGetConfigStr("c_sysadm"))) { CCC->user.axlevel = AxAideU; } /* If we're authenticating off the host system, automatically give * root the highest level of access. */ if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_HOST) { if (CCC->user.uid == 0) { CCC->user.axlevel = AxAideU; } } CtdlPutUserLock(&CCC->user); /* * Populate CCC->cs_inet_email with a default address. This will be * overwritten with the user's directory address, if one exists, when * the vCard module's login hook runs. */ snprintf(CCC->cs_inet_email, sizeof CCC->cs_inet_email, "%s@%s", CCC->user.fullname, CtdlGetConfigStr("c_fqdn")); convert_spaces_to_underscores(CCC->cs_inet_email); /* Create any personal rooms required by the system. * (Technically, MAILROOM should be there already, but just in case...) */ CtdlCreateRoom(MAILROOM, 4, "", 0, 1, 0, VIEW_MAILBOX); CtdlCreateRoom(SENTITEMS, 4, "", 0, 1, 0, VIEW_MAILBOX); CtdlCreateRoom(USERTRASHROOM, 4, "", 0, 1, 0, VIEW_MAILBOX); CtdlCreateRoom(USERDRAFTROOM, 4, "", 0, 1, 0, VIEW_MAILBOX); /* Run any startup routines registered by loadable modules */ PerformSessionHooks(EVT_LOGIN); /* Enter the lobby */ CtdlUserGoto(CtdlGetConfigStr("c_baseroom"), 0, 0, NULL, NULL, NULL, NULL); } void logged_in_response(void) { cprintf("%d %s|%d|%ld|%ld|%u|%ld|%ld\n", CIT_OK, CC->user.fullname, CC->user.axlevel, CC->user.timescalled, CC->user.posted, CC->user.flags, CC->user.usernum, CC->previous_login); } void CtdlUserLogout(void) { CitContext *CCC = MyContext(); CON_syslog(LOG_DEBUG, "CtdlUserLogout() logging out <%s> from session %d", CCC->curr_user, CCC->cs_pid ); /* Run any hooks registered by modules... */ PerformSessionHooks(EVT_LOGOUT); /* * Clear out some session data. Most likely, the CitContext for this * session is about to get nuked when the session disconnects, but * since it's possible to log in again without reconnecting, we cannot * make that assumption. */ strcpy(CCC->fake_username, ""); strcpy(CCC->fake_hostname, ""); strcpy(CCC->fake_roomname, ""); CCC->logged_in = 0; /* Check to see if the user was deleted whilst logged in and purge them if necessary */ if ((CCC->user.axlevel == AxDeleted) && (CCC->user.usernum)) purge_user(CCC->user.fullname); /* Clear out the user record in memory so we don't behave like a ghost */ memset(&CCC->user, 0, sizeof(struct ctdluser)); CCC->curr_user[0] = 0; CCC->is_master = 0; CCC->cs_inet_email[0] = 0; CCC->cs_inet_other_emails[0] = 0; CCC->cs_inet_fn[0] = 0; CCC->fake_username[0] = 0; CCC->fake_hostname[0] = 0; CCC->fake_roomname[0] = 0; /* Free any output buffers */ unbuffer_output(); } /* * Validate a password on the host unix system by talking to the chkpwd daemon */ static int validpw(uid_t uid, const char *pass) { char buf[256]; int rv = 0; if (IsEmptyStr(pass)) { CON_syslog(LOG_DEBUG, "Refusing to chkpwd for uid=%d with empty password.\n", uid); return 0; } CON_syslog(LOG_DEBUG, "Validating password for uid=%d using chkpwd...\n", uid); begin_critical_section(S_CHKPWD); rv = write(chkpwd_write_pipe[1], &uid, sizeof(uid_t)); if (rv == -1) { CON_syslog(LOG_EMERG, "Communicatino with chkpwd broken: %s\n", strerror(errno)); end_critical_section(S_CHKPWD); return 0; } rv = write(chkpwd_write_pipe[1], pass, 256); if (rv == -1) { CON_syslog(LOG_EMERG, "Communicatino with chkpwd broken: %s\n", strerror(errno)); end_critical_section(S_CHKPWD); return 0; } rv = read(chkpwd_read_pipe[0], buf, 4); if (rv == -1) { CON_syslog(LOG_EMERG, "Communicatino with chkpwd broken: %s\n", strerror(errno)); end_critical_section(S_CHKPWD); return 0; } end_critical_section(S_CHKPWD); if (!strncmp(buf, "PASS", 4)) { CONM_syslog(LOG_DEBUG, "...pass\n"); return(1); } CONM_syslog(LOG_DEBUG, "...fail\n"); return 0; } /* * Start up the chkpwd daemon so validpw() has something to talk to */ void start_chkpwd_daemon(void) { pid_t chkpwd_pid; struct stat filestats; int i; CONM_syslog(LOG_DEBUG, "Starting chkpwd daemon for host authentication mode\n"); if ((stat(file_chkpwd, &filestats)==-1) || (filestats.st_size==0)){ printf("didn't find chkpwd daemon in %s: %s\n", file_chkpwd, strerror(errno)); abort(); } if (pipe(chkpwd_write_pipe) != 0) { CON_syslog(LOG_EMERG, "Unable to create pipe for chkpwd daemon: %s\n", strerror(errno)); abort(); } if (pipe(chkpwd_read_pipe) != 0) { CON_syslog(LOG_EMERG, "Unable to create pipe for chkpwd daemon: %s\n", strerror(errno)); abort(); } chkpwd_pid = fork(); if (chkpwd_pid < 0) { CON_syslog(LOG_EMERG, "Unable to fork chkpwd daemon: %s\n", strerror(errno)); abort(); } if (chkpwd_pid == 0) { CONM_syslog(LOG_DEBUG, "Now calling dup2() write\n"); dup2(chkpwd_write_pipe[0], 0); CONM_syslog(LOG_DEBUG, "Now calling dup2() write\n"); dup2(chkpwd_read_pipe[1], 1); CONM_syslog(LOG_DEBUG, "Now closing stuff\n"); for (i=2; i<256; ++i) close(i); CON_syslog(LOG_DEBUG, "Now calling execl(%s)\n", file_chkpwd); execl(file_chkpwd, file_chkpwd, NULL); CON_syslog(LOG_EMERG, "Unable to exec chkpwd daemon: %s\n", strerror(errno)); abort(); exit(errno); } } int CtdlTryPassword(const char *password, long len) { int code; CitContext *CCC = CC; if ((CCC->logged_in)) { CONM_syslog(LOG_WARNING, "CtdlTryPassword: already logged in\n"); return pass_already_logged_in; } if (!strcmp(CCC->curr_user, NLI)) { CONM_syslog(LOG_WARNING, "CtdlTryPassword: no user selected\n"); return pass_no_user; } if (CtdlGetUser(&CCC->user, CCC->curr_user)) { CONM_syslog(LOG_ERR, "CtdlTryPassword: internal error\n"); return pass_internal_error; } if (password == NULL) { CONM_syslog(LOG_INFO, "CtdlTryPassword: NULL password string supplied\n"); return pass_wrong_password; } if (CCC->is_master) { code = strcmp(password, CtdlGetConfigStr("c_master_pass")); } else if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_HOST) { /* host auth mode */ if (validpw(CCC->user.uid, password)) { code = 0; /* * sooper-seekrit hack: populate the password field in the * citadel database with the password that the user typed, * if it's correct. This allows most sites to convert from * host auth to native auth if they want to. If you think * this is a security hazard, comment it out. */ CtdlGetUserLock(&CCC->user, CCC->curr_user); safestrncpy(CCC->user.password, password, sizeof CCC->user.password); CtdlPutUserLock(&CCC->user); /* * (sooper-seekrit hack ends here) */ } else { code = (-1); } } #ifdef HAVE_LDAP else if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) { /* LDAP auth mode */ if ((CCC->ldap_dn) && (!CtdlTryPasswordLDAP(CCC->ldap_dn, password))) { code = 0; } else { code = (-1); } } #endif else { /* native auth mode */ char *pw; pw = (char*) malloc(len + 1); memcpy(pw, password, len + 1); strproc(pw); strproc(CCC->user.password); code = strcasecmp(CCC->user.password, pw); if (code != 0) { strproc(pw); strproc(CCC->user.password); code = strcasecmp(CCC->user.password, pw); } free (pw); } if (!code) { do_login(); return pass_ok; } else { CON_syslog(LOG_WARNING, "Bad password specified for <%s> Service <%s> Port <%ld> Remote <%s / %s>\n", CCC->curr_user, CCC->ServiceName, CCC->tcp_port, CCC->cs_host, CCC->cs_addr); //citserver[5610]: Bad password specified for Service Remote return pass_wrong_password; } } /* * Delete a user record *and* all of its related resources. */ int purge_user(char pname[]) { struct ctdluser usbuf; char usernamekey[USERNAME_SIZE]; makeuserkey(usernamekey, pname, cutuserkey(pname)); /* If the name is empty we can't find them in the DB any way so just return */ if (IsEmptyStr(pname)) return (ERROR + NO_SUCH_USER); if (CtdlGetUser(&usbuf, pname) != 0) { CON_syslog(LOG_ERR, "Cannot purge user <%s> - not found\n", pname); return (ERROR + NO_SUCH_USER); } /* Don't delete a user who is currently logged in. Instead, just * set the access level to 0, and let the account get swept up * during the next purge. */ if (CtdlIsUserLoggedInByNum(usbuf.usernum)) { CON_syslog(LOG_WARNING, "User <%s> is logged in; not deleting.\n", pname); usbuf.axlevel = AxDeleted; CtdlPutUser(&usbuf); return (1); } CON_syslog(LOG_NOTICE, "Deleting user <%s>\n", pname); /* * FIXME: * This should all be wrapped in a S_USERS mutex. * Without the mutex the user could log in before we get to the next function * That would truly mess things up :-( * I would like to see the S_USERS start before the CtdlIsUserLoggedInByNum() above * and end after the user has been deleted from the database, below. * Question is should we enter the EVT_PURGEUSER whilst S_USERS is active? */ /* Perform any purge functions registered by server extensions */ PerformUserHooks(&usbuf, EVT_PURGEUSER); /* delete any existing user/room relationships */ cdb_delete(CDB_VISIT, &usbuf.usernum, sizeof(long)); /* delete the users-by-number index record */ cdb_delete(CDB_USERSBYNUMBER, &usbuf.usernum, sizeof(long)); /* delete the userlog entry */ cdb_delete(CDB_USERS, usernamekey, strlen(usernamekey)); return (0); } int internal_create_user (const char *username, long len, struct ctdluser *usbuf, uid_t uid) { if (!CtdlGetUserLen(usbuf, username, len)) { return (ERROR + ALREADY_EXISTS); } /* Go ahead and initialize a new user record */ memset(usbuf, 0, sizeof(struct ctdluser)); safestrncpy(usbuf->fullname, username, sizeof usbuf->fullname); strcpy(usbuf->password, ""); usbuf->uid = uid; /* These are the default flags on new accounts */ usbuf->flags = US_LASTOLD | US_DISAPPEAR | US_PAGINATOR | US_FLOORS; usbuf->timescalled = 0; usbuf->posted = 0; usbuf->axlevel = CtdlGetConfigInt("c_initax"); usbuf->lastcall = time(NULL); /* fetch a new user number */ usbuf->usernum = get_new_user_number(); /* add user to the database */ CtdlPutUser(usbuf); cdb_store(CDB_USERSBYNUMBER, &usbuf->usernum, sizeof(long), usbuf->fullname, strlen(usbuf->fullname)+1); return 0; } /* * create_user() - back end processing to create a new user * * Set 'newusername' to the desired account name. * Set 'become_user' to nonzero if this is self-service account creation and we want * to actually log in as the user we just created, otherwise set it to 0. */ int create_user(const char *newusername, long len, int become_user) { struct ctdluser usbuf; struct ctdlroom qrbuf; char username[256]; char mailboxname[ROOMNAMELEN]; char buf[SIZ]; int retval; uid_t uid = (-1); safestrncpy(username, newusername, sizeof username); strproc(username); if (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_HOST) { /* host auth mode */ struct passwd pd; struct passwd *tempPwdPtr; char pwdbuffer[SIZ]; #ifdef HAVE_GETPWNAM_R #ifdef SOLARIS_GETPWUID tempPwdPtr = getpwnam_r(username, &pd, pwdbuffer, sizeof(pwdbuffer)); #else // SOLARIS_GETPWUID getpwnam_r(username, &pd, pwdbuffer, sizeof pwdbuffer, &tempPwdPtr); #endif // SOLARIS_GETPWUID #else // HAVE_GETPWNAM_R tempPwdPtr = NULL; #endif // HAVE_GETPWNAM_R if (tempPwdPtr != NULL) { extract_token(username, pd.pw_gecos, 0, ',', sizeof username); uid = pd.pw_uid; if (IsEmptyStr (username)) { safestrncpy(username, pd.pw_name, sizeof username); len = cutuserkey(username); } } else { return (ERROR + NO_SUCH_USER); } } #ifdef HAVE_LDAP if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) { if (CtdlTryUserLDAP(username, NULL, 0, username, sizeof username, &uid, 0) != 0) { return(ERROR + NO_SUCH_USER); } } #endif /* HAVE_LDAP */ if ((retval = internal_create_user(username, len, &usbuf, uid)) != 0) return retval; /* * Give the user a private mailbox and a configuration room. * Make the latter an invisible system room. */ CtdlMailboxName(mailboxname, sizeof mailboxname, &usbuf, MAILROOM); CtdlCreateRoom(mailboxname, 5, "", 0, 1, 1, VIEW_MAILBOX); CtdlMailboxName(mailboxname, sizeof mailboxname, &usbuf, USERCONFIGROOM); CtdlCreateRoom(mailboxname, 5, "", 0, 1, 1, VIEW_BBS); if (CtdlGetRoomLock(&qrbuf, mailboxname) == 0) { qrbuf.QRflags2 |= QR2_SYSTEM; CtdlPutRoomLock(&qrbuf); } /* Perform any create functions registered by server extensions */ PerformUserHooks(&usbuf, EVT_NEWUSER); /* Everything below this line can be bypassed if administratively * creating a user, instead of doing self-service account creation */ if (become_user) { /* Now become the user we just created */ memcpy(&CC->user, &usbuf, sizeof(struct ctdluser)); safestrncpy(CC->curr_user, username, sizeof CC->curr_user); do_login(); /* Check to make sure we're still who we think we are */ if (CtdlGetUser(&CC->user, CC->curr_user)) { return (ERROR + INTERNAL_ERROR); } } snprintf(buf, SIZ, "New user account <%s> has been created, from host %s [%s].\n", username, CC->cs_host, CC->cs_addr ); CtdlAideMessage(buf, "User Creation Notice"); CON_syslog(LOG_NOTICE, "New user <%s> created\n", username); return (0); } /* * set password - back end api code */ void CtdlSetPassword(char *new_pw) { CtdlGetUserLock(&CC->user, CC->curr_user); safestrncpy(CC->user.password, new_pw, sizeof(CC->user.password)); CtdlPutUserLock(&CC->user); CON_syslog(LOG_INFO, "Password changed for user <%s>\n", CC->curr_user); PerformSessionHooks(EVT_SETPASS); } /* * API function for cmd_invt_kick() and anything else that needs to * invite or kick out a user to/from a room. * * Set iuser to the name of the user, and op to 1=invite or 0=kick */ int CtdlInvtKick(char *iuser, int op) { struct ctdluser USscratch; visit vbuf; char bbb[SIZ]; if (CtdlGetUser(&USscratch, iuser) != 0) { return(1); } CtdlGetRelationship(&vbuf, &USscratch, &CC->room); if (op == 1) { vbuf.v_flags = vbuf.v_flags & ~V_FORGET & ~V_LOCKOUT; vbuf.v_flags = vbuf.v_flags | V_ACCESS; } if (op == 0) { vbuf.v_flags = vbuf.v_flags & ~V_ACCESS; vbuf.v_flags = vbuf.v_flags | V_FORGET | V_LOCKOUT; } CtdlSetRelationship(&vbuf, &USscratch, &CC->room); /* post a message in Aide> saying what we just did */ snprintf(bbb, sizeof bbb, "%s has been %s \"%s\" by %s.\n", iuser, ((op == 1) ? "invited to" : "kicked out of"), CC->room.QRname, (CC->logged_in ? CC->user.fullname : "an administrator") ); CtdlAideMessage(bbb,"User Admin Message"); return(0); } /* * Forget (Zap) the current room (API call) * Returns 0 on success */ int CtdlForgetThisRoom(void) { visit vbuf; /* On some systems, Admins are not allowed to forget rooms */ if (is_aide() && (CtdlGetConfigInt("c_aide_zap") == 0) && ((CC->room.QRflags & QR_MAILBOX) == 0) ) { return(1); } CtdlGetUserLock(&CC->user, CC->curr_user); CtdlGetRelationship(&vbuf, &CC->user, &CC->room); vbuf.v_flags = vbuf.v_flags | V_FORGET; vbuf.v_flags = vbuf.v_flags & ~V_ACCESS; CtdlSetRelationship(&vbuf, &CC->user, &CC->room); CtdlPutUserLock(&CC->user); /* Return to the Lobby, so we don't end up in an undefined room */ CtdlUserGoto(CtdlGetConfigStr("c_baseroom"), 0, 0, NULL, NULL, NULL, NULL); return(0); } /* * Traverse the user file... */ void ForEachUser(void (*CallBack) (struct ctdluser * EachUser, void *out_data), void *in_data) { struct ctdluser usbuf; struct cdbdata *cdbus; cdb_rewind(CDB_USERS); while (cdbus = cdb_next_item(CDB_USERS), cdbus != NULL) { memset(&usbuf, 0, sizeof(struct ctdluser)); memcpy(&usbuf, cdbus->ptr, ((cdbus->len > sizeof(struct ctdluser)) ? sizeof(struct ctdluser) : cdbus->len)); cdb_free(cdbus); (*CallBack) (&usbuf, in_data); } } /* * List one user (this works with cmd_list) */ void ListThisUser(struct ctdluser *usbuf, void *data) { char *searchstring; searchstring = (char *)data; if (bmstrcasestr(usbuf->fullname, searchstring) == NULL) { return; } if (usbuf->axlevel > AxDeleted) { if ((CC->user.axlevel >= AxAideU) || ((usbuf->flags & US_UNLISTED) == 0) || ((CC->internal_pgm))) { cprintf("%s|%d|%ld|%ld|%ld|%ld||\n", usbuf->fullname, usbuf->axlevel, usbuf->usernum, (long)usbuf->lastcall, usbuf->timescalled, usbuf->posted); } } } /* * Count the number of new mail messages the user has */ int NewMailCount() { int num_newmsgs = 0; num_newmsgs = CC->newmail; CC->newmail = 0; return (num_newmsgs); } /* * Count the number of new mail messages the user has */ int InitialMailCheck() { int num_newmsgs = 0; int a; char mailboxname[ROOMNAMELEN]; struct ctdlroom mailbox; visit vbuf; struct cdbdata *cdbfr; long *msglist = NULL; int num_msgs = 0; CtdlMailboxName(mailboxname, sizeof mailboxname, &CC->user, MAILROOM); if (CtdlGetRoom(&mailbox, mailboxname) != 0) return (0); CtdlGetRelationship(&vbuf, &CC->user, &mailbox); cdbfr = cdb_fetch(CDB_MSGLISTS, &mailbox.QRnumber, sizeof(long)); if (cdbfr != NULL) { msglist = malloc(cdbfr->len); memcpy(msglist, cdbfr->ptr, cdbfr->len); num_msgs = cdbfr->len / sizeof(long); cdb_free(cdbfr); } if (num_msgs > 0) for (a = 0; a < num_msgs; ++a) { if (msglist[a] > 0L) { if (msglist[a] > vbuf.v_lastseen) { ++num_newmsgs; } } } if (msglist != NULL) free(msglist); return (num_newmsgs); } citadel-902/user_ops.h000066400000000000000000000047351271512031400150100ustar00rootroot00000000000000#ifndef __USER_OPS_H__ #define __USER_OPS_H__ #include #include int hash (char *str); int is_aide (void); int is_room_aide (void); int CtdlCheckInternetMailPermission(struct ctdluser *who); void rebuild_usersbynumber(void); void session_startup (void); void logged_in_response(void); int purge_user (char *pname); int create_user (const char *newusername, long len, int become_user); void do_login(void); int CtdlInvtKick(char *iuser, int op); void ForEachUser(void (*CallBack)(struct ctdluser *EachUser, void *out_data), void *in_data); void ListThisUser(struct ctdluser *usbuf, void *data); int NewMailCount(void); int InitialMailCheck(void); void put_visit(visit *newvisit); /* MailboxName is deprecated us CtdlMailboxName instead */ void MailboxName(char *buf, size_t n, const struct ctdluser *who, const char *prefix) __attribute__ ((deprecated)); int GenerateRelationshipIndex( char *IndexBuf, long RoomID, long RoomGen, long UserID); int CtdlAssociateSystemUser(char *screenname, char *loginname); void CtdlSetPassword(char *new_pw); int CtdlForgetThisRoom(void); void cmd_newu (char *cmdbuf); void start_chkpwd_daemon(void); #define RENAMEUSER_OK 0 /* Operation succeeded */ #define RENAMEUSER_LOGGED_IN 1 /* Cannot rename a user who is currently logged in */ #define RENAMEUSER_NOT_FOUND 2 /* The old user name does not exist */ #define RENAMEUSER_ALREADY_EXISTS 3 /* An account with the desired new name already exists */ int rename_user(char *oldname, char *newname); ///#ifndef CTDL_INLINE_USR ////#define CTDL_INLINE_USR static INLINE ///#endif ///CTDL_INLINE_USR static INLINE long cutuserkey(char *username) { long len; len = strlen(username); if (len >= USERNAME_SIZE) { syslog(LOG_INFO, "Username too long: %s", username); cit_backtrace (); len = USERNAME_SIZE - 1; username[len]='\0'; } return len; } /* * makeuserkey() - convert a username into the format used as a database key * (it's just the username converted into lower case) */ ///CTDL_INLINE_USR static INLINE void makeuserkey(char *key, const char *username, long len) { int i; if (len >= USERNAME_SIZE) { syslog(LOG_INFO, "Username too long: %s", username); cit_backtrace (); len = USERNAME_SIZE - 1; } for (i=0; i<=len; ++i) { key[i] = tolower(username[i]); } } int internal_create_user (const char *username, long len, struct ctdluser *usbuf, uid_t uid); #endif citadel-902/utillib/000077500000000000000000000000001271512031400144335ustar00rootroot00000000000000citadel-902/utillib/citadel_dirs.c000066400000000000000000000300301271512031400172210ustar00rootroot00000000000000/* * citadel_dirs.c : calculate pathnames for various files used in the Citadel system * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "citadel_dirs.h" /* our directories... */ char ctdl_home_directory[PATH_MAX] = ""; char ctdl_bio_dir[PATH_MAX]="bio"; char ctdl_bb_dir[PATH_MAX]="bitbucket"; char ctdl_data_dir[PATH_MAX]="data"; char ctdl_dspam_dir[PATH_MAX]="dspam"; char ctdl_file_dir[PATH_MAX]="files"; char ctdl_shared_dir[PATH_MAX]=""; char ctdl_image_dir[PATH_MAX]="images"; char ctdl_info_dir[PATH_MAX]="info"; char ctdl_key_dir[PATH_MAX]=SSL_DIR; char ctdl_message_dir[PATH_MAX]="messages"; char ctdl_usrpic_dir[PATH_MAX]="userpics"; char ctdl_bbsbase_dir[PATH_MAX]=""; char ctdl_etc_dir[PATH_MAX]=""; char ctdl_autoetc_dir[PATH_MAX]=""; /* attention! this may be non volatile on some oses */ char ctdl_run_dir[PATH_MAX]=""; char ctdl_spool_dir[PATH_MAX]="network"; char ctdl_netout_dir[PATH_MAX]="network/spoolout"; char ctdl_netin_dir[PATH_MAX]="network/spoolin"; char ctdl_netdigest_dir[PATH_MAX]="network/digest"; char ctdl_nettmp_dir[PATH_MAX]="network/spooltmp"; char ctdl_netcfg_dir[PATH_MAX]="netconfigs"; char ctdl_utilbin_dir[PATH_MAX]=""; char ctdl_sbin_dir[PATH_MAX]=""; char ctdl_bin_dir[PATH_MAX]=""; /* some of our files, that are needed in several places */ char file_citadel_control[PATH_MAX]=""; char file_citadel_config[PATH_MAX]=""; char file_citadel_urlshorteners[PATH_MAX]=""; char file_lmtp_socket[PATH_MAX]=""; char file_lmtp_unfiltered_socket[PATH_MAX]=""; char file_arcq[PATH_MAX]=""; char file_citadel_socket[PATH_MAX]=""; char file_citadel_admin_socket[PATH_MAX]=""; char file_mail_aliases[PATH_MAX]=""; char file_pid_file[PATH_MAX]=""; char file_pid_paniclog[PATH_MAX]=""; char file_crpt_file_key[PATH_MAX]=""; char file_crpt_file_csr[PATH_MAX]=""; char file_crpt_file_cer[PATH_MAX]=""; char file_chkpwd[PATH_MAX]=""; char file_base64[PATH_MAX]=""; char file_guesstimezone[PATH_MAX]=""; char file_funambol_msg[PATH_MAX] = ""; char file_dpsam_conf[PATH_MAX] = ""; char file_dspam_log[PATH_MAX] = ""; #define COMPUTE_DIRECTORY(SUBDIR) memcpy(dirbuffer,SUBDIR, sizeof dirbuffer);\ snprintf(SUBDIR,sizeof SUBDIR, "%s%s%s%s%s%s%s", \ (home&!relh)?ctdl_home_directory:basedir, \ ((basedir!=ctdldir)&(home&!relh))?basedir:"/", \ ((basedir!=ctdldir)&(home&!relh))?"/":"", \ relhome, \ (relhome[0]!='\0')?"/":"",\ dirbuffer,\ (dirbuffer[0]!='\0')?"/":""); #define DBG_PRINT(A) if (dbg==1) fprintf (stderr,"%s : %s \n", #A, A) void calc_dirs_n_files(int relh, int home, const char *relhome, char *ctdldir, int dbg) { const char* basedir = ""; char dirbuffer[PATH_MAX] = ""; /* * Ok, we keep our binaries either in the citadel base dir, * or in /usr/sbin / /usr/bin */ StripSlashes(ctdldir, 1); #ifdef HAVE_ETC_DIR snprintf(ctdl_sbin_dir, sizeof ctdl_sbin_dir, "/usr/sbin/"); snprintf(ctdl_bin_dir, sizeof ctdl_bin_dir, "/usr/bin/"); #else snprintf(ctdl_sbin_dir, sizeof ctdl_sbin_dir, ctdldir); snprintf(ctdl_bin_dir, sizeof ctdl_bin_dir, ctdldir); #endif StripSlashes(ctdl_sbin_dir, 1); StripSlashes(ctdl_bin_dir, 1); #ifndef HAVE_AUTO_ETC_DIR basedir=ctdldir; #else basedir=AUTO_ETC_DIR; #endif COMPUTE_DIRECTORY(ctdl_autoetc_dir); StripSlashes(ctdl_autoetc_dir, 1); #ifndef HAVE_ETC_DIR basedir=ctdldir; #else basedir=ETC_DIR; #endif COMPUTE_DIRECTORY(ctdl_netcfg_dir); COMPUTE_DIRECTORY(ctdl_etc_dir); StripSlashes(ctdl_netcfg_dir, 1); StripSlashes(ctdl_etc_dir, 1); #ifndef HAVE_UTILBIN_DIR basedir=ctdldir; #else basedir=UTILBIN_DIR; #endif COMPUTE_DIRECTORY(ctdl_utilbin_dir); StripSlashes(ctdl_utilbin_dir, 1); #ifndef HAVE_RUN_DIR basedir=ctdldir; #else basedir=RUN_DIR; #endif COMPUTE_DIRECTORY(ctdl_run_dir); StripSlashes(ctdl_run_dir, 1); #ifndef HAVE_STATICDATA_DIR basedir=ctdldir; #else basedir=STATICDATA_DIR; #endif COMPUTE_DIRECTORY(ctdl_message_dir); StripSlashes(ctdl_message_dir, 1); #ifndef HAVE_DATA_DIR basedir=ctdldir; #else basedir=DATA_DIR; #endif COMPUTE_DIRECTORY(ctdl_bio_dir); COMPUTE_DIRECTORY(ctdl_bb_dir); COMPUTE_DIRECTORY(ctdl_data_dir); COMPUTE_DIRECTORY(ctdl_dspam_dir); COMPUTE_DIRECTORY(ctdl_file_dir); COMPUTE_DIRECTORY(ctdl_image_dir); COMPUTE_DIRECTORY(ctdl_info_dir); COMPUTE_DIRECTORY(ctdl_usrpic_dir); COMPUTE_DIRECTORY(ctdl_bbsbase_dir); StripSlashes(ctdl_bio_dir, 1); StripSlashes(ctdl_bb_dir, 1); StripSlashes(ctdl_data_dir, 1); StripSlashes(ctdl_dspam_dir, 1); StripSlashes(ctdl_file_dir, 1); StripSlashes(ctdl_image_dir, 1); StripSlashes(ctdl_info_dir, 1); StripSlashes(ctdl_usrpic_dir, 1); StripSlashes(ctdl_bbsbase_dir, 1); #ifndef HAVE_SPOOL_DIR basedir=ctdldir; #else basedir=SPOOL_DIR; #endif COMPUTE_DIRECTORY(ctdl_spool_dir); COMPUTE_DIRECTORY(ctdl_netout_dir); COMPUTE_DIRECTORY(ctdl_netin_dir); COMPUTE_DIRECTORY(ctdl_netdigest_dir); COMPUTE_DIRECTORY(ctdl_nettmp_dir); StripSlashes(ctdl_spool_dir, 1); StripSlashes(ctdl_netout_dir, 1); StripSlashes(ctdl_netin_dir, 1); StripSlashes(ctdl_netdigest_dir, 1); StripSlashes(ctdl_nettmp_dir, 1); /* ok, now we know the dirs, calc some commonly used files */ snprintf(file_arcq, sizeof file_arcq, "%srefcount_adjustments.dat", ctdl_autoetc_dir); StripSlashes(file_arcq, 0); snprintf(file_citadel_control, sizeof file_citadel_control, "%scitadel.control", ctdl_autoetc_dir ); StripSlashes(file_citadel_control, 0); snprintf(file_citadel_config, sizeof file_citadel_config, "%scitadel.config", ctdl_autoetc_dir); StripSlashes(file_citadel_config, 0); snprintf(file_citadel_urlshorteners, sizeof file_citadel_urlshorteners, "%scitadel_urlshorteners.rc", ctdl_etc_dir); StripSlashes(file_citadel_urlshorteners, 0); snprintf(file_lmtp_socket, sizeof file_lmtp_socket, "%slmtp.socket", ctdl_run_dir); StripSlashes(file_lmtp_socket, 0); snprintf(file_lmtp_unfiltered_socket, sizeof file_lmtp_socket, "%slmtp-unfiltered.socket", ctdl_run_dir); StripSlashes(file_lmtp_unfiltered_socket, 0); snprintf(file_citadel_socket, sizeof file_citadel_socket, "%scitadel.socket", ctdl_run_dir); StripSlashes(file_citadel_socket, 0); snprintf(file_citadel_admin_socket, sizeof file_citadel_admin_socket, "%scitadel-admin.socket", ctdl_run_dir); StripSlashes(file_citadel_admin_socket, 0); snprintf(file_pid_file, sizeof file_pid_file, "%scitadel.pid", ctdl_run_dir); StripSlashes(file_pid_file, 0); snprintf(file_pid_paniclog, sizeof file_pid_paniclog, "%spanic.log", ctdl_home_directory); StripSlashes(file_pid_paniclog, 0); snprintf(file_crpt_file_key, sizeof file_crpt_file_key, "%s/citadel.key", ctdl_key_dir); StripSlashes(file_crpt_file_key, 0); snprintf(file_crpt_file_csr, sizeof file_crpt_file_csr, "%s/citadel.csr", ctdl_key_dir); StripSlashes(file_crpt_file_csr, 0); snprintf(file_crpt_file_cer, sizeof file_crpt_file_cer, "%s/citadel.cer", ctdl_key_dir); StripSlashes(file_crpt_file_cer, 0); snprintf(file_chkpwd, sizeof file_chkpwd, "%schkpwd", ctdl_utilbin_dir); StripSlashes(file_chkpwd, 0); snprintf(file_base64, sizeof file_base64, "%sbase64", ctdl_utilbin_dir); StripSlashes(file_base64, 0); snprintf(file_guesstimezone, sizeof file_guesstimezone, "%sguesstimezone.sh", ctdl_utilbin_dir); snprintf(file_dpsam_conf, sizeof file_dpsam_conf, "%sdspam.conf", ctdl_etc_dir); StripSlashes(file_dpsam_conf, 0); snprintf(file_dspam_log, sizeof file_dspam_log, "%sdspam.log", ctdl_home_directory); StripSlashes(file_dspam_log, 0); /* * DIRTY HACK FOLLOWS! due to configs in the network dir in the * legacy installations, we need to calculate ifdeffed here. */ snprintf(file_mail_aliases, sizeof file_mail_aliases, "%smail.aliases", #ifdef HAVE_ETC_DIR ctdl_etc_dir #else ctdl_spool_dir #endif ); StripSlashes(file_mail_aliases, 0); snprintf(file_funambol_msg, sizeof file_funambol_msg, "%sfunambol_newmail_soap.xml", ctdl_shared_dir); StripSlashes(file_funambol_msg, 0); DBG_PRINT(ctdl_bio_dir); DBG_PRINT(ctdl_bb_dir); DBG_PRINT(ctdl_data_dir); DBG_PRINT(ctdl_dspam_dir); DBG_PRINT(ctdl_file_dir); DBG_PRINT(ctdl_image_dir); DBG_PRINT(ctdl_info_dir); DBG_PRINT(ctdl_key_dir); DBG_PRINT(ctdl_message_dir); DBG_PRINT(ctdl_usrpic_dir); DBG_PRINT(ctdl_etc_dir); DBG_PRINT(ctdl_run_dir); DBG_PRINT(ctdl_spool_dir); DBG_PRINT(ctdl_netout_dir); DBG_PRINT(ctdl_netin_dir); DBG_PRINT(ctdl_netdigest_dir); DBG_PRINT(ctdl_nettmp_dir); DBG_PRINT(ctdl_netcfg_dir); DBG_PRINT(ctdl_bbsbase_dir); DBG_PRINT(ctdl_sbin_dir); DBG_PRINT(ctdl_bin_dir); DBG_PRINT(ctdl_utilbin_dir); DBG_PRINT(file_citadel_control); DBG_PRINT(file_citadel_config); DBG_PRINT(file_lmtp_socket); DBG_PRINT(file_lmtp_unfiltered_socket); DBG_PRINT(file_arcq); DBG_PRINT(file_citadel_socket); DBG_PRINT(file_mail_aliases); DBG_PRINT(file_pid_file); DBG_PRINT(file_pid_paniclog); DBG_PRINT(file_crpt_file_key); DBG_PRINT(file_crpt_file_csr); DBG_PRINT(file_crpt_file_cer); DBG_PRINT(file_chkpwd); DBG_PRINT(file_base64); DBG_PRINT(file_guesstimezone); DBG_PRINT(file_funambol_msg); } /* * Generate an associated file name for a room */ size_t assoc_file_name(char *buf, size_t n, struct ctdlroom *qrbuf, const char *prefix) { return snprintf(buf, n, "%s%ld", prefix, qrbuf->QRnumber); } void remove_digest_file(struct ctdlroom *room) { char buf[PATH_MAX]; snprintf(buf, PATH_MAX, "%s/%ld.eml", ctdl_netdigest_dir, room->QRnumber); StripSlashes(buf, 0); unlink(buf); } FILE *create_digest_file(struct ctdlroom *room, int forceCreate) { struct stat stbuf; char fn[PATH_MAX]; int exists; FILE *fp; snprintf(fn, PATH_MAX, "%s/%ld.eml", ctdl_netdigest_dir, room->QRnumber); StripSlashes(fn, 0); exists = stat(fn, &stbuf); if (!forceCreate && (exists == -1)) return NULL; fp = fopen(fn, "w+"); if (fp == NULL) { syslog(LOG_EMERG, "failed to create digest file %s: %s", fn, strerror(errno)); } return fp; } int create_dir(char *which, long ACCESS, long UID, long GID) { int rv; rv = mkdir(which, ACCESS); if ((rv == -1) && (errno != EEXIST)) { syslog(LOG_EMERG, "failed to create directory %s: %s", which, strerror(errno)); return rv; } rv = chmod(which, ACCESS); if (rv == -1) { syslog(LOG_EMERG, "failed to set permissions for directory %s: %s", which, strerror(errno)); return rv; } rv = chown(which, UID, GID); if (rv == -1) { syslog(LOG_EMERG, "failed to set owner for directory %s: %s", which, strerror(errno)); return rv; } return rv; } int create_run_directories(long UID, long GID) { int rv = 0; rv += create_dir(ctdl_message_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_bb_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_file_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_spool_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_netout_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_netin_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_netdigest_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_nettmp_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_key_dir , S_IRUSR|S_IWUSR|S_IXUSR, UID, -1); rv += create_dir(ctdl_run_dir , S_IRUSR|S_IWUSR|S_IXUSR|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, UID, GID); return rv; } citadel-902/utils/000077500000000000000000000000001271512031400141275ustar00rootroot00000000000000citadel-902/utils/aidepost.c000066400000000000000000000060501271512031400161040ustar00rootroot00000000000000/* * This is just a little hack to copy standard input to a message in Aide> * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include #include #include #include "citadel.h" #include "citadel_dirs.h" /* * Simplified function to generate a message in our format */ static void ap_make_message(FILE *fp, char *target_room, char *author, char *subject) { int a; long bb, cc; time_t now; time(&now); putc(255, fp); putc(MES_NORMAL, fp); putc(1, fp); fprintf(fp, "Proom_aide"); putc(0, fp); fprintf(fp, "T%ld", (long)now); putc(0, fp); fprintf(fp, "A%s", author); putc(0, fp); fprintf(fp, "O%s", target_room); putc(0, fp); if (strlen(subject) > 0) { fprintf(fp, "U%s%c", subject, 0); } putc('M', fp); bb = ftell(fp); while (a = getc(stdin), a > 0) { if (a != 8) putc(a, fp); else { cc = ftell(fp); if (cc != bb) fseek(fp, (-1L), 1); } } putc(0, fp); putc(0, fp); putc(0, fp); } int main(int argc, char **argv) { char tempspool[64]; char target_room[ROOMNAMELEN]; char author[64]; char subject[256]; FILE *tempfp, *spoolfp; int ch; int i; int relh=0; int home=0; char relhome[PATH_MAX]=""; char ctdldir[PATH_MAX]=CTDLDIR; calc_dirs_n_files(relh, home, relhome, ctdldir, 0); strcpy(target_room, "Aide"); strcpy(author, "Citadel"); strcpy(subject, ""); for (i=1; i= 0)) { putc(ch, spoolfp); } fclose(tempfp); return(fclose(spoolfp)); } citadel-902/utils/base64.c000066400000000000000000000172611271512031400153660ustar00rootroot00000000000000/* * Encode or decode file as MIME base64 (RFC 1341) * Public domain by John Walker, August 11 1997 * Modified slightly for the Citadel system, June 1999 * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #define TRUE 1 #define FALSE 0 #define LINELEN 72 /* Encoded line length (max 76) */ typedef unsigned char byte; /* Byte type */ FILE *fi; /* Input file */ FILE *fo; /* Output file */ static byte iobuf[256]; /* I/O buffer */ static int iolen = 0; /* Bytes left in I/O buffer */ static int iocp = 256; /* Character removal pointer */ static int ateof = FALSE; /* EOF encountered */ static byte dtable[256]; /* Encode / decode table */ static int linelength = 0; /* Length of encoded output line */ static char eol[] = "\r\n"; /* End of line sequence */ static int errcheck = TRUE; /* Check decode input for errors ? */ /* INBUF -- Fill input buffer with data */ static int inbuf(void) { int l; if (ateof) { return FALSE; } l = fread(iobuf, 1, sizeof iobuf, fi); /* Read input buffer */ if (l <= 0) { if (ferror(fi)) { exit(1); } ateof = TRUE; return FALSE; } iolen = l; iocp = 0; return TRUE; } /* INCHAR -- Return next character from input */ static int inchar(void) { if (iocp >= iolen) { if (!inbuf()) { return EOF; } } return iobuf[iocp++]; } /* OCHAR -- Output an encoded character, inserting line breaks where required. */ static void ochar(int c) { if (linelength >= LINELEN) { if (fputs(eol, fo) == EOF) { exit(1); } linelength = 0; } if (putc(((byte) c), fo) == EOF) { exit(1); } linelength++; } /* ENCODE -- Encode binary file into base64. */ static void encode(void) { int i, hiteof = FALSE; /* Fill dtable with character encodings. */ for (i = 0; i < 26; i++) { dtable[i] = 'A' + i; dtable[26 + i] = 'a' + i; } for (i = 0; i < 10; i++) { dtable[52 + i] = '0' + i; } dtable[62] = '+'; dtable[63] = '/'; while (!hiteof) { byte igroup[3], ogroup[4]; int c, n; igroup[0] = igroup[1] = igroup[2] = 0; for (n = 0; n < 3; n++) { c = inchar(); if (c == EOF) { hiteof = TRUE; break; } igroup[n] = (byte) c; } if (n > 0) { ogroup[0] = dtable[igroup[0] >> 2]; ogroup[1] = dtable[((igroup[0] & 3) << 4) | (igroup[1] >> 4)]; ogroup[2] = dtable[((igroup[1] & 0xF) << 2) | (igroup[2] >> 6)]; ogroup[3] = dtable[igroup[2] & 0x3F]; /* Replace characters in output stream with "=" pad characters if fewer than three characters were read from the end of the input stream. */ if (n < 3) { ogroup[3] = '='; if (n < 2) { ogroup[2] = '='; } } for (i = 0; i < 4; i++) { ochar(ogroup[i]); } } } if (fputs(eol, fo) == EOF) { exit(1); } } /* INSIG -- Return next significant input */ static int insig(void) { int c; /*CONSTANTCONDITION*/ while (TRUE) { c = inchar(); if (c == EOF || (c > ' ')) { return c; } } /*NOTREACHED*/ } /* DECODE -- Decode base64. */ static void decode(void) { int i; for (i = 0; i < 255; i++) { dtable[i] = 0x80; } for (i = 'A'; i <= 'Z'; i++) { dtable[i] = 0 + (i - 'A'); } for (i = 'a'; i <= 'z'; i++) { dtable[i] = 26 + (i - 'a'); } for (i = '0'; i <= '9'; i++) { dtable[i] = 52 + (i - '0'); } dtable['+'] = 62; dtable['/'] = 63; dtable['='] = 0; /*CONSTANTCONDITION*/ while (TRUE) { byte a[4], b[4], o[3]; for (i = 0; i < 4; i++) { int c = insig(); if (c == EOF) { if (errcheck && (i > 0)) { fprintf(stderr, "Input file incomplete.\n"); exit(1); } return; } if (dtable[c] & 0x80) { if (errcheck) { fprintf(stderr, "Illegal character '%c' in input file.\n", c); exit(1); } /* Ignoring errors: discard invalid character. */ i--; continue; } a[i] = (byte) c; b[i] = (byte) dtable[c]; } o[0] = (b[0] << 2) | (b[1] >> 4); o[1] = (b[1] << 4) | (b[2] >> 2); o[2] = (b[2] << 6) | b[3]; i = a[2] == '=' ? 1 : (a[3] == '=' ? 2 : 3); if (fwrite(o, i, 1, fo) == EOF) { exit(1); } if (i < 3) { return; } } } /* USAGE -- Print how-to-call information. */ static void usage(char *pname) { fprintf(stderr, "%s -- Encode/decode file as base64. Call:\n", pname); fprintf(stderr, " %s [-e[ncode] / -d[ecode]] [-n] [infile] [outfile]\n", pname); fprintf(stderr, "\n"); fprintf(stderr, "Options:\n"); fprintf(stderr, " -D Decode base64 encoded file\n"); fprintf(stderr, " -E Encode file into base64\n"); fprintf(stderr, " -N Ignore errors when decoding\n"); fprintf(stderr, " -U Print this message\n"); fprintf(stderr, "\n"); fprintf(stderr, "by John Walker\n"); fprintf(stderr, " WWW: http://www.fourmilab.ch/\n"); } /* Main program */ int main(int argc, char *argv[]) { int i, f = 0, decoding = FALSE; char *cp, opt; fi = stdin; fo = stdout; for (i = 1; i < argc; i++) { cp = argv[i]; if (*cp == '-') { opt = *(++cp); if (islower(opt)) { opt = toupper(opt); } switch (opt) { case 'D': /* -D Decode */ decoding = TRUE; break; case 'E': /* -E Encode */ decoding = FALSE; break; case 'N': /* -N Suppress error checking */ errcheck = FALSE; break; case 'U': /* -U Print how-to-call information */ case '?': usage(argv[0]); return 0; } } else { switch (f) { /** Warning! On systems which distinguish text mode and binary I/O (MS-DOS, Macintosh, etc.) the modes in these open statements will have to be made conditional based upon whether an encode or decode is being done, which will have to be specified earlier. But it's worse: if input or output is from standard input or output, the mode will have to be changed on the fly, which is generally system and compiler dependent. 'Twasn't me who couldn't conform to Unix CR/LF convention, so don't ask me to write the code to work around Apple and Microsoft's incompatible standards. **/ case 0: if (strcmp(cp, "-") != 0) { if ((fi = fopen(cp, "r")) == NULL) { fprintf(stderr, "Cannot open input file %s\n", cp); return 2; } } f++; break; case 1: if (strcmp(cp, "-") != 0) { if ((fo = fopen(cp, "w")) == NULL) { fprintf(stderr, "Cannot open output file %s\n", cp); return 2; } } f++; break; default: fprintf(stderr, "Too many file names specified.\n"); usage(argv[0]); return 2; } } } if (decoding) { decode(); } else { encode(); } return 0; } citadel-902/utils/chkpw.c000066400000000000000000000065361271512031400154210ustar00rootroot00000000000000/* * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "sysdep.h" #include "citadel_dirs.h" /* These pipes are used to talk to the chkpwd daemon, which is forked during startup */ int chkpwd_write_pipe[2]; int chkpwd_read_pipe[2]; /* * Validate a password on the host unix system by talking to the chkpwd daemon */ static int validpw(uid_t uid, const char *pass) { char buf[256]; int rv; rv = write(chkpwd_write_pipe[1], &uid, sizeof(uid_t)); if (rv == -1) { printf( "Communicatino with chkpwd broken: %s\n", strerror(errno)); return 0; } rv = write(chkpwd_write_pipe[1], pass, 256); if (rv == -1) { printf( "Communicatino with chkpwd broken: %s\n", strerror(errno)); return 0; } rv = read(chkpwd_read_pipe[0], buf, 4); if (rv == -1) { printf( "Communicatino with chkpwd broken: %s\n", strerror(errno)); return 0; } if (!strncmp(buf, "PASS", 4)) { printf("pass\n"); return(1); } printf("fail\n"); return 0; } /* * Start up the chkpwd daemon so validpw() has something to talk to */ void start_chkpwd_daemon(void) { pid_t chkpwd_pid; struct stat filestats; int i; printf("Starting chkpwd daemon for host authentication mode\n"); if ((stat(file_chkpwd, &filestats)==-1) || (filestats.st_size==0)){ printf("didn't find chkpwd daemon in %s: %s\n", file_chkpwd, strerror(errno)); abort(); } if (pipe(chkpwd_write_pipe) != 0) { printf("Unable to create pipe for chkpwd daemon: %s\n", strerror(errno)); abort(); } if (pipe(chkpwd_read_pipe) != 0) { printf("Unable to create pipe for chkpwd daemon: %s\n", strerror(errno)); abort(); } chkpwd_pid = fork(); if (chkpwd_pid < 0) { printf("Unable to fork chkpwd daemon: %s\n", strerror(errno)); abort(); } if (chkpwd_pid == 0) { dup2(chkpwd_write_pipe[0], 0); dup2(chkpwd_read_pipe[1], 1); for (i=2; i<256; ++i) close(i); execl(file_chkpwd, file_chkpwd, NULL); printf("Unable to exec chkpwd daemon: %s\n", strerror(errno)); abort(); exit(errno); } } int main(int argc, char **argv) { char buf[256]; struct passwd *p; int uid; char ctdldir[PATH_MAX]=CTDLDIR; calc_dirs_n_files(0,0,"", ctdldir, 0); printf("\n\n ** host auth mode test utility **\n\n"); start_chkpwd_daemon(); if (getuid() != 0){ printf("\n\nERROR: you need to be root to run this!\n\n"); return(1); } while(1) { printf("\n\nUsername: "); fgets(buf, sizeof buf, stdin); buf[strlen(buf)-1] = 0; p = getpwnam(buf); if (p == NULL) { printf("Not found\n"); } else { uid = p->pw_uid; printf(" uid: %d\n", uid); printf("Password: "); fgets(buf, sizeof buf, stdin); buf[strlen(buf)-1] = 0; validpw(uid, buf); } } return(0); } citadel-902/utils/chkpwd.c000066400000000000000000000021751271512031400155600ustar00rootroot00000000000000/* * a setuid helper program for machines which use shadow passwords * by Nathan Bryant, March 1999 * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include #include #include #include #include #include "auth.h" #include "config.h" #include "citadel_dirs.h" #include "citadel.h" int main(void) { uid_t uid; char buf[SIZ]; while (1) { buf[0] = '\0'; read(0, &uid, sizeof(uid_t)); /* uid */ read(0, buf, 256); /* password */ if (buf[0] == '\0') return (0); if (validate_password(uid, buf)) { write(1, "PASS", 4); } else { write(1, "FAIL", 4); } } return(0); } citadel-902/utils/citmail.c000066400000000000000000000164341271512031400157250ustar00rootroot00000000000000/* * This program attempts to act like a local MDA if you're using sendmail or * some other non-Citadel MTA. It basically just contacts the Citadel LMTP * listener on a unix domain socket and transmits the message. * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "citadel_dirs.h" int serv_sock; int debug = 0; void strip_trailing_nonprint(char *buf) { while ( (!IsEmptyStr(buf)) && (!isprint(buf[strlen(buf) - 1])) ) buf[strlen(buf) - 1] = 0; } void timeout(int signum) { exit(signum); } int uds_connectsock(char *sockpath) { int s; struct sockaddr_un addr; memset(&addr, 0, sizeof(addr)); addr.sun_family = AF_UNIX; strncpy(addr.sun_path, sockpath, sizeof addr.sun_path); s = socket(AF_UNIX, SOCK_STREAM, 0); if (s < 0) { fprintf(stderr, "citmail: Can't create socket: %s\n", strerror(errno)); exit(3); } if (connect(s, (struct sockaddr *) &addr, sizeof(addr)) < 0) { fprintf(stderr, "citmail: can't connect: %s\n", strerror(errno)); close(s); exit(3); } return s; } /* * input binary data from socket */ void serv_read(char *buf, int bytes) { int len, rlen; len = 0; while (len < bytes) { rlen = read(serv_sock, &buf[len], bytes - len); if (rlen < 1) { return; } len = len + rlen; } } /* * send binary to server */ void serv_write(char *buf, int nbytes) { int bytes_written = 0; int retval; while (bytes_written < nbytes) { retval = write(serv_sock, &buf[bytes_written], nbytes - bytes_written); if (retval < 1) { return; } bytes_written = bytes_written + retval; } } /* * input string from socket - implemented in terms of serv_read() */ void serv_gets(char *buf) { int i; /* Read one character at a time. */ for (i = 0;; i++) { serv_read(&buf[i], 1); if (buf[i] == '\n' || i == (SIZ-1)) break; } /* If we got a long line, discard characters until the newline. */ if (i == (SIZ-1)) while (buf[i] != '\n') serv_read(&buf[i], 1); /* Strip all trailing nonprintables (crlf) */ buf[i] = 0; strip_trailing_nonprint(buf); if (debug) fprintf(stderr, "> %s\n", buf); } /* * send line to server - implemented in terms of serv_write() */ void serv_puts(char *buf) { if (debug) fprintf(stderr, "< %s\n", buf); serv_write(buf, strlen(buf)); serv_write("\n", 1); } void cleanup(int exitcode) { char buf[1024]; if (exitcode != 0) { fprintf(stderr, "citmail: error #%d occurred while sending mail.\n", exitcode); fprintf(stderr, "Please check your Citadel configuration.\n"); } serv_puts("QUIT"); serv_gets(buf); exit(exitcode); } int main(int argc, char **argv) { char buf[1024]; char fromline[1024]; FILE *fp; int i; struct passwd *pw; int from_header = 0; int in_body = 0; int relh=0; int home=0; char relhome[PATH_MAX]=""; char ctdldir[PATH_MAX]=CTDLDIR; char *sp, *ep; char hostname[256]; char **recipients = NULL; int num_recipients = 0; int to_or_cc = 0; int read_recipients_from_headers = 0; char *add_these_recipients = NULL; for (i=1; ipw_name, hostname); while (fgets(buf, 1024, stdin) != NULL) { if ( ( (buf[0] == 13) || (buf[0] == 10)) && (in_body == 0) ) { in_body = 1; if (from_header == 0) { fprintf(fp, "%s%s", fromline, buf); } } if (in_body == 0 && !strncasecmp(buf, "From:", 5)) { strcpy(fromline, buf); from_header = 1; } if (read_recipients_from_headers) { add_these_recipients = NULL; if ((isspace(buf[0])) && (to_or_cc)) { add_these_recipients = buf; } else { if ((!strncasecmp(buf, "To:", 3)) || (!strncasecmp(buf, "Cc:", 3))) { to_or_cc = 1; } else { to_or_cc = 0; } if (to_or_cc) { add_these_recipients = &buf[3]; } } if (add_these_recipients) { int num_recp_on_this_line; char this_recp[256]; num_recp_on_this_line = num_tokens(add_these_recipients, ','); for (i=0; i #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "axdefs.h" #include "sysdep.h" #include "config.h" #include "citadel_dirs.h" #if HAVE_BACKTRACE #include #endif /* * Replacement for gets() that doesn't throw a compiler warning. * We're only using it for some simple prompts, so we don't need * to worry about attackers exploiting it. */ void getz(char *buf) { char *ptr; ptr = fgets(buf, SIZ, stdin); if (!ptr) { buf[0] = 0; return; } ptr = strchr(buf, '\n'); if (ptr) *ptr = 0; } int main(int argc, char *argv[]) { int relh=0; int home=0; char relhome[PATH_MAX]=""; char ctdldir[PATH_MAX]=CTDLDIR; char yesno[5]; char sendcommand[PATH_MAX]; int cmdexit; char cmd[PATH_MAX]; char buf[PATH_MAX]; char socket_path[PATH_MAX]; char remote_user[SIZ]; char remote_host[SIZ]; char remote_sendcommand[PATH_MAX]; FILE *sourcefp = NULL; FILE *targetfp = NULL; int linecount = 0; char spinning[4] = "-\\|/" ; int exitcode = 0; calc_dirs_n_files(relh, home, relhome, ctdldir, 0); CtdlMakeTempFileName(socket_path, sizeof socket_path); cmdexit = system("clear"); printf( "-------------------------------------------\n" "Over-the-wire migration utility for Citadel\n" "-------------------------------------------\n" "\n" "This utility is designed to migrate your Citadel installation\n" "to a new host system via a network connection, without disturbing\n" "the source system. The target may be a different CPU architecture\n" "and/or operating system. The source system should be running\n" "Citadel version %d or newer, and the target system should be running\n" "either the same version or a newer version. You will also need\n" "the 'rsync' utility, and OpenSSH v4 or newer.\n" "\n" "You must run this utility on the TARGET SYSTEM. Any existing data\n" "on this system will be ERASED.\n" "\n" "Do you wish to continue? " , EXPORT_REV_MIN ); if ((fgets(yesno, sizeof yesno, stdin) == NULL) || (tolower(yesno[0]) != 'y')) { exit(0); } printf("\n\nGreat! First we will check some things out here on our target\n" "system to make sure it is ready to receive data.\n\n"); printf("Locating 'sendcommand' and checking connectivity to Citadel...\n"); snprintf(sendcommand, sizeof sendcommand, "%s/sendcommand", ctdl_utilbin_dir); snprintf(cmd, sizeof cmd, "%s 'NOOP'", sendcommand); cmdexit = system(cmd); if (cmdexit != 0) { printf("\nctdlmigrate was unable to attach to the Citadel server\n" "here on the target system. Is Citadel running?\n\n"); exit(1); } printf("\nOK, this side is ready to go. Now we must connect to the source system.\n\n"); printf("Enter the host name or IP address of the source system\n" "(example: ctdl.foo.org)\n" "--> "); getz(remote_host); get_remote_user: printf("\nEnter the name of a user on %s who has full access to Citadel files\n" "(usually root)\n--> ", remote_host); getz(remote_user); if (IsEmptyStr(remote_user)) goto get_remote_user; printf("\nEstablishing an SSH connection to the source system...\n\n"); unlink(socket_path); snprintf(cmd, sizeof cmd, "ssh -MNf -S %s %s@%s", socket_path, remote_user, remote_host); cmdexit = system(cmd); printf("\n"); if (cmdexit != 0) { printf("This program was unable to establish an SSH session to the source system.\n\n"); exitcode = cmdexit; goto THEEND; } printf("\nTesting a command over the connection...\n\n"); snprintf(cmd, sizeof cmd, "ssh -S %s %s@%s 'echo Remote commands are executing successfully.'", socket_path, remote_user, remote_host); cmdexit = system(cmd); printf("\n"); if (cmdexit != 0) { printf("Remote commands are not succeeding.\n\n"); exitcode = cmdexit; goto THEEND; } printf("\nLocating the remote 'sendcommand' and Citadel installation...\n"); snprintf(remote_sendcommand, sizeof remote_sendcommand, "/usr/local/citadel/sendcommand"); snprintf(cmd, sizeof cmd, "ssh -S %s %s@%s %s NOOP", socket_path, remote_user, remote_host, remote_sendcommand); cmdexit = system(cmd); if (cmdexit != 0) { snprintf(remote_sendcommand, sizeof remote_sendcommand, "/usr/sbin/sendcommand"); snprintf(cmd, sizeof cmd, "ssh -S %s %s@%s %s NOOP", socket_path, remote_user, remote_host, remote_sendcommand); cmdexit = system(cmd); } if (cmdexit != 0) { printf("\nUnable to locate Citadel programs on the remote system. Please enter\n" "the name of the directory on %s which contains the 'sendcommand' program.\n" "(example: /opt/foo/citadel)\n" "--> ", remote_host); getz(buf); snprintf(remote_sendcommand, sizeof remote_sendcommand, "%s/sendcommand", buf); snprintf(cmd, sizeof cmd, "ssh -S %s %s@%s %s NOOP", socket_path, remote_user, remote_host, remote_sendcommand); cmdexit = system(cmd); } printf("\n"); if (cmdexit != 0) { printf("ctdlmigrate was unable to attach to the remote Citadel system.\n\n"); exitcode = cmdexit; goto THEEND; } printf("ctdlmigrate will now begin a database migration...\n"); printf(" if the system doesn't start working, \n"); printf(" have a look at the syslog for pending jobs needing to be terminated.\n"); snprintf(cmd, sizeof cmd, "ssh -S %s %s@%s %s -w3600 MIGR export", socket_path, remote_user, remote_host, remote_sendcommand); sourcefp = popen(cmd, "r"); if (!sourcefp) { printf("\n%s\n\n", strerror(errno)); exitcode = 2; goto THEEND; } snprintf(cmd, sizeof cmd, "%s -w3600 MIGR import", sendcommand); targetfp = popen(cmd, "w"); if (!targetfp) { printf("\n%s\n\n", strerror(errno)); exitcode = 3; goto THEEND; } while (fgets(buf, sizeof buf, sourcefp) != NULL) { if (fwrite(buf, strlen(buf), 1, targetfp) < 1) { exitcode = 4; printf("%s\n", strerror(errno)); goto FAIL; } ++linecount; if ((linecount % 100) == 0) { printf("%c\r", spinning[((linecount / 100) % 4)]); fflush(stdout); } } FAIL: if (sourcefp) pclose(sourcefp); if (targetfp) pclose(targetfp); if (exitcode != 0) goto THEEND; /* We need to copy a bunch of other stuff, and will do so using rsync */ snprintf(cmd, sizeof cmd, "ssh -S %s %s@%s %s MIGR listdirs", socket_path, remote_user, remote_host, remote_sendcommand); sourcefp = popen(cmd, "r"); if (!sourcefp) { printf("\n%s\n\n", strerror(errno)); exitcode = 2; goto THEEND; } while ((fgets(buf, sizeof buf, sourcefp)) && (strcmp(buf, "000"))) { buf[strlen(buf)-1] = 0; if (!strncasecmp(buf, "files|", 6)) { snprintf(cmd, sizeof cmd, "rsync -va --rsh='ssh -S %s' %s@%s:%s/ %s/", socket_path, remote_user, remote_host, &buf[6], ctdl_file_dir); } else if (!strncasecmp(buf, "messages|", 9)) { snprintf(cmd, sizeof cmd, "rsync -va --rsh='ssh -S %s' %s@%s:%s/ %s/", socket_path, remote_user, remote_host, &buf[9], ctdl_message_dir); } else if (!strncasecmp(buf, "keys|", 5)) { snprintf(cmd, sizeof cmd, "rsync -va --rsh='ssh -S %s' %s@%s:%s/ %s/", socket_path, remote_user, remote_host, &buf[5], ctdl_key_dir); } else { strcpy(cmd, "false"); /* cheap and sleazy way to throw an error */ } printf("%s\n", cmd); cmdexit = system(cmd); if (cmdexit != 0) { exitcode += cmdexit; } } pclose(sourcefp); THEEND: if (exitcode == 0) { printf("\n\n *** Citadel migration was successful! *** \n\n"); } else { printf("\n\n *** Citadel migration was unsuccessful. *** \n\n"); } printf("\nShutting down the socket connection...\n\n"); snprintf(cmd, sizeof cmd, "ssh -S %s -N -O exit %s@%s", socket_path, remote_user, remote_host); cmdexit = system(cmd); printf("\n"); if (cmdexit != 0) { printf("There was an error shutting down the socket.\n\n"); exitcode = cmdexit; } unlink(socket_path); exit(exitcode); } citadel-902/utils/msgform.c000066400000000000000000000063001271512031400157440ustar00rootroot00000000000000/* * This is simply a filter that converts Citadel binary message format * to readable, formatted output. * * If the -q (quiet or qwk) flag is used, only the message text prints, and * then it stops at the end of the first message it prints. * * This utility isn't very useful anymore. * */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include int qwk = 0; int fpgetfield(FILE * fp, char *string); int fmout(int width, FILE * fp); int main(int argc, char **argv) { struct tm tm; int a, b, e, aflag; char bbb[1024]; char subject[1024]; FILE *fp; time_t now; if (argc == 2) if (!strcmp(argv[1], "-q")) qwk = 1; fp = stdin; if (argc == 2) if (strcmp(argv[1], "-q")) { fp = fopen(argv[1], "r"); if (fp == NULL) { fprintf(stderr, "%s: cannot open %s: %s\n", argv[0], argv[1], strerror(errno)); exit(errno); } } TOP: do { e = getc(fp); if (e < 0) exit(0); } while (e != 255); strcpy(subject, ""); getc(fp); aflag = getc(fp); if (qwk == 0) printf(" "); do { b = getc(fp); if (b == 'M') { if (qwk == 0) { printf("\n"); if (!IsEmptyStr(subject)) printf("Subject: %s\n", subject); } if (aflag != 1) fmout(80, fp); else while (a = getc(fp), a > 0) { if (a == 13) putc(10, stdout); else putc(a, stdout); } } if ((b != 'M') && (b > 0)) fpgetfield(fp, bbb); if (b == 'U') strcpy(subject, bbb); if (qwk == 0) { if (b == 'A') printf("from %s ", bbb); if (b == 'N') printf("@%s ", bbb); if (b == 'O') printf("in %s> ", bbb); if (b == 'R') printf("to %s ", bbb); if (b == 'T') { now = atol(bbb); localtime_r(&now, &tm); strcpy(bbb, asctime(&tm)); bbb[strlen(bbb) - 1] = 0; printf("%s ", &bbb[4]); } } } while ((b != 'M') && (b > 0)); if (qwk == 0) printf("\n"); if (qwk == 1) exit(0); goto TOP; } int fpgetfield(FILE * fp, char *string) { /* level-2 break out next null-terminated string */ int a, b; strcpy(string, ""); a = 0; do { b = getc(fp); if (b < 1) { string[a] = 0; return (0); } string[a] = b; ++a; } while (b != 0); return (0); } int fmout(int width, FILE * fp) { int a, b, c; int real = 0; int old = 0; char aaa[140]; strcpy(aaa, ""); old = 255; c = 1; /* c is the current pos */ FMTA: old = real; a = getc(fp); real = a; if (a <= 0) goto FMTEND; if (((a == 13) || (a == 10)) && (old != 13) && (old != 10)) a = 32; if (((old == 13) || (old == 10)) && (isspace(real))) { printf("\n"); c = 1; } if (a > 126) goto FMTA; if (a > 32) { if (((strlen(aaa) + c) > (width - 5)) && (strlen(aaa) > (width - 5))) { printf("\n%s", aaa); c = strlen(aaa); aaa[0] = 0; } b = strlen(aaa); aaa[b] = a; aaa[b + 1] = 0; } if (a == 32) { if ((strlen(aaa) + c) > (width - 5)) { printf("\n"); c = 1; } printf("%s ", aaa); ++c; c = c + strlen(aaa); strcpy(aaa, ""); goto FMTA; } if ((a == 13) || (a == 10)) { printf("%s\n", aaa); c = 1; strcpy(aaa, ""); goto FMTA; } goto FMTA; FMTEND: printf("\n"); return (0); } citadel-902/utils/sendcommand.c000066400000000000000000000142701271512031400165670ustar00rootroot00000000000000/* * Command-line utility to transmit a server command. * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "include/citadel_dirs.h" #include int serv_sock = (-1); int uds_connectsock(char *sockpath) { int s; struct sockaddr_un addr; memset(&addr, 0, sizeof(addr)); addr.sun_family = AF_UNIX; strncpy(addr.sun_path, sockpath, sizeof addr.sun_path); s = socket(AF_UNIX, SOCK_STREAM, 0); if (s < 0) { fprintf(stderr, "sendcommand: Can't create socket: %s\n", strerror(errno)); exit(3); } if (connect(s, (struct sockaddr *) &addr, sizeof(addr)) < 0) { fprintf(stderr, "sendcommand: can't connect: %s\n", strerror(errno)); close(s); exit(3); } return s; } /* * input binary data from socket */ void serv_read(char *buf, int bytes) { int len, rlen; len = 0; while (len < bytes) { rlen = read(serv_sock, &buf[len], bytes - len); if (rlen < 1) { return; } len = len + rlen; } } /* * send binary to server */ void serv_write(char *buf, int nbytes) { int bytes_written = 0; int retval; while (bytes_written < nbytes) { retval = write(serv_sock, &buf[bytes_written], nbytes - bytes_written); if (retval < 1) { return; } bytes_written = bytes_written + retval; } } /* * input string from socket - implemented in terms of serv_read() */ void serv_gets(char *buf) { int i; /* Read one character at a time. */ for (i = 0;; i++) { serv_read(&buf[i], 1); if (buf[i] == '\n' || i == (SIZ-1)) break; } /* If we got a long line, discard characters until the newline. */ if (i == (SIZ-1)) { while (buf[i] != '\n') { serv_read(&buf[i], 1); } } /* Strip all trailing nonprintables (crlf) */ buf[i] = 0; } /* * send line to server - implemented in terms of serv_write() */ void serv_puts(char *buf) { serv_write(buf, strlen(buf)); serv_write("\n", 1); } /* * Main loop. Do things and have fun. */ int main(int argc, char **argv) { int a; int watchdog = 60; char buf[SIZ]; int xfermode = 0; int relh=0; int home=0; char relhome[PATH_MAX]=""; char ctdldir[PATH_MAX]=CTDLDIR; StartLibCitadel(SIZ); /* Parse command line */ while ((a = getopt(argc, argv, "h:w:")) != EOF) { switch (a) { case 'h': relh=optarg[0]!='/'; if (!relh) { strncpy(ctdl_home_directory, optarg, sizeof ctdl_home_directory); } else { strncpy(relhome, optarg, sizeof relhome); } home = 1; break; case 'w': watchdog = atoi(optarg); break; default: fprintf(stderr, "sendcommand: usage: sendcommand [-h server_dir] [-w watchdog_timeout]\n"); return(1); } } calc_dirs_n_files(relh, home, relhome, ctdldir, 0); fprintf(stderr, "sendcommand: started (pid=%d) connecting to Citadel server at %s\n", (int) getpid(), file_citadel_admin_socket ); fflush(stderr); alarm(watchdog); serv_sock = uds_connectsock(file_citadel_admin_socket); serv_gets(buf); fprintf(stderr, "%s\n", buf); strcpy(buf, ""); for (a=optind; a= 0) alarm(watchdog); /* reset the watchdog timer */ if (ErrStr != NULL) fprintf(stderr, "Error while piping stuff: %s\n", ErrStr); FDIOBufferDelete(&FDIO); FreeStrBuf(&IOB.Buf); serv_puts("000"); } if ((xfermode == '1') || (xfermode == '8')) { /* receive text */ IOBuffer IOB; StrBuf *Line, *OutBuf; int Finished = 0; memset(&IOB, 0, sizeof(IOB)); IOB.Buf = NewStrBufPlain(NULL, SIZ); IOB.fd = serv_sock; Line = NewStrBufPlain(NULL, SIZ); OutBuf = NewStrBufPlain(NULL, SIZ * 10); while (!Finished && (StrBuf_read_one_chunk_callback (serv_sock, 0, &IOB) >= 0)) { eReadState State; State = eReadSuccess; while (!Finished && (State == eReadSuccess)) { if (IOBufferStrLength(&IOB) == 0) { State = eMustReadMore; break; } State = StrBufChunkSipLine(Line, &IOB); switch (State) { case eReadSuccess: if (!strcmp(ChrPtr(Line), "000")) { Finished = 1; break; } StrBufAppendBuf(OutBuf, Line, 0); StrBufAppendBufPlain(OutBuf, HKEY("\n"), 0); alarm(watchdog); /* reset the watchdog timer */ break; case eBufferNotEmpty: break; case eMustReadMore: continue; case eReadFail: fprintf(stderr, "WTF? Exit!\n"); exit(-1); break; } if (StrLength(OutBuf) > 5*SIZ) { fwrite(ChrPtr(OutBuf), 1, StrLength(OutBuf), stdout); FlushStrBuf(OutBuf); } } } if (StrLength(OutBuf) > 0) { fwrite(ChrPtr(OutBuf), 1, StrLength(OutBuf), stdout); } FreeStrBuf(&Line); FreeStrBuf(&OutBuf); FreeStrBuf(&IOB.Buf); } if (xfermode == '6') { /* receive binary */ size_t len = atoi(&buf[4]); size_t bytes_remaining = len; while (bytes_remaining > 0) { size_t this_block = bytes_remaining; if (this_block > SIZ) this_block = SIZ; serv_read(buf, this_block); fwrite(buf, this_block, 1, stdout); bytes_remaining -= this_block; } } close(serv_sock); alarm(0); /* cancel the watchdog timer */ fprintf(stderr, "sendcommand: processing ended.\n"); if (xfermode == '5') { return(1); } return(0); } citadel-902/utils/setup.c000066400000000000000000000735121271512031400154430ustar00rootroot00000000000000/* * Citadel setup utility * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source software; you can redistribute it and/or * modify it under the terms of the GNU General Public License version 3. * * 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. */ #define SHOW_ME_VAPPEND_PRINTF #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "citadel.h" #include "axdefs.h" #include "sysdep.h" #include "citadel_dirs.h" #if HAVE_BACKTRACE #include #endif #ifdef ENABLE_NLS #ifdef HAVE_XLOCALE_H #include #endif #include #include #define _(string) gettext(string) #else #define _(string) (string) #endif #define UI_TEXT 0 /* Default setup type -- text only */ #define UI_DIALOG 2 /* Use the 'whiptail' or 'dialog' program */ #define UI_SILENT 3 /* Silent running, for use in scripts */ #define SERVICE_NAME "citadel" #define PROTO_NAME "tcp" #define NSSCONF "/etc/nsswitch.conf" typedef enum _SetupStep { eCitadelHomeDir = 0, eSysAdminName = 1, eSysAdminPW = 2, eUID = 3, eIP_ADDR = 4, eCTDL_Port = 5, eAuthType = 6, eLDAP_Host = 7, eLDAP_Port = 8, eLDAP_Base_DN = 9, eLDAP_Bind_DN = 10, eLDAP_Bind_PW = 11, eMaxQuestions = 12 } eSetupStep; ///"CREATE_XINETD_ENTRY"; /* Environment variables, don't translate! */ const char *EnvNames [eMaxQuestions] = { "HOME_DIRECTORY", "SYSADMIN_NAME", "SYSADMIN_PW", "CITADEL_UID", "IP_ADDR", "CITADEL_PORT", "ENABLE_UNIX_AUTH", "LDAP_HOST", "LDAP_PORT", "LDAP_BASE_DN", "LDAP_BIND_DN", "LDAP_BIND_PW" }; int setup_type = (-1); int enable_home = 1; char admin_name[SIZ]; char admin_pass[SIZ]; char admin_cmd[SIZ]; int serv_sock = (-1) ; const char *setup_titles[eMaxQuestions]; const char *setup_text[eMaxQuestions]; char *program_title; void SetTitles(void) { int have_run_dir; #ifndef HAVE_RUN_DIR have_run_dir = 1; #else have_run_dir = 0; #endif #ifdef ENABLE_NLS setlocale(LC_MESSAGES, getenv("LANG")); bindtextdomain("citadel-setup", LOCALEDIR"/locale"); textdomain("citadel-setup"); bind_textdomain_codeset("citadel-setup","UTF8"); #endif setup_titles[eCitadelHomeDir] = _("Citadel Home Directory"); if (have_run_dir) setup_text[eCitadelHomeDir] = _( "Enter the full pathname of the directory in which the Citadel\n" "installation you are creating or updating resides. If you\n" "specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n"); else setup_text[eCitadelHomeDir] = _( "Enter the subdirectory name for an alternate installation of " "Citadel. To do a default installation just leave it blank." "If you specify a directory other than the default, you will need to\n" "specify the -h flag to the server when you start it up.\n" "note that it may not have a leading /"); setup_titles[eSysAdminName] = _("Citadel administrator username:"); setup_text[eSysAdminName] = _( "Please enter the name of the Citadel user account that should be granted " "administrative privileges once created. If using internal authentication " "this user account will be created if it does not exist. For external " "authentication this user account has to exist."); setup_titles[eSysAdminPW] = _("Administrator password:"); setup_text[eSysAdminPW] = _( "Enter a password for the system administrator. When setup\n" "completes it will attempt to create the administrator user\n" "and set the password specified here.\n"); setup_titles[eUID] = _("Citadel User ID:"); setup_text[eUID] = _( "Citadel needs to run under its own user ID. This would\n" "typically be called \"citadel\", but if you are running Citadel\n" "as a public site, you might also call it \"bbs\" or \"guest\".\n" "The server will run under this user ID. Please specify that\n" "user ID here. You may specify either a user name or a numeric\n" "UID.\n"); setup_titles[eIP_ADDR] = _("Listening address for the Citadel server:"); setup_text[eIP_ADDR] = _( "Please specify the IP address which the server should be listening to. " "You can name a specific IPv4 or IPv6 address, or you can specify\n" "\"*\" for \"any address\", \"::\" for \"any IPv6 address\", or \"0.0.0.0\"\n" "for \"any IPv4 address\". If you leave this blank, Citadel will\n" "listen on all addresses. " "This can usually be left to the default unless multiple instances of Citadel " "are running on the same computer."); setup_titles[eCTDL_Port] = _("Server port number:"); setup_text[eCTDL_Port] = _( "Specify the TCP port number on which your server will run.\n" "Normally, this will be port 504, which is the official port\n" "assigned by the IANA for Citadel servers. You will only need\n" "to specify a different port number if you run multiple instances\n" "of Citadel on the same computer and there is something else\n" "already using port 504.\n"); setup_titles[eAuthType] = _("Authentication method to use:"); setup_text[eAuthType] = _( "Please choose the user authentication mode. By default Citadel will use its " "own internal user accounts database. If you choose Host, Citadel users will " "have accounts on the host system, authenticated via /etc/passwd or a PAM " "source. LDAP chooses an RFC 2307 compliant directory server, the last option " "chooses the nonstandard MS Active Directory LDAP scheme." "\n" "Do not change this option unless you are sure it is required, since changing " "back requires a full reinstall of Citadel." "\n" " 0. Self contained authentication\n" " 1. Host system integrated authentication\n" " 2. External LDAP - RFC 2307 compliant directory\n" " 3. External LDAP - nonstandard MS Active Directory\n" "\n" "For help: http://www.citadel.org/doku.php/faq:installation:authmodes\n" "\n" "ANSWER \"0\" UNLESS YOU COMPLETELY UNDERSTAND THIS OPTION.\n"); setup_titles[eLDAP_Host] = _("LDAP host:"); setup_text[eLDAP_Host] = _( "Please enter the host name or IP address of your LDAP server.\n"); setup_titles[eLDAP_Port] = _("LDAP port number:"); setup_text[eLDAP_Port] = _( "Please enter the port number of the LDAP service (usually 389).\n"); setup_titles[eLDAP_Base_DN] = _("LDAP base DN:"); setup_text[eLDAP_Base_DN] = _( "Please enter the Base DN to search for authentication\n" "(for example: dc=example,dc=com)\n"); setup_titles[eLDAP_Bind_DN] = _("LDAP bind DN:"); setup_text[eLDAP_Bind_DN] = _( "Please enter the DN of an account to use for binding to the LDAP server for " "performing queries. The account does not require any other privileges. If " "your LDAP server allows anonymous queries, you can leave this blank.\n"); setup_titles[eLDAP_Bind_PW] = _("LDAP bind password:"); setup_text[eLDAP_Bind_PW] = _( "If you entered a Bind DN in the previous question, you must now enter\n" "the password associated with that account. Otherwise, you can leave this\n" "blank.\n"); #if 0 // Debug loading of locales... Strace does a better job though. printf("Message catalog directory: %s\n", bindtextdomain("citadel-setup", LOCALEDIR"/locale")); printf("Text domain: %s\n", textdomain("citadel-setup")); printf("Text domain Charset: %s\n", bind_textdomain_codeset("citadel-setup","UTF8")); { int i; for (i = 0; i < eMaxQuestions; i++) printf("%s - %s\n", setup_titles[i], _(setup_titles[i])); exit(0); } #endif } void title(const char *text) { if (setup_type == UI_TEXT) { printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n<%s>\n", text); } } int yesno(const char *question, int default_value) { int i = 0; int answer = 0; char buf[SIZ]; switch (setup_type) { case UI_TEXT: do { printf("%s\n%s [%s] --> ", question, _("Yes/No"), ( default_value ? _("Yes") : _("No") ) ); if (fgets(buf, sizeof buf, stdin)) { answer = tolower(buf[0]); if ((buf[0]==0) || (buf[0]==13) || (buf[0]==10)) { answer = default_value; } else if (answer == 'y') { answer = 1; } else if (answer == 'n') { answer = 0; } } } while ((answer < 0) || (answer > 1)); break; case UI_DIALOG: snprintf(buf, sizeof buf, "exec %s --backtitle '%s' %s --yesno '%s' 15 75", getenv("CTDL_DIALOG"), program_title, ( default_value ? "" : "--defaultno" ), question); i = system(buf); if (i == 0) { answer = 1; } else { answer = 0; } break; case UI_SILENT: break; } return (answer); } void important_message(const char *title, const char *msgtext) { char buf[SIZ]; switch (setup_type) { case UI_TEXT: printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"); printf(" %s \n\n%s\n\n", title, msgtext); printf("%s", _("Press return to continue...")); if (fgets(buf, sizeof buf, stdin)) {;} break; case UI_DIALOG: snprintf(buf, sizeof buf, "exec %s --backtitle '%s' --msgbox '%s' 19 72", getenv("CTDL_DIALOG"), program_title, msgtext); int rv = system(buf); if (rv != 0) { fprintf(stderr, _("failed to run the dialog command\n")); } break; case UI_SILENT: fprintf(stderr, "%s\n", msgtext); break; } } void important_msgnum(int msgnum) { important_message(_("Important Message"), setup_text[msgnum]); } void display_error(char *error_message_format, ...) { StrBuf *Msg; va_list arg_ptr; Msg = NewStrBuf(); va_start(arg_ptr, error_message_format); StrBufVAppendPrintf(Msg, error_message_format, arg_ptr); va_end(arg_ptr); important_message(_("Error"), ChrPtr(Msg)); FreeStrBuf(&Msg); } void progress(char *text, long int curr, long int cmax) { static long dots_printed = 0L; long a = 0; static FILE *fp = NULL; char buf[SIZ]; switch (setup_type) { case UI_TEXT: if (curr == 0) { printf("%s\n", text); printf("...................................................."); printf("..........................\r"); dots_printed = 0; } else if (curr == cmax) { printf("\r%79s\n", ""); } else { a = (curr * 100) / cmax; a = a * 78; a = a / 100; while (dots_printed < a) { printf("*"); ++dots_printed; } } fflush(stdout); break; case UI_DIALOG: if (curr == 0) { snprintf(buf, sizeof buf, "exec %s --backtitle '%s' --gauge '%s' 7 72 0", getenv("CTDL_DIALOG"), program_title, text); fp = popen(buf, "w"); if (fp != NULL) { fprintf(fp, "0\n"); fflush(fp); } } else if (curr == cmax) { if (fp != NULL) { fprintf(fp, "100\n"); pclose(fp); fp = NULL; } } else { a = (curr * 100) / cmax; if (fp != NULL) { fprintf(fp, "%ld\n", a); fflush(fp); } } break; case UI_SILENT: break; default: assert(1==0); /* If we got here then the developer is a moron */ } } int uds_connectsock(char *sockpath) { int s; struct sockaddr_un addr; memset(&addr, 0, sizeof(addr)); addr.sun_family = AF_UNIX; strncpy(addr.sun_path, sockpath, sizeof addr.sun_path); s = socket(AF_UNIX, SOCK_STREAM, 0); if (s < 0) { return(-1); } if (connect(s, (struct sockaddr *) &addr, sizeof(addr)) < 0) { close(s); return(-1); } return s; } /* * input binary data from socket */ void serv_read(char *buf, int bytes) { int len, rlen; len = 0; while (len < bytes) { rlen = read(serv_sock, &buf[len], bytes - len); if (rlen < 1) { return; } len = len + rlen; } } /* * send binary to server */ void serv_write(char *buf, int nbytes) { int bytes_written = 0; int retval; while (bytes_written < nbytes) { retval = write(serv_sock, &buf[bytes_written], nbytes - bytes_written); if (retval < 1) { return; } bytes_written = bytes_written + retval; } } /* * input string from socket - implemented in terms of serv_read() */ void serv_gets(char *buf) { int i; /* Read one character at a time. */ for (i = 0;; i++) { serv_read(&buf[i], 1); if (buf[i] == '\n' || i == (SIZ-1)) break; } /* If we got a long line, discard characters until the newline. */ if (i == (SIZ-1)) { while (buf[i] != '\n') { serv_read(&buf[i], 1); } } /* Strip all trailing nonprintables (crlf) */ buf[i] = 0; } /* * send line to server - implemented in terms of serv_write() */ void serv_puts(char *buf) { serv_write(buf, strlen(buf)); serv_write("\n", 1); } /* * Convenience functions to get/set system configuration entries */ void getconf_str(char *buf, char *key) { char cmd[SIZ]; char ret[SIZ]; sprintf(cmd, "CONF GETVAL|%s", key); serv_puts(cmd); serv_gets(ret); if (ret[0] == '2') { extract_token(buf, &ret[4], 0, '|', SIZ); } else { strcpy(buf, ""); } } int getconf_int(char *key) { char buf[SIZ]; getconf_str(buf, key); return atoi(buf); } void setconf_str(char *key, char *val) { char buf[SIZ]; sprintf(buf, "CONF PUTVAL|%s|%s", key, val); serv_puts(buf); serv_gets(buf); } void setconf_int(char *key, int val) { char buf[SIZ]; sprintf(buf, "CONF PUTVAL|%s|%d", key, val); serv_puts(buf); serv_gets(buf); } /* * On systems which use xinetd, see if we can offer to install Citadel as * the default telnet target. */ void check_xinetd_entry(void) { char *filename = "/etc/xinetd.d/telnet"; FILE *fp; char buf[SIZ]; int already_citadel = 0; int rv; fp = fopen(filename, "r+"); if (fp == NULL) return; /* Not there. Oh well... */ while (fgets(buf, sizeof buf, fp) != NULL) { if (strstr(buf, "/citadel") != NULL) { already_citadel = 1; } } fclose(fp); if (already_citadel) return; /* Already set up this way. */ /* Otherwise, prompt the user to create an entry. */ if (getenv("CREATE_XINETD_ENTRY") != NULL) { if (strcasecmp(getenv("CREATE_XINETD_ENTRY"), "yes")) { return; } } else { snprintf(buf, sizeof buf, _("Setup can configure the \"xinetd\" service to automatically\n" "connect incoming telnet sessions to Citadel, bypassing the\n" "host system login: prompt. Would you like to do this?\n" ) ); if (yesno(buf, 1) == 0) { return; } } fp = fopen(filename, "w"); fprintf(fp, "# description: telnet service for Citadel users\n" "service telnet\n" "{\n" " disable = no\n" " flags = REUSE\n" " socket_type = stream\n" " wait = no\n" " user = root\n" " server = /usr/sbin/in.telnetd\n" " server_args = -h -L %s/citadel\n" " log_on_failure += USERID\n" "}\n", ctdl_bin_dir); fclose(fp); /* Now try to restart the service */ rv = system("/etc/init.d/xinetd restart >/dev/null 2>&1"); if (rv != 0) { display_error(_("failed to restart xinetd.\n")); } } /* * Offer to disable other MTA's */ void disable_other_mta(const char *mta) { char buf[SIZ]; FILE *fp; int lines = 0; int rv; snprintf(buf, sizeof buf, "/bin/ls -l /etc/rc*.d/S*%s 2>/dev/null; " "/bin/ls -l /etc/rc.d/rc*.d/S*%s 2>/dev/null", mta, mta ); fp = popen(buf, "r"); if (fp == NULL) return; while (fgets(buf, sizeof buf, fp) != NULL) { ++lines; } fclose(fp); if (lines == 0) return; /* Nothing to do. */ /* Offer to replace other MTA with the vastly superior Citadel :) */ snprintf(buf, sizeof buf, "%s \"%s\" %s%s%s%s%s%s%s", _("You appear to have the "), mta, _(" email program\n" "running on your system. If you want Citadel mail\n" "connected with "), mta, _(" you will have to manually integrate\n" "them. It is preferable to disable "), mta, _(", and use Citadel's\n" "SMTP, POP3, and IMAP services.\n\n" "May we disable "), mta, _("so that Citadel has access to ports\n" "25, 110, and 143?\n") ); if (yesno(buf, 1) == 0) { return; } snprintf(buf, sizeof buf, "for x in /etc/rc*.d/S*%s; do mv $x `echo $x |sed s/S/K/g`; done >/dev/null 2>&1", mta); rv = system(buf); if (rv != 0) display_error("%s %s.\n", _("failed to disable other mta"), mta); snprintf(buf, sizeof buf, "/etc/init.d/%s stop >/dev/null 2>&1", mta); rv = system(buf); if (rv != 0) display_error(" %s.\n", _("failed to disable other mta"), mta); } const char *other_mtas[] = { "courier-authdaemon", "courier-imap", "courier-imap-ssl", "courier-pop", "courier-pop3", "courier-pop3d", "cyrmaster", "cyrus", "dovecot", "exim", "exim4", "imapd", "mta", "pop3d", "popd", "postfix", "qmail", "saslauthd", "sendmail", "vmailmgrd", "" }; void disable_other_mtas(void) { int i = 0; if ((getenv("ACT_AS_MTA") == NULL) || (getenv("ACT_AS_MTA") && strcasecmp(getenv("ACT_AS_MTA"), "yes") == 0)) { /* Offer to disable other MTA's on the system. */ while (!IsEmptyStr(other_mtas[i])) { disable_other_mta(other_mtas[i]); i++; } } } void strprompt(const char *prompt_title, const char *prompt_text, char *Target, char *DefValue) { char buf[SIZ] = ""; char setupmsg[SIZ]; char dialog_result[PATH_MAX]; FILE *fp = NULL; int rv; strcpy(setupmsg, ""); switch (setup_type) { case UI_TEXT: title(prompt_title); printf("\n%s\n", prompt_text); printf("%s\n%s\n", _("This is currently set to:"), Target); printf("%s\n", _("Enter new value or press return to leave unchanged:")); if (fgets(buf, sizeof buf, stdin)) { buf[strlen(buf) - 1] = 0; } if (!IsEmptyStr(buf)) strcpy(Target, buf); break; case UI_DIALOG: CtdlMakeTempFileName(dialog_result, sizeof dialog_result); snprintf(buf, sizeof buf, "exec %s --backtitle '%s' --nocancel --inputbox '%s' 19 72 '%s' 2>%s", getenv("CTDL_DIALOG"), program_title, prompt_text, Target, dialog_result); rv = system(buf); if (rv != 0) { fprintf(stderr, "failed to run whiptail or dialog\n"); } fp = fopen(dialog_result, "r"); if (fp != NULL) { if (fgets(Target, sizeof buf, fp)) { if (Target[strlen(Target)-1] == 10) { Target[strlen(Target)-1] = 0; } } fclose(fp); unlink(dialog_result); } break; case UI_SILENT: if (*DefValue != '\0') strcpy(Target, DefValue); break; } } void set_bool_val(int msgpos, int *ip, char *DefValue) { title(setup_titles[msgpos]); *ip = yesno(setup_text[msgpos], *ip); } void set_str_val(int msgpos, char *Target, char *DefValue) { strprompt(setup_titles[msgpos], setup_text[msgpos], Target, DefValue ); } /* like set_str_val() but for numeric values */ void set_int_val(int msgpos, int *target, char *default_value) { char buf[32]; sprintf(buf, "%d", *target); do { set_str_val(msgpos, buf, default_value); } while ( (strcmp(buf, "0")) && (atoi(buf) == 0) ); *target = atoi(buf); } void edit_value(int curr) { struct passwd *pw = NULL; char ctdluidname[256]; char buf[SIZ]; char *default_value = NULL; int ctdluid = 0; int portnum = 0; int auth = 0; int lportnum = 0; if (setup_type == UI_SILENT) { default_value = getenv(EnvNames[curr]); } if (default_value == NULL) { default_value = ""; } switch (curr) { case eSysAdminName: getconf_str(admin_name, "c_sysadm"); set_str_val(curr, admin_name, default_value); setconf_str("c_sysadm", admin_name); break; case eSysAdminPW: set_str_val(curr, admin_pass, default_value); break; case eUID: if (setup_type == UI_SILENT) { if (default_value) { ctdluid = atoi(default_value); } } else { #ifdef __CYGWIN__ ctdluid = 0; /* work-around for Windows */ #else pw = getpwuid(ctdluid); if (pw == NULL) { set_int_val(curr, &ctdluid, default_value); } else { strcpy(ctdluidname, pw->pw_name); set_str_val(curr, ctdluidname, default_value); pw = getpwnam(ctdluidname); if (pw != NULL) { ctdluid = pw->pw_uid; } else if (atoi(ctdluidname) > 0) { ctdluid = atoi(ctdluidname); } } #endif } setconf_int("c_ctdluid", ctdluid); break; case eIP_ADDR: getconf_str(buf, "c_ip_addr"); set_str_val(curr, buf, default_value); setconf_str("c_ip_addr", buf); break; case eCTDL_Port: portnum = getconf_int("c_port_number"); set_int_val(curr, &portnum, default_value); setconf_int("c_port_number", portnum); break; case eAuthType: auth = getconf_int("c_auth_mode"); if (setup_type == UI_SILENT) { if ( (default_value) && (!strcasecmp(default_value, "yes")) ) auth = AUTHMODE_HOST; if ( (default_value) && (!strcasecmp(default_value, "host")) ) auth = AUTHMODE_HOST; if ( (default_value) && (!strcasecmp(default_value, "ldap")) ) auth = AUTHMODE_LDAP; if ( (default_value) && (!strcasecmp(default_value, "ldap_ad")) ) auth = AUTHMODE_LDAP_AD; if ( (default_value) && (!strcasecmp(default_value, "active directory")) ) auth = AUTHMODE_LDAP_AD; } else { set_int_val(curr, &auth, default_value); } setconf_int("c_auth_mode", auth); break; case eLDAP_Host: getconf_str(buf, "c_ldap_host"); if (IsEmptyStr(buf)) { strcpy(buf, "localhost"); } set_str_val(curr, buf, default_value); setconf_str("c_ldap_host", buf); break; case eLDAP_Port: lportnum = getconf_int("c_ldap_port"); if (lportnum == 0) { lportnum = 389; } set_int_val(curr, &lportnum, default_value); setconf_int("c_ldap_port", lportnum); break; case eLDAP_Base_DN: getconf_str(buf, "c_ldap_base_dn"); set_str_val(curr, buf, default_value); setconf_str("c_ldap_base_dn", buf); break; case eLDAP_Bind_DN: getconf_str(buf, "c_ldap_bind_dn"); set_str_val(curr, buf, default_value); setconf_str("c_ldap_bind_dn", buf); break; case eLDAP_Bind_PW: getconf_str(buf, "c_ldap_bind_pw"); set_str_val(curr, buf, default_value); setconf_str("c_ldap_bind_pw", buf); break; } } /* * Figure out what type of user interface we're going to use */ int discover_ui(void) { /* Use "whiptail" or "dialog" if we have it */ if (getenv("CTDL_DIALOG") != NULL) { return UI_DIALOG; } return UI_TEXT; } /* * Strip "db" entries out of /etc/nsswitch.conf */ void fixnss(void) { FILE *fp_read; int fd_write; char buf[256]; char buf_nc[256]; char question[512]; int i; int file_changed = 0; char new_filename[64]; int rv; fp_read = fopen(NSSCONF, "r"); if (fp_read == NULL) { return; } strcpy(new_filename, "/tmp/ctdl_fixnss_XXXXXX"); fd_write = mkstemp(new_filename); if (fd_write < 0) { fclose(fp_read); return; } while (fgets(buf, sizeof buf, fp_read) != NULL) { strcpy(buf_nc, buf); for (i=0; buf_nc[i]; ++i) { if (buf_nc[i] == '#') { buf_nc[i] = 0; break; } } for (i=0; i 0) { if ((isspace(buf_nc[i+2])) || (buf_nc[i+2]==0)) { file_changed = 1; strcpy(&buf_nc[i], &buf_nc[i+2]); strcpy(&buf[i], &buf[i+2]); if (buf[i]==32) { strcpy(&buf_nc[i], &buf_nc[i+1]); strcpy(&buf[i], &buf[i+1]); } } } } } long buflen = strlen(buf); if (write(fd_write, buf, buflen) != buflen) { fclose(fp_read); close(fd_write); unlink(new_filename); return; } } fclose(fp_read); if (!file_changed) { unlink(new_filename); return; } snprintf(question, sizeof question, _( "\n" "/etc/nsswitch.conf is configured to use the 'db' module for\n" "one or more services. This is not necessary on most systems,\n" "and it is known to crash the Citadel server when delivering\n" "mail to the Internet.\n" "\n" "Do you want this module to be automatically disabled?\n" "\n" ) ); if (yesno(question, 1)) { snprintf(buf, sizeof buf, "/bin/mv -f %s %s", new_filename, NSSCONF); rv = system(buf); if (rv != 0) { fprintf(stderr, "failed to edit %s.\n", NSSCONF); } chmod(NSSCONF, 0644); } unlink(new_filename); } /* * Messages that are no longer in use. * We keep them here so we don't lose the translations if we need them later. */ #if 0 important_message(_("Setup finished"), _("Setup of the Citadel server is complete.\n" "If you will be using WebCit, please run its\n" "setup program now; otherwise, run './citadel'\n" "to log in.\n")); important_message(_("Setup failed"), _("Setup is finished, but the Citadel server failed to start.\n" "Go back and check your configuration.\n") important_message(_("Setup finished"), _("Setup is finished. You may now start the server.")); #endif int main(int argc, char *argv[]) { int a, i; int curr; char buf[1024]; char aaa[128]; int relh = 0; int home = 0; char relhome[PATH_MAX]=""; char ctdldir[PATH_MAX]=CTDLDIR; struct passwd *pw; gid_t gid; char *activity = NULL; /* Keep a mild groove on */ program_title = _("Citadel setup program"); /* set an invalid setup type */ setup_type = (-1); /* parse command line args */ for (a = 0; a < argc; ++a) { if (!strncmp(argv[a], "-u", 2)) { strcpy(aaa, argv[a]); strcpy(aaa, &aaa[2]); setup_type = atoi(aaa); } else if (!strcmp(argv[a], "-q")) { setup_type = UI_SILENT; } else if (!strncmp(argv[a], "-h", 2)) { relh=argv[a][2]!='/'; if (!relh) { safestrncpy(ctdl_home_directory, &argv[a][2], sizeof ctdl_home_directory); } else { safestrncpy(relhome, &argv[a][2], sizeof relhome); } home = 1; } } calc_dirs_n_files(relh, home, relhome, ctdldir, 0); SetTitles(); /* If a setup type was not specified, try to determine automatically * the best one to use out of all available types. */ if (setup_type < 0) { setup_type = discover_ui(); } enable_home = ( relh | home ); if (chdir(ctdl_run_dir) != 0) { display_error("%s: [%s]\n", _("The directory you specified does not exist"), ctdl_run_dir); exit(errno); } /* * Connect to the running Citadel server. */ char *connectingmsg = _("Connecting to Citadel server"); for (i=0; ((i<30) && (serv_sock < 0)) ; ++i) { /* wait for server to start up */ progress(connectingmsg, i, 30); serv_sock = uds_connectsock(file_citadel_admin_socket); sleep(1); } progress(connectingmsg, 30, 30); if (serv_sock < 0) { display_error( "%s: %s %s\n", _("Setup could not connect to a running Citadel server."), strerror(errno), file_citadel_admin_socket ); exit(1); } /* * read the server greeting */ serv_gets(buf); if (buf[0] != '2') { display_error("%s\n", buf); exit(2); } /* * Are we connected to the correct Citadel server? */ serv_puts("INFO"); serv_gets(buf); if (buf[0] != '1') { display_error("%s\n", buf); exit(3); } a = 0; while (serv_gets(buf), strcmp(buf, "000")) { if (a == 5) { if (atoi(buf) != REV_LEVEL) { display_error("%s\n", _("Your setup program and Citadel server are from different versions.") ); exit(4); } } ++a; } /* * Now begin. */ if (setup_type == UI_TEXT) { printf("\n\n\n *** %s ***\n\n", program_title); } if (setup_type == UI_DIALOG) { system("clear 2>/dev/null"); } /* Go through a series of dialogs prompting for config info */ for (curr = 1; curr < eMaxQuestions; ++curr) { edit_value(curr); if ( (curr == eAuthType) && (getconf_int("c_auth_mode") != AUTHMODE_LDAP) && (getconf_int("c_auth_mode") != AUTHMODE_LDAP_AD) ) { curr += 5; /* skip LDAP questions if we're not authenticating against LDAP */ } if (curr == eSysAdminName) { if (getconf_int("c_auth_mode") == AUTHMODE_NATIVE) { /* for native auth mode, fetch the admin's existing pw */ snprintf(buf, sizeof buf, "AGUP %s", admin_name); serv_puts(buf); serv_gets(buf); if (buf[0] == '2') { extract_token(admin_pass, &buf[4], 1, '|', sizeof admin_pass); } } else { ++curr; /* skip the password question for non-native auth modes */ } } } if ((pw = getpwuid( getconf_int("c_ctdluid") )) == NULL) { gid = getgid(); } else { gid = pw->pw_gid; } if (create_run_directories(getconf_int("c_ctdluid"), gid) != 0) { display_error("%s\n", _("failed to create directories")); } activity = _("Reconfiguring Citadel server"); progress(activity, 0, 5); sleep(1); /* Let the message appear briefly */ /* * Create the administrator account. It's ok if the command fails if this user already exists. */ progress(activity, 1, 5); snprintf(buf, sizeof buf, "CREU %s|%s", admin_name, admin_pass); serv_puts(buf); progress(activity, 2, 5); serv_gets(buf); progress(activity, 3, 5); /* * Assign the desired password and access level to the administrator account. */ snprintf(buf, sizeof buf, "AGUP %s", admin_name); serv_puts(buf); progress(activity, 4, 5); serv_gets(buf); if (buf[0] == '2') { int admin_flags = extract_int(&buf[4], 2); int admin_times_called = extract_int(&buf[4], 3); int admin_msgs_posted = extract_int(&buf[4], 4); snprintf(buf, sizeof buf, "ASUP %s|%s|%d|%d|%d|6", admin_name, admin_pass, admin_flags, admin_times_called, admin_msgs_posted ); serv_puts(buf); serv_gets(buf); } progress(activity, 5, 5); #ifndef __CYGWIN__ check_xinetd_entry(); /* Check /etc/xinetd.d/telnet */ disable_other_mtas(); /* Offer to disable other MTAs */ fixnss(); /* Check for the 'db' nss and offer to disable it */ #endif /* * Restart citserver */ activity = _("Restarting Citadel server to apply changes"); progress(activity, 0, 41); serv_puts("TIME"); serv_gets(buf); long original_start_time = extract_long(&buf[4], 3); progress(activity, 1, 41); serv_puts("DOWN 1"); progress(activity, 2, 41); serv_gets(buf); if (buf[0] != '2') { display_error("%s\n", buf); exit(6); } close(serv_sock); serv_sock = (-1); for (i=3; i<=6; ++i) { /* wait for server to shut down */ progress(activity, i, 41); sleep(1); } for (i=7; ((i<=38) && (serv_sock < 0)) ; ++i) { /* wait for server to start up */ progress(activity, i, 41); serv_sock = uds_connectsock(file_citadel_admin_socket); sleep(1); } progress(activity, 39, 41); serv_gets(buf); progress(activity, 40, 41); serv_puts("TIME"); serv_gets(buf); long new_start_time = extract_long(&buf[4], 3); close(serv_sock); progress(activity, 41, 41); if ( (original_start_time == new_start_time) || (new_start_time <= 0) ) { display_error("%s\n", _("Setup failed to restart Citadel server. Please restart it manually.")); exit(7); } exit(0); return 0; } citadel-902/utils/stress.c000066400000000000000000000271761271512031400156330ustar00rootroot00000000000000 /* This message is exactly 1024 bytes */ char* const message = "The point of this little file is to stress test a Citadel server.\n" "It spawns n threads, where n is a command line parameter, each of\n" "which writes 1000 messages total to the server.\n" "\n" "-n is a command line parameter indicating how many users to simulate\n" "(default 100). WARNING: Your system must be capable of creating this\n" "many threads!\n" "\n" "-w is a command line parameter indicating how long to wait in seconds\n" "between posting each message (default 10). The actual interval\n" "will be randomized between w / 3 and w * 3.\n" "\n" "A run is expected to take approximately three hours, given default\n" "values, and assuming the server can keep up. If the run takes much\n" "longer than this, there may be a performance problem with the server.\n" "For best results, the test should be run from a different machine than\n" "the server, but connected via a fast network link (e.g. 100Base-T).\n" "\n" "To get baseline results, run the test with -n 1 (simulating 1 user)\n" "on a machine with no other users logged in.\n" "\n" "Example:\n" "stress -n 500 -w 25 myserver > stress.csv\n"; /* The program tries to be as small and as fast as possible. Wherever * possible, we avoid allocating memory on the heap. We do not pass data * between threads. We do only a minimal amount of calculation. In * particular, we only output raw timing data for the run; we do not * collate it, average it, or do anything else with it. See below. * The program does, however, use the same CtdlIPC functions as the * standard Citadel text client, and incurs the same overhead as that * program, using those functions. * * The program first creates a new user with a randomized username which * begins with "testuser". It then creates 100 rooms named test0 through * test99. If they already exist, this condition is ignored. * * The program then creates n threads, all of which wait on a conditional * before they do anything. Once all of the threads have been created, * they are signaled, and begin execution. Each thread logs in to the * Citadel server separately, simulating a user login, then takes a * timestamp from the operating system. * * Each thread selects a room from 0-99 randomly, then writes a small * (1KB) test message to that room. 1K was chosen because it seems to * represent an average message size for messages we expect to see. * After writing the message, the thread sleeps for w seconds (sleep(w);) * and repeats the process, until it has written 1,000 messages. The * program provides a status display to standard error, unless w <= 2, in * which case status display is disabled. * * After posting all messages, each thread takes a second timestamp, and * subtracts the first timestamp. The resulting value (in seconds) is * sent to standard output, followed by the minimum, average, and maximum * amounts of time (in milliseconds) it took to post a message. The * thread then exits. * * Once all threads have exited, the program exits. */ #include #include #include #include #include #include #include "sysdep.h" #include #include "citadel_ipc.h" #ifndef HAVE_PTHREAD_H #error This program requires threads #endif static int w = 10; /* see above */ static int n = 100; /* see above */ static int m = 1000; /* Number of messages to send; see above */ static volatile int count = 0; /* Total count of messages posted */ static volatile int total = 0; /* Total messages to be posted */ static pthread_mutex_t count_mutex = PTHREAD_MUTEX_INITIALIZER; static pthread_mutex_t arg_mutex = PTHREAD_MUTEX_INITIALIZER; static pthread_mutex_t output_mutex = PTHREAD_MUTEX_INITIALIZER; static char username[12]; static char password[12]; /* * Mutex for the random number generator * We don't assume that rand_r() is present, so we have to * provide our own locking for rand() */ static pthread_mutex_t rand_mutex = PTHREAD_MUTEX_INITIALIZER; /* * Conditional. All the threads wait for this signal to actually * start bombarding the server. */ static pthread_mutex_t start_mutex = PTHREAD_MUTEX_INITIALIZER; static pthread_cond_t start_cond = PTHREAD_COND_INITIALIZER; /* * This is the worker thread. It logs in and creates the 1,000 messages * as described above. */ void* worker(void* data) { CtdlIPC* ipc; /* My connection to the server */ void** args; /* Args sent in */ int r; /* IPC return code */ char aaa[SIZ]; /* Generic buffer */ int c; /* Message count */ time_t start, end; /* Timestamps */ struct ctdlipcmessage msg; /* The message we will post */ int argc_; char** argv_; long tmin = LONG_MAX, trun = 0, tmax = LONG_MIN; args = (void*)data; argc_ = (int)args[0]; argv_ = (char**)args[1]; /* Setup the message we will be posting */ msg.text = message; msg.anonymous = 0; msg.type = 1; strcpy(msg.recipient, ""); strcpy(msg.subject, "Test message; ignore"); strcpy(msg.author, username); pthread_mutex_lock(&arg_mutex); ipc = CtdlIPC_new(argc_, argv_, NULL, NULL); pthread_mutex_unlock(&arg_mutex); if (!ipc) return NULL; /* oops, something happened... */ CtdlIPC_chat_recv(ipc, aaa); if (aaa[0] != '2') { fprintf(stderr, "Citadel refused me: %s\n", &aaa[4]); return NULL; /* server ran out of connections maybe? */ } CtdlIPCIdentifySoftware(ipc, 8, 8, REV_LEVEL, "Citadel stress tester", "localhost", aaa); /* we're lying, the server knows */ r = CtdlIPCQueryUsername(ipc, username, aaa); if (r / 100 == 2) { /* testuser already exists (from previous run?) */ r = CtdlIPCTryLogin(ipc, username, aaa); if (r / 100 != 3) { fprintf(stderr, "Citadel refused username: %s\n", aaa); CtdlIPC_delete_ptr(&ipc); return NULL; /* Gawd only knows what went wrong */ } r = CtdlIPCTryPassword(ipc, password, aaa); if (r / 100 != 2) { fprintf(stderr, "Citadel refused password: %s\n", aaa); CtdlIPC_delete_ptr(&ipc); return NULL; /* Gawd only knows what went wrong */ } } else { /* testuser doesn't yet exist */ r = CtdlIPCCreateUser(ipc, username, 1, aaa); if (r / 100 != 2) { fprintf(stderr, "Citadel refused create user: %s\n", aaa); CtdlIPC_delete_ptr(&ipc); return NULL; /* Gawd only knows what went wrong */ } r = CtdlIPCChangePassword(ipc, password, aaa); if (r / 100 != 2) { fprintf(stderr, "Citadel refused change password: %s\n", aaa); CtdlIPC_delete_ptr(&ipc); return NULL; /* Gawd only knows what went wrong */ } } /* Wait for the rest of the threads */ pthread_mutex_lock(&start_mutex); pthread_cond_wait(&start_cond, &start_mutex); pthread_mutex_unlock(&start_mutex); /* And now the fun begins! Send out a whole shitload of messages */ start = time(NULL); for (c = 0; c < m; c++) { int rm; char room[7]; struct ctdlipcroom *rret; struct timeval tv; long tstart, tend; int wait; /* Wait for a while */ pthread_mutex_lock(&rand_mutex); /* See Numerical Recipes in C or Knuth vol. 2 ch. 3 */ /* Randomize between w/3 to w*3 (yes, it's complicated) */ wait = (int)((1.0+2.7*(float)w)*rand()/(RAND_MAX+(float)w/3.0)); /* range 0-99 */ pthread_mutex_unlock(&rand_mutex); sleep(wait); /* Select the room to goto */ pthread_mutex_lock(&rand_mutex); /* See Numerical Recipes in C or Knuth vol. 2 ch. 3 */ rm = (int)(100.0*rand()/(RAND_MAX+1.0)); /* range 0-99 */ pthread_mutex_unlock(&rand_mutex); /* Goto the selected room */ sprintf(room, "test%d", rm); /* Create the room if not existing. Ignore the return */ r = CtdlIPCCreateRoom(ipc, 1, room, 0, NULL, 0, aaa); if (r / 100 != 2 && r != 574) { /* Already exists */ fprintf(stderr, "Citadel refused room create: %s\n", aaa); pthread_mutex_lock(&count_mutex); total -= m - c; pthread_mutex_unlock(&count_mutex); CtdlIPC_delete_ptr(&ipc); return NULL; } gettimeofday(&tv, NULL); tstart = tv.tv_sec * 1000 + tv.tv_usec / 1000; /* cvt to msec */ r = CtdlIPCGotoRoom(ipc, room, "", &rret, aaa); if (r / 100 != 2) { fprintf(stderr, "Citadel refused room change: %s\n", aaa); pthread_mutex_lock(&count_mutex); total -= m - c; pthread_mutex_unlock(&count_mutex); CtdlIPC_delete_ptr(&ipc); return NULL; } /* Post the message */ r = CtdlIPCPostMessage(ipc, 1, NULL, &msg, aaa); if (r / 100 != 4) { fprintf(stderr, "Citadel refused message entry: %s\n", aaa); pthread_mutex_lock(&count_mutex); total -= m - c; pthread_mutex_unlock(&count_mutex); CtdlIPC_delete_ptr(&ipc); return NULL; } /* Do a status update */ pthread_mutex_lock(&count_mutex); count++; pthread_mutex_unlock(&count_mutex); fprintf(stderr, " %d/%d=%d%% \r", count, total, (int)(100 * count / total)); gettimeofday(&tv, NULL); tend = tv.tv_sec * 1000 + tv.tv_usec / 1000; /* cvt to msec */ tend -= tstart; if (tend < tmin) tmin = tend; if (tend > tmax) tmax = tend; trun += tend; } end = time(NULL); pthread_mutex_lock(&output_mutex); fprintf(stderr, " \r"); printf("%ld %ld %ld %ld\n", end - start, tmin, trun / c, tmax); pthread_mutex_unlock(&output_mutex); return (void*)(end - start); } /* * Shift argument list */ int shift(int argc, char **argv, int start, int count) { int i; for (i = start; i < argc - count; ++i) argv[i] = argv[i + count]; return argc - count; } /* * Main loop. Start a shitload of threads, all of which will attempt to * kick a Citadel server square in the nuts. */ int main(int argc, char** argv) { void* data[2]; /* pass args to worker thread */ pthread_t* threads; /* A shitload of threads */ pthread_attr_t attr; /* Thread attributes (we use defaults) */ int i; /* Counters */ long runtime; /* Run time for each thread */ /* Read argument list */ for (i = 0; i < argc; i++) { if (!strcmp(argv[i], "-n")) { n = atoi(argv[i + 1]); argc = shift(argc, argv, i, 2); } if (!strcmp(argv[i], "-w")) { w = atoi(argv[i + 1]); argc = shift(argc, argv, i, 2); } if (!strcmp(argv[i], "-m")) { m = atoi(argv[i + 1]); argc = shift(argc, argv, i, 2); } if (!strcmp(argv[i], "-h") || !strcmp(argv[i], "--help")) { fprintf(stderr, "Read stress.c for usage info\n"); return 1; } } data[0] = (void*)argc; /* pass args to worker thread */ data[1] = (void*)argv; /* pass args to worker thread */ /* This is how many total messages will be posted */ total = n * m; /* Pick a randomized username */ pthread_mutex_lock(&rand_mutex); /* See Numerical Recipes in C or Knuth vol. 2 ch. 3 */ i = (int)(100.0*rand()/(RAND_MAX+1.0)); /* range 0-99 */ pthread_mutex_unlock(&rand_mutex); sprintf(username, "testuser%d", i); strcpy(password, username); /* First, memory for our shitload of threads */ threads = calloc(n, sizeof(pthread_t)); if (!threads) { perror("Not enough memory"); return 1; } /* Then thread attributes (all defaults for now) */ pthread_attr_init(&attr); pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_JOINABLE); /* Then, create some threads */ fprintf(stderr, "Creating threads \r"); for (i = 0; i < n; ++i) { pthread_create(&threads[i], &attr, worker, (void*)data); /* Give thread #0 time to create the user account */ if (i == 0) sleep(3); } //fprintf(stderr, "Starting in %d seconds\r", n); //sleep(n); fprintf(stderr, " \r"); /* Then, signal the conditional they all are waiting on */ pthread_mutex_lock(&start_mutex); pthread_cond_broadcast(&start_cond); pthread_mutex_unlock(&start_mutex); /* Then wait for them to exit */ for (i = 0; i < n; i++) { pthread_join(threads[i], (void*)&runtime); /* We're ignoring this value for now... TODO */ } fprintf(stderr, "\r \r"); return 0; }

    assword oom extfile file using modem file using modem file using modem citadel-902/messages/goodbye000066400000000000000000000002651271512031400161540ustar00rootroot00000000000000 < this logoff banner resides in ^bbsdir/goodbye > Thanks for visiting ^humannode - please come back soon! Also be sure to visit UNCENSORED! BBS at uncensored.citadel.org citadel-902/messages/hello000066400000000000000000000001611271512031400156220ustar00rootroot00000000000000 Welcome to ^humannode! This logon banner resides in ^bbsdir/hello -- please customize it for your site. citadel-902/messages/help000066400000000000000000000031461271512031400154550ustar00rootroot00000000000000 ^variantname Help Menu ? Help. (Typing a '?' will give you a menu almost anywhere) A Abandon this room where you stopped reading, goto next room. C Chat (multiuser chat, where available) D Prints directory, if there is one in the current room. E Enter a message. F Read all messages in the room, forward. G Goto next room which has UNREAD messages. H Help. Same as '?' I Reads the Information file for this room. K List of Known rooms. L Reads the last five messages in the room. N Reads all new messages in the room. O Reads all old messages, backwards. P Page another user (send an instant message) R Reads all messages in the room, in reverse order. S Skips current room without making its messages old. T Terminate (logout) U Ungoto (returns to the last room you were in) W Displays who is currently logged in. X Toggle eXpert mode (menus and help blurbs on/off) Z Zap (forget) room. (Removes the room from your list) + - Goto next, previous room on current floor. > < Goto next, previous floor. * Enter any locally installed 'doors'. In addition, there are dot commands. You hit the . (dot), then press the first letter of each word of the command. As you hit the letters, the words pop onto your screen. Exceptions: after you hit .Help or .Goto, the remainder of the command is a help file name or room name. *** USE .elp ? or .elp SUMMARY for additional help *** citadel-902/messages/mainmenu000066400000000000000000000011661271512031400163360ustar00rootroot00000000000000 ----------------------------------------------------------------------- Room cmds: nown rooms, oto next room, <.G>oto a specific room, kip this room, bandon this room, ap this room, ngoto (move back) Message cmds: ew msgs, orward read, everse read, ld msgs, ast five msgs, nter a message General cmds: help, erminate, hat, ho is online Misc: toggle eXpert mode, irectory (Type .Help SUMMARY for extended commands, to hide this menu) ----------------------------------------------------------------------- citadel-902/messages/newuser000066400000000000000000000000721271512031400162100ustar00rootroot00000000000000 < this new user policy resides in ^bbsdir/newuser > citadel-902/messages/readopt000066400000000000000000000003651271512031400161630ustar00rootroot00000000000000One of: io irectory onfiguration ile unformatted nfo file ast five messages ew messages ld messages everse ystem info extfile serlist file using modem file using modem file using modem citadel-902/messages/register000066400000000000000000000004031271512031400163420ustar00rootroot00000000000000 Please enter the correct information here. In most cases we do not voice validate, but we must have this information in order to discourage vandalism. If you skip this section, you will NOT get access! WE MEAN IT! citadel-902/messages/roomaccess000066400000000000000000000015031271512031400166560ustar00rootroot00000000000000Most rooms are public. Anyone on the system may get into a public room. Private rooms may take several forms: Hidden: to gain access to this type of room, a user need only know the room's name. No hints are given by the system. Passworded: same as hidden but the user must also know a password to get access. Invitation-only: users may only gain access to this type of room if an Admin gives it to them. Personal: this type of room acts as a user-specific "mailbox." Once a user has access to a private room, it shows up on the known rooms list and acts the same as any other room. Admins may kick users out of any type of private room, and out of excludable rooms. Please also keep in mind that Admins have access to ALL private rooms. Before making it private, think about it. Does it really NEED to be private? citadel-902/messages/unlisted000066400000000000000000000002751271512031400163540ustar00rootroot00000000000000The user list is provided as a service to the users of this system. Please don't choose to be unlisted unless you really find it it necessary. By the way, aides still see unlisted entries. citadel-902/migrate_aliases.sh000077500000000000000000000015341271512031400164620ustar00rootroot00000000000000#!/bin/bash if test -z "$1"; then echo "Usage: $0 mail.aliases" exit fi CITALIAS=$1 if test -f /etc/aliases; then # don't work with temp fils, so they can't get hijacked. # sorry users with megabytes of aliases. NLINES=`cat /etc/aliases | \ sed -e "s; *;;g" \ -e "s;\t*;;g" | \ grep -v ^root: | \ grep -v ^# | \ sed -e "s;:root;,room_aide;" \ -e "s;:;,;" |wc -l` for ((i=1; i <= $NLINES; i++)); do ALIAS=` cat /etc/aliases | \ sed -e "s; *;;g" \ -e "s;\t*;;g" | \ grep -v ^root: | \ grep -v ^# | \ sed -e "s;:root;,room_aide;" \ -e "s;:;,;" |head -n $i |tail -n 1` ORG=`echo $ALIAS|sed "s;,.*;;"` if grep "$ORG" "$CITALIAS"; then echo "Ignoring Alias $ORG as its already there" else echo "$ALIAS" >>$CITALIAS fi done else echo "no /etc/aliases found." fi citadel-902/missing000077500000000000000000000212311271512031400143650ustar00rootroot00000000000000#! /bin/sh # Common stub for a few missing GNU programs while installing. # Copyright 1996, 1997, 1999, 2000 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # 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 2, 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, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi case "$1" in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case "$1" in -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file tar try tar, gnutar, gtar, then tar without non-portable flags yacc create \`y.tab.[ch]', if possible, from existing .[ch]" ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing 0.3 - GNU automake" ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; aclocal) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case "$f" in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; bison|yacc) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.h fi ;; esac fi if [ ! -f y.tab.h ]; then echo >y.tab.h fi if [ ! -f y.tab.c ]; then echo 'main() { return 0; }' >y.tab.c fi ;; lex|flex) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if [ ! -f lex.yy.c ]; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` fi if [ -f "$file" ]; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit 1 fi ;; makeinfo) if test -z "$run" && (makeinfo --version) > /dev/null 2>&1; then # We have makeinfo, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file` fi touch $file ;; tar) shift if test -n "$run"; then echo 1>&2 "ERROR: \`tar' requires --run" exit 1 fi # We have already tried tar in the generic part. # Look for gnutar/gtar before invocation to avoid ugly error # messages. if (gnutar --version > /dev/null 2>&1); then gnutar ${1+"$@"} && exit 0 fi if (gtar --version > /dev/null 2>&1); then gtar ${1+"$@"} && exit 0 fi firstarg="$1" if shift; then case "$firstarg" in *o*) firstarg=`echo "$firstarg" | sed s/o//` tar "$firstarg" ${1+"$@"} && exit 0 ;; esac case "$firstarg" in *h*) firstarg=`echo "$firstarg" | sed s/h//` tar "$firstarg" ${1+"$@"} && exit 0 ;; esac fi echo 1>&2 "\ WARNING: I can't seem to be able to run \`tar' with the given arguments. You may want to install GNU tar or Free paxutils, or check the command line arguments." exit 1 ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequirements for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 citadel-902/mkinstalldirs000077500000000000000000000012341271512031400155750ustar00rootroot00000000000000#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here citadel-902/modules/000077500000000000000000000000001271512031400144375ustar00rootroot00000000000000citadel-902/modules/autocompletion/000077500000000000000000000000001271512031400175015ustar00rootroot00000000000000citadel-902/modules/autocompletion/serv_autocompletion.c000066400000000000000000000126541271512031400237560ustar00rootroot00000000000000/* * Autocompletion of email recipients, etc. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include "ctdl_module.h" #include "serv_autocompletion.h" #include "config.h" /* * Convert a structured name into a friendly name. Caller must free the * returned pointer. */ char *n_to_fn(char *value) { char *nnn = NULL; int i; nnn = malloc(strlen(value) + 10); strcpy(nnn, ""); extract_token(&nnn[strlen(nnn)] , value, 3, ';', 999); strcat(nnn, " "); extract_token(&nnn[strlen(nnn)] , value, 1, ';', 999); strcat(nnn, " "); extract_token(&nnn[strlen(nnn)] , value, 2, ';', 999); strcat(nnn, " "); extract_token(&nnn[strlen(nnn)] , value, 0, ';', 999); strcat(nnn, " "); extract_token(&nnn[strlen(nnn)] , value, 4, ';', 999); strcat(nnn, " "); for (i=0; icm_fields[eMesageText]); CM_Free(msg); /* * Try to match from a friendly name (the "fn" field). If there is * a match, return the entry in the form of: * Display Name */ value = vcard_get_prop(v, "fn", 0, 0, 0); if (value != NULL) if (bmstrcasestr(value, search_string)) { value2 = vcard_get_prop(v, "email", 1, 0, 0); if (value2 == NULL) value2 = ""; cprintf("%s <%s>\n", value, value2); vcard_free(v); return; } /* * Try to match from a structured name (the "n" field). If there is * a match, return the entry in the form of: * Display Name */ value = vcard_get_prop(v, "n", 0, 0, 0); if (value != NULL) if (bmstrcasestr(value, search_string)) { value2 = vcard_get_prop(v, "email", 1, 0, 0); if (value2 == NULL) value2 = ""; nnn = n_to_fn(value); cprintf("%s <%s>\n", nnn, value2); free(nnn); vcard_free(v); return; } /* * Try a partial match on all listed email addresses. */ i = 0; while (value = vcard_get_prop(v, "email", 1, i++, 0), value != NULL) { if (bmstrcasestr(value, search_string)) { if (vcard_get_prop(v, "fn", 0, 0, 0)) { cprintf("%s <%s>\n", vcard_get_prop(v, "fn", 0, 0, 0), value); } else if (vcard_get_prop(v, "n", 0, 0, 0)) { nnn = n_to_fn(vcard_get_prop(v, "n", 0, 0, 0)); cprintf("%s <%s>\n", nnn, value); free(nnn); } else { cprintf("%s\n", value); } vcard_free(v); return; } } vcard_free(v); } /* * Attempt to autocomplete an address based on a partial... */ void cmd_auto(char *argbuf) { char hold_rm[ROOMNAMELEN]; char search_string[256]; long *msglist = NULL; int num_msgs = 0; long *fts_msgs = NULL; int fts_num_msgs = 0; struct cdbdata *cdbfr; int r = 0; int i = 0; int j = 0; int search_match = 0; char *rooms_to_try[] = { USERCONTACTSROOM, ADDRESS_BOOK_ROOM }; if (CtdlAccessCheck(ac_logged_in)) return; extract_token(search_string, argbuf, 0, '|', sizeof search_string); if (IsEmptyStr(search_string)) { cprintf("%d You supplied an empty partial.\n", ERROR + ILLEGAL_VALUE); return; } strcpy(hold_rm, CC->room.QRname); /* save current room */ cprintf("%d try these:\n", LISTING_FOLLOWS); /* * Gather up message pointers in rooms containing vCards */ for (r=0; r < (sizeof(rooms_to_try) / sizeof(char *)); ++r) { if (CtdlGetRoom(&CC->room, rooms_to_try[r]) == 0) { cdbfr = cdb_fetch(CDB_MSGLISTS, &CC->room.QRnumber, sizeof(long)); if (cdbfr != NULL) { msglist = realloc(msglist, (num_msgs * sizeof(long)) + cdbfr->len + 1); memcpy(&msglist[num_msgs], cdbfr->ptr, cdbfr->len); num_msgs += (cdbfr->len / sizeof(long)); cdb_free(cdbfr); } } } /* * Search-reduce the results if we have the full text index available */ if (CtdlGetConfigInt("c_enable_fulltext")) { CtdlModuleDoSearch(&fts_num_msgs, &fts_msgs, search_string, "fulltext"); if (fts_msgs) { for (i=0; i 0) for (i=0; iroom.QRname, hold_rm)) { CtdlGetRoom(&CC->room, hold_rm); /* return to saved room */ } if (msglist) { free(msglist); } } CTDL_MODULE_INIT(autocompletion) { if (!threading) { CtdlRegisterProtoHook(cmd_auto, "AUTO", "Do recipient autocompletion"); } /* return our module name for the log */ return "autocompletion"; } citadel-902/modules/autocompletion/serv_autocompletion.h000066400000000000000000000007661271512031400237640ustar00rootroot00000000000000/* * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ char *serv_autocompletion_init(void); citadel-902/modules/bio/000077500000000000000000000000001271512031400152105ustar00rootroot00000000000000citadel-902/modules/bio/serv_bio.c000066400000000000000000000152431271512031400171710ustar00rootroot00000000000000/* * This module implementsserver commands related to the display and * manipulation of user "bio" files. * * Copyright (c) 1987-2016 by the citadel.org team * * This program is open source 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. */ #include "ctdl_module.h" #include "config.h" #include #include #include /* * Command to enter user bio (profile) in plain text. * This is deprecated , or at least it will be when its replacement is written :) * I want commands to get/set bio in full MIME wonderfulness. */ void cmd_ebio(char *cmdbuf) { char buf[SIZ]; unbuffer_output(); if (!(CC->logged_in)) { cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN); return; } StrBuf *NewProfile = NewStrBufPlain("Content-type: text/plain; charset=UTF-8\nContent-transfer-encoding: 8bit\n\n", -1); cprintf("%d Transmit user profile in plain text now.\n", SEND_LISTING); while(client_getln(buf, sizeof buf) >= 0 && strcmp(buf,"000")) { StrBufAppendBufPlain(NewProfile, buf, -1, 0); StrBufAppendBufPlain(NewProfile, HKEY("\n"), 0); } /* we have read the new profile from the user , now save it */ long old_msgnum = CC->user.msgnum_bio; char userconfigroomname[ROOMNAMELEN]; CtdlMailboxName(userconfigroomname, sizeof userconfigroomname, &CC->user, USERCONFIGROOM); long new_msgnum = quickie_message("Citadel", NULL, NULL, userconfigroomname, ChrPtr(NewProfile), FMT_RFC822, "Profile submitted with EBIO command"); FreeStrBuf(&NewProfile); CtdlGetUserLock(&CC->user, CC->curr_user); CC->user.msgnum_bio = new_msgnum; CtdlPutUserLock(&CC->user); if (old_msgnum > 0) { syslog(LOG_DEBUG, "Deleting old message %ld from %s", old_msgnum, userconfigroomname); CtdlDeleteMessages(userconfigroomname, &old_msgnum, 1, ""); } } /* * Command to read user bio (profile) in plain text. * This is deprecated , or at least it will be when its replacement is written :) * I want commands to get/set bio in full MIME wonderfulness. */ void cmd_rbio(char *cmdbuf) { struct ctdluser ruser; char buf[SIZ]; extract_token(buf, cmdbuf, 0, '|', sizeof buf); if (CtdlGetUser(&ruser, buf) != 0) { cprintf("%d No such user.\n",ERROR + NO_SUCH_USER); return; } cprintf("%d OK|%s|%ld|%d|%ld|%ld|%ld\n", LISTING_FOLLOWS, ruser.fullname, ruser.usernum, ruser.axlevel, (long)ruser.lastcall, ruser.timescalled, ruser.posted); struct CtdlMessage *msg = CtdlFetchMessage(ruser.msgnum_bio, 1, 1); if (msg != NULL) { CtdlOutputPreLoadedMsg(msg, MT_CITADEL, HEADERS_NONE, 0, 0, 0); CM_Free(msg); } cprintf("000\n"); } /* * Import function called by import_old_bio_files() for a single user */ void import_one_bio_file(char *username, long usernum, char *path) { syslog(LOG_DEBUG, "Import legacy bio for %s, usernum=%ld, filename=%s", username, usernum, path); FILE *fp = fopen(path, "r"); if (!fp) return; fseek(fp, 0, SEEK_END); long data_length = ftell(fp); if (data_length >= 1) { rewind(fp); char *unencoded_data = malloc(data_length); if (unencoded_data) { fread(unencoded_data, data_length, 1, fp); char *encoded_data = malloc((data_length * 2) + 100); if (encoded_data) { sprintf(encoded_data, "Content-type: text/plain; charset=UTF-8\nContent-transfer-encoding: base64\n\n"); CtdlEncodeBase64(&encoded_data[strlen(encoded_data)], unencoded_data, data_length, 1); char userconfigroomname[ROOMNAMELEN]; struct ctdluser usbuf; if (CtdlGetUser(&usbuf, username) == 0) { // no need to lock it , we are still initializing long old_msgnum = usbuf.msgnum_bio; CtdlMailboxName(userconfigroomname, sizeof userconfigroomname, &usbuf, USERCONFIGROOM); long new_msgnum = quickie_message("Citadel", NULL, NULL, userconfigroomname, encoded_data, FMT_RFC822, "Profile imported from bio"); syslog(LOG_DEBUG, "Message %ld is now the profile for %s", new_msgnum, username); usbuf.msgnum_bio = new_msgnum; CtdlPutUser(&usbuf); unlink(path); // delete the old file , it's in the database now if (old_msgnum > 0) { syslog(LOG_DEBUG, "Deleting old message %ld from %s", old_msgnum, userconfigroomname); CtdlDeleteMessages(userconfigroomname, &old_msgnum, 1, ""); } } free(encoded_data); } free(unencoded_data); } } fclose(fp); } /* * Look for old-format "bio" files and import them into the message base */ void import_old_bio_files(void) { DIR *filedir = NULL; struct dirent *filedir_entry; struct dirent *d; size_t d_namelen; struct ctdluser usbuf; long usernum = 0; int d_type = 0; struct stat s; char path[PATH_MAX]; syslog(LOG_DEBUG, "Importing old style bio files into the message base"); d = (struct dirent *)malloc(offsetof(struct dirent, d_name) + PATH_MAX + 2); if (d == NULL) { return; } filedir = opendir (ctdl_bio_dir); if (filedir == NULL) { free(d); return; } while ((readdir_r(filedir, d, &filedir_entry) == 0) && (filedir_entry != NULL)) { #ifdef _DIRENT_HAVE_D_NAMLEN d_namelen = filedir_entry->d_namlen; #else d_namelen = strlen(filedir_entry->d_name); #endif #ifdef _DIRENT_HAVE_D_TYPE d_type = filedir_entry->d_type; #else #ifndef DT_UNKNOWN #define DT_UNKNOWN 0 #define DT_DIR 4 #define DT_REG 8 #define DT_LNK 10 #define IFTODT(mode) (((mode) & 0170000) >> 12) #define DTTOIF(dirtype) ((dirtype) << 12) #endif d_type = DT_UNKNOWN; #endif if ((d_namelen == 1) && (filedir_entry->d_name[0] == '.')) continue; if ((d_namelen == 2) && (filedir_entry->d_name[0] == '.') && (filedir_entry->d_name[1] == '.')) continue; snprintf(path, PATH_MAX, "%s/%s", ctdl_bio_dir, filedir_entry->d_name); if (d_type == DT_UNKNOWN) { if (lstat(path, &s) == 0) { d_type = IFTODT(s.st_mode); } } switch (d_type) { case DT_DIR: break; case DT_LNK: case DT_REG: usernum = atol(filedir_entry->d_name); if (CtdlGetUserByNumber(&usbuf, usernum) == 0) { import_one_bio_file(usbuf.fullname, usernum, path); } } } free(d); closedir(filedir); rmdir(ctdl_bio_dir); } CTDL_MODULE_INIT(bio) { if (!threading) { import_old_bio_files(); CtdlRegisterProtoHook(cmd_ebio, "EBIO", "Enter your bio"); CtdlRegisterProtoHook(cmd_rbio, "RBIO", "Read a user's bio"); } /* return our module name for the log */ return "bio"; } citadel-902/modules/blog/000077500000000000000000000000001271512031400153625ustar00rootroot00000000000000citadel-902/modules/blog/serv_blog.c000066400000000000000000000045641271512031400175210ustar00rootroot00000000000000/* * Support for blog rooms * * Copyright (c) 1999-2011 by the citadel.org team * * This program is open source 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, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "serv_vcard.h" #include "citadel_ldap.h" #include "ctdl_module.h" /* * Pre-save hook for saving a message in a blog room. * (Do we want to only do this for top-level messages?) */ int blog_upload_beforesave(struct CtdlMessage *msg, recptypes *recp) { /* Only run this hook for blog rooms */ if (CC->room.QRdefaultview != VIEW_BLOG) { return(0); } /* * If the message doesn't have an EUID, give it one. */ if (CM_IsEmpty(msg, eExclusiveID)) { char uuid[SIZ]; generate_uuid(uuid); CM_SetField(msg, eExclusiveID, uuid, strlen(uuid)); } /* * We also want to define a maximum length, whether we generated it or not. */ CM_CutFieldAt(msg, eExclusiveID, BLOG_EUIDBUF_SIZE - 1); /* Now allow the save to complete. */ return(0); } CTDL_MODULE_INIT(blog) { if (!threading) { CtdlRegisterMessageHook(blog_upload_beforesave, EVT_BEFORESAVE); } /* return our module id for the Log */ return "blog"; } citadel-902/modules/c-ares-dns/000077500000000000000000000000001271512031400163735ustar00rootroot00000000000000citadel-902/modules/c-ares-dns/serv_c-ares-dns.c000066400000000000000000000374731271512031400215500ustar00rootroot00000000000000/* * Copyright (c) 1998-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * * * Inspired by NodeJS.org; thanks for the MX-Parser ;-) */ #include "sysdep.h" #include #include #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "ctdl_module.h" #include "event_client.h" int DebugCAres = 0; extern struct ev_loop *event_base; void SockStateCb(void *data, int sock, int read, int write); static void HostByAddrCb(void *data, int status, int timeouts, struct hostent *hostent) { AsyncIO *IO = data; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); EV_DNS_LOGT_STOP(DNS.timeout); ev_timer_stop (event_base, &IO->DNS.timeout); IO->DNS.Query->DNSStatus = status; if (status != ARES_SUCCESS) { StrBufPlain(IO->ErrMsg, ares_strerror(status), -1); return; } IO->DNS.Query->Data = hostent; } static void ParseAnswerA(AsyncIO *IO, unsigned char* abuf, int alen) { struct hostent* host = NULL; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_a_reply(abuf, alen, &host, NULL, NULL); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (host != NULL) ares_free_hostent(host); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } IO->DNS.Query->VParsedDNSReply = host; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_hostent; } static void ParseAnswerAAAA(AsyncIO *IO, unsigned char* abuf, int alen) { struct hostent* host = NULL; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_aaaa_reply(abuf, alen, &host, NULL, NULL); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (host != NULL) ares_free_hostent(host); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } IO->DNS.Query->VParsedDNSReply = host; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_hostent; } static void ParseAnswerCNAME(AsyncIO *IO, unsigned char* abuf, int alen) { struct hostent* host = NULL; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_a_reply(abuf, alen, &host, NULL, NULL); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (host != NULL) ares_free_hostent(host); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } // a CNAME lookup always returns a single record but IO->DNS.Query->VParsedDNSReply = host; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_hostent; } static void ParseAnswerMX(AsyncIO *IO, unsigned char* abuf, int alen) { struct ares_mx_reply *mx_out = NULL; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_mx_reply(abuf, alen, &mx_out); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (mx_out != NULL) ares_free_data(mx_out); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } IO->DNS.Query->VParsedDNSReply = mx_out; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_data; } static void ParseAnswerNS(AsyncIO *IO, unsigned char* abuf, int alen) { struct hostent* host = NULL; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_ns_reply(abuf, alen, &host); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (host != NULL) ares_free_hostent(host); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } IO->DNS.Query->VParsedDNSReply = host; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_hostent; } static void ParseAnswerSRV(AsyncIO *IO, unsigned char* abuf, int alen) { struct ares_srv_reply *srv_out = NULL; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_srv_reply(abuf, alen, &srv_out); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (srv_out != NULL) ares_free_data(srv_out); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } IO->DNS.Query->VParsedDNSReply = srv_out; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_data; } static void ParseAnswerTXT(AsyncIO *IO, unsigned char* abuf, int alen) { struct ares_txt_reply *txt_out; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); if (IO->DNS.Query->VParsedDNSReply != NULL) IO->DNS.Query->DNSReplyFree(IO->DNS.Query->VParsedDNSReply); IO->DNS.Query->VParsedDNSReply = NULL; IO->DNS.Query->DNSStatus = ares_parse_txt_reply(abuf, alen, &txt_out); if (IO->DNS.Query->DNSStatus != ARES_SUCCESS) { if (txt_out != NULL) ares_free_data(txt_out); StrBufPlain(IO->ErrMsg, ares_strerror(IO->DNS.Query->DNSStatus), -1); return; } IO->DNS.Query->VParsedDNSReply = txt_out; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_data; } void QueryCb(void *arg, int status, int timeouts, unsigned char* abuf, int alen) { AsyncIO *IO = arg; SetEVState(IO, eCaresStart); EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); EV_DNS_LOGT_STOP(DNS.timeout); ev_timer_stop (event_base, &IO->DNS.timeout); IO->DNS.Query->DNSStatus = status; if (status == ARES_SUCCESS) IO->DNS.Query->DNS_CB(arg, abuf, alen); else { EV_DNS_syslog(LOG_DEBUG, "C-ARES: Failed by: %s error %s\n", __FUNCTION__, ares_strerror(status)); StrBufPrintf(IO->ErrMsg, "%s-lookup %s - %s", IO->DNS.Query->QueryTYPE, (IO->DNS.Query->QStr != NULL)? IO->DNS.Query->QStr : "", ares_strerror(status)); IO->DNS.Query->DNSStatus = status; } ev_idle_init(&IO->unwind_stack, IO_postdns_callback); IO->unwind_stack.data = IO; EV_DNS_LOGT_INIT(unwind_stack); EV_DNS_LOGT_START(unwind_stack); ev_idle_start(event_base, &IO->unwind_stack); } void QueryCbDone(AsyncIO *IO) { SetEVState(IO, eCaresDoneIO); EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); EV_DNS_LOGT_STOP(DNS.timeout); ev_timer_stop (event_base, &IO->DNS.timeout); EV_DNS_LOGT_STOP(unwind_stack); ev_idle_stop(event_base, &IO->unwind_stack); } void DestructCAres(AsyncIO *IO) { SetEVState(IO, eCaresX); EVNC_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); EVNC_syslog(LOG_DEBUG, "C-ARES: - stopping %s %d %p \n", "DNS.recv_event", IO->DNS.recv_event.fd, &IO->DNS.recv_event); ev_io_stop(event_base, &IO->DNS.recv_event); EVNC_syslog(LOG_DEBUG, "C-ARES: - stopping %s %d %p\n", "DNS.send_event", IO->DNS.send_event.fd, &IO->DNS.send_event); ev_io_stop(event_base, &IO->DNS.send_event); EVNC_syslog(LOG_DEBUG, "C-ARES: - stopping %s %p\n", "DNS.timeout", &IO->DNS.send_event); ev_timer_stop (event_base, &IO->DNS.timeout); EVNC_syslog(LOG_DEBUG, "C-ARES: - stopping %s %p\n", "DNS.unwind_stack", &IO->unwind_stack); ev_idle_stop(event_base, &IO->unwind_stack); ares_destroy_options(&IO->DNS.Options); } void InitC_ares_dns(AsyncIO *IO) { int optmask = 0; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s %p\n", __FUNCTION__, IO->DNS.Channel); if (IO->DNS.Channel == NULL) { optmask |= ARES_OPT_SOCK_STATE_CB; IO->DNS.Options.sock_state_cb = SockStateCb; IO->DNS.Options.sock_state_cb_data = IO; ares_init_options(&IO->DNS.Channel, &IO->DNS.Options, optmask); } IO->DNS.Query->DNSStatus = 0; } static void DNStimeouttrigger_callback(struct ev_loop *loop, ev_timer *watcher, int revents) { AsyncIO *IO = watcher->data; struct timeval tv, MaxTV; struct timeval *NextTV; memset(&MaxTV, 0, sizeof(MaxTV)); memset(&tv, 0, sizeof(tv)); MaxTV.tv_sec = 30; NextTV = ares_timeout(IO->DNS.Channel, &MaxTV, &tv); if ((NextTV->tv_sec != MaxTV.tv_sec) || (NextTV->tv_usec != MaxTV.tv_usec)) { fd_set readers, writers; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s Timeout!\n", __FUNCTION__); FD_ZERO(&readers); FD_ZERO(&writers); ares_fds(IO->DNS.Channel, &readers, &writers); ares_process(IO->DNS.Channel, &readers, &writers); } } void QueueGetHostByNameDone(void *Ctx, int status, int timeouts, struct hostent *hostent) { AsyncIO *IO = (AsyncIO *) Ctx; EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); IO->DNS.Query->DNSStatus = status; IO->DNS.Query->VParsedDNSReply = hostent; IO->DNS.Query->DNSReplyFree = (FreeDNSReply) ares_free_hostent; EV_DNS_LOGT_STOP(DNS.timeout); ev_timer_stop (event_base, &IO->DNS.timeout); ev_idle_init(&IO->unwind_stack, IO_postdns_callback); IO->unwind_stack.data = IO; EV_DNS_LOGT_INIT(unwind_stack); EV_DNS_LOGT_START(unwind_stack); ev_idle_start(event_base, &IO->unwind_stack); } void QueueGetHostByName(AsyncIO *IO, const char *Hostname, DNSQueryParts *QueryParts, IO_CallBack PostDNS) { EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); IO->DNS.SourcePort = 0; IO->DNS.Query = QueryParts; IO->DNS.Query->PostDNS = PostDNS; InitC_ares_dns(IO); ev_timer_init(&IO->DNS.timeout, DNStimeouttrigger_callback, 10, 1); EV_DNS_LOGT_INIT(DNS.timeout); IO->DNS.timeout.data = IO; ares_gethostbyname(IO->DNS.Channel, Hostname, AF_INET6, /* it falls back to ipv4 in doubt... */ QueueGetHostByNameDone, IO); EV_DNS_LOGT_START(DNS.timeout); ev_timer_start(event_base, &IO->DNS.timeout); } const char* QT[] = { "A", "AAAA", "MX", "NS", "TXT", "SRV", "CNAME", "PTR" }; int QueueQuery(ns_type Type, const char *name, AsyncIO *IO, DNSQueryParts *QueryParts, IO_CallBack PostDNS) { int length, family; char address_b[sizeof(struct in6_addr)]; IO->DNS.SourcePort = 0; IO->DNS.Query = QueryParts; IO->DNS.Query->PostDNS = PostDNS; IO->DNS.Start = IO->Now; IO->DNS.Query->QStr = name; InitC_ares_dns(IO); ev_timer_init(&IO->DNS.timeout, DNStimeouttrigger_callback, 10, 1); IO->DNS.timeout.data = IO; EV_DNS_LOGT_INIT(DNS.timeout); switch(Type) { case ns_t_a: IO->DNS.Query->DNS_CB = ParseAnswerA; IO->DNS.Query->QueryTYPE = QT[0]; break; case ns_t_aaaa: IO->DNS.Query->DNS_CB = ParseAnswerAAAA; IO->DNS.Query->QueryTYPE = QT[1]; break; case ns_t_mx: IO->DNS.Query->DNS_CB = ParseAnswerMX; IO->DNS.Query->QueryTYPE = QT[2]; break; case ns_t_ns: IO->DNS.Query->DNS_CB = ParseAnswerNS; IO->DNS.Query->QueryTYPE = QT[3]; break; case ns_t_txt: IO->DNS.Query->DNS_CB = ParseAnswerTXT; IO->DNS.Query->QueryTYPE = QT[4]; break; case ns_t_srv: IO->DNS.Query->DNS_CB = ParseAnswerSRV; IO->DNS.Query->QueryTYPE = QT[5]; break; case ns_t_cname: IO->DNS.Query->DNS_CB = ParseAnswerCNAME; IO->DNS.Query->QueryTYPE = QT[6]; break; case ns_t_ptr: IO->DNS.Query->QueryTYPE = QT[7]; if (inet_pton(AF_INET, name, &address_b) == 1) { length = sizeof(struct in_addr); family = AF_INET; } else if (inet_pton(AF_INET6, name, &address_b) == 1) { length = sizeof(struct in6_addr); family = AF_INET6; } else { return -1; } ares_gethostbyaddr(IO->DNS.Channel, address_b, length, family, HostByAddrCb, IO); EV_DNS_LOGT_START(DNS.timeout); ev_timer_start(event_base, &IO->DNS.timeout); EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s X1\n", __FUNCTION__); return 1; default: EV_DNS_syslog(LOG_DEBUG, "C-ARES: %sX2\n", __FUNCTION__); return 0; } EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); ares_query(IO->DNS.Channel, name, ns_c_in, Type, QueryCb, IO); EV_DNS_LOGT_START(DNS.timeout); ev_timer_start(event_base, &IO->DNS.timeout); return 1; } /***************************************************************************** * libev / c-ares integration * *****************************************************************************/ static void DNS_send_callback(struct ev_loop *loop, ev_io *watcher, int revents) { AsyncIO *IO = watcher->data; IO->Now = ev_now(event_base); EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); ares_process_fd(IO->DNS.Channel, ARES_SOCKET_BAD, IO->DNS.send_event.fd); } static void DNS_recv_callback(struct ev_loop *loop, ev_io *watcher, int revents) { AsyncIO *IO = watcher->data; IO->Now = ev_now(event_base); EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s\n", __FUNCTION__); ares_process_fd(IO->DNS.Channel, IO->DNS.recv_event.fd, ARES_SOCKET_BAD); } void SockStateCb(void *data, int sock, int read, int write) { AsyncIO *IO = data; /* already inside of the event queue. */ if (DebugCAres) { struct sockaddr_in sin; socklen_t slen; memset(&sin, 0, sizeof(sin)); slen = sizeof(sin); if ((IO->DNS.SourcePort == 0) && (getsockname(sock, &sin, &slen) == 0)) { IO->DNS.SourcePort = ntohs(sin.sin_port); } EV_DNS_syslog(LOG_DEBUG, "C-ARES: %s %d|%d Sock %d port %hu\n", __FUNCTION__, read, write, sock, IO->DNS.SourcePort); } IO->Now = ev_now(event_base); if (read) { if ((IO->DNS.recv_event.fd != sock) && (IO->DNS.recv_event.fd != 0)) { EV_DNS_LOG_STOP(DNS.recv_event); ev_io_stop(event_base, &IO->DNS.recv_event); } IO->DNS.recv_event.fd = sock; ev_io_init(&IO->DNS.recv_event, DNS_recv_callback, IO->DNS.recv_event.fd, EV_READ); EV_DNS_LOG_INIT(DNS.recv_event); IO->DNS.recv_event.data = IO; EV_DNS_LOG_START(DNS.recv_event); ev_io_start(event_base, &IO->DNS.recv_event); } if (write) { if ((IO->DNS.send_event.fd != sock) && (IO->DNS.send_event.fd != 0)) { EV_DNS_LOG_STOP(DNS.send_event); ev_io_stop(event_base, &IO->DNS.send_event); } IO->DNS.send_event.fd = sock; ev_io_init(&IO->DNS.send_event, DNS_send_callback, IO->DNS.send_event.fd, EV_WRITE); IO->DNS.send_event.data = IO; EV_DNS_LOG_INIT(DNS.send_event); EV_DNS_LOG_START(DNS.send_event); ev_io_start(event_base, &IO->DNS.send_event); } if ((read == 0) && (write == 0)) { EV_DNS_LOG_STOP(DNS.recv_event); EV_DNS_LOG_STOP(DNS.send_event); ev_io_stop(event_base, &IO->DNS.recv_event); ev_io_stop(event_base, &IO->DNS.send_event); } } void EnableDebugCAres(const int n) { DebugCAres = n; } CTDL_MODULE_INIT(c_ares_client) { if (!threading) { CtdlRegisterDebugFlagHook(HKEY("cares"), EnableDebugCAres, &DebugCAres); int r = ares_library_init(ARES_LIB_INIT_ALL); if (0 != r) { } } return "c-ares"; } citadel-902/modules/calendar/000077500000000000000000000000001271512031400162105ustar00rootroot00000000000000citadel-902/modules/calendar/serv_calendar.c000066400000000000000000002175231271512031400211760ustar00rootroot00000000000000/* * This module implements iCalendar object processing and the Calendar> * room on a Citadel server. It handles iCalendar objects using the * iTIP protocol. See RFCs 2445 and 2446. * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #define PRODID "-//Citadel//NONSGML Citadel Calendar//EN" #include "ctdl_module.h" #include #include "msgbase.h" #include "internet_addressing.h" #include "serv_calendar.h" #include "room_ops.h" #include "euidindex.h" #include "ical_dezonify.h" #include "config.h" struct ical_respond_data { char desired_partnum[SIZ]; icalcomponent *cal; }; /* * Utility function to create a new VCALENDAR component with some of the * required fields already set the way we like them. */ icalcomponent *icalcomponent_new_citadel_vcalendar(void) { icalcomponent *encaps; encaps = icalcomponent_new_vcalendar(); if (encaps == NULL) { syslog(LOG_CRIT, "ERROR: could not allocate component!\n"); return NULL; } /* Set the Product ID */ icalcomponent_add_property(encaps, icalproperty_new_prodid(PRODID)); /* Set the Version Number */ icalcomponent_add_property(encaps, icalproperty_new_version("2.0")); return(encaps); } /* * Utility function to encapsulate a subcomponent into a full VCALENDAR */ icalcomponent *ical_encapsulate_subcomponent(icalcomponent *subcomp) { icalcomponent *encaps; /* If we're already looking at a full VCALENDAR component, * don't bother ... just return itself. */ if (icalcomponent_isa(subcomp) == ICAL_VCALENDAR_COMPONENT) { return subcomp; } /* Encapsulate the VEVENT component into a complete VCALENDAR */ encaps = icalcomponent_new_citadel_vcalendar(); if (encaps == NULL) return NULL; /* Encapsulate the subcomponent inside */ icalcomponent_add_component(encaps, subcomp); /* Return the object we just created. */ return(encaps); } /* * Write a calendar object into the specified user's calendar room. * If the supplied user is NULL, this function writes the calendar object * to the currently selected room. */ void ical_write_to_cal(struct ctdluser *u, icalcomponent *cal) { char *ser = NULL; long serlen; icalcomponent *encaps = NULL; struct CtdlMessage *msg = NULL; icalcomponent *tmp=NULL; if (cal == NULL) return; /* If the supplied object is a subcomponent, encapsulate it in * a full VCALENDAR component, and save that instead. */ if (icalcomponent_isa(cal) != ICAL_VCALENDAR_COMPONENT) { tmp = icalcomponent_new_clone(cal); encaps = ical_encapsulate_subcomponent(tmp); ical_write_to_cal(u, encaps); icalcomponent_free(tmp); icalcomponent_free(encaps); return; } ser = icalcomponent_as_ical_string_r(cal); if (ser == NULL) return; serlen = strlen(ser); /* If the caller supplied a user, write to that user's default calendar room */ if (u) { /* This handy API function does all the work for us. */ CtdlWriteObject(USERCALENDARROOM, /* which room */ "text/calendar", /* MIME type */ ser, /* data */ serlen + 1, /* length */ u, /* which user */ 0, /* not binary */ 0, /* don't delete others of this type */ 0 /* no flags */ ); } /* If the caller did not supply a user, write to the currently selected room */ if (!u) { struct CitContext *CCC = CC; StrBuf *MsgBody; msg = malloc(sizeof(struct CtdlMessage)); memset(msg, 0, sizeof(struct CtdlMessage)); msg->cm_magic = CTDLMESSAGE_MAGIC; msg->cm_anon_type = MES_NORMAL; msg->cm_format_type = 4; CM_SetField(msg, eAuthor, CCC->user.fullname, strlen(CCC->user.fullname)); CM_SetField(msg, eOriginalRoom, CCC->room.QRname, strlen(CCC->room.QRname)); CM_SetField(msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename"))); CM_SetField(msg, eHumanNode, CtdlGetConfigStr("c_humannode"), strlen(CtdlGetConfigStr("c_humannode"))); MsgBody = NewStrBufPlain(NULL, serlen + 100); StrBufAppendBufPlain(MsgBody, HKEY("Content-type: text/calendar\r\n\r\n"), 0); StrBufAppendBufPlain(MsgBody, ser, serlen, 0); CM_SetAsFieldSB(msg, eMesageText, &MsgBody); /* Now write the data */ CtdlSubmitMsg(msg, NULL, "", QP_EADDR); CM_Free(msg); } /* In either case, now we can free the serialized calendar object */ free(ser); } /* * Send a reply to a meeting invitation. * * 'request' is the invitation to reply to. * 'action' is the string "accept" or "decline" or "tentative". * */ void ical_send_a_reply(icalcomponent *request, char *action) { icalcomponent *the_reply = NULL; icalcomponent *vevent = NULL; icalproperty *attendee = NULL; char attendee_string[SIZ]; icalproperty *organizer = NULL; char organizer_string[SIZ]; icalproperty *summary = NULL; char summary_string[SIZ]; icalproperty *me_attend = NULL; recptypes *recp = NULL; icalparameter *partstat = NULL; char *serialized_reply = NULL; char *reply_message_text = NULL; const char *ch; struct CtdlMessage *msg = NULL; recptypes *valid = NULL; *organizer_string = '\0'; strcpy(summary_string, "Calendar item"); if (request == NULL) { syslog(LOG_ERR, "ERROR: trying to reply to NULL event?\n"); return; } the_reply = icalcomponent_new_clone(request); if (the_reply == NULL) { syslog(LOG_ERR, "ERROR: cannot clone request\n"); return; } /* Change the method from REQUEST to REPLY */ icalcomponent_set_method(the_reply, ICAL_METHOD_REPLY); vevent = icalcomponent_get_first_component(the_reply, ICAL_VEVENT_COMPONENT); if (vevent != NULL) { /* Hunt for attendees, removing ones that aren't us. * (Actually, remove them all, cloning our own one so we can * re-insert it later) */ while (attendee = icalcomponent_get_first_property(vevent, ICAL_ATTENDEE_PROPERTY), (attendee != NULL) ) { ch = icalproperty_get_attendee(attendee); if ((ch != NULL) && !strncasecmp(ch, "MAILTO:", 7)) { safestrncpy(attendee_string, ch + 7, sizeof (attendee_string)); striplt(attendee_string); recp = validate_recipients(attendee_string, NULL, 0); if (recp != NULL) { if (!strcasecmp(recp->recp_local, CC->user.fullname)) { if (me_attend) icalproperty_free(me_attend); me_attend = icalproperty_new_clone(attendee); } free_recipients(recp); } } /* Remove it... */ icalcomponent_remove_property(vevent, attendee); icalproperty_free(attendee); } /* We found our own address in the attendee list. */ if (me_attend) { /* Change the partstat from NEEDS-ACTION to ACCEPT or DECLINE */ icalproperty_remove_parameter(me_attend, ICAL_PARTSTAT_PARAMETER); if (!strcasecmp(action, "accept")) { partstat = icalparameter_new_partstat(ICAL_PARTSTAT_ACCEPTED); } else if (!strcasecmp(action, "decline")) { partstat = icalparameter_new_partstat(ICAL_PARTSTAT_DECLINED); } else if (!strcasecmp(action, "tentative")) { partstat = icalparameter_new_partstat(ICAL_PARTSTAT_TENTATIVE); } if (partstat) icalproperty_add_parameter(me_attend, partstat); /* Now insert it back into the vevent. */ icalcomponent_add_property(vevent, me_attend); } /* Figure out who to send this thing to */ organizer = icalcomponent_get_first_property(vevent, ICAL_ORGANIZER_PROPERTY); if (organizer != NULL) { if (icalproperty_get_organizer(organizer)) { strcpy(organizer_string, icalproperty_get_organizer(organizer) ); } } if (!strncasecmp(organizer_string, "MAILTO:", 7)) { strcpy(organizer_string, &organizer_string[7]); striplt(organizer_string); } else { strcpy(organizer_string, ""); } /* Extract the summary string -- we'll use it as the * message subject for the reply */ summary = icalcomponent_get_first_property(vevent, ICAL_SUMMARY_PROPERTY); if (summary != NULL) { if (icalproperty_get_summary(summary)) { strcpy(summary_string, icalproperty_get_summary(summary) ); } } } /* Now generate the reply message and send it out. */ serialized_reply = icalcomponent_as_ical_string_r(the_reply); icalcomponent_free(the_reply); /* don't need this anymore */ if (serialized_reply == NULL) return; reply_message_text = malloc(strlen(serialized_reply) + SIZ); if (reply_message_text != NULL) { sprintf(reply_message_text, "Content-type: text/calendar; charset=\"utf-8\"\r\n\r\n%s\r\n", serialized_reply ); msg = CtdlMakeMessage(&CC->user, organizer_string, /* to */ "", /* cc */ CC->room.QRname, 0, FMT_RFC822, "", "", summary_string, /* Use summary for subject */ NULL, reply_message_text, NULL); if (msg != NULL) { valid = validate_recipients(organizer_string, NULL, 0); CtdlSubmitMsg(msg, valid, "", QP_EADDR); CM_Free(msg); free_recipients(valid); } } free(serialized_reply); } /* * Callback function for mime parser that hunts for calendar content types * and turns them into calendar objects. If something is found, it is placed * in ird->cal, and the caller now owns that memory and is responsible for freeing it. */ void ical_locate_part(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct ical_respond_data *ird = NULL; ird = (struct ical_respond_data *) cbuserdata; /* desired_partnum can be set to "_HUNT_" to have it just look for * the first part with a content type of text/calendar. Otherwise * we have to only process the right one. */ if (strcasecmp(ird->desired_partnum, "_HUNT_")) { if (strcasecmp(partnum, ird->desired_partnum)) { return; } } if ( (strcasecmp(cbtype, "text/calendar")) && (strcasecmp(cbtype, "application/ics")) ) { return; } if (ird->cal != NULL) { icalcomponent_free(ird->cal); ird->cal = NULL; } ird->cal = icalcomponent_new_from_string(content); } /* * Respond to a meeting request. */ void ical_respond(long msgnum, char *partnum, char *action) { struct CtdlMessage *msg = NULL; struct ical_respond_data ird; if ( (strcasecmp(action, "accept")) && (strcasecmp(action, "decline")) ) { cprintf("%d Action must be 'accept' or 'decline'\n", ERROR + ILLEGAL_VALUE ); return; } msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { cprintf("%d Message %ld not found.\n", ERROR + ILLEGAL_VALUE, (long)msgnum ); return; } memset(&ird, 0, sizeof ird); strcpy(ird.desired_partnum, partnum); mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_part, /* callback function */ NULL, NULL, (void *) &ird, /* user data */ 0 ); /* We're done with the incoming message, because we now have a * calendar object in memory. */ CM_Free(msg); /* * Here is the real meat of this function. Handle the event. */ if (ird.cal != NULL) { /* Save this in the user's calendar if necessary */ if (!strcasecmp(action, "accept")) { ical_write_to_cal(&CC->user, ird.cal); } /* Send a reply if necessary */ if (icalcomponent_get_method(ird.cal) == ICAL_METHOD_REQUEST) { ical_send_a_reply(ird.cal, action); } /* We used to delete the invitation after handling it. * We don't do that anymore, but here is the code that handled it: * CtdlDeleteMessages(CC->room.QRname, &msgnum, 1, ""); */ /* Free the memory we allocated and return a response. */ icalcomponent_free(ird.cal); ird.cal = NULL; cprintf("%d ok\n", CIT_OK); return; } else { cprintf("%d No calendar object found\n", ERROR + ROOM_NOT_FOUND); return; } /* should never get here */ } /* * Figure out the UID of the calendar event being referred to in a * REPLY object. This function is recursive. */ void ical_learn_uid_of_reply(char *uidbuf, icalcomponent *cal) { icalcomponent *subcomponent; icalproperty *p; /* If this object is a REPLY, then extract the UID. */ if (icalcomponent_isa(cal) == ICAL_VEVENT_COMPONENT) { p = icalcomponent_get_first_property(cal, ICAL_UID_PROPERTY); if (p != NULL) { strcpy(uidbuf, icalproperty_get_comment(p)); } } /* Otherwise, recurse through any VEVENT subcomponents. We do NOT want the * UID of the reply; we want the UID of the invitation being replied to. */ for (subcomponent = icalcomponent_get_first_component(cal, ICAL_VEVENT_COMPONENT); subcomponent != NULL; subcomponent = icalcomponent_get_next_component(cal, ICAL_VEVENT_COMPONENT) ) { ical_learn_uid_of_reply(uidbuf, subcomponent); } } /* * ical_update_my_calendar_with_reply() refers to this callback function; when we * locate the message containing the calendar event we're replying to, this function * gets called. It basically just sticks the message number in a supplied buffer. */ void ical_hunt_for_event_to_update(long msgnum, void *data) { long *msgnumptr; msgnumptr = (long *) data; *msgnumptr = msgnum; } struct original_event_container { icalcomponent *c; }; /* * Callback function for mime parser that hunts for calendar content types * and turns them into calendar objects (called by ical_update_my_calendar_with_reply() * to fetch the object being updated) */ void ical_locate_original_event(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { struct original_event_container *oec = NULL; if ( (strcasecmp(cbtype, "text/calendar")) && (strcasecmp(cbtype, "application/ics")) ) { return; } oec = (struct original_event_container *) cbuserdata; if (oec->c != NULL) { icalcomponent_free(oec->c); } oec->c = icalcomponent_new_from_string(content); } /* * Merge updated attendee information from a REPLY into an existing event. */ void ical_merge_attendee_reply(icalcomponent *event, icalcomponent *reply) { icalcomponent *c; icalproperty *e_attendee, *r_attendee; /* First things first. If we're not looking at a VEVENT component, * recurse through subcomponents until we find one. */ if (icalcomponent_isa(event) != ICAL_VEVENT_COMPONENT) { for (c = icalcomponent_get_first_component(event, ICAL_VEVENT_COMPONENT); c != NULL; c = icalcomponent_get_next_component(event, ICAL_VEVENT_COMPONENT) ) { ical_merge_attendee_reply(c, reply); } return; } /* Now do the same thing with the reply. */ if (icalcomponent_isa(reply) != ICAL_VEVENT_COMPONENT) { for (c = icalcomponent_get_first_component(reply, ICAL_VEVENT_COMPONENT); c != NULL; c = icalcomponent_get_next_component(reply, ICAL_VEVENT_COMPONENT) ) { ical_merge_attendee_reply(event, c); } return; } /* Clone the reply, because we're going to rip its guts out. */ reply = icalcomponent_new_clone(reply); /* At this point we're looking at the correct subcomponents. * Iterate through the attendees looking for a match. */ STARTOVER: for (e_attendee = icalcomponent_get_first_property(event, ICAL_ATTENDEE_PROPERTY); e_attendee != NULL; e_attendee = icalcomponent_get_next_property(event, ICAL_ATTENDEE_PROPERTY)) { for (r_attendee = icalcomponent_get_first_property(reply, ICAL_ATTENDEE_PROPERTY); r_attendee != NULL; r_attendee = icalcomponent_get_next_property(reply, ICAL_ATTENDEE_PROPERTY)) { /* Check to see if these two attendees match... */ const char *e, *r; e = icalproperty_get_attendee(e_attendee); r = icalproperty_get_attendee(r_attendee); if ((e != NULL) && (r != NULL) && !strcasecmp(e, r)) { /* ...and if they do, remove the attendee from the event * and replace it with the attendee from the reply. (The * reply's copy will have the same address, but an updated * status.) */ icalcomponent_remove_property(event, e_attendee); icalproperty_free(e_attendee); icalcomponent_remove_property(reply, r_attendee); icalcomponent_add_property(event, r_attendee); /* Since we diddled both sets of attendees, we have to start * the iteration over again. This will not create an infinite * loop because we removed the attendee from the reply. (That's * why we cloned the reply, and that's what we mean by "ripping * its guts out.") */ goto STARTOVER; } } } /* Free the *clone* of the reply. */ icalcomponent_free(reply); } /* * Handle an incoming RSVP (object with method==ICAL_METHOD_REPLY) for a * calendar event. The object has already been deserialized for us; all * we have to do here is hunt for the event in our calendar, merge in the * updated attendee status, and save it again. * * This function returns 0 on success, 1 if the event was not found in the * user's calendar, or 2 if an internal error occurred. */ int ical_update_my_calendar_with_reply(icalcomponent *cal) { char uid[SIZ]; char hold_rm[ROOMNAMELEN]; long msgnum_being_replaced = 0; struct CtdlMessage *msg = NULL; struct original_event_container oec; icalcomponent *original_event; char *serialized_event = NULL; char roomname[ROOMNAMELEN]; char *message_text = NULL; /* Figure out just what event it is we're dealing with */ strcpy(uid, "--==<< InVaLiD uId >>==--"); ical_learn_uid_of_reply(uid, cal); syslog(LOG_DEBUG, "UID of event being replied to is <%s>\n", uid); strcpy(hold_rm, CC->room.QRname); /* save current room */ if (CtdlGetRoom(&CC->room, USERCALENDARROOM) != 0) { CtdlGetRoom(&CC->room, hold_rm); syslog(LOG_CRIT, "cannot get user calendar room\n"); return(2); } /* * Look in the EUID index for a message with * the Citadel EUID set to the value we're looking for. Since * Citadel always sets the message EUID to the iCalendar UID of * the event, this will work. */ msgnum_being_replaced = CtdlLocateMessageByEuid(uid, &CC->room); CtdlGetRoom(&CC->room, hold_rm); /* return to saved room */ syslog(LOG_DEBUG, "msgnum_being_replaced == %ld\n", msgnum_being_replaced); if (msgnum_being_replaced == 0) { return(1); /* no calendar event found */ } /* Now we know the ID of the message containing the event being updated. * We don't actually have to delete it; that'll get taken care of by the * server when we save another event with the same UID. This just gives * us the ability to load the event into memory so we can diddle the * attendees. */ msg = CtdlFetchMessage(msgnum_being_replaced, 1, 1); if (msg == NULL) { return(2); /* internal error */ } oec.c = NULL; mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_original_event, /* callback function */ NULL, NULL, &oec, /* user data */ 0 ); CM_Free(msg); original_event = oec.c; if (original_event == NULL) { syslog(LOG_ERR, "ERROR: Original_component is NULL.\n"); return(2); } /* Merge the attendee's updated status into the event */ ical_merge_attendee_reply(original_event, cal); /* Serialize it */ serialized_event = icalcomponent_as_ical_string_r(original_event); icalcomponent_free(original_event); /* Don't need this anymore. */ if (serialized_event == NULL) return(2); CtdlMailboxName(roomname, sizeof roomname, &CC->user, USERCALENDARROOM); message_text = malloc(strlen(serialized_event) + SIZ); if (message_text != NULL) { sprintf(message_text, "Content-type: text/calendar; charset=\"utf-8\"\r\n\r\n%s\r\n", serialized_event ); msg = CtdlMakeMessage(&CC->user, "", /* No recipient */ "", /* No recipient */ roomname, 0, FMT_RFC822, "", "", "", /* no subject */ NULL, message_text, NULL); if (msg != NULL) { CIT_ICAL->avoid_sending_invitations = 1; CtdlSubmitMsg(msg, NULL, roomname, QP_EADDR); CM_Free(msg); CIT_ICAL->avoid_sending_invitations = 0; } } free(serialized_event); return(0); } /* * Handle an incoming RSVP for an event. (This is the server subcommand part; it * simply extracts the calendar object from the message, deserializes it, and * passes it up to ical_update_my_calendar_with_reply() for processing. */ void ical_handle_rsvp(long msgnum, char *partnum, char *action) { struct CtdlMessage *msg = NULL; struct ical_respond_data ird; int ret; if ( (strcasecmp(action, "update")) && (strcasecmp(action, "ignore")) ) { cprintf("%d Action must be 'update' or 'ignore'\n", ERROR + ILLEGAL_VALUE ); return; } msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { cprintf("%d Message %ld not found.\n", ERROR + ILLEGAL_VALUE, (long)msgnum ); return; } memset(&ird, 0, sizeof ird); strcpy(ird.desired_partnum, partnum); mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_part, /* callback function */ NULL, NULL, (void *) &ird, /* user data */ 0 ); /* We're done with the incoming message, because we now have a * calendar object in memory. */ CM_Free(msg); /* * Here is the real meat of this function. Handle the event. */ if (ird.cal != NULL) { /* Update the user's calendar if necessary */ if (!strcasecmp(action, "update")) { ret = ical_update_my_calendar_with_reply(ird.cal); if (ret == 0) { cprintf("%d Your calendar has been updated with this reply.\n", CIT_OK); } else if (ret == 1) { cprintf("%d This event does not exist in your calendar.\n", ERROR + FILE_NOT_FOUND); } else { cprintf("%d An internal error occurred.\n", ERROR + INTERNAL_ERROR); } } else { cprintf("%d This reply has been ignored.\n", CIT_OK); } /* Now that we've processed this message, we don't need it * anymore. So delete it. (Don't do this anymore.) CtdlDeleteMessages(CC->room.QRname, &msgnum, 1, ""); */ /* Free the memory we allocated and return a response. */ icalcomponent_free(ird.cal); ird.cal = NULL; return; } else { cprintf("%d No calendar object found\n", ERROR + ROOM_NOT_FOUND); return; } /* should never get here */ } /* * Search for a property in both the top level and in a VEVENT subcomponent */ icalproperty *ical_ctdl_get_subprop( icalcomponent *cal, icalproperty_kind which_prop ) { icalproperty *p; icalcomponent *c; p = icalcomponent_get_first_property(cal, which_prop); if (p == NULL) { c = icalcomponent_get_first_component(cal, ICAL_VEVENT_COMPONENT); if (c != NULL) { p = icalcomponent_get_first_property(c, which_prop); } } return p; } /* * Check to see if two events overlap. Returns nonzero if they do. * (This function is used in both Citadel and WebCit. If you change it in * one place, change it in the other. Better yet, put it in a library.) */ int ical_ctdl_is_overlap( struct icaltimetype t1start, struct icaltimetype t1end, struct icaltimetype t2start, struct icaltimetype t2end ) { if (icaltime_is_null_time(t1start)) return(0); if (icaltime_is_null_time(t2start)) return(0); /* if either event lacks end time, assume end = start */ if (icaltime_is_null_time(t1end)) memcpy(&t1end, &t1start, sizeof(struct icaltimetype)); else { if (t1end.is_date && icaltime_compare(t1start, t1end)) { /* * the end date is non-inclusive so adjust it by one * day because our test is inclusive, note that a day is * not too much because we are talking about all day * events * if start = end we assume that nevertheless the whole * day is meant */ icaltime_adjust(&t1end, -1, 0, 0, 0); } } if (icaltime_is_null_time(t2end)) memcpy(&t2end, &t2start, sizeof(struct icaltimetype)); else { if (t2end.is_date && icaltime_compare(t2start, t2end)) { icaltime_adjust(&t2end, -1, 0, 0, 0); } } /* First, check for all-day events */ if (t1start.is_date || t2start.is_date) { /* If event 1 ends before event 2 starts, we're in the clear. */ if (icaltime_compare_date_only(t1end, t2start) < 0) return(0); /* If event 2 ends before event 1 starts, we're also ok. */ if (icaltime_compare_date_only(t2end, t1start) < 0) return(0); return(1); } /* syslog(LOG_DEBUG, "Comparing t1start %d:%d t1end %d:%d t2start %d:%d t2end %d:%d \n", t1start.hour, t1start.minute, t1end.hour, t1end.minute, t2start.hour, t2start.minute, t2end.hour, t2end.minute); */ /* Now check for overlaps using date *and* time. */ /* If event 1 ends before event 2 starts, we're in the clear. */ if (icaltime_compare(t1end, t2start) <= 0) return(0); /* syslog(LOG_DEBUG, "first passed\n"); */ /* If event 2 ends before event 1 starts, we're also ok. */ if (icaltime_compare(t2end, t1start) <= 0) return(0); /* syslog(LOG_DEBUG, "second passed\n"); */ /* Otherwise, they overlap. */ return(1); } /* * Phase 6 of "hunt for conflicts" * called by ical_conflicts_phase5() * * Now both the proposed and existing events have been boiled down to start and end times. * Check for overlap and output any conflicts. * * Returns nonzero if a conflict was reported. This allows the caller to stop iterating. */ int ical_conflicts_phase6(struct icaltimetype t1start, struct icaltimetype t1end, struct icaltimetype t2start, struct icaltimetype t2end, long existing_msgnum, char *conflict_event_uid, char *conflict_event_summary, char *compare_uid) { int conflict_reported = 0; /* debugging cruft * time_t tt; tt = icaltime_as_timet_with_zone(t1start, t1start.zone); syslog(LOG_DEBUG, "PROPOSED START: %s", ctime(&tt)); tt = icaltime_as_timet_with_zone(t1end, t1end.zone); syslog(LOG_DEBUG, " PROPOSED END: %s", ctime(&tt)); tt = icaltime_as_timet_with_zone(t2start, t2start.zone); syslog(LOG_DEBUG, "EXISTING START: %s", ctime(&tt)); tt = icaltime_as_timet_with_zone(t2end, t2end.zone); syslog(LOG_DEBUG, " EXISTING END: %s", ctime(&tt)); * debugging cruft */ /* compare and output */ if (ical_ctdl_is_overlap(t1start, t1end, t2start, t2end)) { cprintf("%ld||%s|%s|%d|\n", existing_msgnum, conflict_event_uid, conflict_event_summary, ( (!IsEmptyStr(compare_uid) &&(!strcasecmp(compare_uid, conflict_event_uid))) ? 1 : 0 ) ); conflict_reported = 1; } return(conflict_reported); } /* * Phase 5 of "hunt for conflicts" * Called by ical_conflicts_phase4() * * We have the proposed event boiled down to start and end times. * Now check it against an existing event. */ void ical_conflicts_phase5(struct icaltimetype t1start, struct icaltimetype t1end, icalcomponent *existing_event, long existing_msgnum, char *compare_uid) { char conflict_event_uid[SIZ]; char conflict_event_summary[SIZ]; struct icaltimetype t2start, t2end; icalproperty *p; /* recur variables */ icalproperty *rrule = NULL; struct icalrecurrencetype recur; icalrecur_iterator *ritr = NULL; struct icaldurationtype dur; int num_recur = 0; /* initialization */ strcpy(conflict_event_uid, ""); strcpy(conflict_event_summary, ""); t2start = icaltime_null_time(); t2end = icaltime_null_time(); /* existing event stuff */ p = ical_ctdl_get_subprop(existing_event, ICAL_DTSTART_PROPERTY); if (p == NULL) return; if (p != NULL) t2start = icalproperty_get_dtstart(p); if (icaltime_is_utc(t2start)) { t2start.zone = icaltimezone_get_utc_timezone(); } else { t2start.zone = icalcomponent_get_timezone(existing_event, icalparameter_get_tzid( icalproperty_get_first_parameter(p, ICAL_TZID_PARAMETER) ) ); if (!t2start.zone) { t2start.zone = get_default_icaltimezone(); } } p = ical_ctdl_get_subprop(existing_event, ICAL_DTEND_PROPERTY); if (p != NULL) { t2end = icalproperty_get_dtend(p); if (icaltime_is_utc(t2end)) { t2end.zone = icaltimezone_get_utc_timezone(); } else { t2end.zone = icalcomponent_get_timezone(existing_event, icalparameter_get_tzid( icalproperty_get_first_parameter(p, ICAL_TZID_PARAMETER) ) ); if (!t2end.zone) { t2end.zone = get_default_icaltimezone(); } } dur = icaltime_subtract(t2end, t2start); } else { memset (&dur, 0, sizeof(struct icaldurationtype)); } rrule = ical_ctdl_get_subprop(existing_event, ICAL_RRULE_PROPERTY); if (rrule) { recur = icalproperty_get_rrule(rrule); ritr = icalrecur_iterator_new(recur, t2start); } do { p = ical_ctdl_get_subprop(existing_event, ICAL_UID_PROPERTY); if (p != NULL) { strcpy(conflict_event_uid, icalproperty_get_comment(p)); } p = ical_ctdl_get_subprop(existing_event, ICAL_SUMMARY_PROPERTY); if (p != NULL) { strcpy(conflict_event_summary, icalproperty_get_comment(p)); } if (ical_conflicts_phase6(t1start, t1end, t2start, t2end, existing_msgnum, conflict_event_uid, conflict_event_summary, compare_uid)) { num_recur = MAX_RECUR + 1; /* force it out of scope, no need to continue */ } if (rrule) { t2start = icalrecur_iterator_next(ritr); if (!icaltime_is_null_time(t2end)) { const icaltimezone *hold_zone = t2end.zone; t2end = icaltime_add(t2start, dur); t2end.zone = hold_zone; } ++num_recur; } if (icaltime_compare(t2start, t1end) < 0) { num_recur = MAX_RECUR + 1; /* force it out of scope */ } } while ( (rrule) && (!icaltime_is_null_time(t2start)) && (num_recur < MAX_RECUR) ); icalrecur_iterator_free(ritr); } /* * Phase 4 of "hunt for conflicts" * Called by ical_hunt_for_conflicts_backend() * * At this point we've got it boiled down to two icalcomponent events in memory. * If they conflict, output something to the client. */ void ical_conflicts_phase4(icalcomponent *proposed_event, icalcomponent *existing_event, long existing_msgnum) { struct icaltimetype t1start, t1end; icalproperty *p; char compare_uid[SIZ]; /* recur variables */ icalproperty *rrule = NULL; struct icalrecurrencetype recur; icalrecur_iterator *ritr = NULL; struct icaldurationtype dur; int num_recur = 0; /* initialization */ t1end = icaltime_null_time(); *compare_uid = '\0'; /* proposed event stuff */ p = ical_ctdl_get_subprop(proposed_event, ICAL_DTSTART_PROPERTY); if (p == NULL) return; else t1start = icalproperty_get_dtstart(p); if (icaltime_is_utc(t1start)) { t1start.zone = icaltimezone_get_utc_timezone(); } else { t1start.zone = icalcomponent_get_timezone(proposed_event, icalparameter_get_tzid( icalproperty_get_first_parameter(p, ICAL_TZID_PARAMETER) ) ); if (!t1start.zone) { t1start.zone = get_default_icaltimezone(); } } p = ical_ctdl_get_subprop(proposed_event, ICAL_DTEND_PROPERTY); if (p != NULL) { t1end = icalproperty_get_dtend(p); if (icaltime_is_utc(t1end)) { t1end.zone = icaltimezone_get_utc_timezone(); } else { t1end.zone = icalcomponent_get_timezone(proposed_event, icalparameter_get_tzid( icalproperty_get_first_parameter(p, ICAL_TZID_PARAMETER) ) ); if (!t1end.zone) { t1end.zone = get_default_icaltimezone(); } } dur = icaltime_subtract(t1end, t1start); } else { memset (&dur, 0, sizeof(struct icaldurationtype)); } rrule = ical_ctdl_get_subprop(proposed_event, ICAL_RRULE_PROPERTY); if (rrule) { recur = icalproperty_get_rrule(rrule); ritr = icalrecur_iterator_new(recur, t1start); } p = ical_ctdl_get_subprop(proposed_event, ICAL_UID_PROPERTY); if (p != NULL) { strcpy(compare_uid, icalproperty_get_comment(p)); } do { ical_conflicts_phase5(t1start, t1end, existing_event, existing_msgnum, compare_uid); if (rrule) { t1start = icalrecur_iterator_next(ritr); if (!icaltime_is_null_time(t1end)) { const icaltimezone *hold_zone = t1end.zone; t1end = icaltime_add(t1start, dur); t1end.zone = hold_zone; } ++num_recur; } } while ( (rrule) && (!icaltime_is_null_time(t1start)) && (num_recur < MAX_RECUR) ); icalrecur_iterator_free(ritr); } /* * Phase 3 of "hunt for conflicts" * Called by ical_hunt_for_conflicts() */ void ical_hunt_for_conflicts_backend(long msgnum, void *data) { icalcomponent *proposed_event; struct CtdlMessage *msg = NULL; struct ical_respond_data ird; proposed_event = (icalcomponent *)data; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; memset(&ird, 0, sizeof ird); strcpy(ird.desired_partnum, "_HUNT_"); mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_part, /* callback function */ NULL, NULL, (void *) &ird, /* user data */ 0 ); CM_Free(msg); if (ird.cal == NULL) return; ical_conflicts_phase4(proposed_event, ird.cal, msgnum); icalcomponent_free(ird.cal); } /* * Phase 2 of "hunt for conflicts" operation. * At this point we have a calendar object which represents the VEVENT that * is proposed for addition to the calendar. Now hunt through the user's * calendar room, and output zero or more existing VEVENTs which conflict * with this one. */ void ical_hunt_for_conflicts(icalcomponent *cal) { char hold_rm[ROOMNAMELEN]; strcpy(hold_rm, CC->room.QRname); /* save current room */ if (CtdlGetRoom(&CC->room, USERCALENDARROOM) != 0) { CtdlGetRoom(&CC->room, hold_rm); cprintf("%d You do not have a calendar.\n", ERROR + ROOM_NOT_FOUND); return; } cprintf("%d Conflicting events:\n", LISTING_FOLLOWS); CtdlForEachMessage(MSGS_ALL, 0, NULL, NULL, NULL, ical_hunt_for_conflicts_backend, (void *) cal ); cprintf("000\n"); CtdlGetRoom(&CC->room, hold_rm); /* return to saved room */ } /* * Hunt for conflicts (Phase 1 -- retrieve the object and call Phase 2) */ void ical_conflicts(long msgnum, char *partnum) { struct CtdlMessage *msg = NULL; struct ical_respond_data ird; msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) { cprintf("%d Message %ld not found\n", ERROR + ILLEGAL_VALUE, (long)msgnum ); return; } memset(&ird, 0, sizeof ird); strcpy(ird.desired_partnum, partnum); mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_part, /* callback function */ NULL, NULL, (void *) &ird, /* user data */ 0 ); CM_Free(msg); if (ird.cal != NULL) { ical_hunt_for_conflicts(ird.cal); icalcomponent_free(ird.cal); return; } cprintf("%d No calendar object found\n", ERROR + ROOM_NOT_FOUND); } /* * Look for busy time in a VEVENT and add it to the supplied VFREEBUSY. * * fb The VFREEBUSY component to which we are appending * top_level_cal The top-level VCALENDAR component which contains a VEVENT to be added */ void ical_add_to_freebusy(icalcomponent *fb, icalcomponent *top_level_cal) { icalcomponent *cal; icalproperty *p; icalvalue *v; struct icalperiodtype this_event_period = icalperiodtype_null_period(); icaltimetype dtstart; icaltimetype dtend; /* recur variables */ icalproperty *rrule = NULL; struct icalrecurrencetype recur; icalrecur_iterator *ritr = NULL; struct icaldurationtype dur; int num_recur = 0; if (!top_level_cal) return; /* Find the VEVENT component containing an event */ cal = icalcomponent_get_first_component(top_level_cal, ICAL_VEVENT_COMPONENT); if (!cal) return; /* If this event is not opaque, the user isn't publishing it as * busy time, so don't bother doing anything else. */ p = icalcomponent_get_first_property(cal, ICAL_TRANSP_PROPERTY); if (p != NULL) { v = icalproperty_get_value(p); if (v != NULL) { if (icalvalue_get_transp(v) != ICAL_TRANSP_OPAQUE) { return; } } } /* * Now begin calculating the event start and end times. */ p = icalcomponent_get_first_property(cal, ICAL_DTSTART_PROPERTY); if (!p) return; dtstart = icalproperty_get_dtstart(p); if (icaltime_is_utc(dtstart)) { dtstart.zone = icaltimezone_get_utc_timezone(); } else { dtstart.zone = icalcomponent_get_timezone(top_level_cal, icalparameter_get_tzid( icalproperty_get_first_parameter(p, ICAL_TZID_PARAMETER) ) ); if (!dtstart.zone) { dtstart.zone = get_default_icaltimezone(); } } dtend = icalcomponent_get_dtend(cal); if (!icaltime_is_null_time(dtend)) { dur = icaltime_subtract(dtend, dtstart); } else { memset (&dur, 0, sizeof(struct icaldurationtype)); } /* Is a recurrence specified? If so, get ready to process it... */ rrule = ical_ctdl_get_subprop(cal, ICAL_RRULE_PROPERTY); if (rrule) { recur = icalproperty_get_rrule(rrule); ritr = icalrecur_iterator_new(recur, dtstart); } do { /* Convert the DTSTART and DTEND properties to an icalperiod. */ this_event_period.start = dtstart; if (!icaltime_is_null_time(dtend)) { this_event_period.end = dtend; } /* Convert the timestamps to UTC. It's ok to do this because we've already expanded * recurrences and this data is never going to get used again. */ this_event_period.start = icaltime_convert_to_zone( this_event_period.start, icaltimezone_get_utc_timezone() ); this_event_period.end = icaltime_convert_to_zone( this_event_period.end, icaltimezone_get_utc_timezone() ); /* Now add it. */ icalcomponent_add_property(fb, icalproperty_new_freebusy(this_event_period)); /* Make sure the DTSTART property of the freebusy *list* is set to * the DTSTART property of the *earliest event*. */ p = icalcomponent_get_first_property(fb, ICAL_DTSTART_PROPERTY); if (p == NULL) { icalcomponent_set_dtstart(fb, this_event_period.start); } else { if (icaltime_compare(this_event_period.start, icalcomponent_get_dtstart(fb)) < 0) { icalcomponent_set_dtstart(fb, this_event_period.start); } } /* Make sure the DTEND property of the freebusy *list* is set to * the DTEND property of the *latest event*. */ p = icalcomponent_get_first_property(fb, ICAL_DTEND_PROPERTY); if (p == NULL) { icalcomponent_set_dtend(fb, this_event_period.end); } else { if (icaltime_compare(this_event_period.end, icalcomponent_get_dtend(fb)) > 0) { icalcomponent_set_dtend(fb, this_event_period.end); } } if (rrule) { dtstart = icalrecur_iterator_next(ritr); if (!icaltime_is_null_time(dtend)) { dtend = icaltime_add(dtstart, dur); dtend.zone = dtstart.zone; dtend.is_utc = dtstart.is_utc; } ++num_recur; } } while ( (rrule) && (!icaltime_is_null_time(dtstart)) && (num_recur < MAX_RECUR) ) ; icalrecur_iterator_free(ritr); } /* * Backend for ical_freebusy() * * This function simply loads the messages in the user's calendar room, * which contain VEVENTs, then strips them of all non-freebusy data, and * adds them to the supplied VCALENDAR. * */ void ical_freebusy_backend(long msgnum, void *data) { icalcomponent *fb; struct CtdlMessage *msg = NULL; struct ical_respond_data ird; fb = (icalcomponent *)data; /* User-supplied data will be the VFREEBUSY component */ msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; memset(&ird, 0, sizeof ird); strcpy(ird.desired_partnum, "_HUNT_"); mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_part, /* callback function */ NULL, NULL, (void *) &ird, /* user data */ 0 ); CM_Free(msg); if (ird.cal) { ical_add_to_freebusy(fb, ird.cal); /* Add VEVENT times to VFREEBUSY */ icalcomponent_free(ird.cal); } } /* * Grab another user's free/busy times */ void ical_freebusy(char *who) { struct ctdluser usbuf; char calendar_room_name[ROOMNAMELEN]; char hold_rm[ROOMNAMELEN]; char *serialized_request = NULL; icalcomponent *encaps = NULL; icalcomponent *fb = NULL; int found_user = (-1); recptypes *recp = NULL; char buf[256]; char host[256]; char type[256]; int i = 0; int config_lines = 0; /* First try an exact match. */ found_user = CtdlGetUser(&usbuf, who); /* If not found, try it as an unqualified email address. */ if (found_user != 0) { strcpy(buf, who); recp = validate_recipients(buf, NULL, 0); syslog(LOG_DEBUG, "Trying <%s>\n", buf); if (recp != NULL) { if (recp->num_local == 1) { found_user = CtdlGetUser(&usbuf, recp->recp_local); } free_recipients(recp); } } /* If still not found, try it as an address qualified with the * primary FQDN of this Citadel node. */ if (found_user != 0) { snprintf(buf, sizeof buf, "%s@%s", who, CtdlGetConfigStr("c_fqdn")); syslog(LOG_DEBUG, "Trying <%s>\n", buf); recp = validate_recipients(buf, NULL, 0); if (recp != NULL) { if (recp->num_local == 1) { found_user = CtdlGetUser(&usbuf, recp->recp_local); } free_recipients(recp); } } /* Still not found? Try qualifying it with every domain we * might have addresses in. */ if (found_user != 0) { config_lines = num_tokens(inetcfg, '\n'); for (i=0; ((i < config_lines) && (found_user != 0)); ++i) { extract_token(buf, inetcfg, i, '\n', sizeof buf); extract_token(host, buf, 0, '|', sizeof host); extract_token(type, buf, 1, '|', sizeof type); if ( (!strcasecmp(type, "localhost")) || (!strcasecmp(type, "directory")) ) { snprintf(buf, sizeof buf, "%s@%s", who, host); syslog(LOG_DEBUG, "Trying <%s>\n", buf); recp = validate_recipients(buf, NULL, 0); if (recp != NULL) { if (recp->num_local == 1) { found_user = CtdlGetUser(&usbuf, recp->recp_local); } free_recipients(recp); } } } } if (found_user != 0) { cprintf("%d No such user.\n", ERROR + NO_SUCH_USER); return; } CtdlMailboxName(calendar_room_name, sizeof calendar_room_name, &usbuf, USERCALENDARROOM); strcpy(hold_rm, CC->room.QRname); /* save current room */ if (CtdlGetRoom(&CC->room, calendar_room_name) != 0) { cprintf("%d Cannot open calendar\n", ERROR + ROOM_NOT_FOUND); CtdlGetRoom(&CC->room, hold_rm); return; } /* Create a VFREEBUSY subcomponent */ syslog(LOG_DEBUG, "Creating VFREEBUSY component\n"); fb = icalcomponent_new_vfreebusy(); if (fb == NULL) { cprintf("%d Internal error: cannot allocate memory.\n", ERROR + INTERNAL_ERROR); CtdlGetRoom(&CC->room, hold_rm); return; } /* Set the method to PUBLISH */ icalcomponent_set_method(fb, ICAL_METHOD_PUBLISH); /* Set the DTSTAMP to right now. */ icalcomponent_set_dtstamp(fb, icaltime_from_timet(time(NULL), 0)); /* Add the user's email address as ORGANIZER */ sprintf(buf, "MAILTO:%s", who); if (strchr(buf, '@') == NULL) { strcat(buf, "@"); strcat(buf, CtdlGetConfigStr("c_fqdn")); } for (i=0; buf[i]; ++i) { if (buf[i]==' ') buf[i] = '_'; } icalcomponent_add_property(fb, icalproperty_new_organizer(buf)); /* Add busy time from events */ syslog(LOG_DEBUG, "Adding busy time from events\n"); CtdlForEachMessage(MSGS_ALL, 0, NULL, NULL, NULL, ical_freebusy_backend, (void *)fb ); /* If values for DTSTART and DTEND are still not present, set them * to yesterday and tomorrow as default values. */ if (icalcomponent_get_first_property(fb, ICAL_DTSTART_PROPERTY) == NULL) { icalcomponent_set_dtstart(fb, icaltime_from_timet(time(NULL)-86400L, 0)); } if (icalcomponent_get_first_property(fb, ICAL_DTEND_PROPERTY) == NULL) { icalcomponent_set_dtend(fb, icaltime_from_timet(time(NULL)+86400L, 0)); } /* Put the freebusy component into the calendar component */ syslog(LOG_DEBUG, "Encapsulating\n"); encaps = ical_encapsulate_subcomponent(fb); if (encaps == NULL) { icalcomponent_free(fb); cprintf("%d Internal error: cannot allocate memory.\n", ERROR + INTERNAL_ERROR); CtdlGetRoom(&CC->room, hold_rm); return; } /* Set the method to PUBLISH */ syslog(LOG_DEBUG, "Setting method\n"); icalcomponent_set_method(encaps, ICAL_METHOD_PUBLISH); /* Serialize it */ syslog(LOG_DEBUG, "Serializing\n"); serialized_request = icalcomponent_as_ical_string_r(encaps); icalcomponent_free(encaps); /* Don't need this anymore. */ cprintf("%d Free/busy for %s\n", LISTING_FOLLOWS, usbuf.fullname); if (serialized_request != NULL) { client_write(serialized_request, strlen(serialized_request)); free(serialized_request); } cprintf("\n000\n"); /* Go back to the room from which we came... */ CtdlGetRoom(&CC->room, hold_rm); } /* * Backend for ical_getics() * * This is a ForEachMessage() callback function that searches the current room * for calendar events and adds them each into one big calendar component. */ void ical_getics_backend(long msgnum, void *data) { icalcomponent *encaps, *c; struct CtdlMessage *msg = NULL; struct ical_respond_data ird; encaps = (icalcomponent *)data; if (encaps == NULL) return; /* Look for the calendar event... */ msg = CtdlFetchMessage(msgnum, 1, 1); if (msg == NULL) return; memset(&ird, 0, sizeof ird); strcpy(ird.desired_partnum, "_HUNT_"); mime_parser(CM_RANGE(msg, eMesageText), *ical_locate_part, /* callback function */ NULL, NULL, (void *) &ird, /* user data */ 0 ); CM_Free(msg); if (ird.cal == NULL) return; /* Here we go: put the VEVENT into the VCALENDAR. We now no longer * are responsible for "the_request"'s memory -- it will be freed * when we free "encaps". */ /* If the top-level component is *not* a VCALENDAR, we can drop it right * in. This will almost never happen. */ if (icalcomponent_isa(ird.cal) != ICAL_VCALENDAR_COMPONENT) { icalcomponent_add_component(encaps, ird.cal); } /* * In the more likely event that we're looking at a VCALENDAR with the VEVENT * and other components encapsulated inside, we have to extract them. */ else { for (c = icalcomponent_get_first_component(ird.cal, ICAL_ANY_COMPONENT); (c != NULL); c = icalcomponent_get_next_component(ird.cal, ICAL_ANY_COMPONENT)) { /* For VTIMEZONE components, suppress duplicates of the same tzid */ if (icalcomponent_isa(c) == ICAL_VTIMEZONE_COMPONENT) { icalproperty *p = icalcomponent_get_first_property(c, ICAL_TZID_PROPERTY); if (p) { const char *tzid = icalproperty_get_tzid(p); if (!icalcomponent_get_timezone(encaps, tzid)) { icalcomponent_add_component(encaps, icalcomponent_new_clone(c)); } } } /* All other types of components can go in verbatim */ else { icalcomponent_add_component(encaps, icalcomponent_new_clone(c)); } } icalcomponent_free(ird.cal); } } /* * Retrieve all of the calendar items in the current room, and output them * as a single icalendar object. */ void ical_getics(void) { icalcomponent *encaps = NULL; char *ser = NULL; if ( (CC->room.QRdefaultview != VIEW_CALENDAR) &&(CC->room.QRdefaultview != VIEW_TASKS) ) { cprintf("%d Not a calendar room\n", ERROR+NOT_HERE); return; /* Not an iCalendar-centric room */ } encaps = icalcomponent_new_vcalendar(); if (encaps == NULL) { syslog(LOG_ALERT, "ERROR: could not allocate component!\n"); cprintf("%d Could not allocate memory\n", ERROR+INTERNAL_ERROR); return; } cprintf("%d one big calendar\n", LISTING_FOLLOWS); /* Set the Product ID */ icalcomponent_add_property(encaps, icalproperty_new_prodid(PRODID)); /* Set the Version Number */ icalcomponent_add_property(encaps, icalproperty_new_version("2.0")); /* Set the method to PUBLISH */ icalcomponent_set_method(encaps, ICAL_METHOD_PUBLISH); /* Now go through the room encapsulating all calendar items. */ CtdlForEachMessage(MSGS_ALL, 0, NULL, NULL, NULL, ical_getics_backend, (void *) encaps ); ser = icalcomponent_as_ical_string_r(encaps); icalcomponent_free(encaps); /* Don't need this anymore. */ client_write(ser, strlen(ser)); free(ser); cprintf("\n000\n"); } /* * Helper callback function for ical_putics() to discover which TZID's we need. * Simply put the tzid name string into a hash table. After the callbacks are * done we'll go through them and attach the ones that we have. */ void ical_putics_grabtzids(icalparameter *param, void *data) { const char *tzid = icalparameter_get_tzid(param); HashList *keys = (HashList *) data; if ( (keys) && (tzid) && (!IsEmptyStr(tzid)) ) { Put(keys, tzid, strlen(tzid), strdup(tzid), NULL); } } /* * Delete all of the calendar items in the current room, and replace them * with calendar items from a client-supplied data stream. */ void ical_putics(void) { char *calstream = NULL; icalcomponent *cal; icalcomponent *c; icalcomponent *encaps = NULL; HashList *tzidlist = NULL; HashPos *HashPos; void *Value; const char *Key; long len; /* Only allow this operation if we're in a room containing a calendar or tasks view */ if ( (CC->room.QRdefaultview != VIEW_CALENDAR) &&(CC->room.QRdefaultview != VIEW_TASKS) ) { cprintf("%d Not a calendar room\n", ERROR+NOT_HERE); return; } /* Only allow this operation if we have permission to overwrite the existing calendar */ if (!CtdlDoIHavePermissionToDeleteMessagesFromThisRoom()) { cprintf("%d Permission denied.\n", ERROR+HIGHER_ACCESS_REQUIRED); return; } cprintf("%d Transmit data now\n", SEND_LISTING); calstream = CtdlReadMessageBody(HKEY("000"), CtdlGetConfigLong("c_maxmsglen"), NULL, 0, 0); if (calstream == NULL) { return; } cal = icalcomponent_new_from_string(calstream); free(calstream); /* We got our data stream -- now do something with it. */ /* Delete the existing messages in the room, because we are overwriting * the entire calendar with an entire new (or updated) calendar. * (Careful: this opens an S_ROOMS critical section!) */ CtdlDeleteMessages(CC->room.QRname, NULL, 0, ""); /* If the top-level component is *not* a VCALENDAR, we can drop it right * in. This will almost never happen. */ if (icalcomponent_isa(cal) != ICAL_VCALENDAR_COMPONENT) { ical_write_to_cal(NULL, cal); } /* * In the more likely event that we're looking at a VCALENDAR with the VEVENT * and other components encapsulated inside, we have to extract them. */ else { for (c = icalcomponent_get_first_component(cal, ICAL_ANY_COMPONENT); (c != NULL); c = icalcomponent_get_next_component(cal, ICAL_ANY_COMPONENT)) { /* Non-VTIMEZONE components each get written as individual messages. * But we also need to attach the relevant VTIMEZONE components to them. */ if ( (icalcomponent_isa(c) != ICAL_VTIMEZONE_COMPONENT) && (encaps = icalcomponent_new_vcalendar()) ) { icalcomponent_add_property(encaps, icalproperty_new_prodid(PRODID)); icalcomponent_add_property(encaps, icalproperty_new_version("2.0")); icalcomponent_set_method(encaps, ICAL_METHOD_PUBLISH); /* Attach any needed timezones here */ tzidlist = NewHash(1, NULL); if (tzidlist) { icalcomponent_foreach_tzid(c, ical_putics_grabtzids, tzidlist); } HashPos = GetNewHashPos(tzidlist, 0); while (GetNextHashPos(tzidlist, HashPos, &len, &Key, &Value)) { syslog(LOG_DEBUG, "Attaching timezone '%s'\n", (char*) Value); icaltimezone *t = NULL; /* First look for a timezone attached to the original calendar */ t = icalcomponent_get_timezone(cal, Value); /* Try built-in tzdata if the right one wasn't attached */ if (!t) { t = icaltimezone_get_builtin_timezone(Value); } /* I've got a valid timezone to attach. */ if (t) { icalcomponent_add_component(encaps, icalcomponent_new_clone( icaltimezone_get_component(t) ) ); } } DeleteHashPos(&HashPos); DeleteHash(&tzidlist); /* Now attach the component itself (usually a VEVENT or VTODO) */ icalcomponent_add_component(encaps, icalcomponent_new_clone(c)); /* Write it to the message store */ ical_write_to_cal(NULL, encaps); icalcomponent_free(encaps); } } } icalcomponent_free(cal); } /* * All Citadel calendar commands from the client come through here. */ void cmd_ical(char *argbuf) { char subcmd[64]; long msgnum; char partnum[256]; char action[256]; char who[256]; extract_token(subcmd, argbuf, 0, '|', sizeof subcmd); /* Allow "test" and "freebusy" subcommands without logging in. */ if (!strcasecmp(subcmd, "test")) { cprintf("%d This server supports calendaring\n", CIT_OK); return; } if (!strcasecmp(subcmd, "freebusy")) { extract_token(who, argbuf, 1, '|', sizeof who); ical_freebusy(who); return; } if (!strcasecmp(subcmd, "sgi")) { CIT_ICAL->server_generated_invitations = (extract_int(argbuf, 1) ? 1 : 0) ; cprintf("%d %d\n", CIT_OK, CIT_ICAL->server_generated_invitations); return; } if (CtdlAccessCheck(ac_logged_in)) return; if (!strcasecmp(subcmd, "respond")) { msgnum = extract_long(argbuf, 1); extract_token(partnum, argbuf, 2, '|', sizeof partnum); extract_token(action, argbuf, 3, '|', sizeof action); ical_respond(msgnum, partnum, action); return; } if (!strcasecmp(subcmd, "handle_rsvp")) { msgnum = extract_long(argbuf, 1); extract_token(partnum, argbuf, 2, '|', sizeof partnum); extract_token(action, argbuf, 3, '|', sizeof action); ical_handle_rsvp(msgnum, partnum, action); return; } if (!strcasecmp(subcmd, "conflicts")) { msgnum = extract_long(argbuf, 1); extract_token(partnum, argbuf, 2, '|', sizeof partnum); ical_conflicts(msgnum, partnum); return; } if (!strcasecmp(subcmd, "getics")) { ical_getics(); return; } if (!strcasecmp(subcmd, "putics")) { ical_putics(); return; } cprintf("%d Invalid subcommand\n", ERROR + CMD_NOT_SUPPORTED); } /* * We don't know if the calendar room exists so we just create it at login */ void ical_CtdlCreateRoom(void) { struct ctdlroom qr; visit vbuf; /* Create the calendar room if it doesn't already exist */ CtdlCreateRoom(USERCALENDARROOM, 4, "", 0, 1, 0, VIEW_CALENDAR); /* Set expiration policy to manual; otherwise objects will be lost! */ if (CtdlGetRoomLock(&qr, USERCALENDARROOM)) { syslog(LOG_CRIT, "Couldn't get the user calendar room!\n"); return; } qr.QRep.expire_mode = EXPIRE_MANUAL; qr.QRdefaultview = VIEW_CALENDAR; /* 3 = calendar view */ CtdlPutRoomLock(&qr); /* Set the view to a calendar view */ CtdlGetRelationship(&vbuf, &CC->user, &qr); vbuf.v_view = VIEW_CALENDAR; CtdlSetRelationship(&vbuf, &CC->user, &qr); /* Create the tasks list room if it doesn't already exist */ CtdlCreateRoom(USERTASKSROOM, 4, "", 0, 1, 0, VIEW_TASKS); /* Set expiration policy to manual; otherwise objects will be lost! */ if (CtdlGetRoomLock(&qr, USERTASKSROOM)) { syslog(LOG_CRIT, "Couldn't get the user calendar room!\n"); return; } qr.QRep.expire_mode = EXPIRE_MANUAL; qr.QRdefaultview = VIEW_TASKS; CtdlPutRoomLock(&qr); /* Set the view to a task list view */ CtdlGetRelationship(&vbuf, &CC->user, &qr); vbuf.v_view = VIEW_TASKS; CtdlSetRelationship(&vbuf, &CC->user, &qr); /* Create the notes room if it doesn't already exist */ CtdlCreateRoom(USERNOTESROOM, 4, "", 0, 1, 0, VIEW_NOTES); /* Set expiration policy to manual; otherwise objects will be lost! */ if (CtdlGetRoomLock(&qr, USERNOTESROOM)) { syslog(LOG_CRIT, "Couldn't get the user calendar room!\n"); return; } qr.QRep.expire_mode = EXPIRE_MANUAL; qr.QRdefaultview = VIEW_NOTES; CtdlPutRoomLock(&qr); /* Set the view to a notes view */ CtdlGetRelationship(&vbuf, &CC->user, &qr); vbuf.v_view = VIEW_NOTES; CtdlSetRelationship(&vbuf, &CC->user, &qr); return; } /* * ical_send_out_invitations() is called by ical_saving_vevent() when it finds a VEVENT. * * top_level_cal is the highest available level calendar object. * cal is the subcomponent containing the VEVENT. * * Note: if you change the encapsulation code here, change it in WebCit's ical_encapsulate_subcomponent() */ void ical_send_out_invitations(icalcomponent *top_level_cal, icalcomponent *cal) { icalcomponent *the_request = NULL; char *serialized_request = NULL; icalcomponent *encaps = NULL; char *request_message_text = NULL; struct CtdlMessage *msg = NULL; recptypes *valid = NULL; char attendees_string[SIZ]; int num_attendees = 0; char this_attendee[256]; icalproperty *attendee = NULL; char summary_string[SIZ]; icalproperty *summary = NULL; size_t reqsize; icalproperty *p; struct icaltimetype t; const icaltimezone *attached_zones[5] = { NULL, NULL, NULL, NULL, NULL }; int i; const icaltimezone *z; int num_zones_attached = 0; int zone_already_attached; icalparameter *tzidp = NULL; const char *tzidc = NULL; if (cal == NULL) { syslog(LOG_ERR, "ERROR: trying to reply to NULL event?\n"); return; } /* If this is a VCALENDAR component, look for a VEVENT subcomponent. */ if (icalcomponent_isa(cal) == ICAL_VCALENDAR_COMPONENT) { ical_send_out_invitations(top_level_cal, icalcomponent_get_first_component( cal, ICAL_VEVENT_COMPONENT ) ); return; } /* Clone the event */ the_request = icalcomponent_new_clone(cal); if (the_request == NULL) { syslog(LOG_ERR, "ERROR: cannot clone calendar object\n"); return; } /* Extract the summary string -- we'll use it as the * message subject for the request */ strcpy(summary_string, "Meeting request"); summary = icalcomponent_get_first_property(the_request, ICAL_SUMMARY_PROPERTY); if (summary != NULL) { if (icalproperty_get_summary(summary)) { strcpy(summary_string, icalproperty_get_summary(summary) ); } } /* Determine who the recipients of this message are (the attendees) */ strcpy(attendees_string, ""); for (attendee = icalcomponent_get_first_property(the_request, ICAL_ATTENDEE_PROPERTY); attendee != NULL; attendee = icalcomponent_get_next_property(the_request, ICAL_ATTENDEE_PROPERTY)) { const char *ch = icalproperty_get_attendee(attendee); if ((ch != NULL) && !strncasecmp(ch, "MAILTO:", 7)) { safestrncpy(this_attendee, ch + 7, sizeof(this_attendee)); if (!CtdlIsMe(this_attendee, sizeof this_attendee)) { /* don't send an invitation to myself! */ snprintf(&attendees_string[strlen(attendees_string)], sizeof(attendees_string) - strlen(attendees_string), "%s, ", this_attendee ); ++num_attendees; } } } syslog(LOG_DEBUG, "<%d> attendees: <%s>\n", num_attendees, attendees_string); /* If there are no attendees, there are no invitations to send, so... * don't bother putting one together! Punch out, Maverick! */ if (num_attendees == 0) { icalcomponent_free(the_request); return; } /* Encapsulate the VEVENT component into a complete VCALENDAR */ encaps = icalcomponent_new_vcalendar(); if (encaps == NULL) { syslog(LOG_ALERT, "ERROR: could not allocate component!\n"); icalcomponent_free(the_request); return; } /* Set the Product ID */ icalcomponent_add_property(encaps, icalproperty_new_prodid(PRODID)); /* Set the Version Number */ icalcomponent_add_property(encaps, icalproperty_new_version("2.0")); /* Set the method to REQUEST */ icalcomponent_set_method(encaps, ICAL_METHOD_REQUEST); /* Look for properties containing timezone parameters, to see if we need to attach VTIMEZONEs */ for (p = icalcomponent_get_first_property(the_request, ICAL_ANY_PROPERTY); p != NULL; p = icalcomponent_get_next_property(the_request, ICAL_ANY_PROPERTY)) { if ( (icalproperty_isa(p) == ICAL_COMPLETED_PROPERTY) || (icalproperty_isa(p) == ICAL_CREATED_PROPERTY) || (icalproperty_isa(p) == ICAL_DATEMAX_PROPERTY) || (icalproperty_isa(p) == ICAL_DATEMIN_PROPERTY) || (icalproperty_isa(p) == ICAL_DTEND_PROPERTY) || (icalproperty_isa(p) == ICAL_DTSTAMP_PROPERTY) || (icalproperty_isa(p) == ICAL_DTSTART_PROPERTY) || (icalproperty_isa(p) == ICAL_DUE_PROPERTY) || (icalproperty_isa(p) == ICAL_EXDATE_PROPERTY) || (icalproperty_isa(p) == ICAL_LASTMODIFIED_PROPERTY) || (icalproperty_isa(p) == ICAL_MAXDATE_PROPERTY) || (icalproperty_isa(p) == ICAL_MINDATE_PROPERTY) || (icalproperty_isa(p) == ICAL_RECURRENCEID_PROPERTY) ) { t = icalproperty_get_dtstart(p); // it's safe to use dtstart for all of them /* Determine the tzid in order for some of the conditions below to work */ tzidp = icalproperty_get_first_parameter(p, ICAL_TZID_PARAMETER); if (tzidp) { tzidc = icalparameter_get_tzid(tzidp); } else { tzidc = NULL; } /* First see if there's a timezone attached to the data structure itself */ if (icaltime_is_utc(t)) { z = icaltimezone_get_utc_timezone(); } else { z = icaltime_get_timezone(t); } /* If not, try to determine the tzid from the parameter using attached zones */ if ((!z) && (tzidc)) { z = icalcomponent_get_timezone(top_level_cal, tzidc); } /* Still no good? Try our internal database */ if ((!z) && (tzidc)) { z = icaltimezone_get_builtin_timezone_from_tzid(tzidc); } if (z) { /* We have a valid timezone. Good. Now we need to attach it. */ zone_already_attached = 0; for (i=0; i<5; ++i) { if (z == attached_zones[i]) { /* We've already got this one, no need to attach another. */ ++zone_already_attached; } } if ((!zone_already_attached) && (num_zones_attached < 5)) { /* This is a new one, so attach it. */ attached_zones[num_zones_attached++] = z; } icalproperty_set_parameter(p, icalparameter_new_tzid(icaltimezone_get_tzid(z)) ); } } } /* Encapsulate any timezones we need */ if (num_zones_attached > 0) for (i=0; iuser, NULL, /* No single recipient here */ NULL, /* No single recipient here */ CC->room.QRname, 0, FMT_RFC822, NULL, NULL, summary_string, /* Use summary for subject */ NULL, request_message_text, NULL ); if (msg != NULL) { valid = validate_recipients(attendees_string, NULL, 0); CtdlSubmitMsg(msg, valid, "", QP_EADDR); CM_Free(msg); free_recipients(valid); } } free(serialized_request); } /* * When a calendar object is being saved, determine whether it's a VEVENT * and the user saving it is the organizer. If so, send out invitations * to any listed attendees. * * This function is recursive. The caller can simply supply the same object * as both arguments. When it recurses it will alter the second argument * while holding on to the top level object. This allows us to go back and * grab things like time zones which might be attached. * */ void ical_saving_vevent(icalcomponent *top_level_cal, icalcomponent *cal) { icalcomponent *c; icalproperty *organizer = NULL; char organizer_string[SIZ]; syslog(LOG_DEBUG, "ical_saving_vevent() has been called!\n"); /* Don't send out invitations unless the client wants us to. */ if (CIT_ICAL->server_generated_invitations == 0) { return; } /* Don't send out invitations if we've been asked not to. */ if (CIT_ICAL->avoid_sending_invitations > 0) { return; } strcpy(organizer_string, ""); /* * The VEVENT subcomponent is the one we're interested in. * Send out invitations if, and only if, this user is the Organizer. */ if (icalcomponent_isa(cal) == ICAL_VEVENT_COMPONENT) { organizer = icalcomponent_get_first_property(cal, ICAL_ORGANIZER_PROPERTY); if (organizer != NULL) { if (icalproperty_get_organizer(organizer)) { strcpy(organizer_string, icalproperty_get_organizer(organizer)); } } if (!strncasecmp(organizer_string, "MAILTO:", 7)) { strcpy(organizer_string, &organizer_string[7]); striplt(organizer_string); /* * If the user saving the event is listed as the * organizer, then send out invitations. */ if (CtdlIsMe(organizer_string, sizeof organizer_string)) { ical_send_out_invitations(top_level_cal, cal); } } } /* If the component has subcomponents, recurse through them. */ for (c = icalcomponent_get_first_component(cal, ICAL_ANY_COMPONENT); (c != NULL); c = icalcomponent_get_next_component(cal, ICAL_ANY_COMPONENT)) { /* Recursively process subcomponent */ ical_saving_vevent(top_level_cal, c); } } /* * Back end for ical_obj_beforesave() * This hunts for the UID of the calendar event (becomes Citadel msg EUID), * the summary of the event (becomes message subject), * and the start time (becomes message date/time). */ void ical_obj_beforesave_backend(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { const char* pch; icalcomponent *cal, *nested_event, *nested_todo, *whole_cal; icalproperty *p; char new_uid[256] = ""; struct CtdlMessage *msg = (struct CtdlMessage *) cbuserdata; if (!msg) return; /* We're only interested in calendar data. */ if ( (strcasecmp(cbtype, "text/calendar")) && (strcasecmp(cbtype, "application/ics")) ) { return; } /* Hunt for the UID and drop it in * the "user data" pointer for the MIME parser. When * ical_obj_beforesave() sees it there, it'll set the Exclusive msgid * to that string. */ whole_cal = icalcomponent_new_from_string(content); cal = whole_cal; if (cal != NULL) { if (icalcomponent_isa(cal) == ICAL_VCALENDAR_COMPONENT) { nested_event = icalcomponent_get_first_component( cal, ICAL_VEVENT_COMPONENT); if (nested_event != NULL) { cal = nested_event; } else { nested_todo = icalcomponent_get_first_component( cal, ICAL_VTODO_COMPONENT); if (nested_todo != NULL) { cal = nested_todo; } } } if (cal != NULL) { /* Set the message EUID to the iCalendar UID */ p = ical_ctdl_get_subprop(cal, ICAL_UID_PROPERTY); if (p == NULL) { /* If there's no uid we must generate one */ generate_uuid(new_uid); icalcomponent_add_property(cal, icalproperty_new_uid(new_uid)); p = ical_ctdl_get_subprop(cal, ICAL_UID_PROPERTY); } if (p != NULL) { pch = icalproperty_get_comment(p); if (!IsEmptyStr(pch)) { CM_SetField(msg, eExclusiveID, pch, strlen(pch)); syslog(LOG_DEBUG, "Saving calendar UID <%s>\n", pch); } } /* Set the message subject to the iCalendar summary */ p = ical_ctdl_get_subprop(cal, ICAL_SUMMARY_PROPERTY); if (p != NULL) { pch = icalproperty_get_comment(p); if (!IsEmptyStr(pch)) { char *subj; subj = rfc2047encode(pch, strlen(pch)); CM_SetAsField(msg, eMsgSubject, &subj, strlen(subj)); } } /* Set the message date/time to the iCalendar start time */ p = ical_ctdl_get_subprop(cal, ICAL_DTSTART_PROPERTY); if (p != NULL) { time_t idtstart; idtstart = icaltime_as_timet(icalproperty_get_dtstart(p)); if (idtstart > 0) { CM_SetFieldLONG(msg, eTimestamp, idtstart); } } } icalcomponent_free(cal); if (whole_cal != cal) { icalcomponent_free(whole_cal); } } } /* * See if we need to prevent the object from being saved (we don't allow * MIME types other than text/calendar in "calendar" or "tasks" rooms). * * If the message is being saved, we also set various message header fields * using data found in the iCalendar object. */ int ical_obj_beforesave(struct CtdlMessage *msg, recptypes *recp) { /* First determine if this is a calendar or tasks room */ if ( (CC->room.QRdefaultview != VIEW_CALENDAR) && (CC->room.QRdefaultview != VIEW_TASKS) ) { return(0); /* Not an iCalendar-centric room */ } /* It must be an RFC822 message! */ if (msg->cm_format_type != 4) { syslog(LOG_DEBUG, "Rejecting non-RFC822 message\n"); return(1); /* You tried to save a non-RFC822 message! */ } if (CM_IsEmpty(msg, eMesageText)) { return(1); /* You tried to save a null message! */ } /* Do all of our lovely back-end parsing */ mime_parser(CM_RANGE(msg, eMesageText), *ical_obj_beforesave_backend, NULL, NULL, (void *)msg, 0 ); return(0); } /* * Things we need to do after saving a calendar event. */ void ical_obj_aftersave_backend(char *name, char *filename, char *partnum, char *disp, void *content, char *cbtype, char *cbcharset, size_t length, char *encoding, char *cbid, void *cbuserdata) { icalcomponent *cal; /* We're only interested in calendar items here. */ if ( (strcasecmp(cbtype, "text/calendar")) && (strcasecmp(cbtype, "application/ics")) ) { return; } /* Hunt for the UID and drop it in * the "user data" pointer for the MIME parser. When * ical_obj_beforesave() sees it there, it'll set the Exclusive msgid * to that string. */ if ( (!strcasecmp(cbtype, "text/calendar")) || (!strcasecmp(cbtype, "application/ics")) ) { cal = icalcomponent_new_from_string(content); if (cal != NULL) { ical_saving_vevent(cal, cal); icalcomponent_free(cal); } } } /* * Things we need to do after saving a calendar event. * (This will start back end tasks such as automatic generation of invitations, * if such actions are appropriate.) */ int ical_obj_aftersave(struct CtdlMessage *msg, recptypes *recp) { char roomname[ROOMNAMELEN]; /* * If this isn't the Calendar> room, no further action is necessary. */ /* First determine if this is our room */ CtdlMailboxName(roomname, sizeof roomname, &CC->user, USERCALENDARROOM); if (strcasecmp(roomname, CC->room.QRname)) { return(0); /* Not the Calendar room -- don't do anything. */ } /* It must be an RFC822 message! */ if (msg->cm_format_type != 4) return(1); /* Reject null messages */ if (CM_IsEmpty(msg, eMesageText)) return(1); /* Now recurse through it looking for our icalendar data */ mime_parser(CM_RANGE(msg, eMesageText), *ical_obj_aftersave_backend, NULL, NULL, NULL, 0 ); return(0); } void ical_session_startup(void) { CIT_ICAL = malloc(sizeof(struct cit_ical)); memset(CIT_ICAL, 0, sizeof(struct cit_ical)); } void ical_session_shutdown(void) { free(CIT_ICAL); } /* * Back end for ical_fixed_output() */ void ical_fixed_output_backend(icalcomponent *cal, int recursion_level ) { icalcomponent *c; icalproperty *p; char buf[256]; const char *ch; p = icalcomponent_get_first_property(cal, ICAL_SUMMARY_PROPERTY); if (p != NULL) { cprintf("%s\n", (const char *)icalproperty_get_comment(p)); } p = icalcomponent_get_first_property(cal, ICAL_LOCATION_PROPERTY); if (p != NULL) { cprintf("%s\n", (const char *)icalproperty_get_comment(p)); } p = icalcomponent_get_first_property(cal, ICAL_DESCRIPTION_PROPERTY); if (p != NULL) { cprintf("%s\n", (const char *)icalproperty_get_comment(p)); } /* If the component has attendees, iterate through them. */ for (p = icalcomponent_get_first_property(cal, ICAL_ATTENDEE_PROPERTY); (p != NULL); p = icalcomponent_get_next_property(cal, ICAL_ATTENDEE_PROPERTY)) { ch = icalproperty_get_attendee(p); if ((ch != NULL) && !strncasecmp(ch, "MAILTO:", 7)) { /* screen name or email address */ safestrncpy(buf, ch + 7, sizeof(buf)); striplt(buf); cprintf("%s ", buf); } cprintf("\n"); } /* If the component has subcomponents, recurse through them. */ for (c = icalcomponent_get_first_component(cal, ICAL_ANY_COMPONENT); (c != 0); c = icalcomponent_get_next_component(cal, ICAL_ANY_COMPONENT)) { /* Recursively process subcomponent */ ical_fixed_output_backend(c, recursion_level+1); } } /* * Function to output iCalendar data as plain text. Nobody uses MSG0 * anymore, so really this is just so we expose the vCard data to the full * text indexer. */ void ical_fixed_output(char *ptr, int len) { icalcomponent *cal; char *stringy_cal; stringy_cal = malloc(len + 1); safestrncpy(stringy_cal, ptr, len + 1); cal = icalcomponent_new_from_string(stringy_cal); free(stringy_cal); if (cal == NULL) { return; } ical_fixed_output_backend(cal, 0); /* Free the memory we obtained from libical's constructor */ icalcomponent_free(cal); } void serv_calendar_destroy(void) { icaltimezone_free_builtin_timezones(); } /* * Register this module with the Citadel server. */ CTDL_MODULE_INIT(calendar) { if (!threading) { /* Tell libical to return errors instead of aborting if it gets bad data */ icalerror_errors_are_fatal = 0; /* Use our own application prefix in tzid's generated from system tzdata */ icaltimezone_set_tzid_prefix("/citadel.org/"); /* Initialize our hook functions */ CtdlRegisterMessageHook(ical_obj_beforesave, EVT_BEFORESAVE); CtdlRegisterMessageHook(ical_obj_aftersave, EVT_AFTERSAVE); CtdlRegisterSessionHook(ical_CtdlCreateRoom, EVT_LOGIN, PRIO_LOGIN + 1); CtdlRegisterProtoHook(cmd_ical, "ICAL", "Citadel iCal commands"); CtdlRegisterSessionHook(ical_session_startup, EVT_START, PRIO_START + 1); CtdlRegisterSessionHook(ical_session_shutdown, EVT_STOP, PRIO_STOP + 80); CtdlRegisterFixedOutputHook("text/calendar", ical_fixed_output); CtdlRegisterFixedOutputHook("application/ics", ical_fixed_output); CtdlRegisterCleanupHook(serv_calendar_destroy); } /* return our module name for the log */ return "calendar"; } citadel-902/modules/calendar/serv_calendar.h000066400000000000000000000020011271512031400211620ustar00rootroot00000000000000/* * iCalendar implementation for Citadel * * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ /* * "server_generated_invitations" tells the Citadel server that the * client wants invitations to be generated and sent out by the * server. Set to 1 to enable this functionality. * * "avoid_sending_invitations" is a server-internal variable. It is * set internally during certain transactions and cleared * automatically. */ struct cit_ical { int server_generated_invitations; int avoid_sending_invitations; }; #define CIT_ICAL CC->CIT_ICAL #define MAX_RECUR 1000 citadel-902/modules/checkpoint/000077500000000000000000000000001271512031400165665ustar00rootroot00000000000000citadel-902/modules/checkpoint/serv_checkpoint.c000066400000000000000000000020421271512031400221160ustar00rootroot00000000000000/* * checkpointing module for the database * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or * modify it under the terms of the GNU General Public License, version 3. * * 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. */ #include "sysdep.h" #include #include #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "msgbase.h" #include "sysdep_decls.h" #include "config.h" #include "threads.h" #include "ctdl_module.h" #include "context.h" CTDL_MODULE_INIT(checkpoint) { if (threading) { CtdlRegisterSessionHook(cdb_checkpoint, EVT_TIMER, PRIO_CLEANUP + 10); } /* return our module name for the log */ return "checkpoint"; } citadel-902/modules/clamav/000077500000000000000000000000001271512031400157025ustar00rootroot00000000000000citadel-902/modules/clamav/serv_virus.c000066400000000000000000000117371271512031400202660ustar00rootroot00000000000000/* * This module allows Citadel to use clamd to filter incoming messages * arriving via SMTP. For more information on clamd, visit * http://clamav.net (the ClamAV project is not in any way * affiliated with the Citadel project). * * Copyright (c) 1987-2012 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * * * 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. * * * * */ #define CLAMD_PORT "3310" #include "sysdep.h" #include #include #include #include #include #include #include #include #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #include #include #include #include #include #include "citadel.h" #include "server.h" #include "citserver.h" #include "support.h" #include "config.h" #include "control.h" #include "user_ops.h" #include "database.h" #include "msgbase.h" #include "internet_addressing.h" #include "domain.h" #include "clientsocket.h" #include "ctdl_module.h" /* * Connect to the clamd server and scan a message. */ int clamd(struct CtdlMessage *msg, recptypes *recp) { int sock = (-1); int streamsock = (-1); char clamhosts[SIZ]; int num_clamhosts; char buf[SIZ]; char hostbuf[SIZ]; char portbuf[SIZ]; int is_virus = 0; int clamhost; StrBuf *msgtext; CitContext *CCC; /* Don't care if you're logged in. You can still spread viruses. */ /* if (CC->logged_in) return(0); */ /* See if we have any clamd hosts configured */ num_clamhosts = get_hosts(clamhosts, "clamav"); if (num_clamhosts < 1) return(0); /* Try them one by one until we get a working one */ for (clamhost=0; clamhost\n", buf); /* Assuming a host:port entry */ extract_token(hostbuf, buf, 0, ':', sizeof hostbuf); if (extract_token(portbuf, buf, 1, ':', sizeof portbuf)==-1) /* Didn't specify a port so we'll try the psuedo-standard 3310 */ sock = sock_connect(hostbuf, CLAMD_PORT); else /* Port specified lets try connecting to it! */ sock = sock_connect(hostbuf, portbuf); if (sock >= 0) syslog(LOG_DEBUG, "Connected!\n"); } if (sock < 0) { /* If the service isn't running, just pass the mail * through. Potentially throwing away mails isn't good. */ return(0); } CCC=CC; CCC->SBuf.Buf = NewStrBuf(); CCC->sMigrateBuf = NewStrBuf(); CCC->SBuf.ReadWritePointer = NULL; /* Command */ syslog(LOG_DEBUG, "Transmitting STREAM command\n"); sprintf(buf, "STREAM\r\n"); sock_write(&sock, buf, strlen(buf)); syslog(LOG_DEBUG, "Waiting for PORT number\n"); if (sock_getln(&sock, buf, sizeof buf) < 0) { goto bail; } syslog(LOG_DEBUG, "<%s\n", buf); if (strncasecmp(buf, "PORT", 4)!=0) { goto bail; } /* Should have received a port number to connect to */ extract_token(portbuf, buf, 1, ' ', sizeof portbuf); /* Attempt to establish connection to STREAM socket */ streamsock = sock_connect(hostbuf, portbuf); if (streamsock < 0) { /* If the service isn't running, just pass the mail * through. Potentially throwing away mails isn't good. */ FreeStrBuf(&CCC->SBuf.Buf); FreeStrBuf(&CCC->sMigrateBuf); return(0); } else { syslog(LOG_DEBUG, "STREAM socket connected!\n"); } /* Message */ CC->redirect_buffer = NewStrBufPlain(NULL, SIZ); CtdlOutputPreLoadedMsg(msg, MT_RFC822, HEADERS_ALL, 0, 1, 0); msgtext = CC->redirect_buffer; CC->redirect_buffer = NULL; sock_write(&streamsock, SKEY(msgtext)); FreeStrBuf(&msgtext); /* Close the streamsocket connection; this tells clamd * that we're done. */ if (streamsock != -1) close(streamsock); /* Response */ syslog(LOG_DEBUG, "Awaiting response\n"); if (sock_getln(&sock, buf, sizeof buf) < 0) { goto bail; } syslog(LOG_DEBUG, "<%s\n", buf); if (strncasecmp(buf, "stream: OK", 10)!=0) { is_virus = 1; } if (is_virus) { CM_SetField(msg, eErrorMsg, HKEY("message rejected by virus filter")); } bail: close(sock); FreeStrBuf(&CCC->SBuf.Buf); FreeStrBuf(&CCC->sMigrateBuf); return(is_virus); } CTDL_MODULE_INIT(virus) { if (!threading) { CtdlRegisterMessageHook(clamd, EVT_SMTPSCAN); } /* return our module name for the log */ return "virus"; } citadel-902/modules/crypto/000077500000000000000000000000001271512031400157575ustar00rootroot00000000000000citadel-902/modules/crypto/serv_crypto.c000066400000000000000000000430511271512031400205050ustar00rootroot00000000000000/* * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License version 3. * * 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. */ #include #include #include #include #include "sysdep.h" #ifdef HAVE_OPENSSL #include #include #include #endif #if TIME_WITH_SYS_TIME # include # include #else # if HAVE_SYS_TIME_H # include # else # include # endif #endif #ifdef HAVE_PTHREAD_H #include #endif #ifdef HAVE_SYS_SELECT_H #include #endif #include #include #include "server.h" #include "serv_crypto.h" #include "sysdep_decls.h" #include "citadel.h" #include "config.h" #include "ctdl_module.h" /* TODO: should we use the standard module init stuff to start this? */ /* TODO: should we register an event handler to call destruct_ssl? */ #ifdef HAVE_OPENSSL SSL_CTX *ssl_ctx; /* SSL context */ pthread_mutex_t **SSLCritters; /* Things needing locking */ static unsigned long id_callback(void) { return (unsigned long) pthread_self(); } void destruct_ssl(void) { int a; for (a = 0; a < CRYPTO_num_locks(); a++) free(SSLCritters[a]); free (SSLCritters); } void init_ssl(void) { const SSL_METHOD *ssl_method; DH *dh; RSA *rsa=NULL; X509_REQ *req = NULL; X509 *cer = NULL; EVP_PKEY *pk = NULL; EVP_PKEY *req_pkey = NULL; X509_NAME *name = NULL; FILE *fp; if (!access(EGD_POOL, F_OK)) RAND_egd(EGD_POOL); if (!RAND_status()) { syslog(LOG_CRIT, "PRNG not adequately seeded, won't do SSL/TLS"); return; } SSLCritters = malloc(CRYPTO_num_locks() * sizeof(pthread_mutex_t *)); if (!SSLCritters) { syslog(LOG_EMERG, "citserver: can't allocate memory!!"); /* Nothing's been initialized, just die */ exit(1); } else { int a; for (a = 0; a < CRYPTO_num_locks(); a++) { SSLCritters[a] = malloc(sizeof(pthread_mutex_t)); if (!SSLCritters[a]) { syslog(LOG_EMERG, "citserver: can't allocate memory!!"); /* Nothing's been initialized, just die */ exit(1); } pthread_mutex_init(SSLCritters[a], NULL); } } /* * Initialize SSL transport layer */ SSL_library_init(); SSL_load_error_strings(); ssl_method = SSLv23_server_method(); if (!(ssl_ctx = SSL_CTX_new(ssl_method))) { syslog(LOG_CRIT, "SSL_CTX_new failed: %s", ERR_reason_error_string(ERR_get_error())); return; } if (!(SSL_CTX_set_cipher_list(ssl_ctx, CIT_CIPHERS))) { syslog(LOG_CRIT, "SSL: No ciphers available"); SSL_CTX_free(ssl_ctx); ssl_ctx = NULL; return; } #if 0 #if SSLEAY_VERSION_NUMBER >= 0x00906000L SSL_CTX_set_mode(ssl_ctx, SSL_CTX_get_mode(ssl_ctx) | SSL_MODE_AUTO_RETRY); #endif #endif CRYPTO_set_locking_callback(ssl_lock); CRYPTO_set_id_callback(id_callback); /* Load DH parameters into the context */ dh = DH_new(); if (!dh) { syslog(LOG_CRIT, "init_ssl() can't allocate a DH object: %s", ERR_reason_error_string(ERR_get_error())); SSL_CTX_free(ssl_ctx); ssl_ctx = NULL; return; } if (!(BN_hex2bn(&(dh->p), DH_P))) { syslog(LOG_CRIT, "init_ssl() can't assign DH_P: %s", ERR_reason_error_string(ERR_get_error())); SSL_CTX_free(ssl_ctx); ssl_ctx = NULL; return; } if (!(BN_hex2bn(&(dh->g), DH_G))) { syslog(LOG_CRIT, "init_ssl() can't assign DH_G: %s", ERR_reason_error_string(ERR_get_error())); SSL_CTX_free(ssl_ctx); ssl_ctx = NULL; return; } dh->length = DH_L; SSL_CTX_set_tmp_dh(ssl_ctx, dh); DH_free(dh); /* Get our certificates in order. * First, create the key/cert directory if it's not there already... */ mkdir(ctdl_key_dir, 0700); /* * Generate a key pair if we don't have one. */ if (access(file_crpt_file_key, R_OK) != 0) { syslog(LOG_INFO, "Generating RSA key pair."); rsa = RSA_generate_key(1024, /* modulus size */ 65537, /* exponent */ NULL, /* no callback */ NULL); /* no callback */ if (rsa == NULL) { syslog(LOG_CRIT, "Key generation failed: %s", ERR_reason_error_string(ERR_get_error())); } if (rsa != NULL) { fp = fopen(file_crpt_file_key, "w"); if (fp != NULL) { chmod(file_crpt_file_key, 0600); if (PEM_write_RSAPrivateKey(fp, /* the file */ rsa, /* the key */ NULL, /* no enc */ NULL, /* no passphr */ 0, /* no passphr */ NULL, /* no callbk */ NULL /* no callbk */ ) != 1) { syslog(LOG_CRIT, "Cannot write key: %s", ERR_reason_error_string(ERR_get_error())); unlink(file_crpt_file_key); } fclose(fp); } RSA_free(rsa); } } /* * If there is no certificate file on disk, we will be generating a self-signed certificate * in the next step. Therefore, if we have neither a CSR nor a certificate, generate * the CSR in this step so that the next step may commence. */ if ( (access(file_crpt_file_cer, R_OK) != 0) && (access(file_crpt_file_csr, R_OK) != 0) ) { syslog(LOG_INFO, "Generating a generic certificate signing request."); /* * Read our key from the file. No, we don't just keep this * in memory from the above key-generation function, because * there is the possibility that the key was already on disk * and we didn't just generate it now. */ fp = fopen(file_crpt_file_key, "r"); if (fp) { rsa = PEM_read_RSAPrivateKey(fp, NULL, NULL, NULL); fclose(fp); } if (rsa) { /* Create a public key from the private key */ if (pk=EVP_PKEY_new(), pk != NULL) { EVP_PKEY_assign_RSA(pk, rsa); if (req = X509_REQ_new(), req != NULL) { /* Set the public key */ X509_REQ_set_pubkey(req, pk); X509_REQ_set_version(req, 0L); name = X509_REQ_get_subject_name(req); /* Tell it who we are */ X509_NAME_add_entry_by_txt(name, "C", MBSTRING_ASC, (unsigned const char *)"ZZ", -1, -1, 0); X509_NAME_add_entry_by_txt(name, "ST", MBSTRING_ASC, (unsigned const char *)"The World", -1, -1, 0); X509_NAME_add_entry_by_txt(name, "L", MBSTRING_ASC, (unsigned const char *)"My Location", -1, -1, 0); X509_NAME_add_entry_by_txt(name, "O", MBSTRING_ASC, (unsigned const char *)"Generic certificate", -1, -1, 0); X509_NAME_add_entry_by_txt(name, "OU", MBSTRING_ASC, (unsigned const char *)"Citadel server", -1, -1, 0); X509_NAME_add_entry_by_txt(name, "CN", MBSTRING_ASC, (unsigned const char *)"*", -1, -1, 0); X509_REQ_set_subject_name(req, name); /* Sign the CSR */ if (!X509_REQ_sign(req, pk, EVP_md5())) { syslog(LOG_CRIT, "X509_REQ_sign(): error"); } else { /* Write it to disk. */ fp = fopen(file_crpt_file_csr, "w"); if (fp != NULL) { chmod(file_crpt_file_csr, 0600); PEM_write_X509_REQ(fp, req); fclose(fp); } } X509_REQ_free(req); } } RSA_free(rsa); } else { syslog(LOG_CRIT, "Unable to read private key."); } } /* * Generate a self-signed certificate if we don't have one. */ if (access(file_crpt_file_cer, R_OK) != 0) { syslog(LOG_INFO, "Generating a generic self-signed certificate."); /* Same deal as before: always read the key from disk because * it may or may not have just been generated. */ fp = fopen(file_crpt_file_key, "r"); if (fp) { rsa = PEM_read_RSAPrivateKey(fp, NULL, NULL, NULL); fclose(fp); } /* This also holds true for the CSR. */ req = NULL; cer = NULL; pk = NULL; if (rsa) { if (pk=EVP_PKEY_new(), pk != NULL) { EVP_PKEY_assign_RSA(pk, rsa); } fp = fopen(file_crpt_file_csr, "r"); if (fp) { req = PEM_read_X509_REQ(fp, NULL, NULL, NULL); fclose(fp); } if (req) { if (cer = X509_new(), cer != NULL) { ASN1_INTEGER_set(X509_get_serialNumber(cer), 0); X509_set_issuer_name(cer, req->req_info->subject); X509_set_subject_name(cer, req->req_info->subject); X509_gmtime_adj(X509_get_notBefore(cer),0); X509_gmtime_adj(X509_get_notAfter(cer),(long)60*60*24*SIGN_DAYS); req_pkey = X509_REQ_get_pubkey(req); X509_set_pubkey(cer, req_pkey); EVP_PKEY_free(req_pkey); /* Sign the cert */ if (!X509_sign(cer, pk, EVP_md5())) { syslog(LOG_CRIT, "X509_sign(): error"); } else { /* Write it to disk. */ fp = fopen(file_crpt_file_cer, "w"); if (fp != NULL) { chmod(file_crpt_file_cer, 0600); PEM_write_X509(fp, cer); fclose(fp); } } X509_free(cer); } } RSA_free(rsa); } } /* * Now try to bind to the key and certificate. */ SSL_CTX_use_certificate_chain_file(ssl_ctx, file_crpt_file_cer); SSL_CTX_use_PrivateKey_file(ssl_ctx, file_crpt_file_key, SSL_FILETYPE_PEM); if ( !SSL_CTX_check_private_key(ssl_ctx) ) { syslog(LOG_CRIT, "Cannot install certificate: %s", ERR_reason_error_string(ERR_get_error())); } /* Finally let the server know we're here */ CtdlRegisterProtoHook(cmd_stls, "STLS", "Start SSL/TLS session"); CtdlRegisterProtoHook(cmd_gtls, "GTLS", "Get SSL/TLS session status"); CtdlRegisterSessionHook(endtls, EVT_STOP, PRIO_STOP + 10); } /* * client_write_ssl() Send binary data to the client encrypted. */ void client_write_ssl(const char *buf, int nbytes) { int retval; int nremain; char junk[1]; nremain = nbytes; while (nremain > 0) { if (SSL_want_write(CC->ssl)) { if ((SSL_read(CC->ssl, junk, 0)) < 1) { syslog(LOG_DEBUG, "SSL_read in client_write: %s", ERR_reason_error_string(ERR_get_error())); } } retval = SSL_write(CC->ssl, &buf[nbytes - nremain], nremain); if (retval < 1) { long errval; errval = SSL_get_error(CC->ssl, retval); if (errval == SSL_ERROR_WANT_READ || errval == SSL_ERROR_WANT_WRITE) { sleep(1); continue; } syslog(LOG_DEBUG, "SSL_write got error %ld, ret %d", errval, retval); if (retval == -1) syslog(LOG_DEBUG, "errno is %d", errno); endtls(); client_write(&buf[nbytes - nremain], nremain); return; } nremain -= retval; } } /* * read data from the encrypted layer. */ int client_read_sslbuffer(StrBuf *buf, int timeout) { char sbuf[16384]; /* OpenSSL communicates in 16k blocks, so let's speak its native tongue. */ int rlen; char junk[1]; SSL *pssl = CC->ssl; if (pssl == NULL) return(-1); while (1) { if (SSL_want_read(pssl)) { if ((SSL_write(pssl, junk, 0)) < 1) { syslog(LOG_DEBUG, "SSL_write in client_read"); } } rlen = SSL_read(pssl, sbuf, sizeof(sbuf)); if (rlen < 1) { long errval; errval = SSL_get_error(pssl, rlen); if (errval == SSL_ERROR_WANT_READ || errval == SSL_ERROR_WANT_WRITE) { sleep(1); continue; } syslog(LOG_DEBUG, "SSL_read got error %ld", errval); endtls(); return (-1); } StrBufAppendBufPlain(buf, sbuf, rlen, 0); return rlen; } return (0); } int client_readline_sslbuffer(StrBuf *Line, StrBuf *IOBuf, const char **Pos, int timeout) { CitContext *CCC = CC; const char *pos = NULL; const char *pLF; int len, rlen; int nSuccessLess = 0; const char *pch = NULL; if ((Line == NULL) || (Pos == NULL) || (IOBuf == NULL)) { if (Pos != NULL) *Pos = NULL; // *Error = ErrRBLF_PreConditionFailed; return -1; } pos = *Pos; if ((StrLength(IOBuf) > 0) && (pos != NULL) && (pos < ChrPtr(IOBuf) + StrLength(IOBuf))) { pch = pos; pch = strchr(pch, '\n'); if (pch == NULL) { StrBufAppendBufPlain(Line, pos, StrLength(IOBuf) - (pos - ChrPtr(IOBuf)), 0); FlushStrBuf(IOBuf); *Pos = NULL; } else { int n = 0; if ((pch > ChrPtr(IOBuf)) && (*(pch - 1) == '\r')) { n = 1; } StrBufAppendBufPlain(Line, pos, (pch - pos - n), 0); if (StrLength(IOBuf) <= (pch - ChrPtr(IOBuf) + 1)) { FlushStrBuf(IOBuf); *Pos = NULL; } else *Pos = pch + 1; return StrLength(Line); } } pLF = NULL; while ((nSuccessLess < timeout) && (pLF == NULL) && (CCC->ssl != NULL)) { rlen = client_read_sslbuffer(IOBuf, timeout); if (rlen < 1) { // *Error = strerror(errno); // close(*fd); // *fd = -1; return -1; } else if (rlen > 0) { pLF = strchr(ChrPtr(IOBuf), '\n'); } } *Pos = NULL; if (pLF != NULL) { pos = ChrPtr(IOBuf); len = pLF - pos; if (len > 0 && (*(pLF - 1) == '\r') ) len --; StrBufAppendBufPlain(Line, pos, len, 0); if (pLF + 1 >= ChrPtr(IOBuf) + StrLength(IOBuf)) { FlushStrBuf(IOBuf); } else *Pos = pLF + 1; return StrLength(Line); } // *Error = ErrRBLF_NotEnoughSentFromServer; return -1; } int client_read_sslblob(StrBuf *Target, long bytes, int timeout) { long baselen; long RemainRead; int retval = 0; CitContext *CCC = CC; baselen = StrLength(Target); if (StrLength(CCC->RecvBuf.Buf) > 0) { long RemainLen; long TotalLen; const char *pchs; if (CCC->RecvBuf.ReadWritePointer == NULL) CCC->RecvBuf.ReadWritePointer = ChrPtr(CCC->RecvBuf.Buf); pchs = ChrPtr(CCC->RecvBuf.Buf); TotalLen = StrLength(CCC->RecvBuf.Buf); RemainLen = TotalLen - (pchs - CCC->RecvBuf.ReadWritePointer); if (RemainLen > bytes) RemainLen = bytes; if (RemainLen > 0) { StrBufAppendBufPlain(Target, CCC->RecvBuf.ReadWritePointer, RemainLen, 0); CCC->RecvBuf.ReadWritePointer += RemainLen; } if ((ChrPtr(CCC->RecvBuf.Buf) + StrLength(CCC->RecvBuf.Buf)) <= CCC->RecvBuf.ReadWritePointer) { CCC->RecvBuf.ReadWritePointer = NULL; FlushStrBuf(CCC->RecvBuf.Buf); } } if (StrLength(Target) >= bytes + baselen) return 1; CCC->RecvBuf.ReadWritePointer = NULL; while ((StrLength(Target) < bytes + baselen) && (retval >= 0)) { retval = client_read_sslbuffer(CCC->RecvBuf.Buf, timeout); if (retval >= 0) { RemainRead = bytes - (StrLength (Target) - baselen); if (RemainRead < StrLength(CCC->RecvBuf.Buf)) { StrBufAppendBufPlain( Target, ChrPtr(CCC->RecvBuf.Buf), RemainRead, 0); CCC->RecvBuf.ReadWritePointer = ChrPtr(CCC->RecvBuf.Buf) + RemainRead; break; } StrBufAppendBuf(Target, CCC->RecvBuf.Buf, 0); /* todo: Buf > bytes? */ FlushStrBuf(CCC->RecvBuf.Buf); } else { FlushStrBuf(CCC->RecvBuf.Buf); return -1; } } return 1; } /* * CtdlStartTLS() starts SSL/TLS encryption for the current session. It * must be supplied with pre-generated strings for responses of "ok," "no * support for TLS," and "error" so that we can use this in any protocol. */ void CtdlStartTLS(char *ok_response, char *nosup_response, char *error_response) { int retval, bits, alg_bits; if (!ssl_ctx) { syslog(LOG_CRIT, "SSL failed: no ssl_ctx exists?"); if (nosup_response != NULL) cprintf("%s", nosup_response); return; } if (!(CC->ssl = SSL_new(ssl_ctx))) { syslog(LOG_CRIT, "SSL_new failed: %s", ERR_reason_error_string(ERR_get_error())); if (error_response != NULL) cprintf("%s", error_response); return; } if (!(SSL_set_fd(CC->ssl, CC->client_socket))) { syslog(LOG_CRIT, "SSL_set_fd failed: %s", ERR_reason_error_string(ERR_get_error())); SSL_free(CC->ssl); CC->ssl = NULL; if (error_response != NULL) cprintf("%s", error_response); return; } if (ok_response != NULL) cprintf("%s", ok_response); retval = SSL_accept(CC->ssl); if (retval < 1) { /* * Can't notify the client of an error here; they will * discover the problem at the SSL layer and should * revert to unencrypted communications. */ long errval; char error_string[128]; errval = SSL_get_error(CC->ssl, retval); syslog(LOG_CRIT, "SSL_accept failed: retval=%d, errval=%ld, err=%s", retval, errval, ERR_error_string(errval, error_string) ); SSL_free(CC->ssl); CC->ssl = NULL; return; } BIO_set_close(CC->ssl->rbio, BIO_NOCLOSE); bits = SSL_CIPHER_get_bits(SSL_get_current_cipher(CC->ssl), &alg_bits); syslog(LOG_INFO, "SSL/TLS using %s on %s (%d of %d bits)", SSL_CIPHER_get_name(SSL_get_current_cipher(CC->ssl)), SSL_CIPHER_get_version(SSL_get_current_cipher(CC->ssl)), bits, alg_bits); CC->redirect_ssl = 1; } /* * cmd_stls() starts SSL/TLS encryption for the current session */ void cmd_stls(char *params) { char ok_response[SIZ]; char nosup_response[SIZ]; char error_response[SIZ]; unbuffer_output(); sprintf(ok_response, "%d Begin TLS negotiation now\n", CIT_OK); sprintf(nosup_response, "%d TLS not supported here\n", ERROR + CMD_NOT_SUPPORTED); sprintf(error_response, "%d TLS negotiation error\n", ERROR + INTERNAL_ERROR); CtdlStartTLS(ok_response, nosup_response, error_response); } /* * cmd_gtls() returns status info about the TLS connection */ void cmd_gtls(char *params) { int bits, alg_bits; if (!CC->ssl || !CC->redirect_ssl) { cprintf("%d Session is not encrypted.\n", ERROR); return; } bits = SSL_CIPHER_get_bits(SSL_get_current_cipher(CC->ssl), &alg_bits); cprintf("%d %s|%s|%d|%d\n", CIT_OK, SSL_CIPHER_get_version(SSL_get_current_cipher(CC->ssl)), SSL_CIPHER_get_name(SSL_get_current_cipher(CC->ssl)), alg_bits, bits); } /* * endtls() shuts down the TLS connection * * WARNING: This may make your session vulnerable to a known plaintext * attack in the current implmentation. */ void endtls(void) { if (!CC->ssl) { CC->redirect_ssl = 0; return; } syslog(LOG_INFO, "Ending SSL/TLS"); SSL_shutdown(CC->ssl); SSL_free(CC->ssl); CC->ssl = NULL; CC->redirect_ssl = 0; } /* * ssl_lock() callback for OpenSSL mutex locks */ void ssl_lock(int mode, int n, const char *file, int line) { if (mode & CRYPTO_LOCK) pthread_mutex_lock(SSLCritters[n]); else pthread_mutex_unlock(SSLCritters[n]); } #endif /* HAVE_OPENSSL */ citadel-902/modules/crypto/serv_crypto.h000066400000000000000000000021511271512031400205060ustar00rootroot00000000000000 /* * Number of days for which self-signed certs are valid. */ #define SIGN_DAYS 3650 /* Ten years */ /* Shared Diffie-Hellman parameters */ #define DH_P "1A74527AEE4EE2568E85D4FB2E65E18C9394B9C80C42507D7A6A0DBE9A9A54B05A9A96800C34C7AA5297095B69C88901EEFD127F969DCA26A54C0E0B5C5473EBAEB00957D2633ECAE3835775425DE66C0DE6D024DBB17445E06E6B0C78415E589B8814F08531D02FD43778451E7685541079CFFB79EF0D26EFEEBBB69D1E80383" #define DH_G "2" #define DH_L 1024 #define CIT_CIPHERS "ALL:RC4+RSA:+SSLv2:+TLSv1:!MD5:@STRENGTH" /* see ciphers(1) */ #ifdef HAVE_OPENSSL void destruct_ssl(void); void init_ssl(void); void client_write_ssl (const char *buf, int nbytes); int client_read_sslbuffer(StrBuf *buf, int timeout); int client_readline_sslbuffer(StrBuf *Target, StrBuf *Buffer, const char **Pos, int timeout); int client_read_sslblob(StrBuf *Target, long want_len, int timeout); void cmd_stls(char *params); void cmd_gtls(char *params); void endtls(void); void ssl_lock(int mode, int n, const char *file, int line); void CtdlStartTLS(char *ok_response, char *nosup_response, char *error_response); extern SSL_CTX *ssl_ctx; #endif citadel-902/modules/ctdlproto/000077500000000000000000000000001271512031400164515ustar00rootroot00000000000000citadel-902/modules/ctdlproto/files.h000066400000000000000000000002441271512031400177240ustar00rootroot00000000000000#ifndef FILE_OPS_H #define FILE_OPS_H #include "context.h" void OpenCmdResult (char *, const char *); void abort_upl (CitContext *who); #endif /* FILE_OPS_H */ citadel-902/modules/ctdlproto/serv_ctdlproto.c000066400000000000000000000044141271512031400216710ustar00rootroot00000000000000/* * Citadel protocoll main dispatcher * * Copyright (c) 1987-2015 by the citadel.org team * * This program is open source software; you can redistribute it and/or modify * it under the terms of the GNU General Public License, version 3. * * 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. */ #include #include #include "citserver.h" #include "ctdl_module.h" #include "config.h" /* * This loop recognizes all server commands. */ void do_command_loop(void) { struct CitContext *CCC = CC; char cmdbuf[SIZ]; time(&CCC->lastcmd); memset(cmdbuf, 0, sizeof cmdbuf); /* Clear it, just in case */ if (client_getln(cmdbuf, sizeof cmdbuf) < 1) { CTDLM_syslog(LOG_INFO, "Citadel client disconnected: ending session."); CCC->kill_me = KILLME_CLIENT_DISCONNECTED; return; } /* Log the server command, but don't show passwords... */ if ( (strncasecmp(cmdbuf, "PASS", 4)) && (strncasecmp(cmdbuf, "SETP", 4)) ) { CTDL_syslog(LOG_DEBUG, "[%s(%ld)] %s", CCC->curr_user, CCC->user.usernum, cmdbuf ); } else { CTDL_syslog(LOG_DEBUG, "[%s(%ld)]