From 7d2cd1e7aa91d46ba1924213ee2199160cf5173b Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 19 Dec 2022 14:49:05 +0100 Subject: Hello world --- .gitignore | 18 ++ Makefile.am | 76 +++++++ bootstrap | 5 + configure.ac | 52 +++++ db/migrations/0000-schema.sql | 20 ++ doc/weipub.texi | 103 +++++++++ fdl-1.3.texi | 505 ++++++++++++++++++++++++++++++++++++++++++ guile.am | 19 ++ manifest.scm | 7 + pre-inst-env.in | 33 +++ weipub/accounts.scm | 64 ++++++ weipub/config.scm.in | 106 +++++++++ weipub/database.scm | 157 +++++++++++++ 13 files changed, 1165 insertions(+) create mode 100644 .gitignore create mode 100644 Makefile.am create mode 100755 bootstrap create mode 100644 configure.ac create mode 100644 db/migrations/0000-schema.sql create mode 100644 doc/weipub.texi create mode 100644 fdl-1.3.texi create mode 100644 guile.am create mode 100644 manifest.scm create mode 100644 pre-inst-env.in create mode 100644 weipub/accounts.scm create mode 100644 weipub/config.scm.in create mode 100644 weipub/database.scm diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..0090eff --- /dev/null +++ b/.gitignore @@ -0,0 +1,18 @@ +*.go +Makefile +Makefile.in +aclocal.m4 +autom4te.cache/ +build-aux/ +config.log +config.status +configure +pre-inst-env +doc/weipub.info +doc/.dirstamp +doc/stamp-vti +doc/version.texi +weipub/config.scm +test-suite.log +tests/*.log +tests/*.trs diff --git a/Makefile.am b/Makefile.am new file mode 100644 index 0000000..a4521a7 --- /dev/null +++ b/Makefile.am @@ -0,0 +1,76 @@ +# weipub - Teeny tiny activitypub thing +# Copyright © 2022 Ricardo Wurmus +# +# This program is free software: you can redistribute it and/or +# modify it under the terms of the GNU Affero 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 +# Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public +# License along with this program. If not, see +# . + +include guile.am + +moddir=$(prefix)/share/guile/site/$(GUILE_EFFECTIVE_VERSION) +godir=$(libdir)/guile/$(GUILE_EFFECTIVE_VERSION)/site-ccache + +SOURCES = \ + weipub/config.scm \ + weipub/database.scm \ + weipub/accounts.scm + +info_TEXINFOS = doc/weipub.texi + +TEST_EXTENSIONS = .scm + +SCM_TESTS = \ + tests/weipub.scm + +TESTS = $(SCM_TESTS) + +EXTRA_DIST += $(TESTS) + +AM_TESTS_ENVIRONMENT = abs_top_srcdir="$(abs_top_srcdir)" GUILE_AUTO_COMPILE=0 + +SCM_LOG_DRIVER = \ + $(top_builddir)/pre-inst-env \ + $(GUILE) --no-auto-compile -e main \ + $(top_srcdir)/build-aux/test-driver.scm + +AM_SCM_LOG_DRIVER_FLAGS = --brief=yes + +EXTRA_DIST += \ + pre-inst-env.in \ + build-aux/test-driver.scm \ + doc/fdl-1.3.texi + +# Handle substitution of fully-expanded Autoconf variables. +do_subst = $(SED) \ + -e 's,[@]GUILE[@],$(GUILE),g' \ + -e 's,[@]GUILE_LOAD_COMPILED_PATH[@],$(GUILE_LOAD_COMPILED_PATH),g' \ + -e 's,[@]GUILE_LOAD_PATH[@],$(GUILE_LOAD_PATH),g' \ + -e 's,[@]guilemoduledir[@],$(guilemoduledir),g' \ + -e 's,[@]guileobjectdir[@],$(guileobjectdir),g' \ + -e 's,[@]abs_top_srcdir[@],$(abs_top_srcdir),g' \ + -e 's,[@]abs_top_builddir[@],$(abs_top_builddir),g' \ + -e 's,[@]localedir[@],$(localedir),g' + +dist-hook: $(distdir)/ChangeLog +gen-ChangeLog $(distdir)/ChangeLog: + $(AM_V_GEN)if test -d .git; then \ + $(top_srcdir)/build-aux/gitlog-to-changelog \ + > $(distdir)/cl-t; \ + rm -f $(distdir)/ChangeLog; \ + mv $(distdir)/cl-t $(distdir)/ChangeLog; \ + fi + +.PHONY: gen-ChangeLog + +CLEANFILES += \ + $(SCM_TESTS:tests/%.scm=%.log) diff --git a/bootstrap b/bootstrap new file mode 100755 index 0000000..cb774bc --- /dev/null +++ b/bootstrap @@ -0,0 +1,5 @@ +#!/bin/sh +# Create the build system. + +set -e -x +exec autoreconf -vfi diff --git a/configure.ac b/configure.ac new file mode 100644 index 0000000..d226a1c --- /dev/null +++ b/configure.ac @@ -0,0 +1,52 @@ +dnl weipub - Teeny tiny activitypub thing +dnl Copyright © 2022 Ricardo Wurmus +dnl +dnl This program is free software: you can redistribute it and/or +dnl modify it under the terms of the GNU Affero General Public License +dnl as published by the Free Software Foundation, either version 3 of +dnl the License, or (at your option) any later version. +dnl +dnl This program is distributed in the hope that it will be useful, but +dnl WITHOUT ANY WARRANTY; without even the implied warranty of +dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +dnl Affero General Public License for more details. +dnl +dnl You should have received a copy of the GNU Affero General Public +dnl License along with this program. If not, see +dnl . +dnl -*- Autoconf -*- + +AC_INIT([weipub], + [0.0.1], + [enquiries+weipub@elephly.net], [weipub], + [https://git.elephly.net/software/weipub.git/]) +AC_CONFIG_AUX_DIR([build-aux]) +AM_INIT_AUTOMAKE([color-tests -Wall -Wno-portability foreign]) +AM_SILENT_RULES([yes]) + +GUILE_PKG([3.0]) +GUILE_PROGS + +if test "x$GUILD" = "x"; then + AC_MSG_ERROR(['guild' binary not found; please check your Guile installation.]) +fi + +dnl Installation directories for .scm and .go files. +guilemoduledir="${datarootdir}/guile/site/$GUILE_EFFECTIVE_VERSION" +guileobjectdir="${libdir}/guile/$GUILE_EFFECTIVE_VERSION/site-ccache" +AC_SUBST([guilemoduledir]) +AC_SUBST([guileobjectdir]) + +GUILE_MODULE_REQUIRED(json) +GUILE_MODULE_REQUIRED(sqlite3) +GUILE_MODULE_REQUIRED(gcrypt hash) +GUILE_MODULE_REQUIRED(config) +GUILE_MODULE_CHECK(guile_config_too_old,(config api),(argument (name 'foo) (optional? 'old)),supports `optional?' field in argument definition) +if test "x$guile_config_too_old" = "xyes"; then + AC_MSG_ERROR([Guile Config needs to be version 0.5.0 or higher.]) +fi + +AC_CONFIG_FILES([Makefile weipub/config.scm]) +AC_CONFIG_FILES([pre-inst-env], [chmod +x pre-inst-env]) + +AC_OUTPUT diff --git a/db/migrations/0000-schema.sql b/db/migrations/0000-schema.sql new file mode 100644 index 0000000..c7f58a4 --- /dev/null +++ b/db/migrations/0000-schema.sql @@ -0,0 +1,20 @@ +BEGIN TRANSACTION; + +CREATE TABLE migrations ( + version TEXT NOT NULL +); + +CREATE TABLE accounts ( + name TEXT NOT NULL PRIMARY KEY + CHECK (length(name) >= 2), + password TEXT NOT NULL + +); + +CREATE TABLE followers ( + target TEXT NOT NULL, + follower TEXT NOT NULL, + FOREIGN KEY(target) REFERENCES accounts(name) +); + +COMMIT; diff --git a/doc/weipub.texi b/doc/weipub.texi new file mode 100644 index 0000000..c2c29e9 --- /dev/null +++ b/doc/weipub.texi @@ -0,0 +1,103 @@ +\input texinfo +@c -*-texinfo-*- + +@c %**start of header +@setfilename weipub.info +@documentencoding UTF-8 +@settitle Weipub +@c %**end of header + +@include version.texi + +@copying +Copyright @copyright{} 2022 Ricardo Wurmus + +Permission is granted to copy, distribute and/or modify this document +under the terms of the GNU Free Documentation License, Version 1.3 or +any later version published by the Free Software Foundation; with no +Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A +copy of the license is included in the section entitled ``GNU Free +Documentation License''. +@end copying + +@dircategory Networking +@direntry +* Weipub: (weipub). Teeny tiny ActivityPub thing. +@end direntry + +@titlepage +@title Weipub +@subtitle Teeny tiny ActivityPub thing. +@author Ricardo Wurmus + +@page +@vskip 0pt plus 1filll +Edition @value{EDITION} @* +@value{UPDATED} @* + +@insertcopying +@end titlepage + +@contents + +@c ********************************************************************* +@node Top +@top Weiput + +This document describes the Weipub, a teeny tiny ActivityPub thing, version @value{VERSION}. + +@menu +* Introduction:: What is this all about? +* Installation:: How to install weipub. + +* GNU Free Documentation License:: The license of this manual. +* Concept Index:: Concepts. +* Programming Index:: Data types, functions, and variables. +@end menu + +@c ********************************************************************* +@node Introduction +@chapter Introduction + +TODO + +@c ********************************************************************* +@node Installation +@chapter Installation + +Weipub uses the GNU build system. To install it from a release +tarball just unpack it and run the usual commands: + +@cindex installing from source +@cindex building from source +@example +./configure +make +make install +@end example + +If you want to build the sources from the source repository you need to +bootstrap the build system first. Run @code{autoreconf -vif} first and +then perform the above steps. + +@c ********************************************************************* +@node GNU Free Documentation License +@appendix GNU Free Documentation License + +@include fdl-1.3.texi + +@page + +@c ********************************************************************* +@node Concept Index +@unnumbered Concept Index + +@printindex cp + +@node Programming Index +@unnumbered Programming Index +@syncodeindex tp fn +@syncodeindex vr fn +@printindex fn + +@bye diff --git a/fdl-1.3.texi b/fdl-1.3.texi new file mode 100644 index 0000000..cb71f05 --- /dev/null +++ b/fdl-1.3.texi @@ -0,0 +1,505 @@ +@c The GNU Free Documentation License. +@center Version 1.3, 3 November 2008 + +@c This file is intended to be included within another document, +@c hence no sectioning command or @node. + +@display +Copyright @copyright{} 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. +@uref{http://fsf.org/} + +Everyone is permitted to copy and distribute verbatim copies +of this license document, but changing it is not allowed. +@end display + +@enumerate 0 +@item +PREAMBLE + +The purpose of this License is to make a manual, textbook, or other +functional and useful document @dfn{free} in the sense of freedom: to +assure everyone the effective freedom to copy and redistribute it, +with or without modifying it, either commercially or noncommercially. +Secondarily, this License preserves for the author and publisher a way +to get credit for their work, while not being considered responsible +for modifications made by others. + +This License is a kind of ``copyleft'', which means that derivative +works of the document must themselves be free in the same sense. It +complements the GNU General Public License, which is a copyleft +license designed for free software. + +We have designed this License in order to use it for manuals for free +software, because free software needs free documentation: a free +program should come with manuals providing the same freedoms that the +software does. But this License is not limited to software manuals; +it can be used for any textual work, regardless of subject matter or +whether it is published as a printed book. We recommend this License +principally for works whose purpose is instruction or reference. + +@item +APPLICABILITY AND DEFINITIONS + +This License applies to any manual or other work, in any medium, that +contains a notice placed by the copyright holder saying it can be +distributed under the terms of this License. Such a notice grants a +world-wide, royalty-free license, unlimited in duration, to use that +work under the conditions stated herein. The ``Document'', below, +refers to any such manual or work. Any member of the public is a +licensee, and is addressed as ``you''. You accept the license if you +copy, modify or distribute the work in a way requiring permission +under copyright law. + +A ``Modified Version'' of the Document means any work containing the +Document or a portion of it, either copied verbatim, or with +modifications and/or translated into another language. + +A ``Secondary Section'' is a named appendix or a front-matter section +of the Document that deals exclusively with the relationship of the +publishers or authors of the Document to the Document's overall +subject (or to related matters) and contains nothing that could fall +directly within that overall subject. (Thus, if the Document is in +part a textbook of mathematics, a Secondary Section may not explain +any mathematics.) The relationship could be a matter of historical +connection with the subject or with related matters, or of legal, +commercial, philosophical, ethical or political position regarding +them. + +The ``Invariant Sections'' are certain Secondary Sections whose titles +are designated, as being those of Invariant Sections, in the notice +that says that the Document is released under this License. If a +section does not fit the above definition of Secondary then it is not +allowed to be designated as Invariant. The Document may contain zero +Invariant Sections. If the Document does not identify any Invariant +Sections then there are none. + +The ``Cover Texts'' are certain short passages of text that are listed, +as Front-Cover Texts or Back-Cover Texts, in the notice that says that +the Document is released under this License. A Front-Cover Text may +be at most 5 words, and a Back-Cover Text may be at most 25 words. + +A ``Transparent'' copy of the Document means a machine-readable copy, +represented in a format whose specification is available to the +general public, that is suitable for revising the document +straightforwardly with generic text editors or (for images composed of +pixels) generic paint programs or (for drawings) some widely available +drawing editor, and that is suitable for input to text formatters or +for automatic translation to a variety of formats suitable for input +to text formatters. A copy made in an otherwise Transparent file +format whose markup, or absence of markup, has been arranged to thwart +or discourage subsequent modification by readers is not Transparent. +An image format is not Transparent if used for any substantial amount +of text. A copy that is not ``Transparent'' is called ``Opaque''. + +Examples of suitable formats for Transparent copies include plain +ASCII without markup, Texinfo input format, La@TeX{} input +format, SGML or XML using a publicly available +DTD, and standard-conforming simple HTML, +PostScript or PDF designed for human modification. Examples +of transparent image formats include PNG, XCF and +JPG. Opaque formats include proprietary formats that can be +read and edited only by proprietary word processors, SGML or +XML for which the DTD and/or processing tools are +not generally available, and the machine-generated HTML, +PostScript or PDF produced by some word processors for +output purposes only. + +The ``Title Page'' means, for a printed book, the title page itself, +plus such following pages as are needed to hold, legibly, the material +this License requires to appear in the title page. For works in +formats which do not have any title page as such, ``Title Page'' means +the text near the most prominent appearance of the work's title, +preceding the beginning of the body of the text. + +The ``publisher'' means any person or entity that distributes copies +of the Document to the public. + +A section ``Entitled XYZ'' means a named subunit of the Document whose +title either is precisely XYZ or contains XYZ in parentheses following +text that translates XYZ in another language. (Here XYZ stands for a +specific section name mentioned below, such as ``Acknowledgements'', +``Dedications'', ``Endorsements'', or ``History''.) To ``Preserve the Title'' +of such a section when you modify the Document means that it remains a +section ``Entitled XYZ'' according to this definition. + +The Document may include Warranty Disclaimers next to the notice which +states that this License applies to the Document. These Warranty +Disclaimers are considered to be included by reference in this +License, but only as regards disclaiming warranties: any other +implication that these Warranty Disclaimers may have is void and has +no effect on the meaning of this License. + +@item +VERBATIM COPYING + +You may copy and distribute the Document in any medium, either +commercially or noncommercially, provided that this License, the +copyright notices, and the license notice saying this License applies +to the Document are reproduced in all copies, and that you add no other +conditions whatsoever to those of this License. You may not use +technical measures to obstruct or control the reading or further +copying of the copies you make or distribute. However, you may accept +compensation in exchange for copies. If you distribute a large enough +number of copies you must also follow the conditions in section 3. + +You may also lend copies, under the same conditions stated above, and +you may publicly display copies. + +@item +COPYING IN QUANTITY + +If you publish printed copies (or copies in media that commonly have +printed covers) of the Document, numbering more than 100, and the +Document's license notice requires Cover Texts, you must enclose the +copies in covers that carry, clearly and legibly, all these Cover +Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on +the back cover. Both covers must also clearly and legibly identify +you as the publisher of these copies. The front cover must present +the full title with all words of the title equally prominent and +visible. You may add other material on the covers in addition. +Copying with changes limited to the covers, as long as they preserve +the title of the Document and satisfy these conditions, can be treated +as verbatim copying in other respects. + +If the required texts for either cover are too voluminous to fit +legibly, you should put the first ones listed (as many as fit +reasonably) on the actual cover, and continue the rest onto adjacent +pages. + +If you publish or distribute Opaque copies of the Document numbering +more than 100, you must either include a machine-readable Transparent +copy along with each Opaque copy, or state in or with each Opaque copy +a computer-network location from which the general network-using +public has access to download using public-standard network protocols +a complete Transparent copy of the Document, free of added material. +If you use the latter option, you must take reasonably prudent steps, +when you begin distribution of Opaque copies in quantity, to ensure +that this Transparent copy will remain thus accessible at the stated +location until at least one year after the last time you distribute an +Opaque copy (directly or through your agents or retailers) of that +edition to the public. + +It is requested, but not required, that you contact the authors of the +Document well before redistributing any large number of copies, to give +them a chance to provide you with an updated version of the Document. + +@item +MODIFICATIONS + +You may copy and distribute a Modified Version of the Document under +the conditions of sections 2 and 3 above, provided that you release +the Modified Version under precisely this License, with the Modified +Version filling the role of the Document, thus licensing distribution +and modification of the Modified Version to whoever possesses a copy +of it. In addition, you must do these things in the Modified Version: + +@enumerate A +@item +Use in the Title Page (and on the covers, if any) a title distinct +from that of the Document, and from those of previous versions +(which should, if there were any, be listed in the History section +of the Document). You may use the same title as a previous version +if the original publisher of that version gives permission. + +@item +List on the Title Page, as authors, one or more persons or entities +responsible for authorship of the modifications in the Modified +Version, together with at least five of the principal authors of the +Document (all of its principal authors, if it has fewer than five), +unless they release you from this requirement. + +@item +State on the Title page the name of the publisher of the +Modified Version, as the publisher. + +@item +Preserve all the copyright notices of the Document. + +@item +Add an appropriate copyright notice for your modifications +adjacent to the other copyright notices. + +@item +Include, immediately after the copyright notices, a license notice +giving the public permission to use the Modified Version under the +terms of this License, in the form shown in the Addendum below. + +@item +Preserve in that license notice the full lists of Invariant Sections +and required Cover Texts given in the Document's license notice. + +@item +Include an unaltered copy of this License. + +@item +Preserve the section Entitled ``History'', Preserve its Title, and add +to it an item stating at least the title, year, new authors, and +publisher of the Modified Version as given on the Title Page. If +there is no section Entitled ``History'' in the Document, create one +stating the title, year, authors, and publisher of the Document as +given on its Title Page, then add an item describing the Modified +Version as stated in the previous sentence. + +@item +Preserve the network location, if any, given in the Document for +public access to a Transparent copy of the Document, and likewise +the network locations given in the Document for previous versions +it was based on. These may be placed in the ``History'' section. +You may omit a network location for a work that was published at +least four years before the Document itself, or if the original +publisher of the version it refers to gives permission. + +@item +For any section Entitled ``Acknowledgements'' or ``Dedications'', Preserve +the Title of the section, and preserve in the section all the +substance and tone of each of the contributor acknowledgements and/or +dedications given therein. + +@item +Preserve all the Invariant Sections of the Document, +unaltered in their text and in their titles. Section numbers +or the equivalent are not considered part of the section titles. + +@item +Delete any section Entitled ``Endorsements''. Such a section +may not be included in the Modified Version. + +@item +Do not retitle any existing section to be Entitled ``Endorsements'' or +to conflict in title with any Invariant Section. + +@item +Preserve any Warranty Disclaimers. +@end enumerate + +If the Modified Version includes new front-matter sections or +appendices that qualify as Secondary Sections and contain no material +copied from the Document, you may at your option designate some or all +of these sections as invariant. To do this, add their titles to the +list of Invariant Sections in the Modified Version's license notice. +These titles must be distinct from any other section titles. + +You may add a section Entitled ``Endorsements'', provided it contains +nothing but endorsements of your Modified Version by various +parties---for example, statements of peer review or that the text has +been approved by an organization as the authoritative definition of a +standard. + +You may add a passage of up to five words as a Front-Cover Text, and a +passage of up to 25 words as a Back-Cover Text, to the end of the list +of Cover Texts in the Modified Version. Only one passage of +Front-Cover Text and one of Back-Cover Text may be added by (or +through arrangements made by) any one entity. If the Document already +includes a cover text for the same cover, previously added by you or +by arrangement made by the same entity you are acting on behalf of, +you may not add another; but you may replace the old one, on explicit +permission from the previous publisher that added the old one. + +The author(s) and publisher(s) of the Document do not by this License +give permission to use their names for publicity for or to assert or +imply endorsement of any Modified Version. + +@item +COMBINING DOCUMENTS + +You may combine the Document with other documents released under this +License, under the terms defined in section 4 above for modified +versions, provided that you include in the combination all of the +Invariant Sections of all of the original documents, unmodified, and +list them all as Invariant Sections of your combined work in its +license notice, and that you preserve all their Warranty Disclaimers. + +The combined work need only contain one copy of this License, and +multiple identical Invariant Sections may be replaced with a single +copy. If there are multiple Invariant Sections with the same name but +different contents, make the title of each such section unique by +adding at the end of it, in parentheses, the name of the original +author or publisher of that section if known, or else a unique number. +Make the same adjustment to the section titles in the list of +Invariant Sections in the license notice of the combined work. + +In the combination, you must combine any sections Entitled ``History'' +in the various original documents, forming one section Entitled +``History''; likewise combine any sections Entitled ``Acknowledgements'', +and any sections Entitled ``Dedications''. You must delete all +sections Entitled ``Endorsements.'' + +@item +COLLECTIONS OF DOCUMENTS + +You may make a collection consisting of the Document and other documents +released under this License, and replace the individual copies of this +License in the various documents with a single copy that is included in +the collection, provided that you follow the rules of this License for +verbatim copying of each of the documents in all other respects. + +You may extract a single document from such a collection, and distribute +it individually under this License, provided you insert a copy of this +License into the extracted document, and follow this License in all +other respects regarding verbatim copying of that document. + +@item +AGGREGATION WITH INDEPENDENT WORKS + +A compilation of the Document or its derivatives with other separate +and independent documents or works, in or on a volume of a storage or +distribution medium, is called an ``aggregate'' if the copyright +resulting from the compilation is not used to limit the legal rights +of the compilation's users beyond what the individual works permit. +When the Document is included in an aggregate, this License does not +apply to the other works in the aggregate which are not themselves +derivative works of the Document. + +If the Cover Text requirement of section 3 is applicable to these +copies of the Document, then if the Document is less than one half of +the entire aggregate, the Document's Cover Texts may be placed on +covers that bracket the Document within the aggregate, or the +electronic equivalent of covers if the Document is in electronic form. +Otherwise they must appear on printed covers that bracket the whole +aggregate. + +@item +TRANSLATION + +Translation is considered a kind of modification, so you may +distribute translations of the Document under the terms of section 4. +Replacing Invariant Sections with translations requires special +permission from their copyright holders, but you may include +translations of some or all Invariant Sections in addition to the +original versions of these Invariant Sections. You may include a +translation of this License, and all the license notices in the +Document, and any Warranty Disclaimers, provided that you also include +the original English version of this License and the original versions +of those notices and disclaimers. In case of a disagreement between +the translation and the original version of this License or a notice +or disclaimer, the original version will prevail. + +If a section in the Document is Entitled ``Acknowledgements'', +``Dedications'', or ``History'', the requirement (section 4) to Preserve +its Title (section 1) will typically require changing the actual +title. + +@item +TERMINATION + +You may not copy, modify, sublicense, or distribute the Document +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense, or distribute it is void, and +will automatically terminate your rights under this License. + +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, receipt of a copy of some or all of the same material does +not give you any rights to use it. + +@item +FUTURE REVISIONS OF THIS LICENSE + +The Free Software Foundation may publish new, revised versions +of the GNU Free Documentation 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. See +@uref{http://www.gnu.org/copyleft/}. + +Each version of the License is given a distinguishing version number. +If the Document specifies that a particular numbered version of this +License ``or any later version'' applies to it, you have the option of +following the terms and conditions either of that specified version or +of any later version that has been published (not as a draft) by the +Free Software Foundation. If the Document does not specify a version +number of this License, you may choose any version ever published (not +as a draft) by the Free Software Foundation. If the Document +specifies that a proxy can decide which future versions of this +License can be used, that proxy's public statement of acceptance of a +version permanently authorizes you to choose that version for the +Document. + +@item +RELICENSING + +``Massive Multiauthor Collaboration Site'' (or ``MMC Site'') means any +World Wide Web server that publishes copyrightable works and also +provides prominent facilities for anybody to edit those works. A +public wiki that anybody can edit is an example of such a server. A +``Massive Multiauthor Collaboration'' (or ``MMC'') contained in the +site means any set of copyrightable works thus published on the MMC +site. + +``CC-BY-SA'' means the Creative Commons Attribution-Share Alike 3.0 +license published by Creative Commons Corporation, a not-for-profit +corporation with a principal place of business in San Francisco, +California, as well as future copyleft versions of that license +published by that same organization. + +``Incorporate'' means to publish or republish a Document, in whole or +in part, as part of another Document. + +An MMC is ``eligible for relicensing'' if it is licensed under this +License, and if all works that were first published under this License +somewhere other than this MMC, and subsequently incorporated in whole +or in part into the MMC, (1) had no cover texts or invariant sections, +and (2) were thus incorporated prior to November 1, 2008. + +The operator of an MMC Site may republish an MMC contained in the site +under CC-BY-SA on the same site at any time before August 1, 2009, +provided the MMC is eligible for relicensing. + +@end enumerate + +@page +@heading ADDENDUM: How to use this License for your documents + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and +license notices just after the title page: + +@smallexample +@group + Copyright (C) @var{year} @var{your name}. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.3 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover + Texts. A copy of the license is included in the section entitled ``GNU + Free Documentation License''. +@end group +@end smallexample + +If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, +replace the ``with@dots{}Texts.''@: line with this: + +@smallexample +@group + with the Invariant Sections being @var{list their titles}, with + the Front-Cover Texts being @var{list}, and with the Back-Cover Texts + being @var{list}. +@end group +@end smallexample + +If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + +If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of +free software license, such as the GNU General Public License, +to permit their use in free software. + +@c Local Variables: +@c ispell-local-pdict: "ispell-dict" +@c End: diff --git a/guile.am b/guile.am new file mode 100644 index 0000000..c89d935 --- /dev/null +++ b/guile.am @@ -0,0 +1,19 @@ +GOBJECTS = $(SOURCES:%.scm=%.go) + +nobase_mod_DATA = $(SOURCES) $(NOCOMP_SOURCES) +nobase_go_DATA = $(GOBJECTS) + +# Make sure source files are installed first, so that the mtime of +# installed compiled files is greater than that of installed source +# files. See +# +# for details. +guile_install_go_files = install-nobase_goDATA +$(guile_install_go_files): install-nobase_modDATA + +CLEANFILES = $(GOBJECTS) +EXTRA_DIST = $(SOURCES) $(NOCOMP_SOURCES) +GUILE_WARNINGS = -Wunbound-variable -Warity-mismatch -Wformat +SUFFIXES = .scm .go +.scm.go: + $(AM_V_GEN)$(top_builddir)/pre-inst-env $(GUILE_TOOLS) compile $(GUILE_WARNINGS) -o "$@" "$<" diff --git a/manifest.scm b/manifest.scm new file mode 100644 index 0000000..b4fb23c --- /dev/null +++ b/manifest.scm @@ -0,0 +1,7 @@ +(specifications->manifest + (list "autoconf" "automake" "pkg-config" "texinfo" + "guile" + "guile-sqlite3" + "guile-gcrypt" + "guile-json" + "guile-config")) diff --git a/pre-inst-env.in b/pre-inst-env.in new file mode 100644 index 0000000..af75580 --- /dev/null +++ b/pre-inst-env.in @@ -0,0 +1,33 @@ +#!/bin/sh + +# weipub - Teeny tiny activitypub thing +# Copyright © 2014 David Thompson +# +# This program is free software: you can redistribute it and/or +# modify it under the terms of the GNU Affero 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 +# Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public +# License along with this program. If not, see +# . + +abs_top_srcdir="`cd "@abs_top_srcdir@" > /dev/null; pwd`" +abs_top_builddir="`cd "@abs_top_builddir@" > /dev/null; pwd`" + +GUILE_LOAD_COMPILED_PATH="$abs_top_builddir${GUILE_LOAD_COMPILED_PATH:+:}$GUILE_LOAD_COMPILED_PATH" +GUILE_LOAD_PATH="$abs_top_builddir:$abs_top_srcdir${GUILE_LOAD_PATH:+:}:$GUILE_LOAD_PATH" +export GUILE_LOAD_COMPILED_PATH GUILE_LOAD_PATH + +PATH="$abs_top_builddir/scripts:$PATH" +export PATH + +WEIPUB_UNINSTALLED="t" +export WEIPUB_UNINSTALLED + +exec "$@" diff --git a/weipub/accounts.scm b/weipub/accounts.scm new file mode 100644 index 0000000..b674bab --- /dev/null +++ b/weipub/accounts.scm @@ -0,0 +1,64 @@ +;;; weipub - Teeny tiny activitypub thing +;;; Copyright © 2022 Ricardo Wurmus +;;; +;;; This program is free software: you can redistribute it and/or +;;; modify it under the terms of the GNU Affero 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 +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with this program. If not, see +;;; . + +(define-module (weipub accounts) + #:use-module (weipub config) + #:use-module (weipub database) + #:use-module (gcrypt hash) + #:use-module (gcrypt base64) + #:use-module (rnrs bytevectors) + #:use-module (ice-9 match) + #:export (sign-up! + account-url)) + +(define (password-hash/b64 name password) + "Merge NAME and PASSWORD in a bytevector and hash it with SHA256, +returning its base64 representation. That's how it is stored in the +database." + (let* ((un (string->utf8 name)) + (pw (string->utf8 password)) + (un-l (bytevector-length un)) + (pw-l (bytevector-length pw)) + (bv (make-bytevector (+ un-l pw-l)))) + (bytevector-copy! un 0 bv 0 un-l) + (bytevector-copy! pw 0 bv un-l pw-l) + (base64-encode (sha256 bv)))) + +(define* (sign-up! name password) + "Create a new account with NAME and PASSWORD. Throws exception if +NAME is already taken." + (catch 'sqlite-error + (lambda () + (with-db (lambda (db) + (sqlite-exec db + "INSERT INTO accounts (name, password) VALUES (" + name "," (password-hash/b64 name password) + ");")))) + (lambda (key . args) + (match args + ((_ _ message) + (cond + ((string-contains message "UNIQUE") + (throw 'account-name-taken name)) + ((string-contains message "CHECK") + (throw 'account-name-invalid name)) + (else + (apply throw key args)))) + (_ (apply throw key args)))))) + +(define (account-url name) + (format #false "https://~a/u/~a" (%config 'domain) name)) diff --git a/weipub/config.scm.in b/weipub/config.scm.in new file mode 100644 index 0000000..230ff54 --- /dev/null +++ b/weipub/config.scm.in @@ -0,0 +1,106 @@ +;;; weipub - Teeny tiny activitypub thing +;;; Copyright © 2022 Ricardo Wurmus +;;; +;;; This program is free software: you can redistribute it and/or +;;; modify it under the terms of the GNU Affero 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 +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with this program. If not, see +;;; . + +(define-module (weipub config) + #:use-module (ice-9 match) + #:use-module (config) + #:use-module (config api) + #:use-module (config licenses) + #:export (config + %config)) + +(define config + (configuration + (name 'weipub) + (synopsis "") + (description "") + (keywords + (list + (switch + (name 'domain) + (character #\d) + (default "pub.example.com") + (synopsis "Domain name") + (example "pub.example.com") + (test string?)) + (switch + (name 'host) + (synopsis "Host name on which to listen for connections") + (character #\H) + (default (match (getaddrinfo "localhost") + ((info _ ...) + (addrinfo:addr info)))) + (example "0.0.0.0") + (handler (lambda (value) + (catch 'getaddrinfo-error + (lambda () + (match (getaddrinfo value) + ((info _ ...) + (addrinfo:addr info)))) + (lambda (key error) + (format (current-error-port) + "lookup of host '~a' failed: ~a~%" + value (gai-strerror error)) + #f)))) + (test vector?)) + (switch + (name 'port) + (synopsis "Port on which to listen for connections") + (character #\p) + (default 5000) + (test integer?) + (handler string->number)) + (switch + (name 'db-file) + (default "weipub.db") + (synopsis "Sqlite database file") + (example "/path/to/weipub.db") + (test string?)) + (switch + (name 'database-migrations-dir) + (synopsis "Directory containing database migrations.") + (example "/path/to/db/migrations") + (default + ;; Try to find the "db/migrations" directory relative to the + ;; executable first. This is useful when using + ;; "pre-inst-env". + (let ((maybe-dir + (string-append (getcwd) "/db/migrations"))) + (if (and (getenv "WEIPUB_UNINSTALLED") + (file-exists? maybe-dir)) + maybe-dir + "@prefix@/share/weipub/db/migrations"))) + (test + (lambda (value) + (and (string? value) + (file-exists? value))))))) + (generate-cmdtree? #false) + (version "@PACKAGE_VERSION@") + (license agpl3+) + (copyright '(2022)) + (author "Ricardo Wurmus"))) + +(define defaults + (getopt-config (list "weipub" "/dev/null") config)) + +(define %config + (let ((codex defaults)) + (match-lambda + ((? codex? options) + (set! codex options) + #true) + (key (option-ref codex key))))) diff --git a/weipub/database.scm b/weipub/database.scm new file mode 100644 index 0000000..41a2f6f --- /dev/null +++ b/weipub/database.scm @@ -0,0 +1,157 @@ +;;; weipub - Teeny tiny activitypub thing +;;; Copyright © 2022 Ricardo Wurmus +;;; +;;; This program is free software: you can redistribute it and/or +;;; modify it under the terms of the GNU Affero 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 +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with this program. If not, see +;;; . + +(define-module (weipub database) + #:use-module (weipub config) + #:use-module (sqlite3) + #:use-module (ice-9 ftw) + #:use-module (ice-9 match) + #:use-module (ice-9 regex) + #:use-module (ice-9 textual-ports) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-26) + #:export (with-db + db-apply-migrations! + sqlite-exec)) + +(define (%sqlite-exec db sql . args) + "Evaluate the given SQL query with the given ARGS. Return the list of +rows." + (define (normalize arg) + ;; Turn ARG into a string, unless it's a primitive SQL datatype. + (if (or (null? arg) (pair? arg) (vector? arg)) + (object->string arg) + arg)) + + (let ((stmt (sqlite-prepare db sql #:cache? #t))) + (for-each (lambda (arg index) + (sqlite-bind stmt index (normalize arg))) + args (iota (length args) 1)) + (let ((result (sqlite-fold-right cons '() stmt))) + (sqlite-finalize stmt) + result))) + +(define-syntax sqlite-exec/bind + (lambda (s) + ;; Expand to an '%sqlite-exec' call where the query string has + ;; interspersed question marks and the argument list is separate. + (define (string-literal? s) + (string? (syntax->datum s))) + + (syntax-case s () + ((_ db (bindings ...) tail str arg rest ...) + #'(sqlite-exec/bind db + (bindings ... (str arg)) + tail + rest ...)) + ((_ db (bindings ...) tail str) + #'(sqlite-exec/bind db (bindings ...) str)) + ((_ db ((strings args) ...) tail) + (and (every string-literal? #'(strings ...)) + (string-literal? #'tail)) + ;; Optimized case: only string literals. + (with-syntax ((query (string-join + (append (syntax->datum #'(strings ...)) + (list (syntax->datum #'tail))) + "? "))) + #'(%sqlite-exec db query args ...))) + ((_ db ((strings args) ...) tail) + ;; Fallback case: some of the strings aren't literals. + #'(%sqlite-exec db (string-join (list strings ... tail) "? ") + args ...))))) + +(define-syntax-rule (sqlite-exec db query args ...) + "Execute the specific QUERY with the given ARGS. Uses of 'sqlite-exec' +typically look like this: + + (sqlite-exec db \"SELECT * FROM Foo WHERE x = \" + x \"AND Y=\" y \";\") + +References to variables 'x' and 'y' here are replaced by question marks in the +SQL query, and then 'sqlite-bind' is used to bind them. + +This ensures that (1) SQL injection is impossible, and (2) the number of +question marks matches the number of arguments to bind." + (sqlite-exec/bind db () "" query args ...)) + +(define (last-insert-rowid db) + (vector-ref (car (sqlite-exec db "SELECT last_insert_rowid();")) + 0)) + +(define (with-db proc) + (let ((db (sqlite-open (%config 'db-file) + (logior SQLITE_OPEN_READWRITE + SQLITE_OPEN_NOMUTEX)))) + (dynamic-wind + (const #t) + (lambda () + (proc db)) + (lambda () (sqlite-close db))))) + +(define-syntax-rule (with-transaction db exp ...) + "Evalute EXP within an SQL transaction." + (begin + (sqlite-exec db "BEGIN TRANSACTION;") + exp ... + (sqlite-exec db "COMMIT;"))) + +(define (read-sql-file file-name) + "Return a string containing SQL instructions from FILE-NAME." + (call-with-input-file file-name get-string-all)) + +(define (db-load db file-name) + "Evaluate the FILE-NAME containing SQL statements into DB." + (sqlite-exec db (read-sql-file file-name))) + +(define (db-schema-version db) + "Return the current schema version." + (catch #t + (lambda () + (let ((result (sqlite-exec db "SELECT version FROM migrations;"))) + (match result + (() #false) + ((row) (car row))))) + (const #false))) + +(define (db-set-schema-version! db version) + "Update VERSION field in schema migrations table." + (sqlite-exec db "DELETE FROM migrations;") + (sqlite-exec db "INSERT INTO migrations (version) VALUES (" version ");") + #true) + +(define (db-apply-migrations!) + "Apply database migrations that haven't been applied yet." + (with-db + (lambda (db) + (let* ((all-migrations + (map (cut match:substring <> 0) + (filter-map (cut string-match ".*\\.sql$" <>) + (scandir (%config 'database-migrations-dir))))) + (current-version (pk 'current (db-schema-version db))) + (migrations-to-apply + (if current-version + (match (member current-version all-migrations) + ((current . rest) rest) + (_ '())) + all-migrations))) + (for-each (lambda (file) + (format (current-error-port) + "Applying migration `~a'..." file) + (db-load db (string-append (%config 'database-migrations-dir) "/" file)) + (db-set-schema-version! db file) + (format (current-error-port) "DONE~%")) + migrations-to-apply))))) -- cgit v1.2.3