diff --git a/COPYING b/COPYING index ae62d97..94a9ed0 100644 --- a/COPYING +++ b/COPYING @@ -1,61 +1,674 @@ -GPLv3 for all my stuff (everything but ocs and cdb.ml). + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 ------------------------------------------------------------------------- + Copyright (C) 2007 Free Software Foundation, Inc. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. -ocs was downloaded from and came with -the following COPYING file. + Preamble + The GNU General Public License is a free, copyleft license for +software and other kinds of works. -Copyright (c) 2003-2004 Ville-Pertti Keinonen -All rights reserved. + 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 GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. -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. + When we speak of free software, we are referring to freedom, not +price. Our 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. -THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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. + 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. -cdb.ml was downloaded from -. It came with the -following text in the COPYING file. Dustin, if you're reading this, -OCaml is not Irish. + Developers that use the GNU 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 free 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. -Copyright (c) 2004 by Dustin Sallings + 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. -The package "Dustin's O'Caml lib" is copyright by Dustin Sallings. + 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 a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. -Permission is hereby granted, free of charge, to any person obtaining a copy of -the "Dustin's O'Caml lib" software (the "Software"), to deal in the Software -without restriction, including without limitation the rights to use, copy, -modify, merge, publish, distribute, sublicense, and/or sell copies of the -Software, and to permit persons to whom the Software is furnished to do so, -subject to the following conditions: + The precise terms and conditions for copying, distribution and +modification follow. -The above copyright notice and this permission notice shall be included in all -copies or substantial portions of the Software. + TERMS AND CONDITIONS -The Software is provided ``as is'', without warranty of any kind, expressed or -implied, including but not limited to the warranties of merchantability, -fitness for a particular purpose and noninfringement. In no event shall Dustin -Sallings be liable for any claim, damages or other liability, whether in an -action of contract, tort or otherwise, arising from, out of or in connection -with the Software or the use or other dealings in the software. + 0. Definitions. + "This License" refers to version 3 of the GNU 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 free +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 GNU 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 GNU 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 GNU 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 GNU 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 GNU 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 +GNU 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 GNU 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 + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + 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 . + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + Copyright (C) + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +. diff --git a/Makefile b/Makefile index f59eb11..e0dc28e 100644 --- a/Makefile +++ b/Makefile @@ -1,5 +1,5 @@ CFLAGS = -Wall -Werror -TARGETS = dispatch irc-filter irc-esc +TARGETS = bot all: $(TARGETS) diff --git a/README b/README index c028077..01ff14d 100644 --- a/README +++ b/README @@ -1,86 +1,102 @@ bot === -This is a suite of simple programs which allow you to write an IRC bot. -It is based on the Unix principle that one program should do one thing, -and makes extensive use of pipes, child processes, and passing of file -descriptors. +This is a simple C program to assist writing an IRC bot in whatever language(s) +you choose. It is based on the Unix principle that one program should do one +thing. -Unless you are a seasoned Unix programmer or are willing to become one, -this is not the bot you're looking for. +This framework gives you plenty of opportunity to shoot yourself in the foot. +If you're not a seasoned programmer, please stick to a language like Python or +Lua for your handler. Leave the arcane trivia of proper Bourne Shell quoting +rules to the seasoned experts who've learned the hard way how to do it. -dispatch --------- - -Reads lines from stdin (or fd 6). Each line causes a fork and exec of a -specified program; the line is sent as the last argument. Any output -from children is passed through to stdout (or fd 7), optionally rate -limited. A fifo can optionally be specified on the command line; -anything written to it is treated identically to child output. - - -irc ---- - -Parses its last argument as a line from IRC. Determines prefix, -command, sender, forum (channel or user), and text; then invokes a -specified program with these as arguments. Also responds to server -pings as a convenience. - - -run ---- - -[run BOTDIR] will run the bot contained in $BOTDIR. It should contain -the following files (see cobalt in the distribution for examples): - -* connect : program to open connection -* login : program to log in to IRC -* handler : program to handle IRC messages - - -firebot -------- - -A private message handler providing a few handy commands. - - -infobot -------- - -A private message handler providing infobot-like functionality. - - -notes ------ - -A private message handler allowing users to leave notes for each other. - - -whuffie -------- - -A private message handler keeping track of whuffe (also known as karma), -which is really just a meaningless number associated with your nick, -which other people can manipulate but you can't. - - - -Putting it all together +Getting Started Quickly ======================= -A full chain of programs would look something like +The example handler script, called `newmont`, will get you started right away. +It will set its nickname to `newmont`, join the channel `#newmont`, and respond +to any channel message containing the substring "strawberry". - tcpclient -> connect-handler -> dispatch -> handler +Start it like so: -and would be invoked as + tcpclient YOUR.IRC.SERVER 6667 ./bot contrib/newmont + + +What's Going On +=============== + +There are three pieces involved. + + +tcpclient +--------- + +`tcpclient' is a program that connects to a TCP port, sets file descriptors 6 +and 7 to be the input and output channels to that connection, and hands off +control to whatever program you specify (in the example above, the `./bot` +program with argument `./newmont`). There also exist a `udpclient`, +`sslclient`, and probably others. The advantage to this method is that +your network client doesn't have to care about the transport mechanism: +TCP, UDP, TCP6, SSL, or whatever else. + +bot +--- + +`bot` reads one line at a time from fd6 (or 0 as a fallback), parses it up, +forks, sets some environment variables, and runs the "handler" program provided +as the first argument. Whatever that program prints to stdout is sent back to +the server, verbatim. As a convenience, it automatically responds to PING +messages from the server. It can also rate-limit messages to the server, so +your bot doesn't flood itself off IRC. Lastly, it can monitor a directory and +send the contents of any new file to the server, deleting the file after. This +allows you to write to IRC from a cron job, git post-update hook, or whatever +else you dream up. + +`bot` sets the following environment variables: + + prefix IRC line prefix: you probably don't care about this + command IRC command or numeric + sender nickname to send "private" replies to this message + forum nickname to send "public" replies to this message + text text of this message, like what's sent to the channel + +Any additional parameters of the message, like with the MODE command, are +passed in as arguments to the handler. + + +handler +------- + +The handler is launched once for each incoming message. It should decide +what to do based on the environment variables and argv, possibly writing +something to stdout, and then it should exit. + +Handlers are launched in parallel to each other. IRC is an asynchronous +protocol, and while messages do tend to arrive in a particular order, don't +count on it, especially with this framework. + +`newmont` is a very simple handler script to reply to any PRIVMSG with the +substring "strawberry", in the (public) forum it was sent. + + +Caution +======= + +Your handler is getting input provided by a potentially malicious adversary. +If you're not careful, you could create a remote exploit: a path through your +handler script that allows anyone on IRC to do whatever they want on your +local computer. + +You can write handlers in bourne shell: it's really easy. It's equally as +easy to accidentally allow remote control. There's nothing I can do in the +code I provide to prevent you from really hurting yourself, all I can do is +warn you. - $ tcpclient irc.host.org 6667 ./connect-handler cobalt Author ------- +====== Neale Pickett diff --git a/TODO b/TODO new file mode 100644 index 0000000..8b13789 --- /dev/null +++ b/TODO @@ -0,0 +1 @@ + diff --git a/bot b/bot deleted file mode 100755 index 5565802..0000000 --- a/bot +++ /dev/null @@ -1,24 +0,0 @@ -#! /bin/sh -e - -botdir=$1 -d=$(dirname $0) - -nickname=$(cat $botdir/nickname) -realname=$(cat $botdir/realname 2>/dev/null || \ - echo "I'm a little printf, short and stdout.") -export nickname realname - -( - # UCSPI wants input on FD 7, and sets $PROTO - [ -n "$PROTO" ] && exec 1>&7 - if [ -x $botdir/login ]; then - $botdir/login - else - echo "NICK $nickname" - echo "USER $nickname $nickname $nickname :$realname" - fi -) - -[ -p $botdir/fifo ] || mkfifo -m 0600 $botdir/fifo - -exec $d/dispatch -f $botdir/fifo $d/irc $botdir/handler diff --git a/bot.c b/bot.c new file mode 100644 index 0000000..5299f18 --- /dev/null +++ b/bot.c @@ -0,0 +1,472 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include "dump.h" + +#define MAX_ARGS 50 +#define MAX_SUBPROCS 50 + +#define max(a,b) ((a)>(b)?(a):(b)) + +char *handler = NULL; +char *msgdir = NULL; +struct timeval output_interval = {0}; + +void +maybe_setenv(char *key, char *val) +{ + if (val) { + setenv(key, val, 1); + } +} + +void +irc_filter(const char *str) +{ + char buf[4096]; + char *line = buf; + char *parts[20] = {0}; + int nparts; + char snick[20]; + char *cmd; + char *text = NULL; + char *prefix = NULL; + char *sender = NULL; + char *forum = NULL; + int i; + + strncpy(buf, str, sizeof buf); + /* Tokenize IRC line */ + nparts = 0; + if (':' == *line) { + prefix = line + 1; + } else { + parts[nparts++] = line; + } + while (*line) { + if (' ' == *line) { + *line++ = '\0'; + if (':' == *line) { + text = line+1; + break; + } else { + parts[nparts++] = line; + } + } else { + line += 1; + } + } + + /* Strip trailing carriage return */ + while (*line) line += 1; + if ('\r' == *(line-1)) *(line-1) = '\0'; + + /* Set command, converting to upper case */ + cmd = parts[0]; + for (i = 0; cmd[i]; i += 1) { + cmd[i] = toupper(cmd[i]); + } + + /* Extract prefix nickname */ + for (i = 0; prefix && (prefix[i] != '!'); i += 1) { + if (i == sizeof(snick) - 1) { + i = 0; + break; + } + snick[i] = prefix[i]; + } + snick[i] = '\0'; + if (i) { + sender = snick; + } + + /* Determine forum */ + if ((0 == strcmp(cmd, "PRIVMSG")) || + (0 == strcmp(cmd, "NOTICE"))) { + /* :neale!user@127.0.0.1 PRIVMSG #hydra :foo */ + switch (parts[1][0]) { + case '#': + case '&': + case '+': + case '!': + forum = parts[1]; + break; + default: + forum = snick; + break; + } + } else if ((0 == strcmp(cmd, "PART")) || + (0 == strcmp(cmd, "MODE")) || + (0 == strcmp(cmd, "TOPIC")) || + (0 == strcmp(cmd, "KICK"))) { + forum = parts[1]; + } else if (0 == strcmp(cmd, "JOIN")) { + if (0 == nparts) { + forum = text; + text = NULL; + } else { + forum = parts[1]; + } + } else if (0 == strcmp(cmd, "INVITE")) { + forum = text?text:parts[2]; + text = NULL; + } else if (0 == strcmp(cmd, "NICK")) { + sender = parts[1]; + forum = sender; + } else if (0 == strcmp(cmd, "PING")) { + printf("PONG :%s\r\n", text); + fflush(stdout); + } + + { + int _argc; + char *_argv[MAX_ARGS + 1]; + + maybe_setenv("handler", handler); + maybe_setenv("prefix", prefix); + maybe_setenv("command", cmd); + maybe_setenv("sender", sender); + maybe_setenv("forum", forum); + maybe_setenv("text", text); + + _argc = 0; + _argv[_argc++] = handler; + for (i = 1; (i < nparts) && (_argc < MAX_ARGS); i += 1) { + _argv[_argc++] = parts[i]; + } + _argv[_argc] = NULL; + + execvp(handler, _argv); + perror(handler); + } +} + +void +unblock(int fd) +{ + int flags = fcntl(fd, F_GETFL, 0); + + fcntl(fd, F_SETFL, flags | O_NONBLOCK); +} + +FILE *subprocs[MAX_SUBPROCS] = { 0 }; + +void +sigchld(int signum) +{ + while (0 < waitpid(-1, NULL, WNOHANG)); +} + + +void +dispatch(char *text) +{ + int subout[2]; + int i; + + for (i = 0; i < MAX_SUBPROCS; i += 1) { + if (NULL == subprocs[i]) { + break; + } + } + + if (MAX_SUBPROCS == i) { + fprintf(stderr, "warning: dropping message (too many children)\n"); + return; + } + + if (-1 == pipe(subout)) { + perror("pipe"); + return; + } + + subprocs[i] = fdopen(subout[0], "r"); + if (! subprocs[i]) { + close(subout[0]); + close(subout[1]); + perror("fdopen"); + return; + } + + if (0 == fork()) { + /* + * Child + */ + int null; + + if ((-1 == (null = open("/dev/null", O_RDONLY))) || + (-1 == dup2(null, 0)) || + (-1 == dup2(subout[1], 1))) { + perror("fd setup"); + exit(EX_OSERR); + } + + /* + * We'll be a good citizen and only close file descriptors we opened. + */ + close(null); + close(subout[1]); + for (i = 0; i < MAX_SUBPROCS; i += 1) { + if (subprocs[i]) { + fclose(subprocs[i]); + } + } + + irc_filter(text); + exit(0); + } + + unblock(subout[0]); + close(subout[1]); +} + +void +delay_output() +{ + struct timeval now; + struct timeval diff; + static struct timeval output_last = { 0 }; + + gettimeofday(&now, NULL); + timersub(&now, &output_last, &diff); + if (timercmp(&diff, &output_interval, <)) { + struct timeval delay; + struct timespec ts; + int ret; + + timersub(&output_interval, &diff, &delay); + + ts.tv_sec = (time_t) delay.tv_sec; + ts.tv_nsec = (long) (delay.tv_usec * 1000); + do { + ret = nanosleep(&ts, &ts); + } while ((-1 == ret) && (EINTR == errno)); + gettimeofday(&output_last, NULL); + } else { + output_last = now; + } +} + + +/** Writes all of buf to stdout, possibly blocking. */ +void +output(char *buf) +{ + if (timerisset(&output_interval)) { + delay_output(); + } + + puts(buf); +} + +void +handle_file(FILE *f, void (*func) (char *)) +{ + char line[2048]; + size_t linelen; + + // Read a line. If we didn't have enough space, drop it. + while (fgets(line, sizeof line, f)) { + linelen = strlen(line); + if (line[linelen-1] != '\n') { + fprintf(stderr, "warning: dropping %d bytes (no trailing newline)\n", linelen); + } else { + line[linelen-1] = '\0'; + func(line); + } + } +} + +void +handle_input() +{ + handle_file(stdin, dispatch); +} + +void +handle_subproc(FILE *s) +{ + handle_file(s, output); +} + +void +loop() +{ + int i; + int ret; + int nfds = 0; + fd_set rfds; + static time_t last_pulse = 0; + time_t now; + + // Look for messages in msgdir + if (msgdir) { + DIR *d = opendir(msgdir); + + while (d) { + struct dirent *ent = readdir(d); + + if (! ent) { + break; + } + if (ent->d_type == DT_REG) { + char fn[PATH_MAX]; + FILE *f; + + snprintf(fn, sizeof fn, "%s/%s", msgdir, ent->d_name); + f = fopen(fn, "r"); + if (f) { + // This one is blocking + handle_subproc(f); + fclose(f); + remove(fn); + } + } + } + + if (d) { + closedir(d); + } + } + + // Check subprocs for input + FD_ZERO(&rfds); + FD_SET(0, &rfds); + for (i = 0; i < MAX_SUBPROCS; i += 1) { + if (subprocs[i]) { + int fd = fileno(subprocs[i]); + + FD_SET(fd, &rfds); + nfds = max(nfds, fd); + } + } + + do { + struct timeval timeout = {1, 0}; + + ret = select(nfds + 1, &rfds, NULL, NULL, &timeout); + } while ((-1 == ret) && (EINTR == errno)); + if (-1 == ret) { + perror("select"); + exit(EX_IOERR); + } + + + if (FD_ISSET(0, &rfds)) { + handle_input(); + } + + for (i = 0; i < MAX_SUBPROCS; i += 1) { + FILE *f = subprocs[i]; + + if (f && FD_ISSET(fileno(f), &rfds)) { + handle_subproc(f); + if (feof(f)) { + fclose(f); + subprocs[i] = NULL; + } + } + } + + // Heartbeat + now = time(NULL); + if (now - last_pulse > 5) { + last_pulse = now; + dispatch("PULSE"); + } +} + + +void +usage(char *self) +{ + fprintf(stderr, "Usage: %s [OPTIONS] HANDLER\n", self); + fprintf(stderr, "\n"); + fprintf(stderr, "-h Display help.\n"); + fprintf(stderr, "-d DIR Also dispatch messages from DIR, one per file.\n"); + fprintf(stderr, "-i INTERVAL Wait at least INTERVAL microseconds between\n"); + fprintf(stderr, " sending each line.\n"); +} + +int +main(int argc, char *argv[]) +{ + /* + * Parse command line + */ + while (!handler) { + switch (getopt(argc, argv, "hd:i:")) { + case -1: + if (optind >= argc) { + fprintf(stderr, "error: must specify event handler.\n"); + usage(argv[0]); + return EX_USAGE; + } + handler = argv[optind]; + break; + case 'd': + msgdir = optarg; + break; + case 'i': + { + char *end; + long long int interval; + + interval = strtoll(optarg, &end, 10); + if (*end) { + fprintf(stderr, "error: not an integer number: %s\n", optarg); + return EX_USAGE; + } + output_interval.tv_sec = interval / 1000000; + output_interval.tv_usec = interval % 1000000; + } + break; + case 'h': + usage(argv[0]); + return 0; + default: + fprintf(stderr, "error: unknown option.\n"); + usage(argv[0]); + return EX_USAGE; + } + } + + /* + * tcpclient uses fds 6 and 7. If these aren't open, we keep the + * original fds 0 and 1. + */ + if (-1 != dup2(6, 0)) { + close(6); + } + if (-1 != dup2(7, 1)) { + close(7); + } + + unblock(0); + setvbuf(stdout, NULL, _IOLBF, 0); + + signal(SIGCHLD, sigchld); + + // Let handler know we're starting up + dispatch("INIT"); + + while (1) { + loop(); + } + + return 0; +} diff --git a/cobalt/channels/#woozle b/cobalt/channels/#woozle deleted file mode 100644 index e69de29..0000000 diff --git a/cobalt/connect b/cobalt/connect deleted file mode 100755 index 699652e..0000000 --- a/cobalt/connect +++ /dev/null @@ -1,3 +0,0 @@ -#! /bin/sh - -exec socat OPENSSL:127.0.0.1:6697,verify=0,keepalive EXEC:"$*" diff --git a/cobalt/handler b/cobalt/handler deleted file mode 100755 index 46a0a1b..0000000 --- a/cobalt/handler +++ /dev/null @@ -1,83 +0,0 @@ -#! /bin/sh - -prefix=$1; export prefix; shift -command=$1; export command; shift -sender=$1; export sender; shift -forum=$1; export forum; shift -text=$1; export text; shift -# $* is now args - -# Debug output -#echo '>>>' ${prefix:+:}$prefix $command "$@" ${text:+:}"$text" 1>&2 - -raw () { - fmt="\007$1\n"; shift - printf "$fmt" "$@" -} - -join () { - raw "JOIN $1" -} - -cobalt () { - case "$1" in - air) - w3m -dump -cols 9999 'http://environweb.lanl.gov/Teom/teom30s.asp?MasterSiteID=211&offset=0' 2> /dev/null | \ - awk '/.:..:.. .M/ {print "Los Alamos Air: " $5 "μg/m³ at " $2; exit}' - ;; - nachos) - echo "aieeeee" - ;; - *) - return 1 - ;; - esac -} - -out=$(tempfile) - -case $command in - 001) - for i in $botdir/channels/*; do - join $(basename $i) - done - ;; - 433) - raw "NICK bot_$(shuf -c 1 /usr/share/dict/words)" - ;; - PRIVMSG) - case "$forum" in - \#*) - cobalt "$text" || \ - $ircdir/firebot "$text" || \ - $ircdir/whuffie $botdir/whuffie.cdb "$text" || \ - $ircdir/infobot $botdir/factoids.cdb "$text" - ;; - esac - $ircdir/notes $botdir/notes "$text" - ;; - INVITE) - join "$forum" - raw "PRIVMSG %s :Thanks for the invitation, %s." "$forum" "$sender" - touch $botdir/channels/$forum - ;; -esac > $out - -if [ "$forum" != "$sender" ] && [ $(wc -l < $out) -gt 5 ]; then - printf "PRIVMSG %s :Too many lines, sending privately.\r\n" "$forum" - forum=$sender -fi - -while read -r line; do - case "$line" in - *) - printf "%s\r\n" "${line#}" - ;; - *) - printf "PRIVMSG %s :%s\r\n" "$forum" "$line" - ;; - esac -done < $out - -rm -f $out - diff --git a/cobalt/login b/cobalt/login deleted file mode 100755 index 558824c..0000000 --- a/cobalt/login +++ /dev/null @@ -1,4 +0,0 @@ -#! /bin/sh - -echo "NICK cobalt" -echo "USER cobalt cobalt cobalt :I'm a little printf, short and stdout." diff --git a/connect-handler b/connect-handler deleted file mode 100755 index c909696..0000000 --- a/connect-handler +++ /dev/null @@ -1,28 +0,0 @@ -#! /bin/sh -e - -botdir=$1 -ircdir=$(dirname $0) -export botdir ircdir - -# UCSPI wants communication on fd7 -if [ -n "$PROTO" ]; then - fd=7 -else - fd=1 -fi - -if [ -x $botdir/login ]; then - $botdir/login 1 >& $fd -else - nickname=$(cat $botdir/nickname) - realname=$(cat $botdir/realname 2>/dev/null || \ - echo "I'm a little printf, short and stdout.") - echo "NICK $nickname" 1 >& $fd - echo "USER $nickname $nickname $nickname :$realname" 1 >& $fd -fi - -if [ -p $botdir/fifo ]; then - fifo="-f $botdir/fifo" -fi - -exec $ircdir/dispatch $fifo $ircdir/irc-filter $botdir/handler diff --git a/infobot b/contrib/infobot similarity index 100% rename from infobot rename to contrib/infobot diff --git a/contrib/newmont b/contrib/newmont new file mode 100755 index 0000000..0e9efb9 --- /dev/null +++ b/contrib/newmont @@ -0,0 +1,70 @@ +#! /usr/bin/lua + +-- +-- Set global variables from environment +-- +prefix = os.getenv("prefix") +forum = os.getenv("forum") +sender = os.getenv("sender") +command = os.getenv("command") +text = os.getenv("text") + +-- +-- Write text to stderr (for debugging) +-- +function log(text) + io.stderr:write(text .. "\n") +end + +-- +-- Send a raw IRC command to the server +-- +function raw(text) + log("< " .. text) + print(text) +end + + +-- +-- Send a message to the forum; if we've sent 4 lines +-- already, start sending directly to the sender, to +-- avoid spamming channels. +-- +msgs_sent = 0 +msg_recip = forum + +function msg(text) + msgs_sent = msgs_sent + 1 + if ((msgs_sent == 5) and (forum ~= sender)) then + raw("PRIVMSG " .. forum .. " :Sending the rest in private") + msg_recip = sender + end + raw("PRIVMSG " .. msg_recip .. " :" .. text) +end + +-- +-- +-- Main program +-- +-- + +-- Log what we got +log(" > " .. (prefix or "") .. " " .. (sender or "-") .. "/" .. (forum or "-") .. " [" .. command .. "] :" .. (text or "")) + +-- Our action depends on what the command is +if (command == "INIT") then + -- bot sends this when it first starts up, so we can log in + raw("NICK nemont") + raw("USER newmont newmont newmont :Sample bot") +elseif (command == "433") then + -- Couldn't get the nickname we asked for + raw("NICK bot_" .. (os.time() % 500)) +elseif (command == "001") then + -- IRC server sends this after successful login + raw("JOIN #newmont") +elseif (command == "PRIVMSG") then + -- Somebody said something! + if (text:find("strawberry")) then + msg("Strawberries are delicious.") + end +end diff --git a/notes b/contrib/notes similarity index 100% rename from notes rename to contrib/notes diff --git a/firebot b/contrib/utilbot similarity index 100% rename from firebot rename to contrib/utilbot diff --git a/whuffie b/contrib/whuffie similarity index 100% rename from whuffie rename to contrib/whuffie diff --git a/dispatch.c b/dispatch.c deleted file mode 100644 index 1eb2885..0000000 --- a/dispatch.c +++ /dev/null @@ -1,349 +0,0 @@ -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include "dump.h" - -#define MAX_ARGS 50 -#define MAX_SUBPROCS 50 -#define TARGET_MAX 20 - -#define max(a,b) ((a)>(b)?(a):(b)) - -struct subproc { - int fd; /* File descriptor */ - char buf[4000]; /* Read buffer */ - size_t buflen; /* Buffer length */ -}; - -struct subproc subprocs[MAX_SUBPROCS] = {{0}}; - -/* Things set by argv parser */ -char *handler = NULL; -char **handler_args; -struct timeval output_interval = {0}; -struct timeval output_last = {0}; -int fifoin = -1; -int fifoout = -1; - -void -dispatch(const char *buf, - size_t buflen) -{ - int subout[2]; - struct subproc *s = NULL; - int i; - char text[512]; - - if (buflen > sizeof(text)) { - fprintf(stderr, "Ignoring message: too long (%u bytes)\n", (unsigned int)buflen); - return; - } - memcpy(text, buf, buflen-1); /* omit newline */ - text[buflen-1] = '\0'; - - for (i = 0; i < MAX_SUBPROCS; i += 1) { - if (0 == subprocs[i].fd) { - s = &subprocs[i]; - break; - } - } - if (! s) { - fprintf(stderr, "Ignoring message: too many subprocesses\n"); - return; - } - - if (-1 == pipe(subout)) { - perror("pipe"); - return; - } - - if (0 == fork()) { - /* Child */ - char *argv[MAX_ARGS + 5]; - int null; - int i; - - if ((-1 == (null = open("/dev/null", O_RDONLY))) || - (-1 == dup2(null, 0)) || - (-1 == dup2(subout[1], 1))) { - perror("fd setup"); - exit(EX_OSERR); - } - - /* We'll be good citizens about this and only close file descriptors - we opened. */ - close(fifoout); - close(null); - close(subout[0]); - close(subout[1]); - for (i = 0; i < MAX_SUBPROCS; i += 1) { - if (subprocs[i].fd) { - close(subprocs[i].fd); - } - } - - i = 0; - argv[i++] = handler; - for (; handler_args[i-1]; i += 1) { - argv[i] = handler_args[i-1]; - } - argv[i++] = text; - argv[i] = NULL; - - execvp(handler, argv); - perror("exec"); - exit(0); - } - - s->fd = subout[0]; - close(subout[1]); -} - -void -delay_output() -{ - struct timeval now, diff; - - gettimeofday(&now, NULL); - timersub(&now, &output_last, &diff); - if (timercmp(&diff, &output_interval, <)) { - struct timeval delay; - struct timespec ts; - int ret; - - timersub(&output_interval, &diff, &delay); - - ts.tv_sec = (time_t)delay.tv_sec; - ts.tv_nsec = (long)(delay.tv_usec * 1000); - do { - ret = nanosleep(&ts, &ts); - } while ((-1 == ret) && (EINTR == errno)); - gettimeofday(&output_last, NULL); - } else { - output_last = now; - } -} - - -/** Writes all of buf to stdout, possibly blocking. */ -void -output(const char *buf, - size_t count) -{ - if (timerisset(&output_interval)) { - delay_output(); - } - - while (count) { - ssize_t len; - - do { - len = write(1, buf, count); - } while ((-1 == len) && (EINTR == errno)); - if (-1 == len) { - perror("stdout"); - exit(EX_IOERR); - } - count -= len; - buf += len; - } -} - -void -call_with_lines(char *buf, - size_t *len, - void (*func)(const char *, size_t)) -{ - char *b = buf; - char *p; - size_t l = *len; - - while ((p = memchr(b, '\n', l))) { - size_t n = p - b + 1; - - func(b, n); - l -= n; - b += n; - } - memmove(buf, b, l); - *len = l; -} - -char inbuf[8000]; -size_t inbuflen = 0; - -void -handle_input() -{ - ssize_t len; - - do { - len = read(0, inbuf + inbuflen, sizeof(inbuf) - inbuflen); - } while ((-1 == len) && (EINTR == errno)); - if (0 == len) { - exit(0); - } - inbuflen += len; - call_with_lines(inbuf, &inbuflen, dispatch); -} - -void -handle_subproc(struct subproc *s) -{ - ssize_t len; - - do { - len = read(s->fd, s->buf + s->buflen, sizeof(s->buf) - s->buflen); - } while ((-1 == len) && (EINTR == errno)); - if (-1 == len) { - perror("subprocess read error"); - } else { - s->buflen += len; - call_with_lines(s->buf, &s->buflen, output); - } - - if (sizeof(s->buf) == s->buflen) { - fprintf(stderr, "subprocess buffer full, killing and discarding buffer.\n"); - len = 0; - } - - /* Recycle this subproc unless something was read */ - if (0 >= len) { - if (s->buflen) { - fprintf(stderr, "warning: discarding %u characters from subprocess buffer\n", - (unsigned int)s->buflen); - } - close(s->fd); - s->fd = 0; - s->buflen = 0; - } -} - -void -loop() -{ - int i, ret; - int nfds = 0; - fd_set rfds; - - FD_ZERO(&rfds); - FD_SET(0, &rfds); - for (i = 0; i < MAX_SUBPROCS; i += 1) { - if (subprocs[i].fd) { - FD_SET(subprocs[i].fd, &rfds); - nfds = max(nfds, subprocs[i].fd); - } - } - - do { - ret = select(nfds+1, &rfds, NULL, NULL, NULL); - } while ((-1 == ret) && (EINTR == errno)); - if (-1 == ret) { - perror("select"); - exit(EX_IOERR); - } - - if (FD_ISSET(0, &rfds)) { - handle_input(); - } - - for (i = 0; i < MAX_SUBPROCS; i += 1) { - if (subprocs[i].fd && FD_ISSET(subprocs[i].fd, &rfds)) { - handle_subproc(&subprocs[i]); - } - } -} - -void -sigchld(int signum) -{ - while (0 < waitpid(-1, NULL, WNOHANG)); -} - -void -usage(char *self) -{ - fprintf(stderr, "Usage: %s [OPTIONS] handler [ARGS ...]\n", self); - fprintf(stderr, "\n"); - fprintf(stderr, "-f FIFO Also dispatch messages from FIFO.\n"); - fprintf(stderr, "-i INTERVAL Wait at least INTERVAL microseconds between\n"); - fprintf(stderr, " sending each line.\n"); -} - -int -main(int argc, char *argv[]) -{ - /* Parse command line */ - while (! handler) { - switch (getopt(argc, argv, "hf:i:")) { - case -1: - if (optind >= argc) { - fprintf(stderr, "error: must specify handler script.\n"); - usage(argv[0]); - return EX_USAGE; - } - if (argc - optind - 10 > MAX_ARGS) { - fprintf(stderr, "error: too many arguments to helper.\n"); - return EX_USAGE; - } - handler = argv[optind]; - handler_args = argv + (optind + 1); - break; - case 'f': - if ((-1 == (fifoin = open(optarg, O_RDONLY | O_NONBLOCK))) || - (-1 == (fifoout = open(optarg, O_WRONLY)))) { - perror("open fifo"); - return EX_IOERR; - } - subprocs[0].fd = fifoin; - break; - case 'i': - { - char *end; - long long int interval; - - interval = strtoll(optarg, &end, 10); - if (*end) { - fprintf(stderr, "error: not an integer number: %s\n", optarg); - return EX_USAGE; - } - output_interval.tv_sec = interval / 1000000; - output_interval.tv_usec = interval % 1000000; - } - break; - case 'h': - usage(argv[0]); - return 0; - default: - fprintf(stderr, "error: unknown option.\n"); - usage(argv[0]); - return EX_USAGE; - } - } - - /* tcpclient uses fds 6 and 7. If these aren't open, we keep the - original fds 0 and 1. */ - if (-1 != dup2(6, 0)) close(6); - if (-1 != dup2(7, 1)) close(7); - - signal(SIGCHLD, sigchld); - - while (1) { - loop(); - } - - return 0; -} diff --git a/irc-esc.c b/irc-esc.c deleted file mode 100644 index 4487bdd..0000000 --- a/irc-esc.c +++ /dev/null @@ -1,119 +0,0 @@ -#include - -enum { - RESET, - COLOR, - NOCOLOR, - BOLD, - UNDERLINE, - INVERSE -}; - -int color_map[] = {7, 0, 4, 2, 1, 1, 5, 3, 3, 2, 6, 6, 4, 5, 0, 7}; - -void -change_state(int what, int foreground, int background) -{ - static int bf = 0; - static int ul = 0; - static int rv = 0; - static int fg = -1; - static int bg = -1; - - switch (what) { - case RESET: - fg = -1; - bg = -1; - bf = 0; - ul = 0; - rv = 0; - break; - case COLOR: - fg = (foreground<16)?color_map[foreground]:-1; - bg = (background<16)?color_map[background]:-1; - break; - case NOCOLOR: - fg = -1; - bg = -1; - break; - case BOLD: - bf = !bf; - break; - case UNDERLINE: - ul = !ul; - break; - case INVERSE: - rv = !rv; - break; - } - - printf("\033[0"); - if (bf) printf(";1"); - if (ul) printf(";4"); - if (rv) printf(";7"); - if (0 <= fg) printf(";3%d", fg); - if (0 <= bg) printf(";4%d", bg); - printf("m"); -} - -int -read_num() -{ - int acc = 0; - int fail = 1; - - while (1) { - int c = getchar(); - - if ((c >= '0') && (c <= '9')) { - acc = (acc * 10) + (c - '0'); - } else { - ungetc(c, stdin); - break; - } - fail = 0; - } - return fail?-1:acc; -} - -int -main(int argc, char *argv[]) -{ - while (! feof(stdin)) { - int c = getchar(); - - if (EOF == c) { - break; - } else if (0 == c) { - printf("\\0"); - } else if (3 == c) { /* mIRC color */ - int fg = read_num(); - int bg = -1; - - c = getchar(); - if (',' == c) { - bg = read_num(); - } else { - ungetc(c, stdin); - } - change_state(COLOR, fg, bg); - } else if (2 == c) { - change_state(BOLD, 0, 0); - } else if (22 == c) { - change_state(INVERSE, 0, 0); - } else if (31 == c) { - change_state(UNDERLINE, 0, 0); - } else if (15 == c) { - change_state(RESET, 0, 0); - } else if ('\n' == c) { - change_state(RESET, 0, 0); - putchar(c); - } else if (32 > c) { - printf("^%c", c + 'A' - 1); - } else { - putchar(c); - } - } - change_state(RESET, 0, 0); - return 0; -} diff --git a/irc-filter.c b/irc-filter.c deleted file mode 100644 index ecfb4d8..0000000 --- a/irc-filter.c +++ /dev/null @@ -1,155 +0,0 @@ -#include -#include -#include -#include -#include - -#include "dump.h" - -#define MAX_ARGS 50 -#define MAX_OUTARGS 60 -#define MAX_PARTS 20 - -int -main(int argc, char *argv[]) -{ - char *parts[20] = {0}; - int nparts; - char snick[20]; - char *cmd; - char *text = NULL; - char *prefix = NULL; - char *sender = NULL; - char *forum = NULL; - int i; - - if (argc < 3) { - fprintf(stderr, "Usage: %s HANDLER [ARGV ...] LINE\n", argv[0]); - fprintf(stderr, "\n"); - fprintf(stderr, "Parses LINE (an IRC message) into:\n"); - fprintf(stderr, " PREFIX Prefix part of message\n"); - fprintf(stderr, " COMMAND IRC command\n"); - fprintf(stderr, " SENDER Nickname of message's sender\n"); - fprintf(stderr, " FORUM Forum of message\n"); - fprintf(stderr, " TEXT Text part of message\n"); - fprintf(stderr, " ARGS... Arguments of message\n"); - fprintf(stderr, "\n"); - fprintf(stderr, "After parsing, exec()s\n"); - fprintf(stderr, " HANDLER ARGV... PREFIX COMMAND SENDER FORUM TEXT ARGS...\n"); - return EX_USAGE; - } else if (argc > MAX_ARGS) { - fprintf(stderr, "%s: too many arguments\n", argv[0]); - return EX_USAGE; - } - - /* Tokenize IRC line */ - { - char *line = argv[argc-1]; - - nparts = 0; - if (':' == *line) { - prefix = line + 1; - } else { - parts[nparts++] = line; - } - while (*line) { - if (' ' == *line) { - *line++ = '\0'; - if (':' == *line) { - text = line+1; - break; - } else { - parts[nparts++] = line; - } - } else { - line += 1; - } - } - - /* Strip trailing carriage return */ - while (*line) line += 1; - if ('\r' == *(line-1)) *(line-1) = '\0'; - } - - /* Set command, converting to upper case */ - cmd = parts[0]; - for (i = 0; cmd[i]; i += 1) { - cmd[i] = toupper(cmd[i]); - } - - /* Extract prefix nickname */ - for (i = 0; prefix && (prefix[i] != '!'); i += 1) { - if (i == sizeof(snick) - 1) { - i = 0; - break; - } - snick[i] = prefix[i]; - } - snick[i] = '\0'; - if (i) { - sender = snick; - } - - /* Determine forum */ - if ((0 == strcmp(cmd, "PRIVMSG")) || - (0 == strcmp(cmd, "NOTICE"))) { - /* :neale!user@127.0.0.1 PRIVMSG #hydra :foo */ - switch (parts[1][0]) { - case '#': - case '&': - case '+': - case '!': - forum = parts[1]; - break; - default: - forum = snick; - break; - } - } else if ((0 == strcmp(cmd, "PART")) || - (0 == strcmp(cmd, "MODE")) || - (0 == strcmp(cmd, "TOPIC")) || - (0 == strcmp(cmd, "KICK"))) { - forum = parts[1]; - } else if (0 == strcmp(cmd, "JOIN")) { - DUMP_d(nparts); - if (1 == nparts) { - forum = text; - text = NULL; - } else { - forum = parts[1]; - } - } else if (0 == strcmp(cmd, "INVITE")) { - forum = text?text:parts[2]; - text = NULL; - } else if (0 == strcmp(cmd, "NICK")) { - sender = parts[1]; - forum = sender; - } else if (0 == strcmp(cmd, "PING")) { - printf("PONG :%s\r\n", text); - fflush(stdout); - } - - { - int _argc; - char *_argv[MAX_OUTARGS + 1]; - - _argc = 0; - for (i = 1; i < argc-1; i += 1) { - _argv[_argc++] = argv[i]; - } - _argv[_argc++] = prefix?prefix:""; - _argv[_argc++] = cmd; - _argv[_argc++] = sender?sender:""; - _argv[_argc++] = forum?forum:""; - _argv[_argc++] = text?text:""; - for (i = 1; (i < nparts) && (_argc < MAX_OUTARGS); i += 1) { - _argv[_argc++] = parts[i]; - } - _argv[_argc] = NULL; - - execvp(_argv[0], _argv); - perror(_argv[0]); - } - - return 0; -} diff --git a/rollforinitiative.py b/rollforinitiative.py deleted file mode 100755 index 16a04c2..0000000 --- a/rollforinitiative.py +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/env python - -import re -import sys -import random - -if __name__ == '__main__': - roll = sys.argv[1] - m = re.match('^(?P\d+)d(?P\d+)(x(?P\d+))?$', roll) - if m: - rolls = int(m.group('rolls')) - sides = int(m.group('sides')) - if m.group('multiplier'): - multiplier = int(m.group('multiplier')) - else: - multiplier = 1 - - dice = [] - acc = 0 - for i in range(rolls): - n = random.randint(1, sides) - dice.append(n) - acc += n - acc *= multiplier - if rolls > 1: - print '%s: %d %r' % (roll, acc, dice) - else: - print '%s: %d' % (roll, acc) - diff --git a/run b/run deleted file mode 100755 index 477a8f4..0000000 --- a/run +++ /dev/null @@ -1,16 +0,0 @@ -#! /bin/sh -e - -botdir=$1 -ircdir=$(dirname $0) -export botdir ircdir - -if [ ! -d "$botdir" ]; then - exec 1>&2 - echo "Usage: $0 BOTDIRECTORY" - exit 1 -fi - -while true; do - $botdir/connect $ircdir/connect-handler $botdir - sleep 5 -done