initial commit
This commit is contained in:
Quentin W
commit
5b839e0543
174 changed files with 12261 additions and 0 deletions
3
.gitignore
vendored
Normal file
3
.gitignore
vendored
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
.DS_Store
|
||||||
|
.htpasswd
|
||||||
|
werc/etc/*
|
||||||
48
Dockerfile
Normal file
48
Dockerfile
Normal file
|
|
@ -0,0 +1,48 @@
|
||||||
|
FROM alpine:latest
|
||||||
|
|
||||||
|
#ENV PLAN9 /usr/lib/9base
|
||||||
|
ENV PLAN9 /usr/lib/plan9
|
||||||
|
ENV EDITOR /usr/bin/nvim
|
||||||
|
|
||||||
|
#RUN apk add 9base --repository=http://dl-cdn.alpinelinux.org/alpine/edge/testing/
|
||||||
|
#RUN apk add plan9port
|
||||||
|
RUN apk add --update --no-cache \
|
||||||
|
lighttpd \
|
||||||
|
lighttpd-mod_auth \
|
||||||
|
apache2-utils \
|
||||||
|
curl \
|
||||||
|
discount \
|
||||||
|
shadow \
|
||||||
|
imagemagick \
|
||||||
|
aspell \
|
||||||
|
aspell-en \
|
||||||
|
neovim \
|
||||||
|
git build-base linux-headers libucontext-dev libxt-dev libx11-dev fontconfig-dev libxext-dev perl \
|
||||||
|
&& rm -rf /var/cache/apk/*
|
||||||
|
RUN curl http://werc.cat-v.org/download/werc-1.5.0.tar.gz | tar xzf - && mkdir -p /var/www/ && mv ../werc-*/ /var/www/werc
|
||||||
|
RUN git clone https://github.com/9fans/plan9port /usr/lib/plan9
|
||||||
|
WORKDIR /usr/lib/plan9
|
||||||
|
RUN ./INSTALL
|
||||||
|
WORKDIR /
|
||||||
|
|
||||||
|
COPY etc/lighttpd/ /etc/lighttpd/
|
||||||
|
RUN sed 's/fltr_cache md2html\.awk/fltr_cache markdown/' /var/www/werc/etc/initrc > /var/www/werc/etc/initrc.local
|
||||||
|
COPY init.sh /usr/local/bin
|
||||||
|
RUN chmod +x /usr/local/bin/init.sh
|
||||||
|
|
||||||
|
RUN ln -s $PLAN9 /usr/local/plan9
|
||||||
|
RUN ln -s $PLAN9/bin/rc /bin/rc
|
||||||
|
RUN ln -s $PLAN9/bin/awk /bin/awk
|
||||||
|
#RUN cp /usr/bin/sha1sum $PLAN9/bin
|
||||||
|
ENV PATH="$PLAN9/bin:${PATH}"
|
||||||
|
|
||||||
|
EXPOSE 80
|
||||||
|
|
||||||
|
#RUN /var/www/werc/bin/contrib/fix-rc-scripts /var/www/werc/bin
|
||||||
|
|
||||||
|
RUN usermod -u 1000 lighttpd
|
||||||
|
RUN chown -R lighttpd:root /var/www
|
||||||
|
RUN chmod -R g+w /var/www/werc/sites
|
||||||
|
#RUN sed '1s|^.*$|#!/usr/lib/9base/bin/rc|' /var/www/werc/bin/werc.rc > /tmp/werc.rc.tmp && mv /tmp/werc.rc.tmp /var/www/werc/bin/werc.rc && chmod 775 /var/www/werc/bin/werc.rc
|
||||||
|
#RUN sed 's/formatter=(fltr_cache md2html\.awk)/formatter=(fltr_cache markdown)/' /var/www/werc/etc/initrc > /var/www/werc/etc/initrc.local
|
||||||
|
CMD ["init.sh"]
|
||||||
32
docker-compose.yml
Normal file
32
docker-compose.yml
Normal file
|
|
@ -0,0 +1,32 @@
|
||||||
|
services:
|
||||||
|
werc:
|
||||||
|
build:
|
||||||
|
dockerfile: Dockerfile
|
||||||
|
context: .
|
||||||
|
ports:
|
||||||
|
- 80:80
|
||||||
|
environment:
|
||||||
|
- HOSTNAME=thirdculture.top
|
||||||
|
volumes:
|
||||||
|
- werc:/var/www/werc
|
||||||
|
- lighttpd:/etc/lighttpd
|
||||||
|
tty: true
|
||||||
|
gossa:
|
||||||
|
image: pldubouilh/gossa
|
||||||
|
ports:
|
||||||
|
- 8001:8001
|
||||||
|
volumes:
|
||||||
|
- ./werc/sites/thirdculture.top/_files:/shared
|
||||||
|
volumes:
|
||||||
|
werc:
|
||||||
|
driver: local
|
||||||
|
driver_opts:
|
||||||
|
o: bind
|
||||||
|
type: none
|
||||||
|
device: "./werc"
|
||||||
|
lighttpd:
|
||||||
|
driver: local
|
||||||
|
driver_opts:
|
||||||
|
o: bind
|
||||||
|
type: none
|
||||||
|
device: "./etc/lighttpd"
|
||||||
21
etc/lighttpd/conf.d/files.thirdculture.top.conf
Normal file
21
etc/lighttpd/conf.d/files.thirdculture.top.conf
Normal file
|
|
@ -0,0 +1,21 @@
|
||||||
|
$HTTP["host"] =~ "^files\.thirdculture\.top$" {
|
||||||
|
auth.backend = "htpasswd"
|
||||||
|
auth.backend.htpasswd.userfile = "/etc/lighttpd/.htpasswd"
|
||||||
|
|
||||||
|
auth.require = ( "" =>
|
||||||
|
(
|
||||||
|
"method" => "basic",
|
||||||
|
"realm" => "Password protected area",
|
||||||
|
"require" => "valid-user"
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
proxy.server = (
|
||||||
|
"" => (
|
||||||
|
(
|
||||||
|
"host" => "gossa",
|
||||||
|
"port" => 8001
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
}
|
||||||
6
etc/lighttpd/conf.d/ppl.thirdculture.top.conf
Normal file
6
etc/lighttpd/conf.d/ppl.thirdculture.top.conf
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
$HTTP["host"] =~ "^ppl\.thirdculture\.top$" {
|
||||||
|
index-file.names = ( )
|
||||||
|
server.error-handler-404 = "/werc.rc"
|
||||||
|
alias.url += ( "/werc.rc" => "/var/www/werc/bin/werc.rc" )
|
||||||
|
cgi.assign += ( ".rc" => "")
|
||||||
|
}
|
||||||
6
etc/lighttpd/conf.d/thirdculture.top.conf
Normal file
6
etc/lighttpd/conf.d/thirdculture.top.conf
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
$HTTP["host"] =~ "^thirdculture\.top$" {
|
||||||
|
index-file.names = ( )
|
||||||
|
server.error-handler-404 = "/werc.rc"
|
||||||
|
alias.url += ( "/werc.rc" => "/var/www/werc/bin/werc.rc" )
|
||||||
|
cgi.assign += ( ".rc" => "")
|
||||||
|
}
|
||||||
326
etc/lighttpd/lighttpd.conf
Normal file
326
etc/lighttpd/lighttpd.conf
Normal file
|
|
@ -0,0 +1,326 @@
|
||||||
|
###############################################################################
|
||||||
|
# Default lighttpd.conf for Gentoo.
|
||||||
|
# $Header: /var/cvsroot/gentoo-x86/www-servers/lighttpd/files/conf/lighttpd.conf,v 1.3 2005/09/01 14:22:35 ka0ttic Exp $
|
||||||
|
###############################################################################
|
||||||
|
|
||||||
|
# {{{ variables
|
||||||
|
var.basedir = "/var/www/localhost"
|
||||||
|
var.logdir = "/var/log/lighttpd"
|
||||||
|
var.statedir = "/var/lib/lighttpd"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ modules
|
||||||
|
# At the very least, mod_access and mod_accesslog should be enabled.
|
||||||
|
# All other modules should only be loaded if necessary.
|
||||||
|
# NOTE: the order of modules is important.
|
||||||
|
server.modules = (
|
||||||
|
"mod_rewrite",
|
||||||
|
# "mod_redirect",
|
||||||
|
"mod_alias",
|
||||||
|
"mod_access",
|
||||||
|
# "mod_cml",
|
||||||
|
# "mod_trigger_b4_dl",
|
||||||
|
"mod_auth",
|
||||||
|
# "mod_status",
|
||||||
|
# "mod_setenv",
|
||||||
|
"mod_proxy",
|
||||||
|
# "mod_simple_vhost",
|
||||||
|
# "mod_evhost",
|
||||||
|
# "mod_userdir",
|
||||||
|
# "mod_deflate",
|
||||||
|
# "mod_ssi",
|
||||||
|
# "mod_usertrack",
|
||||||
|
# "mod_expire",
|
||||||
|
# "mod_secdownload",
|
||||||
|
# "mod_rrdtool",
|
||||||
|
# "mod_webdav",
|
||||||
|
"mod_accesslog"
|
||||||
|
)
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ includes
|
||||||
|
include "mime-types.conf"
|
||||||
|
# uncomment for cgi support
|
||||||
|
include "mod_cgi.conf"
|
||||||
|
# uncomment for php/fastcgi support
|
||||||
|
# include "mod_fastcgi.conf"
|
||||||
|
# uncomment for php/fastcgi fpm support
|
||||||
|
# include "mod_fastcgi_fpm.conf"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ server settings
|
||||||
|
server.username = "lighttpd"
|
||||||
|
server.groupname = "lighttpd"
|
||||||
|
|
||||||
|
server.document-root = var.basedir + "/htdocs"
|
||||||
|
server.pid-file = "/run/lighttpd.pid"
|
||||||
|
|
||||||
|
server.errorlog = "/dev/pts/0"
|
||||||
|
#server.errorlog = var.logdir + "/error.log"
|
||||||
|
# log errors to syslog instead
|
||||||
|
# server.errorlog-use-syslog = "enable"
|
||||||
|
|
||||||
|
server.indexfiles = ("index.php", "index.html",
|
||||||
|
"index.htm", "default.htm")
|
||||||
|
|
||||||
|
# server.tag = "lighttpd"
|
||||||
|
|
||||||
|
server.follow-symlink = "enable"
|
||||||
|
|
||||||
|
# event handler (defaults to "poll")
|
||||||
|
# see performance.txt
|
||||||
|
#
|
||||||
|
# for >= linux-2.4
|
||||||
|
# server.event-handler = "linux-rtsig"
|
||||||
|
# for >= linux-2.6
|
||||||
|
# server.event-handler = "linux-sysepoll"
|
||||||
|
# for FreeBSD
|
||||||
|
# server.event-handler = "freebsd-kqueue"
|
||||||
|
|
||||||
|
# chroot to directory (defaults to no chroot)
|
||||||
|
# server.chroot = "/"
|
||||||
|
|
||||||
|
# bind to port (defaults to 80)
|
||||||
|
# server.port = 81
|
||||||
|
|
||||||
|
# bind to name (defaults to all interfaces)
|
||||||
|
# server.bind = "grisu.home.kneschke.de"
|
||||||
|
|
||||||
|
# error-handler for status 404
|
||||||
|
# server.error-handler-404 = "/error-handler.html"
|
||||||
|
# server.error-handler-404 = "/error-handler.php"
|
||||||
|
|
||||||
|
# Format: <errorfile-prefix><status-code>.html
|
||||||
|
# -> ..../status-404.html for 'File not found'
|
||||||
|
# server.errorfile-prefix = var.basedir + "/error/status-"
|
||||||
|
|
||||||
|
# FAM support for caching stat() calls
|
||||||
|
# requires that lighttpd be built with USE=fam
|
||||||
|
# server.stat-cache-engine = "fam"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_staticfile
|
||||||
|
|
||||||
|
# which extensions should not be handled via static-file transfer
|
||||||
|
# (extensions that are usually handled by mod_cgi, mod_fastcgi, etc).
|
||||||
|
static-file.exclude-extensions = (".php", ".pl", ".cgi", ".fcgi")
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_accesslog
|
||||||
|
accesslog.filename = "/dev/pts/0"
|
||||||
|
#accesslog.filename = var.logdir + "/access.log"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_dirlisting
|
||||||
|
# enable directory listings
|
||||||
|
# dir-listing.activate = "enable"
|
||||||
|
#
|
||||||
|
# don't list hidden files/directories
|
||||||
|
# dir-listing.hide-dotfiles = "enable"
|
||||||
|
#
|
||||||
|
# use a different css for directory listings
|
||||||
|
# dir-listing.external-css = "/path/to/dir-listing.css"
|
||||||
|
#
|
||||||
|
# list of regular expressions. files that match any of the
|
||||||
|
# specified regular expressions will be excluded from directory
|
||||||
|
# listings.
|
||||||
|
# dir-listing.exclude = ("^\.", "~$")
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_access
|
||||||
|
# see access.txt
|
||||||
|
|
||||||
|
url.access-deny = ("~", ".inc")
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_userdir
|
||||||
|
# see userdir.txt
|
||||||
|
#
|
||||||
|
# userdir.path = "public_html"
|
||||||
|
# userdir.exclude-user = ("root")
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_ssi
|
||||||
|
# see ssi.txt
|
||||||
|
#
|
||||||
|
# ssi.extension = (".shtml")
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_ssl
|
||||||
|
# see ssl.txt
|
||||||
|
#
|
||||||
|
# ssl.engine = "enable"
|
||||||
|
# ssl.pemfile = "server.pem"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_status
|
||||||
|
# see status.txt
|
||||||
|
#
|
||||||
|
# status.status-url = "/server-status"
|
||||||
|
# status.config-url = "/server-config"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_simple_vhost
|
||||||
|
# see simple-vhost.txt
|
||||||
|
#
|
||||||
|
# If you want name-based virtual hosting add the next three settings and load
|
||||||
|
# mod_simple_vhost
|
||||||
|
#
|
||||||
|
# document-root =
|
||||||
|
# virtual-server-root + virtual-server-default-host + virtual-server-docroot
|
||||||
|
# or
|
||||||
|
# virtual-server-root + http-host + virtual-server-docroot
|
||||||
|
#
|
||||||
|
# simple-vhost.server-root = "/home/weigon/wwwroot/servers/"
|
||||||
|
# simple-vhost.default-host = "grisu.home.kneschke.de"
|
||||||
|
# simple-vhost.document-root = "/pages/"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_deflate
|
||||||
|
# see compress.txt
|
||||||
|
#
|
||||||
|
# deflate.cache-dir = var.statedir + "/cache/compress"
|
||||||
|
# deflate.mimetypes = ("text/plain", "text/html")
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_proxy
|
||||||
|
# see proxy.txt
|
||||||
|
#
|
||||||
|
# proxy.server = ( ".php" =>
|
||||||
|
# ( "localhost" =>
|
||||||
|
# (
|
||||||
|
# "host" => "192.168.0.101",
|
||||||
|
# "port" => 80
|
||||||
|
# )
|
||||||
|
# )
|
||||||
|
# )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_auth
|
||||||
|
# see authentication.txt
|
||||||
|
#
|
||||||
|
# auth.backend = "plain"
|
||||||
|
# auth.backend.plain.userfile = "lighttpd.user"
|
||||||
|
# auth.backend.plain.groupfile = "lighttpd.group"
|
||||||
|
|
||||||
|
# auth.backend.ldap.hostname = "localhost"
|
||||||
|
# auth.backend.ldap.base-dn = "dc=my-domain,dc=com"
|
||||||
|
# auth.backend.ldap.filter = "(uid=$)"
|
||||||
|
|
||||||
|
# auth.require = ( "/server-status" =>
|
||||||
|
# (
|
||||||
|
# "method" => "digest",
|
||||||
|
# "realm" => "download archiv",
|
||||||
|
# "require" => "user=jan"
|
||||||
|
# ),
|
||||||
|
# "/server-info" =>
|
||||||
|
# (
|
||||||
|
# "method" => "digest",
|
||||||
|
# "realm" => "download archiv",
|
||||||
|
# "require" => "valid-user"
|
||||||
|
# )
|
||||||
|
# )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_rewrite
|
||||||
|
# see rewrite.txt
|
||||||
|
#
|
||||||
|
# url.rewrite = (
|
||||||
|
# "^/$" => "/server-status"
|
||||||
|
# )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_redirect
|
||||||
|
# see redirect.txt
|
||||||
|
#
|
||||||
|
# url.redirect = (
|
||||||
|
# "^/wishlist/(.+)" => "http://www.123.org/$1"
|
||||||
|
# )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_evhost
|
||||||
|
# define a pattern for the host url finding
|
||||||
|
# %% => % sign
|
||||||
|
# %0 => domain name + tld
|
||||||
|
# %1 => tld
|
||||||
|
# %2 => domain name without tld
|
||||||
|
# %3 => subdomain 1 name
|
||||||
|
# %4 => subdomain 2 name
|
||||||
|
#
|
||||||
|
# evhost.path-pattern = "/home/storage/dev/www/%3/htdocs/"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_expire
|
||||||
|
# expire.url = (
|
||||||
|
# "/buggy/" => "access 2 hours",
|
||||||
|
# "/asdhas/" => "access plus 1 seconds 2 minutes"
|
||||||
|
# )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_rrdtool
|
||||||
|
# see rrdtool.txt
|
||||||
|
#
|
||||||
|
# rrdtool.binary = "/usr/bin/rrdtool"
|
||||||
|
# rrdtool.db-name = var.statedir + "/lighttpd.rrd"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_setenv
|
||||||
|
# see setenv.txt
|
||||||
|
#
|
||||||
|
# setenv.add-request-header = ( "TRAV_ENV" => "mysql://user@host/db" )
|
||||||
|
# setenv.add-response-header = ( "X-Secret-Message" => "42" )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_trigger_b4_dl
|
||||||
|
# see trigger_b4_dl.txt
|
||||||
|
#
|
||||||
|
# trigger-before-download.gdbm-filename = "/home/weigon/testbase/trigger.db"
|
||||||
|
# trigger-before-download.memcache-hosts = ( "127.0.0.1:11211" )
|
||||||
|
# trigger-before-download.trigger-url = "^/trigger/"
|
||||||
|
# trigger-before-download.download-url = "^/download/"
|
||||||
|
# trigger-before-download.deny-url = "http://127.0.0.1/index.html"
|
||||||
|
# trigger-before-download.trigger-timeout = 10
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_cml
|
||||||
|
# see cml.txt
|
||||||
|
#
|
||||||
|
# don't forget to add index.cml to server.indexfiles
|
||||||
|
# cml.extension = ".cml"
|
||||||
|
# cml.memcache-hosts = ( "127.0.0.1:11211" )
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ mod_webdav
|
||||||
|
# see webdav.txt
|
||||||
|
#
|
||||||
|
# $HTTP["url"] =~ "^/dav($|/)" {
|
||||||
|
# webdav.activate = "enable"
|
||||||
|
# webdav.is-readonly = "enable"
|
||||||
|
# }
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ extra rules
|
||||||
|
#
|
||||||
|
# set Content-Encoding and reset Content-Type for browsers that
|
||||||
|
# support decompressing on-thy-fly (requires mod_setenv)
|
||||||
|
# $HTTP["url"] =~ "\.gz$" {
|
||||||
|
# setenv.add-response-header = ("Content-Encoding" => "x-gzip")
|
||||||
|
# mimetype.assign = (".gz" => "text/plain")
|
||||||
|
# }
|
||||||
|
|
||||||
|
# $HTTP["url"] =~ "\.bz2$" {
|
||||||
|
# setenv.add-response-header = ("Content-Encoding" => "x-bzip2")
|
||||||
|
# mimetype.assign = (".bz2" => "text/plain")
|
||||||
|
# }
|
||||||
|
#
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# {{{ debug
|
||||||
|
# debug.log-request-header = "enable"
|
||||||
|
# debug.log-response-header = "enable"
|
||||||
|
# debug.log-request-handling = "enable"
|
||||||
|
# debug.log-file-not-found = "enable"
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# vim: set ft=conf foldmethod=marker et :
|
||||||
|
include "/etc/lighttpd/conf.d/*.conf"
|
||||||
79
etc/lighttpd/mime-types.conf
Normal file
79
etc/lighttpd/mime-types.conf
Normal file
|
|
@ -0,0 +1,79 @@
|
||||||
|
###############################################################################
|
||||||
|
# Default mime-types.conf for Gentoo.
|
||||||
|
# include'd from lighttpd.conf.
|
||||||
|
# $Header: /var/cvsroot/gentoo-x86/www-servers/lighttpd/files/conf/mime-types.conf,v 1.4 2010/03/14 21:45:18 bangert Exp $
|
||||||
|
###############################################################################
|
||||||
|
|
||||||
|
# {{{ mime types
|
||||||
|
mimetype.assign = (
|
||||||
|
".svg" => "image/svg+xml",
|
||||||
|
".svgz" => "image/svg+xml",
|
||||||
|
".pdf" => "application/pdf",
|
||||||
|
".sig" => "application/pgp-signature",
|
||||||
|
".spl" => "application/futuresplash",
|
||||||
|
".class" => "application/octet-stream",
|
||||||
|
".ps" => "application/postscript",
|
||||||
|
".torrent" => "application/x-bittorrent",
|
||||||
|
".dvi" => "application/x-dvi",
|
||||||
|
".gz" => "application/x-gzip",
|
||||||
|
".pac" => "application/x-ns-proxy-autoconfig",
|
||||||
|
".swf" => "application/x-shockwave-flash",
|
||||||
|
".tar.gz" => "application/x-tgz",
|
||||||
|
".tgz" => "application/x-tgz",
|
||||||
|
".tar" => "application/x-tar",
|
||||||
|
".zip" => "application/zip",
|
||||||
|
".dmg" => "application/x-apple-diskimage",
|
||||||
|
".mp3" => "audio/mpeg",
|
||||||
|
".m3u" => "audio/x-mpegurl",
|
||||||
|
".wma" => "audio/x-ms-wma",
|
||||||
|
".wax" => "audio/x-ms-wax",
|
||||||
|
".ogg" => "application/ogg",
|
||||||
|
".wav" => "audio/x-wav",
|
||||||
|
".gif" => "image/gif",
|
||||||
|
".jpg" => "image/jpeg",
|
||||||
|
".jpeg" => "image/jpeg",
|
||||||
|
".png" => "image/png",
|
||||||
|
".xbm" => "image/x-xbitmap",
|
||||||
|
".xpm" => "image/x-xpixmap",
|
||||||
|
".xwd" => "image/x-xwindowdump",
|
||||||
|
".css" => "text/css",
|
||||||
|
".html" => "text/html",
|
||||||
|
".htm" => "text/html",
|
||||||
|
".js" => "text/javascript",
|
||||||
|
".asc" => "text/plain",
|
||||||
|
".c" => "text/plain",
|
||||||
|
".h" => "text/plain",
|
||||||
|
".cc" => "text/plain",
|
||||||
|
".cpp" => "text/plain",
|
||||||
|
".hh" => "text/plain",
|
||||||
|
".hpp" => "text/plain",
|
||||||
|
".conf" => "text/plain",
|
||||||
|
".log" => "text/plain",
|
||||||
|
".text" => "text/plain",
|
||||||
|
".txt" => "text/plain",
|
||||||
|
".diff" => "text/plain",
|
||||||
|
".patch" => "text/plain",
|
||||||
|
".ebuild" => "text/plain",
|
||||||
|
".eclass" => "text/plain",
|
||||||
|
".rtf" => "application/rtf",
|
||||||
|
".bmp" => "image/bmp",
|
||||||
|
".tif" => "image/tiff",
|
||||||
|
".tiff" => "image/tiff",
|
||||||
|
".ico" => "image/x-icon",
|
||||||
|
".dtd" => "text/xml",
|
||||||
|
".xml" => "text/xml",
|
||||||
|
".mpeg" => "video/mpeg",
|
||||||
|
".mpg" => "video/mpeg",
|
||||||
|
".mov" => "video/quicktime",
|
||||||
|
".qt" => "video/quicktime",
|
||||||
|
".avi" => "video/x-msvideo",
|
||||||
|
".asf" => "video/x-ms-asf",
|
||||||
|
".asx" => "video/x-ms-asf",
|
||||||
|
".wmv" => "video/x-ms-wmv",
|
||||||
|
".bz2" => "application/x-bzip",
|
||||||
|
".tbz" => "application/x-bzip-compressed-tar",
|
||||||
|
".tar.bz2" => "application/x-bzip-compressed-tar"
|
||||||
|
)
|
||||||
|
# }}}
|
||||||
|
|
||||||
|
# vim: set ft=conf foldmethod=marker et :
|
||||||
33
etc/lighttpd/mod_cgi.conf
Normal file
33
etc/lighttpd/mod_cgi.conf
Normal file
|
|
@ -0,0 +1,33 @@
|
||||||
|
###############################################################################
|
||||||
|
# mod_cgi.conf
|
||||||
|
# include'd by lighttpd.conf.
|
||||||
|
# $Header: /var/cvsroot/gentoo-x86/www-servers/lighttpd/files/conf/mod_cgi.conf,v 1.1 2005/08/27 12:36:13 ka0ttic Exp $
|
||||||
|
###############################################################################
|
||||||
|
|
||||||
|
#
|
||||||
|
# see cgi.txt for more information on using mod_cgi
|
||||||
|
#
|
||||||
|
|
||||||
|
server.modules += ("mod_cgi")
|
||||||
|
|
||||||
|
# NOTE: this requires mod_alias
|
||||||
|
alias.url = (
|
||||||
|
"/cgi-bin/" => var.basedir + "/cgi-bin/"
|
||||||
|
)
|
||||||
|
|
||||||
|
#
|
||||||
|
# Note that you'll also want to enable the
|
||||||
|
# cgi-bin alias via mod_alias (above).
|
||||||
|
#
|
||||||
|
|
||||||
|
$HTTP["url"] =~ "^/cgi-bin/" {
|
||||||
|
# disable directory listings
|
||||||
|
#dir-listing.activate = "disable"
|
||||||
|
# only allow cgi's in this directory
|
||||||
|
cgi.assign = (
|
||||||
|
".pl" => "/usr/bin/perl",
|
||||||
|
".cgi" => "/usr/bin/perl"
|
||||||
|
)
|
||||||
|
}
|
||||||
|
|
||||||
|
# vim: set ft=conf foldmethod=marker et :
|
||||||
17
etc/lighttpd/mod_fastcgi.conf
Normal file
17
etc/lighttpd/mod_fastcgi.conf
Normal file
|
|
@ -0,0 +1,17 @@
|
||||||
|
###############################################################################
|
||||||
|
# mod_fastcgi.conf
|
||||||
|
# include'd by lighttpd.conf.
|
||||||
|
# $Header: /var/cvsroot/gentoo-x86/www-servers/lighttpd/files/conf/mod_fastcgi.conf-1.4.13-r2,v 1.1 2007/04/01 23:22:00 robbat2 Exp $
|
||||||
|
###############################################################################
|
||||||
|
|
||||||
|
server.modules += ("mod_fastcgi")
|
||||||
|
fastcgi.server = ( ".php" =>
|
||||||
|
( "localhost" =>
|
||||||
|
(
|
||||||
|
"socket" => "/run/lighttpd/lighttpd-fastcgi-php-" + PID + ".socket",
|
||||||
|
"bin-path" => "/usr/bin/php-cgi"
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
# vim: set ft=conf foldmethod=marker et :
|
||||||
16
etc/lighttpd/mod_fastcgi_fpm.conf
Normal file
16
etc/lighttpd/mod_fastcgi_fpm.conf
Normal file
|
|
@ -0,0 +1,16 @@
|
||||||
|
###############################################################################
|
||||||
|
# mod_fastcgi_fpm.conf
|
||||||
|
# include'd by lighttpd.conf.
|
||||||
|
###############################################################################
|
||||||
|
|
||||||
|
server.modules += ("mod_fastcgi")
|
||||||
|
fastcgi.server = ( ".php" =>
|
||||||
|
( "localhost" =>
|
||||||
|
(
|
||||||
|
"host" => "127.0.0.1",
|
||||||
|
"port" => "9000"
|
||||||
|
)
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
# vim: set ft=conf foldmethod=marker et :
|
||||||
24
init.sh
Normal file
24
init.sh
Normal file
|
|
@ -0,0 +1,24 @@
|
||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
if [ ! -d "/var/www/werc/sites/$HOSTNAME" ]; then
|
||||||
|
echo "Index directory for hostname $HOSTNAME does not exist. Creating..."
|
||||||
|
cp -r /var/www/werc/sites/werc.cat-v.org "/var/www/werc/sites/$HOSTNAME"
|
||||||
|
echo "# Hello World!" > "/var/www/werc/sites/$HOSTNAME/index.md"
|
||||||
|
fi
|
||||||
|
|
||||||
|
CONF_FILE="/etc/lighttpd/conf.d/$HOSTNAME.conf"
|
||||||
|
if [ ! -f "$CONF_FILE" ]; then
|
||||||
|
echo "Creating new configuration file: $CONF_FILE"
|
||||||
|
cat << EOF > "$CONF_FILE"
|
||||||
|
\$HTTP["host"] =~ "^$(echo "$HOSTNAME" | sed 's/\./\\./g')$" {
|
||||||
|
index-file.names = ( )
|
||||||
|
server.error-handler-404 = "/werc.rc"
|
||||||
|
alias.url += ( "/werc.rc" => "/var/www/werc/bin/werc.rc" )
|
||||||
|
cgi.assign += ( ".rc" => "" )
|
||||||
|
}
|
||||||
|
EOF
|
||||||
|
fi
|
||||||
|
|
||||||
|
echo "Running lighttpd"
|
||||||
|
chmod a+w /dev/pts/0
|
||||||
|
exec lighttpd -D -f /etc/lighttpd/lighttpd.conf
|
||||||
79
werc/README
Normal file
79
werc/README
Normal file
|
|
@ -0,0 +1,79 @@
|
||||||
|
werc - a minimalist document management system
|
||||||
|
----------------------------------------------
|
||||||
|
|
||||||
|
Werc is a content management system and web (anti-)framework designed to be simple to
|
||||||
|
use, simple to setup, simple to hack on, and not get in the way while allowing
|
||||||
|
users easy customization.
|
||||||
|
|
||||||
|
For more information see the official website: http://werc.cat-v.org/
|
||||||
|
|
||||||
|
|
||||||
|
Installation
|
||||||
|
------------
|
||||||
|
|
||||||
|
Requirements:
|
||||||
|
|
||||||
|
* An http server that can handle CGIs
|
||||||
|
* Plan 9 from User Space: http://swtch.com/plan9port,
|
||||||
|
Or 9base-tip: http://tools.suckless.org/9base,
|
||||||
|
Or frontbase: http://openbsd.stanleylieber.com/frontbase
|
||||||
|
|
||||||
|
Note: Werc by default expects the Plan 9 tools to be installed under
|
||||||
|
/bin/, if you have installed them elsewhere you will need to edit the
|
||||||
|
#! line in bin/werc.rc and customize the $plan9port variable in your
|
||||||
|
etc/initrc.local.
|
||||||
|
|
||||||
|
|
||||||
|
Instructions:
|
||||||
|
|
||||||
|
Untar werc at your desired location, configure httpd to use
|
||||||
|
/path-to-your-werc-installation/bin/werc.rc as a cgi-script, it is recommended
|
||||||
|
that you make werc.rc handle all non-static files (this can be done by setting
|
||||||
|
it up as your 404 handler) and setup your virtual hosts to handle static files
|
||||||
|
by setting the document root for the domain to
|
||||||
|
/path-to-werc-installation/sites/yourdomain.com/, and create a directory for
|
||||||
|
your web site under sites/ where you can start adding content right away.
|
||||||
|
|
||||||
|
If you will want to allow updates via the web interface (eg., for wiki or
|
||||||
|
comments apps) make sure all files under sites/ are writable by the user your
|
||||||
|
cgi will run as, usually www-data, for example by doing: chown -R :www-data
|
||||||
|
sites/; chmod -R g+w sites/
|
||||||
|
|
||||||
|
If your Plan 9 binaries are located somewhere else than the standard /bin/ you
|
||||||
|
will need to edit the first line of bin/werc.rc (Note that p9p in particular is
|
||||||
|
picky about where it is located, once you run ./INSTALL you should *not* move
|
||||||
|
it to a different directory without running ./INSTALL again.)
|
||||||
|
|
||||||
|
For general configuration options copy etc/initrc to etc/initrc.local and
|
||||||
|
customize it as needed. Site (and directory) specific options can be set in a
|
||||||
|
sites/example.com/_werc/config file inside the site's directory. To customize
|
||||||
|
templates and included files you can store your own version of the files in
|
||||||
|
lib/ under sites/example.com/_werc/lib.
|
||||||
|
|
||||||
|
The source tree for the werc website is included under sites/werc.cat-v.org as
|
||||||
|
an example, feel free to use it as a template for your own site.
|
||||||
|
|
||||||
|
For more details see the documentation section of the website:
|
||||||
|
http://werc.cat-v.org/docs/
|
||||||
|
|
||||||
|
|
||||||
|
Contact
|
||||||
|
-------
|
||||||
|
|
||||||
|
For comments, suggestions, bug reports or patches join the werc mailing list
|
||||||
|
at: http://werc.cat-v.org or the irc channel #cat-v in irc.freenode.org
|
||||||
|
|
||||||
|
If you have a public website that uses werc I would love to hear about it and
|
||||||
|
get feedback about you experience setting it up.
|
||||||
|
|
||||||
|
Thanks
|
||||||
|
------
|
||||||
|
|
||||||
|
Garbeam, Kris Maglione, sqweek, soul9, mycroftiv, maht, yiyus, cinap_lenrek,
|
||||||
|
khm and many others for their ideas, patches, testing and other contributions.
|
||||||
|
|
||||||
|
|
||||||
|
License
|
||||||
|
-------
|
||||||
|
|
||||||
|
Werc is in the public domain.
|
||||||
6
werc/apps/barf/.hg_archival.txt
Normal file
6
werc/apps/barf/.hg_archival.txt
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
repo: 77501160f26f7411d00111255a38267f9973ec27
|
||||||
|
node: e422b2d51d185ecbbdb180a28fdd13cac672be03
|
||||||
|
branch: default
|
||||||
|
latesttag: null
|
||||||
|
latesttagdistance: 25
|
||||||
|
changessincelatesttag: 25
|
||||||
158
werc/apps/barf/README
Executable file
158
werc/apps/barf/README
Executable file
|
|
@ -0,0 +1,158 @@
|
||||||
|
BARF - emit HTML
|
||||||
|
|
||||||
|
DESCRIPTION
|
||||||
|
BARF utilizes rc(1) and command line tools to compile a structured
|
||||||
|
directory of files into a single page of HTML. Tagging and RSS 2.0
|
||||||
|
feeds have been implemented.
|
||||||
|
|
||||||
|
SETUP
|
||||||
|
To enable BARF, add:
|
||||||
|
|
||||||
|
conf_enable_barf
|
||||||
|
|
||||||
|
to _werc/config under the site root.
|
||||||
|
|
||||||
|
To configure BARF, copy or create the following files under the site
|
||||||
|
root (example files have been included in this distribution):
|
||||||
|
|
||||||
|
_werc/barf/config
|
||||||
|
A list of variables that control various site options:
|
||||||
|
|
||||||
|
barf_type=paste # blog, image, log, paste
|
||||||
|
posts_per_page=10
|
||||||
|
show_ascending=0
|
||||||
|
show_footer=0
|
||||||
|
show_header=0
|
||||||
|
show_sidebar=0
|
||||||
|
require_login=0 # if not logged in, redirect to /login
|
||||||
|
allow_anon=1 # allow posts without logging in
|
||||||
|
show_disqus=0 # include disqus comments template
|
||||||
|
# from _werc/barf/disqus
|
||||||
|
|
||||||
|
_werc/barf/footer
|
||||||
|
HTML or markdown that will appear as the foot of
|
||||||
|
the BARF content area.
|
||||||
|
|
||||||
|
_werc/barf/header
|
||||||
|
HTML or markdown that will appear at the head of
|
||||||
|
the BARF content area.
|
||||||
|
|
||||||
|
_werc/barf/sidebar
|
||||||
|
HTML or markdown that will appear on one side of
|
||||||
|
the BARF content area.
|
||||||
|
|
||||||
|
Finally, sample stylesheets are provided in the directory
|
||||||
|
pub/. Copy any of these to _werc/pub/style.css to try
|
||||||
|
them out.
|
||||||
|
|
||||||
|
POSTS
|
||||||
|
Posts are stored in the directory src/ relative to the
|
||||||
|
site root.
|
||||||
|
|
||||||
|
Directory names in src/ that do not match the regular
|
||||||
|
expression ^[0-9]*$ will not be included in the listing of
|
||||||
|
posts that are displayed in the browser. However, such
|
||||||
|
directories are still accessible when called directly via
|
||||||
|
an appropriately constructed URL.
|
||||||
|
|
||||||
|
A post's directory contains the following files and
|
||||||
|
directories (an example post's directory has been
|
||||||
|
included in this distribution):
|
||||||
|
|
||||||
|
body
|
||||||
|
date
|
||||||
|
img/
|
||||||
|
link
|
||||||
|
tags/
|
||||||
|
title
|
||||||
|
|
||||||
|
The img/ directory contains images uploaded to the
|
||||||
|
image board, including the original image and a
|
||||||
|
thumbnail version, resized to no greater than 500
|
||||||
|
pixels wide and 600 pixels tall.
|
||||||
|
|
||||||
|
The tags/ directory contains one empty file named
|
||||||
|
for each tag associated with the post.
|
||||||
|
|
||||||
|
The site root contains a file named tags that is compr-
|
||||||
|
ised of an index of the tags associated with each post.
|
||||||
|
This index is consulted when searching for a given tag in
|
||||||
|
the web browser.
|
||||||
|
|
||||||
|
UTILS
|
||||||
|
bin/gf
|
||||||
|
Parse Livejournal and Tumblr RSS feeds into
|
||||||
|
BARF posts. (Abandoned, may no longer work.)
|
||||||
|
bin/gk
|
||||||
|
Create a list of known tags in the site root in
|
||||||
|
a file named known_tags.
|
||||||
|
bin/gr
|
||||||
|
Parse Google Reader bundles into BARF posts.
|
||||||
|
bin/gt
|
||||||
|
Create an index of tags in the site root in a file
|
||||||
|
named tags.
|
||||||
|
|
||||||
|
For more information on these tools, read the source.
|
||||||
|
|
||||||
|
ADMIN
|
||||||
|
Any tool that can create, alter, or delete flat files
|
||||||
|
and directories is sufficient to administer a BARF.
|
||||||
|
|
||||||
|
Web-based login and administration utilizes werc's
|
||||||
|
built-in user authentication:
|
||||||
|
|
||||||
|
http://domain.com/login
|
||||||
|
|
||||||
|
After login, links to edit and delete will appear in
|
||||||
|
each post's meta data.
|
||||||
|
|
||||||
|
Web-based administration requires that the src/
|
||||||
|
directory and its sub-directories are writable by
|
||||||
|
the web server process.
|
||||||
|
|
||||||
|
REQUIREMENTS
|
||||||
|
Unix
|
||||||
|
Plan9port or 9base are required. Site type
|
||||||
|
image requires ImageMagick and curl. Site
|
||||||
|
type url also requires curl if the user employs
|
||||||
|
the option to download remote URLs. These
|
||||||
|
utilities may be swapped out for others by
|
||||||
|
altering the source.
|
||||||
|
|
||||||
|
SOURCE
|
||||||
|
http://plan9.stanleylieber.com/werc/apps/barf.tgz
|
||||||
|
https://code.9front.org/hg/barf
|
||||||
|
|
||||||
|
EXAMPLES
|
||||||
|
blog
|
||||||
|
http://read.stanleylieber.com
|
||||||
|
RSS feeds are converted by the utility rrss[0]
|
||||||
|
and stored as individual blog posts.
|
||||||
|
image
|
||||||
|
http://img.stanleylieber.com
|
||||||
|
Hybrid public/private image board. Requires
|
||||||
|
standard werc authentication to post, but all
|
||||||
|
posts are visible to the public.
|
||||||
|
paste
|
||||||
|
http://okturing.com
|
||||||
|
Public pastebin. No authentication required
|
||||||
|
to post.
|
||||||
|
url
|
||||||
|
http://url.stanleylieber.com
|
||||||
|
Private index of URL bookmarks, similar
|
||||||
|
in functionality to the old delicious.com.
|
||||||
|
(In fact, most of the index was imported
|
||||||
|
from delicious.)
|
||||||
|
|
||||||
|
SEE ALSO
|
||||||
|
[0] https://code.9front.org/hg/rrss
|
||||||
|
|
||||||
|
LICENSE
|
||||||
|
Public domain.
|
||||||
|
|
||||||
|
BUGS
|
||||||
|
On Plan 9, if the web server process is run as user
|
||||||
|
none (typically the case), directories used for entering
|
||||||
|
posts or uploading/downloading files from the browser
|
||||||
|
must be set world writable. This could prove problematic
|
||||||
|
on multiuser systems.
|
||||||
80
werc/apps/barf/app.rc
Executable file
80
werc/apps/barf/app.rc
Executable file
|
|
@ -0,0 +1,80 @@
|
||||||
|
fn conf_enable_barf{
|
||||||
|
barf_base_uri=$conf_wd
|
||||||
|
barf_root=`{pwd}
|
||||||
|
conf_enable_app barf
|
||||||
|
}
|
||||||
|
|
||||||
|
fn barf_init{
|
||||||
|
p=`{echo $req_path | sed 's!^'^$barf_base_uri^'!!'}
|
||||||
|
barf_dir=`{basename -d $"p | sed 's!^\.$!!'}
|
||||||
|
barf_items=`{cat $barf_root/_werc/barf/items}
|
||||||
|
. ./apps/barf/lib/core
|
||||||
|
. ./apps/barf/barf/config
|
||||||
|
. $barf_root/_werc/barf/config
|
||||||
|
. ./apps/barf/lib/$barf_type
|
||||||
|
if(test -f $barf_root/_werc/barf/lib/$barf_type)
|
||||||
|
. $barf_root/_werc/barf/lib/$barf_type
|
||||||
|
if(~ $require_login 1 && ! ~ $req_path $barf_base_uri^login){
|
||||||
|
check_user
|
||||||
|
if(~ $#logged_user 0)
|
||||||
|
post_redirect /login
|
||||||
|
}
|
||||||
|
if(~ $REQUEST_METHOD GET && ~ $REQUEST_URI *'='*){
|
||||||
|
load_get_args
|
||||||
|
parse_get_args
|
||||||
|
}
|
||||||
|
if(~ $REQUEST_METHOD POST)
|
||||||
|
parse_post_args
|
||||||
|
if(~ $a_func add_post){
|
||||||
|
if(~ $allow_anon 1 || {check_user && ! ~ $#logged_user 0})
|
||||||
|
add_post
|
||||||
|
post_redirect /
|
||||||
|
}
|
||||||
|
if(~ $a_func edit_post delete_post dsrc){
|
||||||
|
if(check_user && ! ~ $#logged_user 0){
|
||||||
|
switch($a_func){
|
||||||
|
case edit_post
|
||||||
|
edit_post
|
||||||
|
case delete_post
|
||||||
|
delete_post
|
||||||
|
case dsrc
|
||||||
|
dsrc
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
get_start
|
||||||
|
get_stop
|
||||||
|
get_tags
|
||||||
|
if(~ $req_path $barf_base_uri){
|
||||||
|
extraHeaders=$"extraHeaders ^ \
|
||||||
|
'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$base_url^$barf_base_uri'index.rss" />'
|
||||||
|
handler_body_main=(tpl_handler `{barf_template barf})
|
||||||
|
}
|
||||||
|
if not if(~ $req_path $barf_base_uri^index.rss){
|
||||||
|
obarf_type=$barf_type # disgusting hack. fix!
|
||||||
|
barf_type=rss
|
||||||
|
. ./apps/barf/lib/rss
|
||||||
|
barf_setup_feed_handlers barf.tpl 'text/xml; charset=utf-8'
|
||||||
|
}
|
||||||
|
if not if(~ $req_path $barf_base_uri^login){
|
||||||
|
barf_type=login
|
||||||
|
handler_body_main=(tpl_handler `{barf_template barf})
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn barf_setup_feed_handlers{
|
||||||
|
handler_body_main=NOT_USED_by_barf_feeds
|
||||||
|
res_tail=()
|
||||||
|
http_content_type=$2
|
||||||
|
headers=()
|
||||||
|
master_template=apps/barf/lib/$1
|
||||||
|
}
|
||||||
|
|
||||||
|
fn barf_template{
|
||||||
|
if(test -f $barf_root/$"barf_dir/_werc/barf/lib/$1.tpl)
|
||||||
|
echo -n $barf_root/$"barf_dir/_werc/barf/lib/$1.tpl
|
||||||
|
if not if(test -f $barf_root/_werc/barf/lib/$1.tpl)
|
||||||
|
echo -n $barf_root/_werc/barf/lib/$1.tpl
|
||||||
|
if not
|
||||||
|
get_lib_file barf/$1.tpl apps/barf/lib/$1.tpl
|
||||||
|
}
|
||||||
9
werc/apps/barf/barf/config
Executable file
9
werc/apps/barf/barf/config
Executable file
|
|
@ -0,0 +1,9 @@
|
||||||
|
barf_type=blog # blog, image, log, paste, url
|
||||||
|
site_tmp=_tmp # used by hoc on plan 9
|
||||||
|
posts_per_page=10
|
||||||
|
show_ascending=0
|
||||||
|
show_footer=0
|
||||||
|
show_header=0
|
||||||
|
show_sidebar=0
|
||||||
|
require_login=0 # if not logged in, redirect to /login
|
||||||
|
allow_anon=1 # allow posts without logging in
|
||||||
1
werc/apps/barf/barf/footer
Executable file
1
werc/apps/barf/barf/footer
Executable file
|
|
@ -0,0 +1 @@
|
||||||
|
THIS IS THE FOOTER.
|
||||||
1
werc/apps/barf/barf/header
Executable file
1
werc/apps/barf/barf/header
Executable file
|
|
@ -0,0 +1 @@
|
||||||
|
THIS IS THE HEADER.
|
||||||
1
werc/apps/barf/barf/sidebar
Executable file
1
werc/apps/barf/barf/sidebar
Executable file
|
|
@ -0,0 +1 @@
|
||||||
|
THIS IS THE SIDEBAR.
|
||||||
174
werc/apps/barf/bin/bsrc
Executable file
174
werc/apps/barf/bin/bsrc
Executable file
|
|
@ -0,0 +1,174 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Build static pages for $site.
|
||||||
|
rfork e
|
||||||
|
fn usage{
|
||||||
|
echo usage: $0 [ domain.com ] >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
if(~ $#1 0)
|
||||||
|
usage
|
||||||
|
|
||||||
|
fn conf_enable_barf{ }
|
||||||
|
|
||||||
|
werc=/var/www/werc
|
||||||
|
site=$werc/sites/$1
|
||||||
|
barf_root=$site
|
||||||
|
|
||||||
|
. $site/_werc/config
|
||||||
|
. $site/_werc/barf/config
|
||||||
|
. $werc/apps/barf/lib/core
|
||||||
|
. $werc/apps/barf/lib/$barf_type
|
||||||
|
if(test -f $site/_werc/barf/lib/$barf_type)
|
||||||
|
. $site/_werc/barf/lib/$barf_type
|
||||||
|
if(~ $show_ascending 1)
|
||||||
|
sort=(sort -nu)
|
||||||
|
if not
|
||||||
|
sort=(sort -nru)
|
||||||
|
|
||||||
|
fn check_user{ }
|
||||||
|
|
||||||
|
fn display_html_footers{
|
||||||
|
echo '</body>
|
||||||
|
</html>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_html_headers{
|
||||||
|
echo '<html>
|
||||||
|
<head>
|
||||||
|
|
||||||
|
<title>'$"siteTitle'</title>
|
||||||
|
|
||||||
|
<link rel="stylesheet" href="/_werc/pub/style.css" type="text/css" media="screen" title="default">
|
||||||
|
<link rel="shortcut icon" href="/favicon.ico" type="image/vnd.microsoft.icon">
|
||||||
|
<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"rss'">
|
||||||
|
<meta charset="UTF-8">
|
||||||
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
||||||
|
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_prevnext{
|
||||||
|
if(~ $#nstart 1){
|
||||||
|
echo '
|
||||||
|
<div id="page_list">
|
||||||
|
<span>
|
||||||
|
'
|
||||||
|
if(test $start -lt $pstop && ! ~ $start $pstart)
|
||||||
|
echo '<a href="'$pstart^'-'^$pstop^'.html">prev</a> | '
|
||||||
|
echo '</span>
|
||||||
|
<span>
|
||||||
|
'
|
||||||
|
if(test $nstart -gt $bposts($#bposts))
|
||||||
|
echo '<a href="'$nstart^'-'^$nstop^'.html">next</a>'
|
||||||
|
echo '
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_post_list{
|
||||||
|
if(~ $#posts 0){
|
||||||
|
if(~ $id [0-9]*)
|
||||||
|
posts=$id
|
||||||
|
if not{
|
||||||
|
posts=`{
|
||||||
|
if(~ $tags all)
|
||||||
|
ls -p $site/src |
|
||||||
|
grep -e '^[0-9]*$' |
|
||||||
|
eval $sort |
|
||||||
|
sed -n $start^,^$stop^p
|
||||||
|
if not
|
||||||
|
grep -e '^.*\/'$tags'$' $site/tags |
|
||||||
|
awk -F '/' '{print $1;}' |
|
||||||
|
eval $sort |
|
||||||
|
sed -n $start^,^$stop^p
|
||||||
|
}
|
||||||
|
if(! ~ $posts [0-9]*)
|
||||||
|
posts=()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print{
|
||||||
|
display_html_headers
|
||||||
|
if(~ $show_header 1)
|
||||||
|
display_header
|
||||||
|
display_^$barf_type
|
||||||
|
if(~ $show_sidebar 1)
|
||||||
|
display_sidebar
|
||||||
|
if(~ $show_footer 1)
|
||||||
|
display_footer
|
||||||
|
display_html_footers
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_id{
|
||||||
|
echo '<span id="post_id"><a href="'$"a_id'.html">No.'$"a_id'</a></span>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_tags{
|
||||||
|
a_tags=`{ls -p $a_dir/tags}
|
||||||
|
a_tags=`{for(t in $a_tags) echo '<a href="/tag/'$t'">'$t'</a>, '}
|
||||||
|
a_tags=`{echo $a_tags | awk '{print substr($0, 1, length($0) -1)}'}
|
||||||
|
echo '<span id="post_tags">'$"a_tags'</span>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_title{
|
||||||
|
a_title=`{cat $a_dir/title}
|
||||||
|
if(! ~ $#a_title 0){
|
||||||
|
if(~ $barf_type log url)
|
||||||
|
echo '<a href="'`{cat $a_dir/link}'">'$"a_title'</a>'
|
||||||
|
if not
|
||||||
|
echo '<a href="'$"a_id'.html">'$"a_title'</a>'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
cd $site
|
||||||
|
|
||||||
|
# individual posts
|
||||||
|
bposts=`{ls -p $site/src | grep -v private | grep -e '^[0-9]*$' | eval $sort}
|
||||||
|
for(b in $bposts){
|
||||||
|
id=$b posts=() print >$b.html
|
||||||
|
echo $"b^'.html' >[1=2]
|
||||||
|
}
|
||||||
|
|
||||||
|
# paginated posts
|
||||||
|
start=$bposts(1)
|
||||||
|
stop=`{echo $bposts(1)^-^$posts_per_page | bc}
|
||||||
|
pstart=$start
|
||||||
|
pstop=$stop
|
||||||
|
while(test $start -ge $bposts($#bposts)){
|
||||||
|
if(test $stop -lt $bposts($#bposts))
|
||||||
|
stop=$bposts($#bposts)
|
||||||
|
nstart=`{echo $stop^-^1 | bc}
|
||||||
|
nstop=`{echo $stop^-^$posts_per_page^-1 | bc}
|
||||||
|
pposts=`{
|
||||||
|
for(i in `{seq $stop $start | eval $sort})
|
||||||
|
if(test -d $site/src/$i)
|
||||||
|
echo $i
|
||||||
|
}
|
||||||
|
tags=all posts=$pposts print >$start^-^$stop.html
|
||||||
|
echo $"start^'-'^$"stop^'.html' >[1=2]
|
||||||
|
pstart=$start
|
||||||
|
pstop=$stop
|
||||||
|
start=`{echo $stop^-1 | bc}
|
||||||
|
stop=`{echo $start^-^$posts_per_page | bc}
|
||||||
|
}
|
||||||
|
cp `{ls [0-9]*-[0-9]*.html | sort -n | tail -1} index.html
|
||||||
|
if(test -x /boot/factotum)
|
||||||
|
chmod +t [0-9]*.html [0-9]*-[0-9]*.html index.html
|
||||||
|
|
||||||
|
# tags
|
||||||
|
for(b in `{awk -F '/' '{print $3;}' tags | sort -u}){
|
||||||
|
btags=$b
|
||||||
|
mkdir -p tag/$btags
|
||||||
|
bposts=`{grep -e '^.*\/'$btags'$' tags | awk -F '/' '{print $1;}' | eval $sort}
|
||||||
|
start=$bposts(1)
|
||||||
|
stop=$bposts($#bposts)
|
||||||
|
tags=all posts=$bposts print >tag/$btags/index.html
|
||||||
|
echo tag/$btags/index.html >[1=2]
|
||||||
|
if(test -x /boot/factotum)
|
||||||
|
chmod +t tag tag/$btags tag/$btags/index.html
|
||||||
|
}
|
||||||
31
werc/apps/barf/bin/dsrc
Executable file
31
werc/apps/barf/bin/dsrc
Executable file
|
|
@ -0,0 +1,31 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# 2016-05-01T18:47:42-0400
|
||||||
|
# Delete posts $low through $high.
|
||||||
|
rfork e
|
||||||
|
dhost=ur.inri.net
|
||||||
|
fn usage {
|
||||||
|
echo usage: dsrc [ -r n ] [ -t n ] >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
switch($1){
|
||||||
|
case -r
|
||||||
|
site=/usr/sl/www/werc/sites/read.stanleylieber.com
|
||||||
|
case -t
|
||||||
|
site=/usr/sl/www/werc/sites/tumblr.stanleylieber.com
|
||||||
|
case *
|
||||||
|
usage
|
||||||
|
}
|
||||||
|
if(! ~ $sysname ur){
|
||||||
|
rcpu -h $dhost -c dsrc $*
|
||||||
|
exit
|
||||||
|
}
|
||||||
|
low=`{ls -p $site/src | sort -n | sed 1q}
|
||||||
|
high=$2
|
||||||
|
cd $site/src && rm -rf `{seq $low $high}
|
||||||
|
{
|
||||||
|
for(i in `{seq $low $high})
|
||||||
|
echo ',x/^'$i'\/.*\n/d'
|
||||||
|
echo w
|
||||||
|
echo w
|
||||||
|
echo q
|
||||||
|
} | sam -d $site/tags >[2]/dev/null
|
||||||
426
werc/apps/barf/bin/gf
Executable file
426
werc/apps/barf/bin/gf
Executable file
|
|
@ -0,0 +1,426 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Parse RSS feeds from livejournal or tumblr into BARF blog posts
|
||||||
|
# for the specified site. If a post with a matching <link> already
|
||||||
|
# exists, no new post will be created for that <item>. Accordingly,
|
||||||
|
# the gf script may run slowly for sites with a large number of
|
||||||
|
# existing posts. Tags will be created from each <category>.
|
||||||
|
rfork en
|
||||||
|
switch($1){
|
||||||
|
case 1oct1993_lj
|
||||||
|
feed=http://feeds.feedburner.com/Sl/1oct1993
|
||||||
|
site=1oct1993.com
|
||||||
|
tags=(rss)
|
||||||
|
case architecture
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=6e361b590b57934fb1e7c4e29339d619&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(architecture)
|
||||||
|
case comics
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=6bc617a6b20aafd526affafc9a28a5d5&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(comics)
|
||||||
|
case fg_lj
|
||||||
|
feed=http://feeds.feedburner.com/Sl/flamesgif
|
||||||
|
site=flamesgif.com
|
||||||
|
tags=(rss livejournal)
|
||||||
|
case inri_lj
|
||||||
|
feed=http://feeds.feedburner.com/Sl/itrecords
|
||||||
|
site=inri.net
|
||||||
|
tags=(rss livejournal)
|
||||||
|
case mf_lj
|
||||||
|
feed=http://feeds.feedburner.com/Sl/massivefictions
|
||||||
|
site=massivefictions.com
|
||||||
|
tags=(rss livejournal)
|
||||||
|
case other_lj
|
||||||
|
feed=http://feeds.feedburner.com/SL/other
|
||||||
|
site=other.stanleylieber.com
|
||||||
|
tags=()
|
||||||
|
case read
|
||||||
|
#feed=http://feeds.feedburner.com/SL/g/friends
|
||||||
|
#feed='http://pipes.yahoo.com/pipes/pipe.run?_id=f5d60acfd41497310d74900270192600&_render=rss'
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=d1f7146306b019d96d768facf95eebd9&_render=rss'
|
||||||
|
site=test.stanleylieber.com
|
||||||
|
tags=()
|
||||||
|
case sl_lj
|
||||||
|
feed=http://feeds.feedburner.com/ImNotReallyStanleyLieber
|
||||||
|
site=stanleylieber.com
|
||||||
|
tags=(rss livejournal)
|
||||||
|
case sl_tumblr
|
||||||
|
feed=http://stanleylieber.tumblr.com/rss
|
||||||
|
site=stanleylieber.com
|
||||||
|
tags=(rss tumblr)
|
||||||
|
case ta_lj
|
||||||
|
feed=http://feeds.feedburner.com/Sl/text_adventure
|
||||||
|
site=textadventure.stanleylieber.com
|
||||||
|
tags=(rss livejournal)
|
||||||
|
case tech
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=6dd49be6e34a6871db9bcfc74d4b36b1&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(tech)
|
||||||
|
case *
|
||||||
|
echo 'Usage: gf [ ... ]' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
file=/tmp/gf.$1
|
||||||
|
werc=/usr/sl/www/werc
|
||||||
|
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
cmd=hget
|
||||||
|
if not
|
||||||
|
cmd='curl -s'
|
||||||
|
|
||||||
|
fn get_feed{
|
||||||
|
$"cmd $feed >$file.work
|
||||||
|
{
|
||||||
|
echo '
|
||||||
|
,s/
//g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\'/''/g
|
||||||
|
,s/\,/,/g
|
||||||
|
,s/\-/-/g
|
||||||
|
,s/\./\./g
|
||||||
|
,s/\//\//g
|
||||||
|
,s/\:/:/g
|
||||||
|
,s/\;/;/g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\=/=/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\_/_/g
|
||||||
|
,s/\|/\|/g
|
||||||
|
,s/\n//g
|
||||||
|
,s/<\/item>/\n<\/item>\n/g
|
||||||
|
,s/^<item>/<item>\n/g
|
||||||
|
,s/^[ ]*<guid/<guid/g
|
||||||
|
,s/^<[\/i].*$//g
|
||||||
|
,s/^[ ]*\n[ ]*$//g
|
||||||
|
x/<description>.*<\/description>/ s/\n//g
|
||||||
|
w
|
||||||
|
q
|
||||||
|
'
|
||||||
|
echo
|
||||||
|
} | sam -d $file.work >[2]/dev/null >[1=2]
|
||||||
|
awk '/(^<item>|<guid|<link>|<pubDate>|<title>|<description>|<comments>|<category>|<\/item>)/ {print $0;}' $file.work >$file
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_tags{
|
||||||
|
switch($a_link){
|
||||||
|
case *1oct1993*
|
||||||
|
tags=($tags 1oct1993)
|
||||||
|
case *9front*
|
||||||
|
tags=($tags software plan9 9front)
|
||||||
|
case *amyearles* *pushedunder* *seaglass* *woolandwater*
|
||||||
|
tags=($tags amy_earles)
|
||||||
|
case *animenewsnetwork*
|
||||||
|
tags=($tags telescreen anime)
|
||||||
|
case *spikejapan*
|
||||||
|
tags=($tags japan comics manga telescreen anime)
|
||||||
|
case *ArchDaily* *archdaily*
|
||||||
|
tags=($tags archdaily architecture)
|
||||||
|
case *bldgblog*
|
||||||
|
tags=($tags bldgblog architecture)
|
||||||
|
case *kazuyosejima*
|
||||||
|
tags=($tags japan architecture)
|
||||||
|
case *Minimalissimo*
|
||||||
|
tags=($tags minimalissimo design architecture)
|
||||||
|
case *ArtFagCity* *artfagcity*
|
||||||
|
tags=($tags artfagcity art)
|
||||||
|
case *rhizome-fp*
|
||||||
|
tags=($tags rhizome-fp art)
|
||||||
|
case *rhizome*
|
||||||
|
tags=($tags rhizome art)
|
||||||
|
case *starwarsmodern*
|
||||||
|
tags=($tags starwarsmodern art)
|
||||||
|
case *tokyoartbeat*
|
||||||
|
tags=($tags tokyoartbeat japan art)
|
||||||
|
case *trendbeheer*
|
||||||
|
tags=($tags trendbeheer art)
|
||||||
|
case *ValentinaTanni*
|
||||||
|
tags=($tags valentinatanni art)
|
||||||
|
case *vvork*
|
||||||
|
tags=($tags vwork art)
|
||||||
|
case *auriea* *tale-of-tales* *taleoftales*
|
||||||
|
tags=($tags auriea)
|
||||||
|
case *basscomm* *closeoutwarrior* *crummysocks* *gamerrelocationproject* *protipoftheday* *PushButtonB* *pushbuttonb*
|
||||||
|
tags=($tags video_games basscomm)
|
||||||
|
case *benjaminmarra*
|
||||||
|
tags=($tags comics benjamin_marra)
|
||||||
|
case *boingboing*
|
||||||
|
tags=($tags boingboing)
|
||||||
|
case *bushinbooks* *henka*
|
||||||
|
tags=($tags budo)
|
||||||
|
case *alexaanddave* *CEREBUS* *Cerebus* *cerebus* *davesim* *gerhard*
|
||||||
|
tags=($tags comics cerebus gerhard)
|
||||||
|
case *coilhouse*
|
||||||
|
tags=($tags coilhouse)
|
||||||
|
case *arche-arc*
|
||||||
|
tags=($tags arche comics)
|
||||||
|
case *blaiselarmee*
|
||||||
|
tags=($tags blaise_larmee comics)
|
||||||
|
case *bleedingcool*
|
||||||
|
tags=($tags bleedingcool comics)
|
||||||
|
case *bobgreenberger*
|
||||||
|
tags=($tags bob_greengerger comics)
|
||||||
|
case *coldheatcomics*
|
||||||
|
tags=($tags coldheat comics)
|
||||||
|
case *comicbookresources*
|
||||||
|
tags=($tags cbr comics)
|
||||||
|
case *comicsbeat*
|
||||||
|
tags=($tags comicsbeat comics)
|
||||||
|
case *ComicsComics* *comicscomics*
|
||||||
|
tags=($tags comicscomics comics)
|
||||||
|
case *coveredblog*
|
||||||
|
tags=($tags coveredblog comics)
|
||||||
|
case *dcfifty-too*
|
||||||
|
tags=($tags dcfifty-too comics)
|
||||||
|
case *Destructoid* *destructoid*
|
||||||
|
tags=($tags destructoid video_games)
|
||||||
|
case *economist.com*
|
||||||
|
tags=($tags economist)
|
||||||
|
case *ferrandelgado*
|
||||||
|
tags=($tags ferran_delgado comics)
|
||||||
|
case *eddiecampbell*
|
||||||
|
tags=($tags eddie_campbell comics)
|
||||||
|
case *factualopinion*
|
||||||
|
tags=($tags factualopinion comics)
|
||||||
|
case *floating_world* *floatingworld*
|
||||||
|
tags=($tags floating_world comics)
|
||||||
|
case *frankmiller*
|
||||||
|
tags=($tags frank_miller comics)
|
||||||
|
case *humancolor*
|
||||||
|
tags=($tags humancolor comics)
|
||||||
|
case *jerkcity*
|
||||||
|
tags=($tags jerkcity comics)
|
||||||
|
case *newconstructionblog*
|
||||||
|
tags=($tags newconstruction manga comics)
|
||||||
|
case *ohdannyboy*
|
||||||
|
tags=($tags ohdannyboy comics)
|
||||||
|
case *pulphope*
|
||||||
|
tags=($tags pulphope comics)
|
||||||
|
case *pwbeat*
|
||||||
|
tags=($tags pwbeat comics)
|
||||||
|
case *reliablecomics*
|
||||||
|
tags=($tags reliablecomics comics)
|
||||||
|
case *reneefrench*
|
||||||
|
tags=($tags renee_french comics)
|
||||||
|
case *rickveitch*
|
||||||
|
tags=($tags rick_veitch comics)
|
||||||
|
case *smbc-comics*
|
||||||
|
tags=($tags smbc comics)
|
||||||
|
case *studygroup*
|
||||||
|
tags=($tags studygroup comics)
|
||||||
|
case *xkcd*
|
||||||
|
tags=($tags xkcd comics)
|
||||||
|
case *bowiesongs* *DavidBowie* *davidbowie*
|
||||||
|
tags=($tags music david_bowie)
|
||||||
|
case *designboom*
|
||||||
|
tags=($tags designboom design)
|
||||||
|
case *dezeen*
|
||||||
|
tags=($tags dezeen design)
|
||||||
|
case *infosthetics*
|
||||||
|
tags=($tags infosthetics design)
|
||||||
|
case *inhabitat*
|
||||||
|
tags=($tags inhabitat architecture design)
|
||||||
|
case *luigicolani*
|
||||||
|
tags=($tags luigicolani design)
|
||||||
|
case *mocoloco*
|
||||||
|
tags=($tags mocoloco design)
|
||||||
|
case *sydmead*
|
||||||
|
tags=($tags sydmead design)
|
||||||
|
case *dzima*
|
||||||
|
tags=($tags dzima)
|
||||||
|
case *bbcicecream*
|
||||||
|
tags=($tags bbcicecream fashion)
|
||||||
|
case *DamStyle *damstyle*
|
||||||
|
tags=($tags damstyle fashion)
|
||||||
|
case *facehunter*
|
||||||
|
tags=($tags facehunter fashion)
|
||||||
|
case *StilInBerlin*
|
||||||
|
tags=($tags germany fashion)
|
||||||
|
case *jstreets*
|
||||||
|
tags=($tags jstreets japan fashion)
|
||||||
|
case *stylefromtokyo*
|
||||||
|
tags=($tags stylefromtokyo japan fashion)
|
||||||
|
case *tokyofashion*
|
||||||
|
tags=($tags tokyofashion japan fashion)
|
||||||
|
case *flames.gif* *flamesgif*
|
||||||
|
tags=($tags flames.gif)
|
||||||
|
case *contemporary-home-computing*
|
||||||
|
tags=($tags software flames.gif)
|
||||||
|
case *kurzweil*
|
||||||
|
tags=($tags kurzweil future)
|
||||||
|
case *longnow*
|
||||||
|
tags=($tags longnow future)
|
||||||
|
case *OpenTheFuture*
|
||||||
|
tags=($tags openthefuture future)
|
||||||
|
case *golang* *blog.nella.org*
|
||||||
|
tags=($tags golang)
|
||||||
|
case *googlepluses*
|
||||||
|
tags=($tags google)
|
||||||
|
case *news.ycombinator.com*
|
||||||
|
tags=($tags hackernews hack)
|
||||||
|
case *seanbonner*
|
||||||
|
tags=($tags sean_bonner hack)
|
||||||
|
case *banriman*
|
||||||
|
tags=($tags banriman japan)
|
||||||
|
case *japansubculture*
|
||||||
|
tags=($tags japansubculture japan)
|
||||||
|
case *jeansnow*
|
||||||
|
tags=($tags jeansnow japan)
|
||||||
|
case *Kotaku* *kotaku*
|
||||||
|
tags=($tags kotaku video_games)
|
||||||
|
case *eforemario*
|
||||||
|
tags=($tags before_mario video_games)
|
||||||
|
case *nakakobooks*
|
||||||
|
tags=($tags books nakakobooks japan)
|
||||||
|
case *ozawamaria*
|
||||||
|
tags=($tags maria_ozawa japan)
|
||||||
|
case *shisaku.blogspot.com*
|
||||||
|
tags=($tags shisaku japan)
|
||||||
|
case *jimshooter*
|
||||||
|
tags=($tags comics jim_shooter)
|
||||||
|
case *LettersOfNote* *lettersofnote*
|
||||||
|
tags=($tags letters)
|
||||||
|
case *nasa*letters.rss*
|
||||||
|
tags=($tags nasa letters)
|
||||||
|
case *hellodamage* *manganews* *naokiurasawa* *samehat*
|
||||||
|
tags=($tags comics manga)
|
||||||
|
case *mangatraders*
|
||||||
|
tags=($tags p2p comics manga)
|
||||||
|
case *hortonheardawho*
|
||||||
|
tags=($tags hortonheardawho flickr nasa mars)
|
||||||
|
case *me-vs-gutenberg* *mevsgutenberg*
|
||||||
|
tags=($tags martin_sand)
|
||||||
|
case *marxy*
|
||||||
|
tags=($tags marxy)
|
||||||
|
case *etamodern*
|
||||||
|
tags=($tags metamodern)
|
||||||
|
case *aviationintel*
|
||||||
|
tags=($tags aviationintel mil)
|
||||||
|
case *aviationweek*
|
||||||
|
tags=($tags aviationweek mil)
|
||||||
|
case *codeonemagazine*
|
||||||
|
tags=($tags codeonemagazine mil)
|
||||||
|
case *geimint*
|
||||||
|
tags=($tags geimint mil)
|
||||||
|
case *momus* *mrstsk*
|
||||||
|
tags=($tags books music momus)
|
||||||
|
case *bjork* *toog*
|
||||||
|
tags=($tags music)
|
||||||
|
case *nasa.gov*
|
||||||
|
tags=($tags space nasa)
|
||||||
|
case *mongoliad*
|
||||||
|
tags=($tags neal_stephenson)
|
||||||
|
case *gaiman*
|
||||||
|
tags=($tags comics neil_gaiman)
|
||||||
|
case *nin.com* *feeds.nin.com*
|
||||||
|
tags=($tags music nin)
|
||||||
|
case *nix-os* *syssoftware*
|
||||||
|
tags=($tags plan9 nix)
|
||||||
|
case *bsdly* *OPENBSD* *OpenBSD* *openbsd* *scientist-home* *undeadly*
|
||||||
|
tags=($tags software openbsd)
|
||||||
|
case *godownmatthew* *mysticmilk* *petetoms*
|
||||||
|
tags=($tags pete_toms)
|
||||||
|
case *Pitchfork* *pitchfork*
|
||||||
|
tags=($tags music pitchfork)
|
||||||
|
case *9gridchan* *cat-v* *maht0x0r* *Plan9* *plan9*
|
||||||
|
tags=($tags software plan9)
|
||||||
|
case *FlauntTalks* *prince.org* *purpleinterviews* *wendyandlisa*
|
||||||
|
tags=($tags music prince)
|
||||||
|
case *commandcenter* *rob_pike*
|
||||||
|
tags=($tags golang plan9 rob_pike)
|
||||||
|
case *prometheus*
|
||||||
|
tags=($tags telescreen prometheus)
|
||||||
|
case *reddit.com*
|
||||||
|
tags=($tags reddit)
|
||||||
|
case *swtch.com*
|
||||||
|
tags=($tags golang plan9 rsc)
|
||||||
|
case *bunniestudios*
|
||||||
|
tags=($tags bunniestudios security)
|
||||||
|
case *jwz*
|
||||||
|
tags=($tags jwz security)
|
||||||
|
case *Krebs* *krebs*
|
||||||
|
tags=($tags krebs security)
|
||||||
|
case *scarybeastsecurity*
|
||||||
|
tags=($tags scarybeast security)
|
||||||
|
case *schneier*
|
||||||
|
tags=($tags bruce_schneier security)
|
||||||
|
case *chinchillakwak* *skwak*
|
||||||
|
tags=($tags skwak)
|
||||||
|
case *slashdot*
|
||||||
|
tags=($tags slashdot)
|
||||||
|
case *stanleylieber*
|
||||||
|
tags=($tags stanleylieber)
|
||||||
|
case *fastcompany*
|
||||||
|
tags=($tags fastcompany tech)
|
||||||
|
case *danharmon*
|
||||||
|
tags=($tags danharmon telescreen)
|
||||||
|
case *mindlessones*
|
||||||
|
tags=($tags mindlessones telescreen)
|
||||||
|
case *tcj.com*
|
||||||
|
tags=($tags comics tcj)
|
||||||
|
case *TEDblog* *ted.com*
|
||||||
|
tags=($tags ted)
|
||||||
|
case *ticom*
|
||||||
|
tags=($tags ticom security)
|
||||||
|
case *orrentfreak*
|
||||||
|
tags=($tags p2p torrentfreak)
|
||||||
|
case *ultra*culture*
|
||||||
|
tags=($tags ultraculture)
|
||||||
|
case *kleinletters*
|
||||||
|
tags=($tags comics todd_klein)
|
||||||
|
case *plaidstallions*
|
||||||
|
tags=($tags plaidstallions toys)
|
||||||
|
case *shojikawamori*
|
||||||
|
tags=($tags shojikawamori japan toys)
|
||||||
|
}
|
||||||
|
echo -n $tags
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_posts{
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
posts=`{cat $file}
|
||||||
|
for(i in `{seq 1 $#posts | sort -nr}){
|
||||||
|
post=`{echo $posts($i) | sed 's/> </>\n</g' | grep -v -e '<comments>'}
|
||||||
|
if(! ~ $post ''){
|
||||||
|
a_title=`{echo $post | grep -e 'title>' | sed 's/^.*<title>//g; s/<\/title>.*$//g'}
|
||||||
|
a_date=`{echo $post | grep -e '<pubDate>' | sed 's/^.*<pubDate>//g; s/<\/pubDate>.*$//g'}
|
||||||
|
a_link=`{echo $post | grep -e '<link>' | sed 's/^.*<link>//g; s/<\/link>.*$//g; s/^.*http/http/g'}
|
||||||
|
a_tags=`{echo $post | grep -e '<category>' | sed 's/^.*<\/comments>//g; s/^.*<description>//g; s/^.*<\/description>//g; s/^.*<\/pubDate>//g; s/<category>/ /g; s/<\/category>//g; s/<dc.*$//g; s/^ //g; s/ $//g'}
|
||||||
|
a_tags=`{for(j in $a_tags){ echo $j | sed 's/^.*(<|>).*$//g'}}
|
||||||
|
a_body=`{echo $post | grep -e '<description>' | sed 's/^.*<description>//g; s/<\/description>.*$//g'}
|
||||||
|
a_id=`{echo `{ls -p $werc/sites/$site/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $werc/sites/$site/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
if(! ~ $"a_link '' && ! ~ $"a_link `{cat $werc/sites/$site/src/*/link}){
|
||||||
|
mkdir -p $werc/sites/$site/src/$a_id/tags # big fat race
|
||||||
|
echo $"a_title >$werc/sites/$site/src/$a_id/title
|
||||||
|
echo $"a_date >$werc/sites/$site/src/$a_id/date
|
||||||
|
echo $"a_link >$werc/sites/$site/src/$a_id/link
|
||||||
|
echo $"a_body '</a></li></ul>' >$werc/sites/$site/src/$a_id/body
|
||||||
|
ifs=' ' {
|
||||||
|
for(j in `{get_tags}){
|
||||||
|
>$werc/sites/$site/src/$a_id/tags/$j
|
||||||
|
echo $a_id/tags/$j >>$werc/sites/$site/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(test -f /boot/factotum && ~ $site *.stanleylieber.com)
|
||||||
|
for(i in `{f $werc/sites/$site/src/$a_id})
|
||||||
|
chmod +t $i
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(test -f /boot/factotum && test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
get_feed
|
||||||
|
parse_posts
|
||||||
20
werc/apps/barf/bin/gk
Executable file
20
werc/apps/barf/bin/gk
Executable file
|
|
@ -0,0 +1,20 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Create an index of known_tags in $werc/sites/$site/known_tags
|
||||||
|
if(! ~ $#1 0)
|
||||||
|
base=$1
|
||||||
|
if not if(~ $#barf_root 1 && $#barf_base 1)
|
||||||
|
base=$barf_root/$"barf_base
|
||||||
|
if not
|
||||||
|
base=`{pwd}
|
||||||
|
|
||||||
|
if(test -f $base/_known_tags)
|
||||||
|
rm $base/_known_tags
|
||||||
|
for(i in `{cat $base/etc/tags}){
|
||||||
|
grep -e '^.*\/'$i'$' $base/tags |
|
||||||
|
awk -F '/' '{print $3;}' |
|
||||||
|
sort |
|
||||||
|
uniq -c |
|
||||||
|
awk '{print $2 " " $1;}' >>$base/_known_tags
|
||||||
|
}
|
||||||
|
if(test -f $base/_known_tags)
|
||||||
|
cp $base/_known_tags $base/known_tags
|
||||||
415
werc/apps/barf/bin/gr
Executable file
415
werc/apps/barf/bin/gr
Executable file
|
|
@ -0,0 +1,415 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Parse RSS feeds from Google Reader bundles into BULGE blog posts.
|
||||||
|
# If a post with a matching <link> already exists, no new post will
|
||||||
|
# be created for that <item>. Accordingly, the gr script may run
|
||||||
|
# slowly for sites with a large number of existing posts. Tags will
|
||||||
|
# be created from each <category>.
|
||||||
|
rfork en
|
||||||
|
switch($1){
|
||||||
|
case architecture
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=6e361b590b57934fb1e7c4e29339d619&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(architecture)
|
||||||
|
case comics
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=6bc617a6b20aafd526affafc9a28a5d5&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(comics)
|
||||||
|
case friends
|
||||||
|
feed='https://www.google.com/reader/bundle/user%2F08193524211692385241%2Fbundle%2Ffriends'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(friends)
|
||||||
|
case tech
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=6dd49be6e34a6871db9bcfc74d4b36b1&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=(tech)
|
||||||
|
case *
|
||||||
|
echo usage: `{basename $0} '[ ... ]' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
file=/tmp/gr.$1
|
||||||
|
werc=/usr/sl/www/werc
|
||||||
|
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
cmd=hget
|
||||||
|
if not
|
||||||
|
cmd='curl -s'
|
||||||
|
|
||||||
|
fn f{ du -a $* | sed 's/^.* //g' }
|
||||||
|
|
||||||
|
fn get_feed{
|
||||||
|
$"cmd $feed >$file.work
|
||||||
|
{
|
||||||
|
echo '
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\'/\''/g
|
||||||
|
,s/\,/,/g
|
||||||
|
,s/\-/-/g
|
||||||
|
,s/\./\./g
|
||||||
|
,s/\//\//g
|
||||||
|
,s/\:/:/g
|
||||||
|
,s/\;/;/g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\=/=/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\_/_/g
|
||||||
|
,s/\|/\|/g
|
||||||
|
,/<div id="items">/d
|
||||||
|
/<div id="sidebar">/,d
|
||||||
|
,s/<h2 class="item-title">/\n<h2 class="item-title">/g
|
||||||
|
,s/<div class="item">.*$/HJDIVIDER/g
|
||||||
|
,s/\n//g
|
||||||
|
,s/HJDIVIDER/\n/g
|
||||||
|
1d
|
||||||
|
w
|
||||||
|
q
|
||||||
|
'
|
||||||
|
echo
|
||||||
|
} | sam -d $file.work >[2]/dev/null >[1=2]
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_tags{
|
||||||
|
switch($a_link){
|
||||||
|
case *1oct1993*
|
||||||
|
tags=($tags 1oct1993)
|
||||||
|
case *9front*
|
||||||
|
tags=($tags software plan9 9front)
|
||||||
|
case *amyearles* *pushedunder* *seaglass* *woolandwater*
|
||||||
|
tags=($tags amy_earles)
|
||||||
|
case *animenewsnetwork*
|
||||||
|
tags=($tags telescreen anime)
|
||||||
|
case *spikejapan*
|
||||||
|
tags=($tags japan comics manga telescreen anime)
|
||||||
|
case *ArchDaily* *archdaily*
|
||||||
|
tags=($tags archdaily architecture)
|
||||||
|
case *bldgblog*
|
||||||
|
tags=($tags bldgblog architecture)
|
||||||
|
case *kazuyosejima*
|
||||||
|
tags=($tags japan architecture)
|
||||||
|
case *Minimalissimo*
|
||||||
|
tags=($tags minimalissimo design architecture)
|
||||||
|
case *ArtFCity* *ArtFagCity* *artfagcity*
|
||||||
|
tags=($tags artfagcity art)
|
||||||
|
case *rhizome-fp*
|
||||||
|
tags=($tags rhizome-fp art)
|
||||||
|
case *rhizome*
|
||||||
|
tags=($tags rhizome art)
|
||||||
|
case *starwarsmodern*
|
||||||
|
tags=($tags starwarsmodern art)
|
||||||
|
case *tokyoartbeat*
|
||||||
|
tags=($tags tokyoartbeat japan art)
|
||||||
|
case *trendbeheer*
|
||||||
|
tags=($tags trendbeheer art)
|
||||||
|
case *ValentinaTanni*
|
||||||
|
tags=($tags valentinatanni art)
|
||||||
|
case *vvork*
|
||||||
|
tags=($tags vwork art)
|
||||||
|
case *auriea* *tale-of-tales* *taleoftales*
|
||||||
|
tags=($tags auriea)
|
||||||
|
case *basscomm* *closeoutwarrior* *crummysocks* *gamerrelocationproject* *protipoftheday* *PushButtonB* *pushbuttonb*
|
||||||
|
tags=($tags video_games basscomm)
|
||||||
|
case *benjaminmarra*
|
||||||
|
tags=($tags comics benjamin_marra)
|
||||||
|
case *boingboing*
|
||||||
|
tags=($tags boingboing)
|
||||||
|
case *bushinbooks* *henka*
|
||||||
|
tags=($tags budo)
|
||||||
|
case *alexaanddave* *CEREBUS* *Cerebus* *cerebus* *davesim* *gerhard*
|
||||||
|
tags=($tags comics cerebus gerhard)
|
||||||
|
case *coilhouse*
|
||||||
|
tags=($tags coilhouse)
|
||||||
|
case *arche-arc*
|
||||||
|
tags=($tags arche comics)
|
||||||
|
case *blaiselarmee*
|
||||||
|
tags=($tags blaise_larmee comics)
|
||||||
|
case *bleedingcool*
|
||||||
|
tags=($tags bleedingcool comics)
|
||||||
|
case *bobgreenberger*
|
||||||
|
tags=($tags bob_greengerger comics)
|
||||||
|
case *coldheatcomics*
|
||||||
|
tags=($tags coldheat comics)
|
||||||
|
case *comicbookresources*
|
||||||
|
tags=($tags cbr comics)
|
||||||
|
case *comicsbeat*
|
||||||
|
tags=($tags comicsbeat comics)
|
||||||
|
case *ComicsComics* *comicscomics*
|
||||||
|
tags=($tags comicscomics comics)
|
||||||
|
case *coveredblog*
|
||||||
|
tags=($tags coveredblog comics)
|
||||||
|
case *dcfifty-too*
|
||||||
|
tags=($tags dcfifty-too comics)
|
||||||
|
case *Destructoid* *destructoid*
|
||||||
|
tags=($tags destructoid video_games)
|
||||||
|
case *economist.com*
|
||||||
|
tags=($tags economist)
|
||||||
|
case *ferrandelgado*
|
||||||
|
tags=($tags ferran_delgado comics)
|
||||||
|
case *eddiecampbell*
|
||||||
|
tags=($tags eddie_campbell comics)
|
||||||
|
case *factualopinion*
|
||||||
|
tags=($tags factualopinion comics)
|
||||||
|
case *floating_world* *floatingworld*
|
||||||
|
tags=($tags floating_world comics)
|
||||||
|
case *frankmiller*
|
||||||
|
tags=($tags frank_miller comics)
|
||||||
|
case *humancolor*
|
||||||
|
tags=($tags humancolor comics)
|
||||||
|
case *jerkcity*
|
||||||
|
tags=($tags jerkcity comics)
|
||||||
|
case *newconstructionblog*
|
||||||
|
tags=($tags newconstruction manga comics)
|
||||||
|
case *ohdannyboy*
|
||||||
|
tags=($tags ohdannyboy comics)
|
||||||
|
case *pulphope*
|
||||||
|
tags=($tags pulphope comics)
|
||||||
|
case *pwbeat*
|
||||||
|
tags=($tags pwbeat comics)
|
||||||
|
case *reliablecomics*
|
||||||
|
tags=($tags reliablecomics comics)
|
||||||
|
case *reneefrench*
|
||||||
|
tags=($tags renee_french comics)
|
||||||
|
case *rickveitch*
|
||||||
|
tags=($tags rick_veitch comics)
|
||||||
|
case *smbc-comics*
|
||||||
|
tags=($tags smbc comics)
|
||||||
|
case *studygroup*
|
||||||
|
tags=($tags studygroup comics)
|
||||||
|
case *xkcd*
|
||||||
|
tags=($tags xkcd comics)
|
||||||
|
case *bowiesongs* *DavidBowie* *davidbowie*
|
||||||
|
tags=($tags music david_bowie)
|
||||||
|
case *designboom*
|
||||||
|
tags=($tags designboom design)
|
||||||
|
case *dezeen*
|
||||||
|
tags=($tags dezeen design)
|
||||||
|
case *infosthetics*
|
||||||
|
tags=($tags infosthetics design)
|
||||||
|
case *inhabitat*
|
||||||
|
tags=($tags inhabitat architecture design)
|
||||||
|
case *luigicolani*
|
||||||
|
tags=($tags luigicolani design)
|
||||||
|
case *mocoloco*
|
||||||
|
tags=($tags mocoloco design)
|
||||||
|
case *sydmead*
|
||||||
|
tags=($tags sydmead design)
|
||||||
|
case *dzima*
|
||||||
|
tags=($tags dzima)
|
||||||
|
case *bbcicecream*
|
||||||
|
tags=($tags bbcicecream fashion)
|
||||||
|
case *DamStyle *damstyle*
|
||||||
|
tags=($tags damstyle fashion)
|
||||||
|
case *facehunter*
|
||||||
|
tags=($tags facehunter fashion)
|
||||||
|
case *StilInBerlin*
|
||||||
|
tags=($tags germany fashion)
|
||||||
|
case *jstreets*
|
||||||
|
tags=($tags jstreets japan fashion)
|
||||||
|
case *Stilinberlin*
|
||||||
|
tags=($tags stilinberlin germany fashion)
|
||||||
|
case *stylefromtokyo*
|
||||||
|
tags=($tags stylefromtokyo japan fashion)
|
||||||
|
case *tokyofashion*
|
||||||
|
tags=($tags tokyofashion japan fashion)
|
||||||
|
case *flames.gif* *flamesgif*
|
||||||
|
tags=($tags flames.gif)
|
||||||
|
case *contemporary-home-computing*
|
||||||
|
tags=($tags software flames.gif)
|
||||||
|
case *kurzweil*
|
||||||
|
tags=($tags kurzweil future)
|
||||||
|
case *longnow*
|
||||||
|
tags=($tags longnow future)
|
||||||
|
case *OpenTheFuture*
|
||||||
|
tags=($tags openthefuture future)
|
||||||
|
case *golang* *blog.nella.org*
|
||||||
|
tags=($tags golang)
|
||||||
|
case *googlepluses*
|
||||||
|
tags=($tags google)
|
||||||
|
case *news.ycombinator.com*
|
||||||
|
tags=($tags hackernews hack)
|
||||||
|
case *seanbonner*
|
||||||
|
tags=($tags sean_bonner hack)
|
||||||
|
case *banriman*
|
||||||
|
tags=($tags banriman japan)
|
||||||
|
case *japansubculture*
|
||||||
|
tags=($tags japansubculture japan)
|
||||||
|
case *jeansnow*
|
||||||
|
tags=($tags jeansnow japan)
|
||||||
|
case *Kotaku* *kotaku*
|
||||||
|
tags=($tags kotaku video_games)
|
||||||
|
case *eforemario*
|
||||||
|
tags=($tags before_mario video_games)
|
||||||
|
case *nakakobooks*
|
||||||
|
tags=($tags books nakakobooks japan)
|
||||||
|
case *ozawamaria*
|
||||||
|
tags=($tags maria_ozawa japan)
|
||||||
|
case *ibuya246*
|
||||||
|
tags=($tags shibuya246 japan)
|
||||||
|
case *shisaku.blogspot.com*
|
||||||
|
tags=($tags shisaku japan)
|
||||||
|
case *jimshooter*
|
||||||
|
tags=($tags comics jim_shooter)
|
||||||
|
case *LettersOfNote* *lettersofnote*
|
||||||
|
tags=($tags letters)
|
||||||
|
case *nasa*letters.rss*
|
||||||
|
tags=($tags nasa letters)
|
||||||
|
case *hellodamage* *manganews* *naokiurasawa* *samehat*
|
||||||
|
tags=($tags comics manga)
|
||||||
|
case *mangatraders*
|
||||||
|
tags=($tags p2p comics manga)
|
||||||
|
case *hortonheardawho*
|
||||||
|
tags=($tags hortonheardawho flickr nasa mars)
|
||||||
|
case *me-vs-gutenberg* *mevsgutenberg*
|
||||||
|
tags=($tags martin_sand)
|
||||||
|
case *marxy*
|
||||||
|
tags=($tags marxy)
|
||||||
|
case *etamodern*
|
||||||
|
tags=($tags metamodern)
|
||||||
|
case *aviationintel*
|
||||||
|
tags=($tags aviationintel mil)
|
||||||
|
case *aviationweek*
|
||||||
|
tags=($tags aviationweek mil)
|
||||||
|
case *codeonemagazine*
|
||||||
|
tags=($tags codeonemagazine mil)
|
||||||
|
case *geimint*
|
||||||
|
tags=($tags geimint mil)
|
||||||
|
case *bjork*
|
||||||
|
tags=($tags bjork music)
|
||||||
|
case *momus* *mrstsk*
|
||||||
|
tags=($tags books momus music)
|
||||||
|
case *toog*
|
||||||
|
tags=($tags toog music)
|
||||||
|
case *nasa.gov*
|
||||||
|
tags=($tags space nasa)
|
||||||
|
case *mongoliad*
|
||||||
|
tags=($tags neal_stephenson)
|
||||||
|
case *gaiman*
|
||||||
|
tags=($tags comics neil_gaiman)
|
||||||
|
case *nin.com* *feeds.nin.com*
|
||||||
|
tags=($tags music nin)
|
||||||
|
case *nix-os* *syssoftware*
|
||||||
|
tags=($tags plan9 nix)
|
||||||
|
case *bsdly* *OPENBSD* *OpenBSD* *openbsd* *scientist-home* *undeadly*
|
||||||
|
tags=($tags software openbsd)
|
||||||
|
case *godownmatthew* *mysticmilk* *petetoms*
|
||||||
|
tags=($tags pete_toms)
|
||||||
|
case *Pitchfork* *pitchfork*
|
||||||
|
tags=($tags music pitchfork)
|
||||||
|
case *9gridchan* *cat-v* *maht0x0r* *Plan9* *plan9*
|
||||||
|
tags=($tags software plan9)
|
||||||
|
case *FlauntTalks* *prince.org* *purpleinterviews* *wendyandlisa*
|
||||||
|
tags=($tags music prince)
|
||||||
|
case *commandcenter* *rob_pike*
|
||||||
|
tags=($tags golang plan9 rob_pike)
|
||||||
|
case *prometheus*
|
||||||
|
tags=($tags telescreen prometheus)
|
||||||
|
case *reddit.com*
|
||||||
|
tags=($tags reddit)
|
||||||
|
case *swtch.com*
|
||||||
|
tags=($tags golang plan9 rsc)
|
||||||
|
case *bunniestudios*
|
||||||
|
tags=($tags bunniestudios security)
|
||||||
|
case *jwz*
|
||||||
|
tags=($tags jwz security)
|
||||||
|
case *Krebs* *krebs*
|
||||||
|
tags=($tags krebs security)
|
||||||
|
case *scarybeastsecurity*
|
||||||
|
tags=($tags scarybeast security)
|
||||||
|
case *schneier*
|
||||||
|
tags=($tags bruce_schneier security)
|
||||||
|
case *chinchillakwak* *skwak*
|
||||||
|
tags=($tags skwak)
|
||||||
|
case *slashdot*
|
||||||
|
tags=($tags slashdot)
|
||||||
|
case *stanleylieber*
|
||||||
|
tags=($tags stanleylieber)
|
||||||
|
case *fastcompany*
|
||||||
|
tags=($tags fastcompany tech)
|
||||||
|
case *danharmon*
|
||||||
|
tags=($tags danharmon telescreen)
|
||||||
|
case *mindlessones*
|
||||||
|
tags=($tags mindlessones telescreen)
|
||||||
|
case *tcj.com*
|
||||||
|
tags=($tags comics tcj)
|
||||||
|
case *TEDblog* *ted.com*
|
||||||
|
tags=($tags ted)
|
||||||
|
case *ticom*
|
||||||
|
tags=($tags ticom security)
|
||||||
|
case *orrentfreak*
|
||||||
|
tags=($tags p2p torrentfreak)
|
||||||
|
case *ultra*culture*
|
||||||
|
tags=($tags ultraculture)
|
||||||
|
case *kleinletters*
|
||||||
|
tags=($tags comics todd_klein)
|
||||||
|
case *kennercollector*
|
||||||
|
tags=($tags kennercollector toys)
|
||||||
|
case *plaidstallions*
|
||||||
|
tags=($tags plaidstallions toys)
|
||||||
|
case *shojikawamori*
|
||||||
|
tags=($tags shojikawamori japan toys)
|
||||||
|
case *ruinedcartridge*
|
||||||
|
tags=($tags basscomm video_games)
|
||||||
|
}
|
||||||
|
echo -n $tags
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_posts{
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
for(post in `{sort -r $file.work}){
|
||||||
|
if(! ~ $post ''){
|
||||||
|
a_title=`{echo $post | sed 's/^.*<h2 class="item-title"><div class="">//g' | sed 's/<div class="item-info">.*$//g' | htmlfmt}
|
||||||
|
if(~ $#a_title 0)
|
||||||
|
a_title=`{echo $post | sed 's/^.*<div class="item-info">//g' | sed 's/<div class="item-annotations">.*$//g' | htmlfmt}
|
||||||
|
if(~ $#a_title 0)
|
||||||
|
a_title=fake
|
||||||
|
a_link=`{echo $post | sed 's/^.*<h2 class="item-title"><div class="">//g' | sed 's/<div class="item-info">.*$//g' | htmlfmt -a | sed 's/^.*\[//g' | sed 's/\].*$//g' | sed 's/ .*$//g'}
|
||||||
|
if(~ $#a_link 0 || ! ~ $"a_link http*)
|
||||||
|
a_link=`{echo $post | sed 's/^.*<h2 class="item-title"><div class="">//g' | sed 's/<div class="item-info">.*$//g' | sed 's/^.*<a href="//g' | sed 's/\".*$//g' | sed 's/^.*http/http/g' | sed 's/ .*$//g'}
|
||||||
|
if(~ $#a_link 0 || ! ~ $"a_link http*)
|
||||||
|
a_link=`{echo $post | sed 's/^.*<div class="item-info">//g' | sed 's/<div class="item-annotations">.*$//g' | htmlfmt -a | sed 's/^.*\[//g' | sed 's/\].*$//g' | sed 's/ .*$//g'}
|
||||||
|
if(~ $#a_link 0 || ! ~ $"a_link http*)
|
||||||
|
a_link=`{echo $post | sed 's/^.*<div class="item-info">//g' | sed 's/<div class="item-annotations">.*$//g' | sed 's/^.*<a href="//g' | sed 's/" class="f">.*$//g' | sed 's/\".*$//g' | sed 's/^.*http/http/g' | sed 's/ .*$//g'}
|
||||||
|
a_link=$a_link(1)
|
||||||
|
if(~ $#a_link 0 || ~ $"a_link '' || ! ~ $"a_link http*)
|
||||||
|
a_link=fake
|
||||||
|
if(! ~ $#a_link 1)
|
||||||
|
a_link=`{echo $a_link | awk '{print $1;}'}
|
||||||
|
a_date=`{date -n}
|
||||||
|
a_body=`{echo $post | sed 's/^.*<div class="item-body">//g' | sed 's/<div class="clear">.*$//g'}
|
||||||
|
if(~ $#a_body 0)
|
||||||
|
a_body=fake
|
||||||
|
a_id=`{echo `{ls -p $werc/sites/$site/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $werc/sites/$site/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
if(! ~ $"a_link `{cat $werc/sites/$site/src/*/link}){
|
||||||
|
mkdir -p $werc/sites/$site/src/$a_id/tags # big fat race
|
||||||
|
echo $"a_title >$werc/sites/$site/src/$a_id/title
|
||||||
|
echo $"a_date >$werc/sites/$site/src/$a_id/date
|
||||||
|
echo $"a_link >$werc/sites/$site/src/$a_id/link
|
||||||
|
echo $"a_body '</a></li></ul>' >$werc/sites/$site/src/$a_id/body
|
||||||
|
ifs=' ' {
|
||||||
|
for(j in `{get_tags}){
|
||||||
|
>$werc/sites/$site/src/$a_id/tags/$j
|
||||||
|
echo $a_id/tags/$j >>$werc/sites/$site/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
for(i in `{f $werc/sites/$site/src/$a_id})
|
||||||
|
chmod +t $i
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(test -f /boot/factotum && test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
get_feed
|
||||||
|
parse_posts
|
||||||
23
werc/apps/barf/bin/gt
Executable file
23
werc/apps/barf/bin/gt
Executable file
|
|
@ -0,0 +1,23 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Create an index of tags in $werc/sites/$site/tags. BULGE
|
||||||
|
# greps this index when running a search on a given tag.
|
||||||
|
# This file is also maintained by the bin/g* commands, or
|
||||||
|
# when adding posts through the web interface.
|
||||||
|
if(! ~ $#1 0)
|
||||||
|
base=$1
|
||||||
|
if not if(~ $#barf_root 1 && $#barf_base 1)
|
||||||
|
base=$barf_root/$"barf_base
|
||||||
|
if not
|
||||||
|
base=`{pwd}
|
||||||
|
|
||||||
|
if(test -f $base/_tags)
|
||||||
|
rm $base/_tags
|
||||||
|
builtin cd $base/src
|
||||||
|
ls -p |
|
||||||
|
sort -n |
|
||||||
|
xargs du -a |
|
||||||
|
sed 's/^.* //g' |
|
||||||
|
grep -e '^[0-9]*\/tags' |
|
||||||
|
grep -v -e '^.*\/tags$' >>$base/_tags
|
||||||
|
if(test -s $base/_tags)
|
||||||
|
cp $base/_tags $base/tags
|
||||||
455
werc/apps/barf/bin/gy
Executable file
455
werc/apps/barf/bin/gy
Executable file
|
|
@ -0,0 +1,455 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Parse XML RSS feeds from Yahoo Pipes into BARF blog posts
|
||||||
|
# for the specified site. If a post with a matching _link_ already
|
||||||
|
# exists, no new post will be created for that item. Accordingly,
|
||||||
|
# the gy script may run slowly for sites with a large number of
|
||||||
|
# existing posts. Tags will be created according to the rules
|
||||||
|
# defined in the get_tags() function.
|
||||||
|
#
|
||||||
|
# Requires 20h's xmlpull and rssread.
|
||||||
|
rfork en
|
||||||
|
switch($1){
|
||||||
|
case read
|
||||||
|
feed='http://pipes.yahoo.com/pipes/pipe.run?_id=d1f7146306b019d96d768facf95eebd9&_render=rss'
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=()
|
||||||
|
case *
|
||||||
|
echo 'Usage: gy [ ... ]' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
file=/tmp/gy.$1
|
||||||
|
werc=/usr/sl/www/werc
|
||||||
|
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
cmd=hget
|
||||||
|
if not
|
||||||
|
cmd='curl -s'
|
||||||
|
|
||||||
|
fn cram{
|
||||||
|
ssam '
|
||||||
|
,s/^link:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/^title:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/\n//g
|
||||||
|
,s/HJDIVIDERtitle:/\n&/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn scape{
|
||||||
|
ssam '
|
||||||
|
,s/
//g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\'/''/g
|
||||||
|
,s/\,/,/g
|
||||||
|
,s/\-/-/g
|
||||||
|
,s/\./\./g
|
||||||
|
,s/\//\//g
|
||||||
|
,s/\:/:/g
|
||||||
|
,s/\;/;/g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\=/=/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\_/_/g
|
||||||
|
,s/\|/\|/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_posts{
|
||||||
|
$"cmd $feed | rssread | cram | scape >$file
|
||||||
|
echo >>$file
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_tags{
|
||||||
|
switch($a_link){
|
||||||
|
case *1oct1993*
|
||||||
|
tags=($tags 1oct1993)
|
||||||
|
case *9front*
|
||||||
|
tags=($tags software plan9 9front)
|
||||||
|
case *organicmentalcore*
|
||||||
|
tags=($tags aleks)
|
||||||
|
case *amyearles* *etsy.com* *pushedunder* *seaglass* *woolandwater*
|
||||||
|
tags=($tags amy_earles)
|
||||||
|
case *animenewsnetwork*
|
||||||
|
tags=($tags telescreen anime)
|
||||||
|
case *spikejapan*
|
||||||
|
tags=($tags japan comics manga telescreen anime)
|
||||||
|
case *augmented.org*
|
||||||
|
tags=($tags augmented.org ar)
|
||||||
|
case *ArchDaily* *archdaily*
|
||||||
|
tags=($tags archdaily architecture)
|
||||||
|
case *bldgblog*
|
||||||
|
tags=($tags bldgblog architecture)
|
||||||
|
case *kazuyosejima*
|
||||||
|
tags=($tags japan architecture)
|
||||||
|
case *Minimalissimo*
|
||||||
|
tags=($tags minimalissimo design architecture)
|
||||||
|
case *ArtFagCity* *ArtFCity* *artfagcity*
|
||||||
|
tags=($tags artfagcity art)
|
||||||
|
case *rhizome-fp*
|
||||||
|
tags=($tags rhizome-fp art)
|
||||||
|
case *rhizome*
|
||||||
|
tags=($tags rhizome art)
|
||||||
|
case *starwarsmodern*
|
||||||
|
tags=($tags starwarsmodern art)
|
||||||
|
case *tokyoartbeat*
|
||||||
|
tags=($tags tokyoartbeat japan art)
|
||||||
|
case *trendbeheer*
|
||||||
|
tags=($tags trendbeheer art)
|
||||||
|
case *ValentinaTanni*
|
||||||
|
tags=($tags valentinatanni art)
|
||||||
|
case *vvork*
|
||||||
|
tags=($tags vwork art)
|
||||||
|
case *auriea* *tale-of-tales* *taleoftales*
|
||||||
|
tags=($tags auriea)
|
||||||
|
case *basscomm* *closeoutwarrior* *crummysocks* *gamerrelocationproject* *protipoftheday* *PushButtonB* *pushbuttonb*
|
||||||
|
tags=($tags video_games basscomm)
|
||||||
|
case *benjaminmarra*
|
||||||
|
tags=($tags comics benjamin_marra)
|
||||||
|
case *boingboing*
|
||||||
|
tags=($tags boingboing)
|
||||||
|
case *bushinbooks* *henka*
|
||||||
|
tags=($tags budo)
|
||||||
|
case *alexaanddave* *CEREBUS* *Cerebus* *cerebus* *davesim* *gerhard*
|
||||||
|
tags=($tags comics cerebus gerhard)
|
||||||
|
case *coilhouse*
|
||||||
|
tags=($tags coilhouse)
|
||||||
|
case *arche-arc*
|
||||||
|
tags=($tags arche comics)
|
||||||
|
case *bitolithic.com*
|
||||||
|
tags=($tags bitolithic comics)
|
||||||
|
case *blaiselarmee*
|
||||||
|
tags=($tags blaise_larmee comics)
|
||||||
|
case *bleedingcool*
|
||||||
|
tags=($tags bleedingcool comics)
|
||||||
|
case *bobgreenberger*
|
||||||
|
tags=($tags bob_greengerger comics)
|
||||||
|
case *coldheatcomics*
|
||||||
|
tags=($tags coldheat comics)
|
||||||
|
case *comicbookresources*
|
||||||
|
tags=($tags cbr comics)
|
||||||
|
case *comicsbeat*
|
||||||
|
tags=($tags comicsbeat comics)
|
||||||
|
case *ComicsComics* *comicscomics*
|
||||||
|
tags=($tags comicscomics comics)
|
||||||
|
case *coveredblog*
|
||||||
|
tags=($tags coveredblog comics)
|
||||||
|
case *dcfifty-too*
|
||||||
|
tags=($tags dcfifty-too comics)
|
||||||
|
case *Destructoid* *destructoid*
|
||||||
|
tags=($tags destructoid video_games)
|
||||||
|
case *economist.com*
|
||||||
|
tags=($tags economist)
|
||||||
|
case *brucesterling.tumblr.com*
|
||||||
|
tags=($tags bruce_sterling)
|
||||||
|
case *thecreatorsproject*
|
||||||
|
tags=($tags thecreatorsproject)
|
||||||
|
case *ferrandelgado*
|
||||||
|
tags=($tags ferran_delgado comics)
|
||||||
|
case *eddiecampbell*
|
||||||
|
tags=($tags eddie_campbell comics)
|
||||||
|
case *factualopinion*
|
||||||
|
tags=($tags factualopinion comics)
|
||||||
|
case *floating_world* *floatingworld*
|
||||||
|
tags=($tags floating_world comics)
|
||||||
|
case *frankmiller*
|
||||||
|
tags=($tags frank_miller comics)
|
||||||
|
case *humancolor*
|
||||||
|
tags=($tags humancolor comics)
|
||||||
|
case *jerkcity*
|
||||||
|
tags=($tags jerkcity comics)
|
||||||
|
case *maakies.com*
|
||||||
|
tags=($tags tony_millionaire maakies comics)
|
||||||
|
case *newconstructionblog*
|
||||||
|
tags=($tags newconstruction manga comics)
|
||||||
|
case *ohdannyboy*
|
||||||
|
tags=($tags ohdannyboy comics)
|
||||||
|
case *pulphope*
|
||||||
|
tags=($tags pulphope comics)
|
||||||
|
case *pwbeat*
|
||||||
|
tags=($tags pwbeat comics)
|
||||||
|
case *reliablecomics*
|
||||||
|
tags=($tags reliablecomics comics)
|
||||||
|
case *reneefrench*
|
||||||
|
tags=($tags renee_french comics)
|
||||||
|
case *rickveitch*
|
||||||
|
tags=($tags rick_veitch comics)
|
||||||
|
case *royalboiler*
|
||||||
|
tags=($tags royalboiler comics)
|
||||||
|
case *smbc-comics*
|
||||||
|
tags=($tags smbc comics)
|
||||||
|
case *studygroup*
|
||||||
|
tags=($tags studygroup comics)
|
||||||
|
case *xkcd*
|
||||||
|
tags=($tags xkcd comics)
|
||||||
|
case *bowiesongs* *DavidBowie* *davidbowie*
|
||||||
|
tags=($tags music david_bowie)
|
||||||
|
case *designboom*
|
||||||
|
tags=($tags designboom design)
|
||||||
|
case *dezeen*
|
||||||
|
tags=($tags dezeen design)
|
||||||
|
case *infosthetics*
|
||||||
|
tags=($tags infosthetics design)
|
||||||
|
case *inhabitat*
|
||||||
|
tags=($tags inhabitat architecture design)
|
||||||
|
case *luigicolani*
|
||||||
|
tags=($tags luigicolani design)
|
||||||
|
case *mocoloco*
|
||||||
|
tags=($tags mocoloco design)
|
||||||
|
case *sydmead*
|
||||||
|
tags=($tags sydmead design)
|
||||||
|
case *dzima*
|
||||||
|
tags=($tags dzima)
|
||||||
|
case *bbcicecream*
|
||||||
|
tags=($tags bbcicecream fashion)
|
||||||
|
case *DamStyle *damstyle*
|
||||||
|
tags=($tags damstyle fashion)
|
||||||
|
case *facehunter*
|
||||||
|
tags=($tags facehunter fashion)
|
||||||
|
case *StilInBerlin* *Stilinberlin*
|
||||||
|
tags=($tags germany fashion)
|
||||||
|
case *jstreets*
|
||||||
|
tags=($tags jstreets japan fashion)
|
||||||
|
case *stylefromtokyo*
|
||||||
|
tags=($tags stylefromtokyo japan fashion)
|
||||||
|
case *tokyofashion*
|
||||||
|
tags=($tags tokyofashion japan fashion)
|
||||||
|
case *flames.gif* *flamesgif*
|
||||||
|
tags=($tags flames.gif)
|
||||||
|
case *contemporary-home-computing*
|
||||||
|
tags=($tags software flames.gif)
|
||||||
|
case *acceler8or.com*
|
||||||
|
tags=($tags acceler8or future)
|
||||||
|
case *afrocyberpunk.wordpress.com*
|
||||||
|
tags=($tags afrocyberpunk future)
|
||||||
|
case *hyperallergic.com*
|
||||||
|
tags=($tags hyperallergic future)
|
||||||
|
case *kurzweil*
|
||||||
|
tags=($tags kurzweil future)
|
||||||
|
case *longnow*
|
||||||
|
tags=($tags longnow future)
|
||||||
|
case *OpenTheFuture*
|
||||||
|
tags=($tags openthefuture future)
|
||||||
|
case *theverge.com*
|
||||||
|
tags=($tags theverge future)
|
||||||
|
case *golang* *blog.nella.org*
|
||||||
|
tags=($tags golang)
|
||||||
|
case *googlepluses*
|
||||||
|
tags=($tags google)
|
||||||
|
case *news.ycombinator.com*
|
||||||
|
tags=($tags hackernews hack)
|
||||||
|
case *seanbonner*
|
||||||
|
tags=($tags sean_bonner hack)
|
||||||
|
case *banriman*
|
||||||
|
tags=($tags banriman japan)
|
||||||
|
case *japansubculture*
|
||||||
|
tags=($tags japansubculture japan)
|
||||||
|
case *jeansnow*
|
||||||
|
tags=($tags jeansnow japan)
|
||||||
|
case *Kotaku* *kotaku*
|
||||||
|
tags=($tags kotaku video_games)
|
||||||
|
case *eforemario*
|
||||||
|
tags=($tags before_mario video_games)
|
||||||
|
case *instagram* *web.stagram.com*
|
||||||
|
tags=($tags instagram)
|
||||||
|
case *nakakobooks*
|
||||||
|
tags=($tags books nakakobooks japan)
|
||||||
|
case *ozawamaria*
|
||||||
|
tags=($tags maria_ozawa japan)
|
||||||
|
case *Shibuya246*
|
||||||
|
tags=($tags shibuya246 japan)
|
||||||
|
case *shisaku.blogspot.com*
|
||||||
|
tags=($tags shisaku japan)
|
||||||
|
case *jimshooter*
|
||||||
|
tags=($tags comics jim_shooter)
|
||||||
|
case *LettersOfNote* *lettersofnote*
|
||||||
|
tags=($tags letters)
|
||||||
|
case *nasa*letters.rss*
|
||||||
|
tags=($tags nasa letters)
|
||||||
|
case *kore.livejournal.com*
|
||||||
|
tags=($tags kore livejournal)
|
||||||
|
case *real-funny-lady.livejournal.com*
|
||||||
|
tags=($tags rea_funny_lady livejournal)
|
||||||
|
case *vintage-ads.livejournal.com*
|
||||||
|
tags=($tags vintage_ads livejournal)
|
||||||
|
case *hellodamage*
|
||||||
|
tags=($tags comics hellodamage manga)
|
||||||
|
case *manganews*
|
||||||
|
tags=($tags comics manganews manga)
|
||||||
|
case *naokiurasawa*
|
||||||
|
tags=($tags comics naokiurasawa manga)
|
||||||
|
case *samehat*
|
||||||
|
tags=($tags comics samehat manga)
|
||||||
|
case *mangatraders*
|
||||||
|
tags=($tags p2p comics manga)
|
||||||
|
case *hortonheardawho*
|
||||||
|
tags=($tags hortonheardawho flickr nasa mars)
|
||||||
|
case *marstoday.com*
|
||||||
|
tags=($tags marstoday mars)
|
||||||
|
case *kielbryant*
|
||||||
|
tags=($tags kiel_bryant flickr)
|
||||||
|
case *flickr*paoru*
|
||||||
|
tags=($tags paoru flickr)
|
||||||
|
case *me-vs-gutenberg* *mevsgutenberg*
|
||||||
|
tags=($tags martin_sand)
|
||||||
|
case *marxy*
|
||||||
|
tags=($tags marxy)
|
||||||
|
case *etamodern*
|
||||||
|
tags=($tags metamodern)
|
||||||
|
case *aviationintel*
|
||||||
|
tags=($tags aviationintel mil)
|
||||||
|
case *aviationweek*
|
||||||
|
tags=($tags aviationweek mil)
|
||||||
|
case *codeonemagazine*
|
||||||
|
tags=($tags codeonemagazine mil)
|
||||||
|
case *geimint*
|
||||||
|
tags=($tags geimint mil)
|
||||||
|
case *momus* *mrstsk*
|
||||||
|
tags=($tags books music momus)
|
||||||
|
case *bjork*
|
||||||
|
tags=($tags bjork music)
|
||||||
|
case *c-h-r-i-s-c-a-r-t-e-r*
|
||||||
|
tags=($tags chris_carter music)
|
||||||
|
case *toog*
|
||||||
|
tags=($tags toog music)
|
||||||
|
case *nasa.gov*
|
||||||
|
tags=($tags space nasa)
|
||||||
|
case *mongoliad*
|
||||||
|
tags=($tags neal_stephenson)
|
||||||
|
case *gaiman*
|
||||||
|
tags=($tags comics neil_gaiman)
|
||||||
|
case *111567547782666546187*
|
||||||
|
tags=($tags daniel_rehn gplus)
|
||||||
|
case *114408853762245370512*
|
||||||
|
tags=($tags francesco_cardi gplus)
|
||||||
|
case *106673611724400311137*
|
||||||
|
tags=($tags mark_jondahl gplus)
|
||||||
|
case *113974084460235989118*
|
||||||
|
tags=($tags jose_nazario gplus)
|
||||||
|
case *102089697005520721324*
|
||||||
|
tags=($tags zaki_hasan gplus)
|
||||||
|
case *nin.com* *feeds.nin.com*
|
||||||
|
tags=($tags music nin.com nin)
|
||||||
|
case *ninofficialnews.tumblr.com*
|
||||||
|
tags=($tags music tumblr nin)
|
||||||
|
case *nix-os* *syssoftware*
|
||||||
|
tags=($tags plan9 nix)
|
||||||
|
case *bsdly* *OPENBSD* *OpenBSD* *openbsd* *scientist-home* *undeadly*
|
||||||
|
tags=($tags software openbsd)
|
||||||
|
case *godownmatthew* *mysticmilk* *petetoms*
|
||||||
|
tags=($tags pete_toms)
|
||||||
|
case *Pitchfork* *pitchfork*
|
||||||
|
tags=($tags music pitchfork)
|
||||||
|
case *9gridchan* *cat-v* *maht0x0r* *Plan9* *plan9*
|
||||||
|
tags=($tags software plan9)
|
||||||
|
case *FlauntTalks* *prince.org* *purpleinterviews* *wendyandlisa*
|
||||||
|
tags=($tags music prince)
|
||||||
|
case *101960720994009339267*
|
||||||
|
tags=($tags gplus rob_pike)
|
||||||
|
case *commandcenter* *rob_pike*
|
||||||
|
tags=($tags blogger rob_pike)
|
||||||
|
case *prometheus*
|
||||||
|
tags=($tags telescreen prometheus)
|
||||||
|
case *reddit.com*
|
||||||
|
tags=($tags reddit)
|
||||||
|
case *swtch.com*
|
||||||
|
tags=($tags golang plan9 rsc)
|
||||||
|
case *bunniestudios*
|
||||||
|
tags=($tags bunniestudios security)
|
||||||
|
case *jwz*
|
||||||
|
tags=($tags jwz security)
|
||||||
|
case *Krebs* *krebs*
|
||||||
|
tags=($tags krebs security)
|
||||||
|
case *scarybeastsecurity*
|
||||||
|
tags=($tags scarybeast security)
|
||||||
|
case *schneier*
|
||||||
|
tags=($tags bruce_schneier security)
|
||||||
|
case *chinchillakwak* *skwak*
|
||||||
|
tags=($tags skwak)
|
||||||
|
case *slashdot*
|
||||||
|
tags=($tags slashdot)
|
||||||
|
case *spaceref.com*
|
||||||
|
tags=($tags space spaceref)
|
||||||
|
case *StanleyLieber* *stanleylieber*
|
||||||
|
tags=($tags stanleylieber)
|
||||||
|
case *fastcompany*
|
||||||
|
tags=($tags fastcompany tech)
|
||||||
|
case *gizchina.com*
|
||||||
|
tags=($tags gizchina tech)
|
||||||
|
case *danharmon*
|
||||||
|
tags=($tags danharmon telescreen)
|
||||||
|
case *mindlessones*
|
||||||
|
tags=($tags mindlessones telescreen)
|
||||||
|
case *tcj.com*
|
||||||
|
tags=($tags comics tcj)
|
||||||
|
case *TEDBlog* *TEDblog* *ted.com*
|
||||||
|
tags=($tags ted)
|
||||||
|
case *ticom*
|
||||||
|
tags=($tags ticom security)
|
||||||
|
case *orrentfreak*
|
||||||
|
tags=($tags p2p torrentfreak)
|
||||||
|
case *ultra*culture*
|
||||||
|
tags=($tags ultraculture)
|
||||||
|
case *kleinletters*
|
||||||
|
tags=($tags comics todd_klein)
|
||||||
|
case *collectiondx.com*
|
||||||
|
tags=($tags collectiondx toys)
|
||||||
|
case *kennercollector.com*
|
||||||
|
tags=($tags kennercollector toys)
|
||||||
|
case *plaidstallions*
|
||||||
|
tags=($tags plaidstallions toys)
|
||||||
|
case *shojikawamori*
|
||||||
|
tags=($tags shojikawamori japan toys)
|
||||||
|
case *tumblr*
|
||||||
|
tags=($tags tumblr)
|
||||||
|
case *ruinedcartridge*
|
||||||
|
tags=($tags ruinedcartridge basscomm video_games)
|
||||||
|
}
|
||||||
|
echo -n $tags
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_posts{
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
posts=`{cat $file}
|
||||||
|
for(i in `{seq 1 $#posts | sort -nr}){
|
||||||
|
post=$posts($i)
|
||||||
|
if(! ~ $post ''){
|
||||||
|
a_title=`{echo $post | sed 's/^.*HJDIVIDERtitle: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_date=`{date}
|
||||||
|
a_link=`{echo $post | sed 's/^.*HJDIVIDERlink: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_body=`{echo $post | sed 's/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g'}
|
||||||
|
a_id=`{echo `{ls -p $werc/sites/$site/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $werc/sites/$site/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
if(! ~ $"a_link '' && ! grep -s `{echo $"a_link | md5sum} $werc/sites/$site/links){
|
||||||
|
mkdir -p $werc/sites/$site/src/$a_id/tags # big fat race
|
||||||
|
echo $"a_title >$werc/sites/$site/src/$a_id/title
|
||||||
|
echo $"a_date >$werc/sites/$site/src/$a_id/date
|
||||||
|
echo $a_link(1) >$werc/sites/$site/src/$a_id/link
|
||||||
|
echo $a_link(1) | md5sum >>$werc/sites/$site/links
|
||||||
|
echo $"a_body '</a></li></ul>' >$werc/sites/$site/src/$a_id/body
|
||||||
|
ifs=' ' {
|
||||||
|
for(j in `{get_tags}){
|
||||||
|
>$werc/sites/$site/src/$a_id/tags/$j
|
||||||
|
echo $a_id/tags/$j >>$werc/sites/$site/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(test -f /boot/factotum && ~ $site *.stanleylieber.com && test -d $werc/sites/$site/src/$a_id)
|
||||||
|
chmod +t $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/* $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/tags/*
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(test -f /boot/factotum && test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
get_posts
|
||||||
|
parse_posts
|
||||||
119
werc/apps/barf/bin/gz
Executable file
119
werc/apps/barf/bin/gz
Executable file
|
|
@ -0,0 +1,119 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Parse XML RSS feeds into BARF blog posts for the specified site.
|
||||||
|
# If a post with a matching _link_ already exists, no new post will
|
||||||
|
# be created for that item. Tags will be created according to the rules
|
||||||
|
# defined in the get_tags() function.
|
||||||
|
#
|
||||||
|
# The file argument should point to a file containing one line per feed,
|
||||||
|
# with fields separated by the | character, in the following format:
|
||||||
|
#
|
||||||
|
# http://feeds.feedburner.com/ImNotReallyStanleyLieber|stanleylieber
|
||||||
|
#
|
||||||
|
# where the first field is the feed URL and each addition field is a tag.
|
||||||
|
#
|
||||||
|
# Requires 20h's xmlpull and rssread.
|
||||||
|
rfork en
|
||||||
|
switch($1){
|
||||||
|
case /*
|
||||||
|
feeds=$1
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=()
|
||||||
|
case *
|
||||||
|
echo 'Usage: gz file' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
file=/tmp/gz.$pid
|
||||||
|
werc=/usr/sl/www/werc
|
||||||
|
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
cmd=hget
|
||||||
|
if not
|
||||||
|
cmd='curl -s'
|
||||||
|
|
||||||
|
fn cram{
|
||||||
|
ssam '
|
||||||
|
,s/^link:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/^title:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/\n//g
|
||||||
|
,s/HJDIVIDERtitle:/\n&/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn scape{
|
||||||
|
ssam '
|
||||||
|
,s/
//g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\'/''/g
|
||||||
|
,s/\,/,/g
|
||||||
|
,s/\-/-/g
|
||||||
|
,s/\./\./g
|
||||||
|
,s/\//\//g
|
||||||
|
,s/\:/:/g
|
||||||
|
,s/\;/;/g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\=/=/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\_/_/g
|
||||||
|
,s/\|/\|/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_posts{
|
||||||
|
$"cmd $"feed | rssread | cram | scape >$file
|
||||||
|
echo >>$file
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_posts{
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
posts=`{cat $file}
|
||||||
|
for(i in `{seq 1 $#posts | sort -nr}){
|
||||||
|
post=$posts($i)
|
||||||
|
if(! ~ $post ''){
|
||||||
|
a_title=`{echo $post | sed 's/^.*HJDIVIDERtitle: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_date=`{date}
|
||||||
|
a_link=`{echo $post | sed 's/^.*HJDIVIDERlink: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_body=`{echo $post | sed 's/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g'}
|
||||||
|
a_id=`{echo `{ls -p $werc/sites/$site/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $werc/sites/$site/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
if(! ~ $"a_link '' && ! grep -s `{echo $"a_link | md5sum} $werc/sites/$site/links){
|
||||||
|
mkdir -p $werc/sites/$site/src/$a_id/tags # big fat race
|
||||||
|
echo $"a_title >$werc/sites/$site/src/$a_id/title
|
||||||
|
echo $"a_date >$werc/sites/$site/src/$a_id/date
|
||||||
|
echo $a_link(1) >$werc/sites/$site/src/$a_id/link
|
||||||
|
echo $a_link(1) | md5sum >>$werc/sites/$site/links
|
||||||
|
if(~ $a_link(1) *staticflickr.com*)
|
||||||
|
echo '<img src="'$"a_link'">' >$werc/sites/$site/src/$a_id/body
|
||||||
|
echo $"a_body '</a></li></ul>' >>$werc/sites/$site/src/$a_id/body
|
||||||
|
ifs=' ' {
|
||||||
|
for(j in $tags){
|
||||||
|
>$werc/sites/$site/src/$a_id/tags/$j
|
||||||
|
echo $a_id/tags/$j >>$werc/sites/$site/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(test -f /boot/factotum && ~ $site *.stanleylieber.com && test -d $werc/sites/$site/src/$a_id)
|
||||||
|
chmod +t $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/* $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/tags/*
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(test -f /boot/factotum && test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
for(i in `{grep -v -e '^#' $feeds}){
|
||||||
|
feed=`{echo $"i | sed 's/\|.*$//g'}
|
||||||
|
tags=`{echo $"i | sed 's/\|/ /g'}
|
||||||
|
tags=$tags(2-)
|
||||||
|
get_posts
|
||||||
|
parse_posts
|
||||||
|
}
|
||||||
119
werc/apps/barf/bin/gz.read
Executable file
119
werc/apps/barf/bin/gz.read
Executable file
|
|
@ -0,0 +1,119 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Parse XML RSS feeds into BARF blog posts for the specified site.
|
||||||
|
# If a post with a matching _link_ already exists, no new post will
|
||||||
|
# be created for that item. Tags will be created according to the rules
|
||||||
|
# defined in the get_tags() function.
|
||||||
|
#
|
||||||
|
# The file argument should point to a file containing one line per feed,
|
||||||
|
# with fields separated by the | character, in the following format:
|
||||||
|
#
|
||||||
|
# http://feeds.feedburner.com/ImNotReallyStanleyLieber|stanleylieber
|
||||||
|
#
|
||||||
|
# where the first field is the feed URL and each addition field is a tag.
|
||||||
|
#
|
||||||
|
# Requires 20h's xmlpull and rssread.
|
||||||
|
rfork en
|
||||||
|
switch($1){
|
||||||
|
case /*
|
||||||
|
feeds=$1
|
||||||
|
site=read.stanleylieber.com
|
||||||
|
tags=()
|
||||||
|
case *
|
||||||
|
echo 'Usage: gz file' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
file=/tmp/gz.$pid
|
||||||
|
werc=/usr/sl/www/werc
|
||||||
|
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
cmd=hget
|
||||||
|
if not
|
||||||
|
cmd='curl -s'
|
||||||
|
|
||||||
|
fn cram{
|
||||||
|
ssam '
|
||||||
|
,s/^link:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/^title:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/\n//g
|
||||||
|
,s/HJDIVIDERtitle:/\n&/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn scape{
|
||||||
|
ssam '
|
||||||
|
,s/
//g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\'/''/g
|
||||||
|
,s/\,/,/g
|
||||||
|
,s/\-/-/g
|
||||||
|
,s/\./\./g
|
||||||
|
,s/\//\//g
|
||||||
|
,s/\:/:/g
|
||||||
|
,s/\;/;/g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\=/=/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\_/_/g
|
||||||
|
,s/\|/\|/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_posts{
|
||||||
|
$"cmd $"feed | rssread | cram | scape >$file
|
||||||
|
echo >>$file
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_posts{
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
posts=`{cat $file}
|
||||||
|
for(i in `{seq 1 $#posts | sort -nr}){
|
||||||
|
post=$posts($i)
|
||||||
|
if(! ~ $post ''){
|
||||||
|
a_title=`{echo $post | sed 's/^.*HJDIVIDERtitle: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_date=`{date}
|
||||||
|
a_link=`{echo $post | sed 's/^.*HJDIVIDERlink: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_body=`{echo $post | sed 's/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g'}
|
||||||
|
a_id=`{echo `{ls -p $werc/sites/$site/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $werc/sites/$site/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
if(! ~ $"a_link '' && ! grep -s `{echo $"a_link | md5sum} $werc/sites/$site/links){
|
||||||
|
mkdir -p $werc/sites/$site/src/$a_id/tags # big fat race
|
||||||
|
echo $"a_title >$werc/sites/$site/src/$a_id/title
|
||||||
|
echo $"a_date >$werc/sites/$site/src/$a_id/date
|
||||||
|
echo $a_link(1) >$werc/sites/$site/src/$a_id/link
|
||||||
|
echo $a_link(1) | md5sum >>$werc/sites/$site/links
|
||||||
|
if(~ $a_link(1) *staticflickr.com*)
|
||||||
|
echo '<img src="'$"a_link'">' >$werc/sites/$site/src/$a_id/body
|
||||||
|
echo $"a_body '</a></li></ul>' >>$werc/sites/$site/src/$a_id/body
|
||||||
|
ifs=' ' {
|
||||||
|
for(j in $tags){
|
||||||
|
>$werc/sites/$site/src/$a_id/tags/$j
|
||||||
|
echo $a_id/tags/$j >>$werc/sites/$site/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(test -f /boot/factotum && ~ $site *.stanleylieber.com && test -d $werc/sites/$site/src/$a_id)
|
||||||
|
chmod +t $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/* $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/tags/*
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(test -f /boot/factotum && test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
for(i in `{grep -v -e '^#' $feeds}){
|
||||||
|
feed=`{echo $"i | sed 's/\|.*$//g'}
|
||||||
|
tags=`{echo $"i | sed 's/\|/ /g'}
|
||||||
|
tags=$tags(2-)
|
||||||
|
get_posts
|
||||||
|
parse_posts
|
||||||
|
}
|
||||||
119
werc/apps/barf/bin/gz.tumblr
Executable file
119
werc/apps/barf/bin/gz.tumblr
Executable file
|
|
@ -0,0 +1,119 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Parse XML RSS feeds into BARF blog posts for the specified site.
|
||||||
|
# If a post with a matching _link_ already exists, no new post will
|
||||||
|
# be created for that item. Tags will be created according to the rules
|
||||||
|
# defined in the get_tags() function.
|
||||||
|
#
|
||||||
|
# The file argument should point to a file containing one line per feed,
|
||||||
|
# with fields separated by the | character, in the following format:
|
||||||
|
#
|
||||||
|
# http://feeds.feedburner.com/ImNotReallyStanleyLieber|stanleylieber
|
||||||
|
#
|
||||||
|
# where the first field is the feed URL and each addition field is a tag.
|
||||||
|
#
|
||||||
|
# Requires 20h's xmlpull and rssread.
|
||||||
|
rfork en
|
||||||
|
switch($1){
|
||||||
|
case /*
|
||||||
|
feeds=$1
|
||||||
|
site=tumblr.stanleylieber.com
|
||||||
|
tags=()
|
||||||
|
case *
|
||||||
|
echo 'Usage: gz file' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
file=/tmp/gz.$pid
|
||||||
|
werc=/usr/sl/www/werc
|
||||||
|
|
||||||
|
if(test -f /boot/factotum)
|
||||||
|
cmd=hget
|
||||||
|
if not
|
||||||
|
cmd='curl -s'
|
||||||
|
|
||||||
|
fn cram{
|
||||||
|
ssam '
|
||||||
|
,s/^link:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/^title:.*$/HJDIVIDER&HJDIVIDER/g
|
||||||
|
,s/\n//g
|
||||||
|
,s/HJDIVIDERtitle:/\n&/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn scape{
|
||||||
|
ssam '
|
||||||
|
,s/
//g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\"/\"/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\&/\&/g
|
||||||
|
,s/\'/''/g
|
||||||
|
,s/\,/,/g
|
||||||
|
,s/\-/-/g
|
||||||
|
,s/\./\./g
|
||||||
|
,s/\//\//g
|
||||||
|
,s/\:/:/g
|
||||||
|
,s/\;/;/g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\</</g
|
||||||
|
,s/\=/=/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\>/>/g
|
||||||
|
,s/\_/_/g
|
||||||
|
,s/\|/\|/g
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_posts{
|
||||||
|
$"cmd $"feed | rssread | cram | scape >$file
|
||||||
|
echo >>$file
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_posts{
|
||||||
|
ifs='
|
||||||
|
' {
|
||||||
|
posts=`{cat $file}
|
||||||
|
for(i in `{seq 1 $#posts | sort -nr}){
|
||||||
|
post=$posts($i)
|
||||||
|
if(! ~ $post ''){
|
||||||
|
a_title=`{echo $post | sed 's/^.*HJDIVIDERtitle: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_date=`{date}
|
||||||
|
a_link=`{echo $post | sed 's/^.*HJDIVIDERlink: //g; s/HJDIVIDER.*$//g'}
|
||||||
|
a_body=`{echo $post | sed 's/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g; s/^.*HJDIVIDER//g'}
|
||||||
|
a_id=`{echo `{ls -p $werc/sites/$site/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $werc/sites/$site/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
if(! ~ $"a_link '' && ! grep -s `{echo $"a_link | md5sum} $werc/sites/$site/links){
|
||||||
|
mkdir -p $werc/sites/$site/src/$a_id/tags # big fat race
|
||||||
|
echo $"a_title >$werc/sites/$site/src/$a_id/title
|
||||||
|
echo $"a_date >$werc/sites/$site/src/$a_id/date
|
||||||
|
echo $a_link(1) >$werc/sites/$site/src/$a_id/link
|
||||||
|
echo $a_link(1) | md5sum >>$werc/sites/$site/links
|
||||||
|
if(~ $a_link(1) *staticflickr.com*)
|
||||||
|
echo '<img src="'$"a_link'">' >$werc/sites/$site/src/$a_id/body
|
||||||
|
echo $"a_body '</a></li></ul>' >>$werc/sites/$site/src/$a_id/body
|
||||||
|
ifs=' ' {
|
||||||
|
for(j in $tags){
|
||||||
|
>$werc/sites/$site/src/$a_id/tags/$j
|
||||||
|
echo $a_id/tags/$j >>$werc/sites/$site/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(test -f /boot/factotum && ~ $site *.stanleylieber.com && test -d $werc/sites/$site/src/$a_id)
|
||||||
|
chmod +t $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/* $werc/sites/$site/src/$a_id $werc/sites/$site/src/$a_id/tags/*
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(test -f /boot/factotum && test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
for(i in `{grep -v -e '^#' $feeds}){
|
||||||
|
feed=`{echo $"i | sed 's/\|.*$//g'}
|
||||||
|
tags=`{echo $"i | sed 's/\|/ /g'}
|
||||||
|
tags=$tags(2-)
|
||||||
|
get_posts
|
||||||
|
parse_posts
|
||||||
|
}
|
||||||
3
werc/apps/barf/bin/rsrc
Executable file
3
werc/apps/barf/bin/rsrc
Executable file
|
|
@ -0,0 +1,3 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# Remove static files.
|
||||||
|
rm -r [0-9]*.html [0-9]*-[0-9]*.html tag
|
||||||
4
werc/apps/barf/bin/srct
Executable file
4
werc/apps/barf/bin/srct
Executable file
|
|
@ -0,0 +1,4 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# do not store these files in the worm
|
||||||
|
fn f{ du -a $* | sed 's/^.* //g' }
|
||||||
|
for(i in `{f $1}){ chmod +t $i }
|
||||||
14
werc/apps/barf/lib/barf.tpl
Executable file
14
werc/apps/barf/lib/barf.tpl
Executable file
|
|
@ -0,0 +1,14 @@
|
||||||
|
% if(~ $show_header 1 && ! ~ $barf_type login rss)
|
||||||
|
% display_header
|
||||||
|
% if(~ $a_func edit_form){
|
||||||
|
% if(check_user && ! ~ $#logged_user 0)
|
||||||
|
% edit_form
|
||||||
|
% if not
|
||||||
|
% display_^$barf_type
|
||||||
|
% }
|
||||||
|
% if not
|
||||||
|
% display_^$barf_type
|
||||||
|
% if(~ $show_sidebar 1 && ~ $#a_func 0 && ! ~ $barf_type login rss)
|
||||||
|
% display_sidebar
|
||||||
|
% if(~ $show_footer 1 && ~ $#a_func 0 && ! ~ $barf_type login rss)
|
||||||
|
% display_footer
|
||||||
43
werc/apps/barf/lib/blog
Executable file
43
werc/apps/barf/lib/blog
Executable file
|
|
@ -0,0 +1,43 @@
|
||||||
|
fn display_blog{
|
||||||
|
echo '<div id="center">
|
||||||
|
<div id="posts">'
|
||||||
|
get_post_list
|
||||||
|
for(i in `{seq 1 $#posts}){
|
||||||
|
a_id=$posts($i)
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
echo '<div id="post">
|
||||||
|
<div id="post_title">'
|
||||||
|
print_title
|
||||||
|
echo '</div>
|
||||||
|
<div id="post_meta">'
|
||||||
|
link=`{cat $a_dir/link}
|
||||||
|
echo '<span id="post_link">
|
||||||
|
<a href="'$"link'" target="_b">link</a>
|
||||||
|
</span>
|
||||||
|
| <span id="post_tags">'
|
||||||
|
print_tags
|
||||||
|
echo '</span>
|
||||||
|
| <span id="post_date">'
|
||||||
|
cat $a_dir/date
|
||||||
|
echo '</span>'
|
||||||
|
print_id
|
||||||
|
if(check_user && ! ~ $#logged_user 0){
|
||||||
|
echo ' | <span id="post_edit">'
|
||||||
|
print_edit
|
||||||
|
echo '</span>'
|
||||||
|
}
|
||||||
|
echo '</div>
|
||||||
|
<div id="post_body">'
|
||||||
|
cat $a_dir/body
|
||||||
|
if(~ $show_disqus 1 && ! ~ $#id 0)
|
||||||
|
cat $barf_root/_werc/barf/disqus
|
||||||
|
echo '</div>
|
||||||
|
</div>
|
||||||
|
<br>'
|
||||||
|
}
|
||||||
|
display_prevnext
|
||||||
|
echo '<br><br><br>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
414
werc/apps/barf/lib/core
Executable file
414
werc/apps/barf/lib/core
Executable file
|
|
@ -0,0 +1,414 @@
|
||||||
|
fn delete_post{
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
if(test -d $a_dir){
|
||||||
|
rm -rf $a_dir &&
|
||||||
|
{echo ',x/^'$a_id'\/.*\n/d'; echo w; echo q} | sam -d $barf_root/$"barf_dir/tags >[2]/dev/null
|
||||||
|
}
|
||||||
|
post_redirect $base_url^$barf_base_uri
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_footer{
|
||||||
|
if(test -f $barf_root/$"barf_dir/_werc/barf/footer)
|
||||||
|
cat $barf_root/$"barf_dir/_werc/barf/footer
|
||||||
|
if not if(test -f $barf_root/_werc/barf/footer)
|
||||||
|
cat $barf_root/_werc/barf/footer
|
||||||
|
if not
|
||||||
|
cat apps/barf/barf/footer
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_header{
|
||||||
|
if(test -f $barf_root/$"barf_dir/_werc/barf/header)
|
||||||
|
cat $barf_root/$"barf_dir/_werc/barf/header
|
||||||
|
if not if(test -f $barf_root/_werc/barf/header)
|
||||||
|
cat $barf_root/_werc/barf/header
|
||||||
|
if not
|
||||||
|
cat apps/barf/barf/header
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_login{
|
||||||
|
echo '<div id="login">
|
||||||
|
<form method="post" action="/">
|
||||||
|
<input type="hidden" name="a_func" value="login">
|
||||||
|
username: <input type="text" name="user_name"><br>
|
||||||
|
password: <input type="password" name="user_password"><br>
|
||||||
|
<input name="s" type="submit" value="login">
|
||||||
|
</form>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_prevnext{
|
||||||
|
if(test $stop -gt `{echo 1+^$posts_per_page | bc}){
|
||||||
|
nprev=`{echo $start^-1-^$posts_per_page | bc}
|
||||||
|
prev='<span>
|
||||||
|
<a href="'$base_url^$barf_base_uri'?tags='$"tags'&start='$"nprev'">prev</a> |
|
||||||
|
</span>'
|
||||||
|
}
|
||||||
|
if(test $#posts -gt $posts_per_page){
|
||||||
|
nnext=`{echo $stop^+1 | bc}
|
||||||
|
next='<span>
|
||||||
|
<a href="'$base_url^$barf_base_uri'?tags='$"tags'&start='$"nnext'">next</a>
|
||||||
|
</span>'
|
||||||
|
}
|
||||||
|
echo '<div id="page_list">
|
||||||
|
'$"prev'
|
||||||
|
'$"next'
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_sidebar{
|
||||||
|
if(test -f $barf_root/$"barf_dir/_werc/barf/sidebar)
|
||||||
|
cat $barf_root/$"barf_dir/_werc/barf/sidebar
|
||||||
|
if not if(test -f $barf_root/_werc/barf/sidebar)
|
||||||
|
cat $barf_root/_werc/barf/sidebar
|
||||||
|
if not
|
||||||
|
cat apps/barf/barf/sidebar
|
||||||
|
}
|
||||||
|
|
||||||
|
fn dsrc{
|
||||||
|
low=`{ls -p $barf_root/$"barf_dir/src | sort -n | sed 1q}
|
||||||
|
high=$a_id
|
||||||
|
if(~ $#low 1 && ~ $#high 1){
|
||||||
|
cd $barf_root/$"barf_dir/src && rm -rf `{seq $low $high} &&
|
||||||
|
{
|
||||||
|
for(i in `{seq $low $high})
|
||||||
|
echo ',x/^'$i'\/.*\n/d'
|
||||||
|
echo w
|
||||||
|
echo w
|
||||||
|
echo q
|
||||||
|
} | sam -d $barf_root/$"barf_dir/tags >[2]/dev/null
|
||||||
|
}
|
||||||
|
post_redirect $base_url^$barf_base_uri
|
||||||
|
}
|
||||||
|
|
||||||
|
fn edit_form{
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
name=add
|
||||||
|
if not{
|
||||||
|
name=update
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
for(x in $barf_items){
|
||||||
|
if(~ $x img)
|
||||||
|
a_img=`{ls -p $a_dir/img | sed 1q}
|
||||||
|
if(~ $x tags)
|
||||||
|
a_tags=`{ls -p $a_dir/tags}
|
||||||
|
if not
|
||||||
|
$x=`{cat $a_dir/$x}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
echo '<div id="list">
|
||||||
|
<form action="/" method="post" name="edit" id="button">
|
||||||
|
<input type="hidden" name="fake" value="fake">
|
||||||
|
<input type="text" name="url" style="display: none;">
|
||||||
|
<input type="hidden" name="a_func" value="edit_post">'
|
||||||
|
if(~ $name update)
|
||||||
|
echo '<input type="hidden" name="a_id" value="'$"a_id'">'
|
||||||
|
for(x in $barf_items){
|
||||||
|
if(~ $x body){
|
||||||
|
echo '<div id="edit_body">' \
|
||||||
|
'body:<br>' \
|
||||||
|
'<textarea name="a_body">'
|
||||||
|
if(~ $name update)
|
||||||
|
cat $a_dir/body
|
||||||
|
echo '</textarea></div>'
|
||||||
|
}
|
||||||
|
if not if(~ $x img){
|
||||||
|
echo '<div id="edit_img">' \
|
||||||
|
'image:<br>' \
|
||||||
|
'<input name="a_img" type="text" value="'$"a_img'" id="edit"> ' \
|
||||||
|
'download: <input name="a_download" type="checkbox" value="1">' \
|
||||||
|
'</div>'
|
||||||
|
}
|
||||||
|
if not if(~ $x tags){
|
||||||
|
echo '<div id="edit_tags">' \
|
||||||
|
'tags: (space separated list of tags)<br>' \
|
||||||
|
'<input name="a_tags" type="text" value="'$"a_tags'" id="edit">' \
|
||||||
|
'</div>'
|
||||||
|
}
|
||||||
|
if not{
|
||||||
|
echo '<div id="edit_'$"x'">' \
|
||||||
|
$"x':<br>' \
|
||||||
|
'<input name="a_'$"x'" type="text" value="'$"$x'" id="edit">' \
|
||||||
|
'</div>'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
echo '<div id="edit_submit">' \
|
||||||
|
'<input type="submit" name="'$name'" value="'$name'">' \
|
||||||
|
'</div>
|
||||||
|
</form>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn edit_post{
|
||||||
|
if(~ $#a_id 0){
|
||||||
|
a_id=`{echo `{ls -p $barf_root/$"barf_dir/src | sort -n | tail -1}^+1 | bc}
|
||||||
|
if(~ $#a_id 0)
|
||||||
|
a_id=1
|
||||||
|
while(test -d $barf_root/$"barf_dir/src/$a_id)
|
||||||
|
a_id=`{echo $a_id^+1 | bc}
|
||||||
|
}
|
||||||
|
a_dir=$barf_root/$"barf_dir^src/$a_id
|
||||||
|
mkdir -p $a_dir/img $a_dir/tags
|
||||||
|
rm -f $a_dir/tags/*
|
||||||
|
for(x in $barf_items){
|
||||||
|
if(~ $x date){
|
||||||
|
if(! ~ $#a_date 0)
|
||||||
|
echo $"a_date >$a_dir/date
|
||||||
|
if not
|
||||||
|
date >$a_dir/date
|
||||||
|
}
|
||||||
|
if not if(~ $x tags){
|
||||||
|
if(! ~ $#a_tags 0){
|
||||||
|
a_tags=`{echo $"a_tags | sed 's/[^A-Za-z0-9_\- ]//g'}
|
||||||
|
ifs=' '{a_tags=`{echo -n $a_tags}}
|
||||||
|
{
|
||||||
|
t=1
|
||||||
|
while(test $t -le $#a_tags){
|
||||||
|
>$a_dir/tags/$a_tags($t)
|
||||||
|
t=`{echo $t^+1 | bc}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
for(i in $a_tags)
|
||||||
|
echo $a_id'/tags/'$i >>$barf_root/$"barf_dir/tags
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if not if(! ~ $x img tags){
|
||||||
|
item='a_'$"x
|
||||||
|
if(! ~ $$item ''){
|
||||||
|
>$a_dir/$x
|
||||||
|
echo $$item >$a_dir/$x
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(~ $a_download 1){
|
||||||
|
switch($barf_type){
|
||||||
|
case image
|
||||||
|
rm -f $a_dir/img/*
|
||||||
|
img=$a_dir/img/^`{date -n}^.^`{echo $"a_img |
|
||||||
|
sed 's/^.*\.(gif|GIF)$/gif/g;
|
||||||
|
s/^.*\.(jpg|jpeg|JPG|JPEG)$/jpg/g;
|
||||||
|
s/^.*\.(png|PNG)$/png/g;
|
||||||
|
s/^.*\.(tif|TIF|tiff|TIFF)$/tif/g'
|
||||||
|
}
|
||||||
|
thumb=$a_dir/img/small.^`{basename $img | sed 's/\..*$//g'}^.png
|
||||||
|
if(test -f /boot/factotum){
|
||||||
|
@{
|
||||||
|
rfork n
|
||||||
|
if(test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
hget $"a_img >$img
|
||||||
|
#magick/convert $img -resize 500x600 $thumb
|
||||||
|
switch($img){
|
||||||
|
case *.bmp
|
||||||
|
cmd=bmp
|
||||||
|
case *.gif
|
||||||
|
cmd=gif
|
||||||
|
case *.ico
|
||||||
|
cmd=ico
|
||||||
|
case *.jpg
|
||||||
|
cmd=jpg
|
||||||
|
case *.png
|
||||||
|
cmd=png
|
||||||
|
case *.tif
|
||||||
|
cmd=tif
|
||||||
|
case *.tga
|
||||||
|
cmd=tga
|
||||||
|
}
|
||||||
|
$cmd -9et <$img | resample -x 500 | topng >$thumb
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if not{
|
||||||
|
curl -s -o $"a_img >$img
|
||||||
|
convert $img -resize 500x600 $thumb
|
||||||
|
}
|
||||||
|
case url
|
||||||
|
if(test -f /boot/factotum){
|
||||||
|
@{
|
||||||
|
rfork n
|
||||||
|
if(test -f /rc/bin/hget)
|
||||||
|
webfs
|
||||||
|
hget $"a_link | htmlfmt | fmt >$a_dir/body
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if not
|
||||||
|
curl -s $"a_link | htmlfmt | fmt >$a_dir/body
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if(! ~ $gp 1)
|
||||||
|
post_redirect $base_url^$barf_base_uri
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_post_list{
|
||||||
|
if(~ $id [0-9]*)
|
||||||
|
posts=$id
|
||||||
|
if not{
|
||||||
|
posts=`{
|
||||||
|
if(~ $show_ascending 1)
|
||||||
|
sort=(sort -n)
|
||||||
|
if not
|
||||||
|
sort=(sort -nr)
|
||||||
|
if(~ $tags all)
|
||||||
|
ls -p $barf_root/$"barf_dir/src |
|
||||||
|
grep -e '^[0-9]*$' |
|
||||||
|
eval $sort |
|
||||||
|
sed -n $start^,^$stop^p # awk 'NR=='$start',NR=='$stop' {print;}'
|
||||||
|
if not
|
||||||
|
grep -e '^.*\/'$tags'$' $barf_root/$"barf_dir/tags |
|
||||||
|
awk -F '/' '{print $1;}' |
|
||||||
|
eval $sort |
|
||||||
|
uniq |
|
||||||
|
sed -n $start^,^$stop^p
|
||||||
|
}
|
||||||
|
if(! ~ $posts [0-9]*)
|
||||||
|
posts=()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_start{
|
||||||
|
if(~ $#start 0)
|
||||||
|
start=1
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_stop{
|
||||||
|
if(~ $#stop 0)
|
||||||
|
stop=`{echo $start^+^$posts_per_page | bc}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_tags{
|
||||||
|
if(~ $#tags 0)
|
||||||
|
tags=all
|
||||||
|
}
|
||||||
|
|
||||||
|
fn load_get_args{
|
||||||
|
if(~ $REQUEST_METHOD GET && ~ $#get_args 0 && ~ $REQUEST_URI *'='*){
|
||||||
|
ifs='&' {
|
||||||
|
a=`{echo $"REQUEST_URI | sed 's/(^\/|#.*$)//g'}
|
||||||
|
for(pair in $a){
|
||||||
|
ifs='=' { pair=`{echo -n $pair} }
|
||||||
|
n='get_arg_'^`{echo $pair(1) | urldecode | tr -cd 'a-zA-Z0-9_'}
|
||||||
|
get_args=( $get_args $n )
|
||||||
|
ifs=() { $n=`{echo -n $pair(2) | urldecode | tr -d '
'} }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
pair=()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_get_args{
|
||||||
|
if(! ~ $#get_arg_a_func 0)
|
||||||
|
a_func=$get_arg_a_func
|
||||||
|
if(! ~ $#get_arg_a_id 0)
|
||||||
|
a_id=$get_arg_a_id
|
||||||
|
if(! ~ $#get_arg_id 0)
|
||||||
|
id=$get_arg_id
|
||||||
|
if(! ~ $#get_arg_start 0)
|
||||||
|
start=$get_arg_start
|
||||||
|
if(! ~ $#get_arg_stop 0)
|
||||||
|
stop=$get_arg_stop
|
||||||
|
if(! ~ $#get_arg_reply 0)
|
||||||
|
reply=$get_arg_reply
|
||||||
|
if(! ~ $#get_arg_tags 0)
|
||||||
|
tags=$get_arg_tags
|
||||||
|
}
|
||||||
|
|
||||||
|
fn parse_post_args{
|
||||||
|
for(x in $barf_items){
|
||||||
|
a='a_'$"x
|
||||||
|
p='post_arg_'$"a
|
||||||
|
$a=$$p
|
||||||
|
}
|
||||||
|
if(! ~ $#post_arg_a_download 0)
|
||||||
|
a_download=$post_arg_a_download
|
||||||
|
if(! ~ $#post_arg_a_func 0)
|
||||||
|
a_func=$post_arg_a_func
|
||||||
|
if(! ~ $#post_arg_fake 0)
|
||||||
|
fake=$post_arg_fake
|
||||||
|
if(! ~ $#post_arg_a_id 0)
|
||||||
|
a_id=$post_arg_a_id
|
||||||
|
if(! ~ $#post_arg_url 0)
|
||||||
|
url=$post_arg_url
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_edit{
|
||||||
|
edit='<a href="'$base_url^$barf_base_uri'?a_func=edit_form&a_id='$"a_id'">edit</a>'
|
||||||
|
delete='<a href="'$base_url^$barf_base_uri'?a_func=delete_post&a_id='$"a_id'" onclick="return confirm(''are you sure you want to delete?'');">delete</a>'
|
||||||
|
dsrc='<a href="'$base_url^$barf_base_uri'?a_func=dsrc&a_id='$"a_id'" onclick="return confirm(''are you sure you want to dsrc?'');">dsrc</a>'
|
||||||
|
echo $"edit' | '$"delete' | '$"dsrc
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_id{
|
||||||
|
echo '<span id="post_id"><a href="/?id='$"a_id'">No.'$"a_id'</a></span>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_img{
|
||||||
|
a_img=`{ls -p $a_dir/img/[0-9]*}
|
||||||
|
a_thumb=`{ls -p $a_dir/img/small*}
|
||||||
|
if(! ~ $#a_img 0)
|
||||||
|
if(~ $#a_thumb 0)
|
||||||
|
a_thumb=$a_img
|
||||||
|
echo '<a href="'$base_url^$barf_base_uri'src/'$a_id'/img/'$a_img'" target="_b"><img src="'$base_url^$barf_base_uri'src/'$a_id'/img/'$a_thumb'" border="0"></a>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_tags{
|
||||||
|
a_tags=`{ls -p $a_dir/tags}
|
||||||
|
a_tags=`{for(t in $a_tags) echo '<a href="'$base_url^$barf_base_uri'?tags='$t'">'$t'</a>, '}
|
||||||
|
a_tags=`{echo $a_tags | awk '{print substr($0, 1, length($0) -1)}'}
|
||||||
|
echo '<span id="post_tags">'$"a_tags'</span>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn print_title{
|
||||||
|
a_title=`{cat $a_dir/title}
|
||||||
|
if(! ~ $#a_title 0){
|
||||||
|
if(~ $barf_type log url)
|
||||||
|
echo '<a href="'`{cat $a_dir/link}'">'$"a_title'</a>'
|
||||||
|
if not
|
||||||
|
echo '<a href="'$base_url^$barf_base_uri'?id='$"a_id'">'$"a_title'</a>'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn redirect_bots{
|
||||||
|
if(! ~ $fake fake || ! ~ $url '')
|
||||||
|
post_redirect http://google.com
|
||||||
|
}
|
||||||
|
|
||||||
|
fn urldecode {
|
||||||
|
awk '
|
||||||
|
BEGIN {
|
||||||
|
hextab ["0"] = 0; hextab ["8"] = 8;
|
||||||
|
hextab ["1"] = 1; hextab ["9"] = 9;
|
||||||
|
hextab ["2"] = 2; hextab ["A"] = hextab ["a"] = 10
|
||||||
|
hextab ["3"] = 3; hextab ["B"] = hextab ["b"] = 11;
|
||||||
|
hextab ["4"] = 4; hextab ["C"] = hextab ["c"] = 12;
|
||||||
|
hextab ["5"] = 5; hextab ["D"] = hextab ["d"] = 13;
|
||||||
|
hextab ["6"] = 6; hextab ["E"] = hextab ["e"] = 14;
|
||||||
|
hextab ["7"] = 7; hextab ["F"] = hextab ["f"] = 15;
|
||||||
|
}
|
||||||
|
{
|
||||||
|
decoded = ""
|
||||||
|
i = 1
|
||||||
|
len = length ($0)
|
||||||
|
while ( i <= len ) {
|
||||||
|
c = substr ($0, i, 1)
|
||||||
|
if ( c == "%" ) {
|
||||||
|
if ( i+2 <= len ) {
|
||||||
|
c1 = substr ($0, i+1, 1)
|
||||||
|
c2 = substr ($0, i+2, 1)
|
||||||
|
if ( hextab [c1] == "" || hextab [c2] == "" ) {
|
||||||
|
print "WARNING: invalid hex encoding: %" c1 c2 | "cat >&2"
|
||||||
|
} else {
|
||||||
|
code = 0 + hextab [c1] * 16 + hextab [c2] + 0
|
||||||
|
c = sprintf ("%c", code)
|
||||||
|
i = i + 2
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
print "WARNING: invalid % encoding: " substr ($0, i, len - i)
|
||||||
|
}
|
||||||
|
} else if ( c == "+" ) {
|
||||||
|
c = " "
|
||||||
|
}
|
||||||
|
decoded = decoded c
|
||||||
|
++i
|
||||||
|
}
|
||||||
|
printf "%s", decoded
|
||||||
|
}
|
||||||
|
'
|
||||||
|
}
|
||||||
1
werc/apps/barf/lib/default_master.tpl
Executable file
1
werc/apps/barf/lib/default_master.tpl
Executable file
|
|
@ -0,0 +1 @@
|
||||||
|
% run_handler $handler_body_main
|
||||||
68
werc/apps/barf/lib/image
Executable file
68
werc/apps/barf/lib/image
Executable file
|
|
@ -0,0 +1,68 @@
|
||||||
|
fn add_post{
|
||||||
|
redirect_bots
|
||||||
|
a_download=1
|
||||||
|
edit_post
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_image{
|
||||||
|
echo '<div id="center">'
|
||||||
|
if(~ $allow_anon 1 || {check_user && ! ~ $#logged_user 0}){
|
||||||
|
echo '<div id="upload">
|
||||||
|
<form method="post" action="/">
|
||||||
|
<input type="hidden" name="fake" value="fake">
|
||||||
|
<input type="text" name="url" style="display: none;">
|
||||||
|
<input type="hidden" name="a_func" value="add_post">
|
||||||
|
<div id="upload_heading">/'$tags'/</div>
|
||||||
|
<table id="upload_table">
|
||||||
|
<tr><td id="upload_label">Image</td><td><input type="text" name="a_img" id="upload_input"></td></tr>
|
||||||
|
<tr><td id="upload_label">Link</td><td><input type="text" name="a_link" id="upload_input"></td></tr>
|
||||||
|
<tr><td id="upload_label">Tags</td><td><input type="text" name="a_tags" id="upload_tags">
|
||||||
|
<input type="submit" name="submit" value="add" id="upload_submit"></td></tr>
|
||||||
|
</table>
|
||||||
|
</form>
|
||||||
|
<table align="center">
|
||||||
|
<tr>
|
||||||
|
<td>
|
||||||
|
<p>
|
||||||
|
<li id="upload_meta">Supported file types are: GIF, JPG, PNG</li>
|
||||||
|
<li id="upload_meta">Images greater than 500x600 pixels will be thumbnailed.</li>
|
||||||
|
</td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
|
echo '<div id="center_body">'
|
||||||
|
get_post_list
|
||||||
|
for(i in `{seq 1 $#posts}){
|
||||||
|
a_id=$posts($i)
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
echo '<div id="post">
|
||||||
|
<div id="post_meta">
|
||||||
|
<span id="post_link">'
|
||||||
|
link=`{cat $a_dir/link}
|
||||||
|
echo '<a href="'$"link'">link</a>
|
||||||
|
</span> |
|
||||||
|
<span id="post_tags">'
|
||||||
|
print_tags
|
||||||
|
echo '</span> |
|
||||||
|
<span id="post_date">'
|
||||||
|
cat $a_dir/date
|
||||||
|
echo '</span>'
|
||||||
|
if(check_user && ! ~ $#logged_user 0){
|
||||||
|
echo '| <span id="post_edit">'
|
||||||
|
print_edit
|
||||||
|
echo '</span>'
|
||||||
|
}
|
||||||
|
echo '</div>
|
||||||
|
<div id="post_img">'
|
||||||
|
print_img
|
||||||
|
echo '</div>
|
||||||
|
</div>
|
||||||
|
<br><br>'
|
||||||
|
}
|
||||||
|
display_prevnext
|
||||||
|
echo '<br><br><br><br>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
55
werc/apps/barf/lib/log
Executable file
55
werc/apps/barf/lib/log
Executable file
|
|
@ -0,0 +1,55 @@
|
||||||
|
fn display_log{
|
||||||
|
if(~ $#logged_user 0)
|
||||||
|
a='<a href="'$base_url^$barf_base_uri'login">login</a>'
|
||||||
|
if not
|
||||||
|
a='<a href="'$base_url^$barf_base_uri'?a_func=edit_form">add</a>'
|
||||||
|
echo '<div>
|
||||||
|
<span id="add">'$"a'</span>
|
||||||
|
<span id="search">
|
||||||
|
<form method="get" action="/">
|
||||||
|
<input type="text" name="tags" size="28">
|
||||||
|
<input type="submit" value="search">
|
||||||
|
</form>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div id="list">
|
||||||
|
<table id="post_table">
|
||||||
|
<tbody>
|
||||||
|
<tr id="blank">
|
||||||
|
<th style="display: none;"> </th>
|
||||||
|
<th style="display: none;"> </th>
|
||||||
|
<th style="display: none;"> </th>'
|
||||||
|
if(check_user && ! ~ $#logged_user 0)
|
||||||
|
echo '<th style="display: none;"> </th>'
|
||||||
|
echo '</tr>'
|
||||||
|
get_post_list
|
||||||
|
for(i in `{seq 1 $#posts}){
|
||||||
|
a_id=$posts($i)
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
echo '<tr>'
|
||||||
|
for(j in $barf_items){
|
||||||
|
echo '<td id="post_'$"j'">'
|
||||||
|
if(~ $j img)
|
||||||
|
print_img
|
||||||
|
if not if(~ $j tags)
|
||||||
|
print_tags
|
||||||
|
if not if(~ $j title)
|
||||||
|
print_title
|
||||||
|
if not
|
||||||
|
cat $a_dir/$j
|
||||||
|
echo '</td>'
|
||||||
|
}
|
||||||
|
if(check_user && ! ~ $#logged_user 0){
|
||||||
|
echo '<td id="post_edit">'
|
||||||
|
print_edit
|
||||||
|
echo '</td>'
|
||||||
|
}
|
||||||
|
echo '</tr>'
|
||||||
|
}
|
||||||
|
echo '</tbody>
|
||||||
|
</table>'
|
||||||
|
display_prevnext
|
||||||
|
echo '<br><br><br><br>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
50
werc/apps/barf/lib/paste
Executable file
50
werc/apps/barf/lib/paste
Executable file
|
|
@ -0,0 +1,50 @@
|
||||||
|
fn add_post{
|
||||||
|
redirect_bots
|
||||||
|
a_date=`{date}
|
||||||
|
edit_post
|
||||||
|
}
|
||||||
|
|
||||||
|
fn display_paste{
|
||||||
|
echo '<div id="center">'
|
||||||
|
if(~ $allow_anon 1 || {check_user && ! ~ $#logged_user 0}){
|
||||||
|
echo '<div id="paste">
|
||||||
|
<p>
|
||||||
|
<form method="post" action="/">
|
||||||
|
<input type="hidden" name="fake" value="fake">
|
||||||
|
<input type="text" name="url" style="display: none;">
|
||||||
|
<input type="hidden" name="a_func" value="add_post">
|
||||||
|
<textarea name="a_body" id="paste_box"></textarea><br>
|
||||||
|
<input type="submit" name="submit" value="submit" id="paste_submit">
|
||||||
|
</form>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
|
echo '<p>
|
||||||
|
<div id="posts">'
|
||||||
|
get_post_list
|
||||||
|
for(i in `{seq 1 $#posts}){
|
||||||
|
a_id=$posts($i)
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
echo '<div id="post">
|
||||||
|
<div id="post_meta">'
|
||||||
|
date=`{cat $a_dir/date}
|
||||||
|
echo '<span id="post_date">
|
||||||
|
<a href="/src/'$"a_id'/body" target="_b">'$"date'</a>
|
||||||
|
</span>'
|
||||||
|
if(check_user && ! ~ $#logged_user 0){
|
||||||
|
echo ' | <span id="post_edit">'
|
||||||
|
print_edit
|
||||||
|
echo '</span>'
|
||||||
|
}
|
||||||
|
echo '</div>
|
||||||
|
<div id="post_body">'
|
||||||
|
txt_handler $barf_root/$"barf_dir/src/$a_id/body
|
||||||
|
echo '</div>
|
||||||
|
</div>
|
||||||
|
<br>'
|
||||||
|
}
|
||||||
|
display_prevnext
|
||||||
|
echo '<br><br><br><br>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
56
werc/apps/barf/lib/rss
Executable file
56
werc/apps/barf/lib/rss
Executable file
|
|
@ -0,0 +1,56 @@
|
||||||
|
fn display_rss{
|
||||||
|
echo '<?xml version="1.0" encoding="UTF-8"?>'
|
||||||
|
echo '<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">'
|
||||||
|
echo '<channel>'
|
||||||
|
echo '<atom:link href="'$base_url^$req_path'" rel="self" type="application/rss+xml" />'
|
||||||
|
echo '<title><![CDATA['$"siteTitle']]></title>'
|
||||||
|
echo '<link>'$base_url^$barf_base_uri'</link>'
|
||||||
|
echo '<description><![CDATA['$"blogDesc']]></description>'
|
||||||
|
echo '<generator><![CDATA[barf]]></generator>'
|
||||||
|
echo '<lastBuildDate>'
|
||||||
|
ndate -m `{date `{mtime $barf_root/$"barf_dir/src | awk '{print $1}'}} # rfc2822 last time channel content changed.
|
||||||
|
echo -n '</lastBuildDate>'
|
||||||
|
echo '<language>en-us</language>'
|
||||||
|
date=`{ndate -m} # rfc2822 publication date for content in the channel.
|
||||||
|
get_post_list
|
||||||
|
for(i in `{seq 1 $#posts}){
|
||||||
|
a_id=$posts($i)
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
echo '<item>'
|
||||||
|
echo '<guid isPermaLink="true">'$base_url^$barf_base_uri'?id='$"a_id'</guid>'
|
||||||
|
echo '<pubDate>'$"date'</pubDate>'
|
||||||
|
title=`{cat $a_dir/title}
|
||||||
|
if(~ $title '')
|
||||||
|
ntitle=($siteTitle $"a_id)
|
||||||
|
if not
|
||||||
|
ntitle=$title
|
||||||
|
echo '<title>'$"ntitle'</title>'
|
||||||
|
echo '<link>'$base_url^$barf_base_uri'?id='$"a_id'</link>'
|
||||||
|
echo '<description><![CDATA['
|
||||||
|
if(~ $obarf_type image){
|
||||||
|
if(! ~ $#a_link 0)
|
||||||
|
link=$"a_link
|
||||||
|
if not
|
||||||
|
link=$base_url^$barf_base_uri'?id='$"a_id
|
||||||
|
echo '<p>source: <a href="'$"link'">link</a></p>'
|
||||||
|
}
|
||||||
|
a_tags=`{ls -p $a_dir/tags}
|
||||||
|
if(! ~ $#a_tags 0){
|
||||||
|
echo '<p>tags: '
|
||||||
|
print_tags
|
||||||
|
echo '</p>'
|
||||||
|
echo '<p>'
|
||||||
|
}
|
||||||
|
# begin ugly if statements
|
||||||
|
if(~ $obarf_type paste)
|
||||||
|
echo '<pre>'
|
||||||
|
if(! ~ $obarf_type image)
|
||||||
|
cat $a_dir/body
|
||||||
|
if(~ $obarf_type paste)
|
||||||
|
echo '</pre>'
|
||||||
|
if(~ $obarf_type image)
|
||||||
|
print_img
|
||||||
|
echo '</p>]]></description></item>'
|
||||||
|
}
|
||||||
|
echo '</channel></rss>'
|
||||||
|
}
|
||||||
52
werc/apps/barf/lib/url
Executable file
52
werc/apps/barf/lib/url
Executable file
|
|
@ -0,0 +1,52 @@
|
||||||
|
fn display_url{
|
||||||
|
if(~ $#logged_user 0)
|
||||||
|
a='<a href="'$base_url^$barf_base_uri'login">login</a>'
|
||||||
|
if not
|
||||||
|
a='<a href="'$base_url^$barf_base_uri'?a_func=edit_form">add</a>'
|
||||||
|
echo '<div>
|
||||||
|
<span id="add">'$"a'</span>
|
||||||
|
<span id="search">
|
||||||
|
<form method="get" action="/">
|
||||||
|
<input type="text" name="tags" size="28">
|
||||||
|
<input type="submit" value="search">
|
||||||
|
</form>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div id="list">
|
||||||
|
<table id="post_table">
|
||||||
|
<tbody>
|
||||||
|
<tr id="blank">
|
||||||
|
<th style="display: none;"> </th>
|
||||||
|
<th style="display: none;"> </th>
|
||||||
|
<th style="display: none;"> </th>'
|
||||||
|
if(check_user && ! ~ $#logged_user 0)
|
||||||
|
echo '<th style="display: none;"> </th>'
|
||||||
|
echo '</tr>'
|
||||||
|
get_post_list
|
||||||
|
for(i in `{seq 1 $#posts}){
|
||||||
|
a_id=$posts($i)
|
||||||
|
a_dir=$barf_root/$"barf_dir/src/$a_id
|
||||||
|
echo '<tr>
|
||||||
|
<td id="post_title">'
|
||||||
|
print_title
|
||||||
|
echo '</td>
|
||||||
|
<td id="post_tags">'
|
||||||
|
print_tags
|
||||||
|
echo '</td>
|
||||||
|
<td id="post_date">'
|
||||||
|
cat $a_dir/date
|
||||||
|
echo '</td>'
|
||||||
|
if(check_user && ! ~ $#logged_user 0){
|
||||||
|
echo '<td id="post_edit">'
|
||||||
|
print_edit
|
||||||
|
echo '</td>'
|
||||||
|
}
|
||||||
|
echo '</tr>'
|
||||||
|
}
|
||||||
|
echo '</tbody>
|
||||||
|
</table>'
|
||||||
|
display_prevnext
|
||||||
|
echo '<br><br><br><br>
|
||||||
|
</div>'
|
||||||
|
}
|
||||||
10
werc/apps/barf/mkfile
Executable file
10
werc/apps/barf/mkfile
Executable file
|
|
@ -0,0 +1,10 @@
|
||||||
|
WERC=/usr/sl/www/werc
|
||||||
|
PLAN9=$WERC/sites/plan9.stanleylieber.com
|
||||||
|
|
||||||
|
web:V:
|
||||||
|
src=`{basename `{pwd}}
|
||||||
|
rm -rf $PLAN9/werc/apps/$src
|
||||||
|
cd $WERC/apps
|
||||||
|
tar zcvf $PLAN9/werc/apps/$src.tgz $src
|
||||||
|
cd $PLAN9/werc/apps
|
||||||
|
tar zxvf $src.tgz
|
||||||
344
werc/apps/barf/pub/1995.css
Executable file
344
werc/apps/barf/pub/1995.css
Executable file
|
|
@ -0,0 +1,344 @@
|
||||||
|
/* 1995 */
|
||||||
|
|
||||||
|
body {
|
||||||
|
color: black;
|
||||||
|
background-color: silver;
|
||||||
|
font-family: Helvetica, Verdana, Arial, 'Liberation Sans', FreeSans, sans-serif;
|
||||||
|
font-size: 84%; /* Enables font size scaling in MSIE */
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Header # */
|
||||||
|
.superHeader {
|
||||||
|
color: black;
|
||||||
|
background-color: silver;
|
||||||
|
height: 1.6em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.superHeader img { vertical-align: bottom; }
|
||||||
|
|
||||||
|
.superHeader a {
|
||||||
|
color: blue;
|
||||||
|
background-color: transparent;
|
||||||
|
font-size: 91%;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0.5ex 0 0.25ex;
|
||||||
|
text-decoration: underline; }
|
||||||
|
}
|
||||||
|
|
||||||
|
a { text-decoration: underline; }
|
||||||
|
a:hover { text-decoration: underline; }
|
||||||
|
|
||||||
|
.superHeader div {
|
||||||
|
position: absolute;
|
||||||
|
top: 0.40ex;
|
||||||
|
}
|
||||||
|
|
||||||
|
.superHeader .left { left: 0.4em; }
|
||||||
|
.superHeader .right { right: 0.4em; }
|
||||||
|
|
||||||
|
.midHeader {
|
||||||
|
color: black;
|
||||||
|
background-color: silver;
|
||||||
|
border: solid 0 black;
|
||||||
|
border-width: 1px 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
.headerTitle {
|
||||||
|
color: black;
|
||||||
|
font-size: 233%;
|
||||||
|
font-weight: normal;
|
||||||
|
margin: 0 0 0 4mm;
|
||||||
|
padding: 0.25ex 0;
|
||||||
|
}
|
||||||
|
#headerSubTitle {
|
||||||
|
font-size: 50%;
|
||||||
|
font-style: italic;
|
||||||
|
margin-left: 1em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.headerTitle a { color: black; }
|
||||||
|
.headerTitle a:hover { text-decoration: none; }
|
||||||
|
|
||||||
|
.subHeader {
|
||||||
|
display: none;
|
||||||
|
color: white;
|
||||||
|
background-color: rgb(0,51,153);
|
||||||
|
margin: 0;
|
||||||
|
padding: 1ex 1ex 1ex 1.5mm;
|
||||||
|
}
|
||||||
|
|
||||||
|
.subHeader a {
|
||||||
|
color: white;
|
||||||
|
background-color: transparent;
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0.75ex 0 0.5ex;
|
||||||
|
}
|
||||||
|
|
||||||
|
.superHeader .highlight, .subHeader .highlight {
|
||||||
|
color: rgb(253,160,91);
|
||||||
|
background-color: transparent;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Side # */
|
||||||
|
#side-bar {
|
||||||
|
width: 16em;
|
||||||
|
float: left;
|
||||||
|
clear: left;
|
||||||
|
border-right: 1px solid black;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar div {
|
||||||
|
border-bottom: 1px solid black;
|
||||||
|
}
|
||||||
|
|
||||||
|
.sideBarTitle {
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 0 0 0.5em 2mm;
|
||||||
|
padding: 1em 0 0 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar ul {
|
||||||
|
list-style-type: none;
|
||||||
|
list-style-position: outside;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0 0.3em 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
li ul {
|
||||||
|
padding-left: 0.6em !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar li {
|
||||||
|
margin: 0;
|
||||||
|
padding: 0.1ex 0; /* Circumvents a rendering bug (?) in MSIE 6.0 XXX should move to iehacks.css, this causes an ugly gap */
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar a {
|
||||||
|
color: black;
|
||||||
|
background-color: transparent;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0.25em 1ex 0.25em 2mm;
|
||||||
|
display: block;
|
||||||
|
text-transform: capitalize;
|
||||||
|
font-weight: bold!important;
|
||||||
|
font-size: 102%;
|
||||||
|
border-left: blue solid 0.2em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.thisPage, .thisPage a {
|
||||||
|
color: black!important;
|
||||||
|
background-color: white;
|
||||||
|
padding-left: 5mm;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar a:hover {
|
||||||
|
color: white;
|
||||||
|
background-color: blue;
|
||||||
|
border-left: black solid 0.2em;
|
||||||
|
text-decoration: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.sideBarText {
|
||||||
|
line-height: 1.5em;
|
||||||
|
margin: 0 0 1em 0;
|
||||||
|
padding: 0 1.5ex 0 2.5mm;
|
||||||
|
display: block;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar .sideBarText a {
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
display: inline;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar .sideBarText a:hover {
|
||||||
|
color: black;
|
||||||
|
background-color: transparent;
|
||||||
|
text-decoration: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Main Copy # */
|
||||||
|
#main-copy {
|
||||||
|
max-width: 70em;
|
||||||
|
color: black;
|
||||||
|
background-color: transparent;
|
||||||
|
text-align: justify;
|
||||||
|
line-height: 1.5em;
|
||||||
|
margin: 0em 0 0 16em;
|
||||||
|
padding: 0.5mm 5mm 5mm 5mm;
|
||||||
|
border-left: 1px solid black;
|
||||||
|
}
|
||||||
|
|
||||||
|
#bodyText {
|
||||||
|
margin: 0 0 0 15.5em;
|
||||||
|
padding: 2mm 5mm 2mm 5mm;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy p {
|
||||||
|
margin: 1em 1ex 1em 1ex !important; /* Need !important so troff-generated pages don't look totally squezed */
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy a {
|
||||||
|
color: blue;
|
||||||
|
background-color: transparent;
|
||||||
|
text-decoration: underline;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy a:hover {
|
||||||
|
color: blue;
|
||||||
|
background-color: transparent;
|
||||||
|
text-decoration: underline;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy h1, #main-copy h2 {
|
||||||
|
color: black;
|
||||||
|
background-color: transparent;
|
||||||
|
font-size: 145.5%;
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 2em 0 0 0;
|
||||||
|
padding: 0.5ex 0 0.5ex 0.6ex;
|
||||||
|
border-bottom: 2px solid black;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy h2 {
|
||||||
|
font-size: 115.5%;
|
||||||
|
border-bottom: 1px solid black;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy .topOfPage {
|
||||||
|
color: black;
|
||||||
|
background-color: transparent;
|
||||||
|
font-size: 91%;
|
||||||
|
font-weight: bold;
|
||||||
|
text-decoration: none;
|
||||||
|
margin: 3ex 1ex 0 0;
|
||||||
|
padding: 0;
|
||||||
|
float: right;
|
||||||
|
}
|
||||||
|
|
||||||
|
dl {
|
||||||
|
margin: 1em 1ex 2em 1ex;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
dt {
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 0 0 0 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
dd {
|
||||||
|
margin: 0 0 2em 2em;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Footer # */
|
||||||
|
#footer {
|
||||||
|
color: black;
|
||||||
|
background-color: silver;
|
||||||
|
padding: 1em;
|
||||||
|
clear: both;
|
||||||
|
border-color: black;
|
||||||
|
border-width: 1px 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#footer .left {
|
||||||
|
text-align: left;
|
||||||
|
line-height: 1.55em;
|
||||||
|
float: left;
|
||||||
|
clear: left;
|
||||||
|
}
|
||||||
|
|
||||||
|
#footer .right {
|
||||||
|
text-align: right;
|
||||||
|
line-height: 1.45em;
|
||||||
|
}
|
||||||
|
|
||||||
|
#footer a {
|
||||||
|
color: blue;
|
||||||
|
background-color: transparent;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* GENERAL */
|
||||||
|
|
||||||
|
table {
|
||||||
|
background-color: transparent;
|
||||||
|
padding: 0px;
|
||||||
|
border: 0px;
|
||||||
|
border-collapse: collapse;
|
||||||
|
}
|
||||||
|
|
||||||
|
td {
|
||||||
|
padding: 10px;
|
||||||
|
border-width: 1px;
|
||||||
|
border-style: solid;
|
||||||
|
border-collapse: collapse;
|
||||||
|
border-color: #000000;
|
||||||
|
background: silver;
|
||||||
|
}
|
||||||
|
|
||||||
|
tr {
|
||||||
|
border-width: 1px;
|
||||||
|
border-style: solid;
|
||||||
|
border-collapse: collapse;
|
||||||
|
border-color: #000000;
|
||||||
|
}
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: black;
|
||||||
|
}
|
||||||
|
|
||||||
|
acronym, .titleTip {
|
||||||
|
border-bottom: 1px solid black;
|
||||||
|
cursor: help;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0 0.4px 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
pre {
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
|
||||||
|
blockquote {
|
||||||
|
border-left: 1px solid blue;
|
||||||
|
font-style: italic;
|
||||||
|
}
|
||||||
|
|
||||||
|
.smallCaps {
|
||||||
|
font-size: 110%;
|
||||||
|
font-variant: small-caps;
|
||||||
|
}
|
||||||
|
|
||||||
|
.doNotDisplay { display: none; }
|
||||||
|
|
||||||
|
|
||||||
|
.notify_errors,
|
||||||
|
.notify_notes,
|
||||||
|
.notify_success { padding: .8em; margin-bottom: 1em; border: 2px solid black; }
|
||||||
|
|
||||||
|
.notify_errors { background: #FBE3E4; color: #8a1f11; border-color: #FBC2C4; }
|
||||||
|
.notify_notes { background: #FFF6BF; color: #514721; border-color: #FFD324; }
|
||||||
|
.notify_success { background: #E6EFC2; color: #264409; border-color: #C6D880; }
|
||||||
|
.notify_errors a { color: #8a1f11; }
|
||||||
|
.notify_notes a { color: #514721; }
|
||||||
|
.notify_success a { color: #264409; }
|
||||||
|
|
||||||
|
|
||||||
|
/* # Page/Handler specific # */
|
||||||
|
h1.dir-list-head, ul.dir-list {
|
||||||
|
text-transform: capitalize;
|
||||||
|
font-weight: bold;
|
||||||
|
}
|
||||||
|
ul.sitemap-list a {
|
||||||
|
text-transform: capitalize;
|
||||||
|
}
|
||||||
63
werc/apps/barf/pub/1oct1993.css
Executable file
63
werc/apps/barf/pub/1oct1993.css
Executable file
|
|
@ -0,0 +1,63 @@
|
||||||
|
/* 1oct1993 */
|
||||||
|
body {
|
||||||
|
color: #FFFFFF;
|
||||||
|
background-color: #000000;
|
||||||
|
font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif;
|
||||||
|
font-size: 84%; /* Enables font size scaling in MSIE */
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
a { text-decoration: none; color: #00ADEF; }
|
||||||
|
a:hover { color: #00ADEF; text-decoration: none; }
|
||||||
|
li:hover { color: #00ADEF; text-decoration: none; }
|
||||||
|
li a { color: #00ADEF }
|
||||||
|
li a:hover { color: #00ADEF; text-decoration: none; }
|
||||||
|
li ul { padding-left: 0.6em !important; }
|
||||||
|
h1 { font-size: 10pt; font-weight: normal; }
|
||||||
|
h2 { font-size: 9pt; font-weight: normal; }
|
||||||
|
input , textarea, select, option { background-color: #00ADEF; border: none; }
|
||||||
|
table { border: none; }
|
||||||
|
tr { background-color: transparent; }
|
||||||
|
th {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
td {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: transparent;
|
||||||
|
}
|
||||||
|
pre, code, blockquote {
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
blockquote {
|
||||||
|
border-left: none;
|
||||||
|
font-style: none;
|
||||||
|
background-color: #00ADEF;
|
||||||
|
}
|
||||||
|
#header { flex-basis: 100%; }
|
||||||
|
#header tr { background-color: transparent; }
|
||||||
|
#center {
|
||||||
|
width: 500px;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#center h1 { font-size 9pt; }
|
||||||
|
#footer {
|
||||||
|
font-size: 8pt;
|
||||||
|
background-color: #000000;
|
||||||
|
color: #00ADEF;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#footer a { color: #00ADEF; text-decoration: none; }
|
||||||
|
#footer a:hover { color: #00ADEF; text-decoration: none; }
|
||||||
|
#footer table { font-size: 8pt; }
|
||||||
|
#footer tr { background-color: transparent; }
|
||||||
77
werc/apps/barf/pub/flamesgif.css
Executable file
77
werc/apps/barf/pub/flamesgif.css
Executable file
|
|
@ -0,0 +1,77 @@
|
||||||
|
/* flamesgif.com */
|
||||||
|
body {
|
||||||
|
color: black;
|
||||||
|
background-color: silver;
|
||||||
|
font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif;
|
||||||
|
font-size: 84%; /* Enables font size scaling in MSIE */
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
a { text-decoration: none; color: blue; }
|
||||||
|
a:hover { color: purple;}
|
||||||
|
blockquote {
|
||||||
|
border-left: none;
|
||||||
|
font-style: none;
|
||||||
|
background-color: silver;
|
||||||
|
}
|
||||||
|
li:hover { color: purple }
|
||||||
|
li a { color: blue }
|
||||||
|
li a:hover { color: purple; }
|
||||||
|
h1 { font-size: 10pt; }
|
||||||
|
h2, h3, h1, h4 { color : blue; }
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: transparent;
|
||||||
|
}
|
||||||
|
input , textarea, select, option { background-color: blue; border: none; }
|
||||||
|
pre, code, blockquote {
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
table { border: none; }
|
||||||
|
th {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
td {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
ul { list-style: none; padding-left: 0px; margin: 0px }
|
||||||
|
#center {
|
||||||
|
width: 600px;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#center h1 { font-size 9pt; }
|
||||||
|
#footer {
|
||||||
|
font-size: 8pt;
|
||||||
|
background-color: silver;
|
||||||
|
color: blue;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#footer a { color: blue; text-decoration: none; }
|
||||||
|
#footer a:hover { color: purple; text-decoration: none; }
|
||||||
|
#footer table { font-size: 8pt; }
|
||||||
|
#right {
|
||||||
|
float: right;
|
||||||
|
position: absolute;
|
||||||
|
top: 210px;
|
||||||
|
right: 1px;
|
||||||
|
width: 25%;
|
||||||
|
height: 100%;
|
||||||
|
list-style: none;
|
||||||
|
}
|
||||||
|
#sidebar {
|
||||||
|
position: relative;
|
||||||
|
z-index: 100;
|
||||||
|
width: 95%;
|
||||||
|
top: 10px;
|
||||||
|
right: 10px;
|
||||||
|
left: 10px;
|
||||||
|
margin: 2px;
|
||||||
|
background: silver;
|
||||||
|
}
|
||||||
53
werc/apps/barf/pub/img.css
Executable file
53
werc/apps/barf/pub/img.css
Executable file
|
|
@ -0,0 +1,53 @@
|
||||||
|
/* img.stanleylieber.com */
|
||||||
|
body { display: flex; flex-wrap: wrap; font-family: sans; }
|
||||||
|
header { flex-basis: 99%; flex-shrink: 0; padding-left: 1em; padding-bottom: 1em; }
|
||||||
|
article { flex-basis: 99%; padding: 0; }
|
||||||
|
footer { flex-basis: 99%; flex-shrink: 0; }
|
||||||
|
header nav { display: flex; justify-content: space-between; }
|
||||||
|
footer { display: flex; justify-content: space-between; }
|
||||||
|
|
||||||
|
body { margin:0; padding: 0; font-size: 10pt; font-family: Helvetica, Verdana, Arial, 'Liberation Sans', FreeSans, sans-serif; background-color: #000000; color: #FFFFFF; }
|
||||||
|
a { text-decoration: none; color: #FFFFFF; background-color: #000000; font-weight: bold; }
|
||||||
|
a:hover { text-decoration: none; background-color: #FFFFFF; color: #000000; }
|
||||||
|
|
||||||
|
/* header and top bar */
|
||||||
|
header h3 { padding-bottom: 2px; }
|
||||||
|
header a img { vertical-align: bottom; padding-top: 1em; }
|
||||||
|
|
||||||
|
/* main copy */
|
||||||
|
article { padding-left: 1em; padding-right: 1em; }
|
||||||
|
article nav { padding-bottom: 2px; }
|
||||||
|
article div { padding-top: 2px; padding-bottom: 2px; }
|
||||||
|
article h1, article h2, article h3, article h4, article h5, article h6, article h7, article h8 {
|
||||||
|
font-weight: bold; margin: 0; padding-bottom: 2px;
|
||||||
|
}
|
||||||
|
article a img { vertical-align: bottom; }
|
||||||
|
article img { max-width: 100%!important; }
|
||||||
|
article iframe { max-width: 100%!important; }
|
||||||
|
article video { max-width: 100%!important; }
|
||||||
|
article fieldset { color: #FFFFFF; border-color: #FFFFFF; }
|
||||||
|
article legend { color: #FFFFFF; border-color: #FFFFFF; }
|
||||||
|
|
||||||
|
/* footer */
|
||||||
|
footer > nav { margin-left: auto; padding: 1em; }
|
||||||
|
|
||||||
|
/* fixed-width fonts */
|
||||||
|
pre, code { white-space: pre-wrap!important; }
|
||||||
|
pre, code, blockquote {
|
||||||
|
max-width: 100%!important;
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* input */
|
||||||
|
input, textarea, select, option {
|
||||||
|
font-family: Sans-Serif;
|
||||||
|
font-size: 100%;
|
||||||
|
padding: 2px;
|
||||||
|
border-top: solid 1px #FFFFFF;
|
||||||
|
border-bottom: solid 1px #FFFFFF;
|
||||||
|
border-left: solid 1px #FFFFFF;
|
||||||
|
border-right: solid 1px #FFFFFF;
|
||||||
|
background-color: #000000;
|
||||||
|
color: #FFFFFF;
|
||||||
|
margin: 2px;
|
||||||
|
}
|
||||||
417
werc/apps/barf/pub/inri.css
Executable file
417
werc/apps/barf/pub/inri.css
Executable file
|
|
@ -0,0 +1,417 @@
|
||||||
|
/* inri.net */
|
||||||
|
body {
|
||||||
|
font-family :'Lucida Sans Unicode','Lucida Sans', 'Trebuchet MS', 'Lucida Grande', 'Bitstream Sans Vera', Verdana, Arial, Tahoma, Helvetica, Sans-Serif;
|
||||||
|
font-style : normal;
|
||||||
|
padding: 2px 2em;
|
||||||
|
line-height: 1.5em;
|
||||||
|
font-size: 70%;
|
||||||
|
background: #FFF;
|
||||||
|
color: #111;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Header # */
|
||||||
|
.superHeader {
|
||||||
|
color: white;
|
||||||
|
background-color: gray;
|
||||||
|
height: 1.6em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.superHeader img { vertical-align: bottom; }
|
||||||
|
|
||||||
|
.superHeader a {
|
||||||
|
color: white;
|
||||||
|
background-color: transparent;
|
||||||
|
font-size: 91%;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0.5ex 0 0.25ex;
|
||||||
|
}
|
||||||
|
|
||||||
|
a { text-decoration: none; }
|
||||||
|
a:hover { text-decoration: underline; }
|
||||||
|
|
||||||
|
.superHeader div {
|
||||||
|
position: absolute;
|
||||||
|
top: 0.40ex;
|
||||||
|
}
|
||||||
|
|
||||||
|
.superHeader .left { left: 0.4em; }
|
||||||
|
.superHeader .right { right: 0.4em; }
|
||||||
|
|
||||||
|
.midHeader {
|
||||||
|
color: gray;
|
||||||
|
background-color: gray;
|
||||||
|
background-color: #ff6d06;
|
||||||
|
border: solid 0 black;
|
||||||
|
border-width: 2px 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
.headerTitle {
|
||||||
|
color: black;
|
||||||
|
font-size: 233%;
|
||||||
|
font-weight: normal;
|
||||||
|
margin: 0 0 0 4mm;
|
||||||
|
padding: 0.25ex 0;
|
||||||
|
}
|
||||||
|
#headerSubTitle {
|
||||||
|
font-size: 50%;
|
||||||
|
font-style: italic;
|
||||||
|
margin-left: 1em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.headerTitle a { color: black; }
|
||||||
|
.headerTitle a:hover { text-decoration: none; }
|
||||||
|
|
||||||
|
.subHeader {
|
||||||
|
display: none;
|
||||||
|
color: white;
|
||||||
|
background-color: gray;
|
||||||
|
margin: 0;
|
||||||
|
padding: 1ex 1ex 1ex 1.5mm;
|
||||||
|
}
|
||||||
|
|
||||||
|
.subHeader a {
|
||||||
|
color: white;
|
||||||
|
background-color: transparent;
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0.75ex 0 0.5ex;
|
||||||
|
}
|
||||||
|
|
||||||
|
.superHeader .highlight, .subHeader .highlight {
|
||||||
|
color: gray;
|
||||||
|
background-color: transparent;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Side # */
|
||||||
|
#side-bar {
|
||||||
|
width: 16em;
|
||||||
|
float: left;
|
||||||
|
clear: left;
|
||||||
|
border-right: 1px solid white;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar div {
|
||||||
|
border-bottom: 1px solid white;
|
||||||
|
}
|
||||||
|
|
||||||
|
.sideBarTitle {
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 0 0 0.5em 2mm;
|
||||||
|
padding: 1em 0 0 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar ul {
|
||||||
|
list-style-type: none;
|
||||||
|
list-style-position: outside;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0 0.3em 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
li ul {
|
||||||
|
padding-left: 0.6em !important;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar li {
|
||||||
|
margin: 0;
|
||||||
|
padding: 0.1ex 0; /* Circumvents a rendering bug (?) in MSIE 6.0 XXX should move to iehacks.css, this causes an ugly gap */
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar a {
|
||||||
|
color: gray;
|
||||||
|
background-color: transparent;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0.25em 1ex 0.25em 2mm;
|
||||||
|
display: block;
|
||||||
|
text-transform: capitalize;
|
||||||
|
font-weight: bold!important;
|
||||||
|
font-size: 102%;
|
||||||
|
border-left: white solid 0.2em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.thisPage, .thisPage a {
|
||||||
|
color: black!important;
|
||||||
|
background-color: white;
|
||||||
|
padding-left: 5mm;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar a:hover {
|
||||||
|
color: black;
|
||||||
|
background-color: gray;
|
||||||
|
border-left: gray solid 0.2em;
|
||||||
|
text-decoration: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
.sideBarText {
|
||||||
|
line-height: 1.5em;
|
||||||
|
margin: 0 0 1em 0;
|
||||||
|
padding: 0 1.5ex 0 2.5mm;
|
||||||
|
display: block;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar .sideBarText a {
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
display: inline;
|
||||||
|
}
|
||||||
|
|
||||||
|
#side-bar .sideBarText a:hover {
|
||||||
|
color: gray;
|
||||||
|
background-color: transparent;
|
||||||
|
text-decoration: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Main Copy # */
|
||||||
|
#main-copy {
|
||||||
|
max-width: 70em;
|
||||||
|
color: black;
|
||||||
|
background-color: transparent;
|
||||||
|
text-align: justify;
|
||||||
|
line-height: 1.5em;
|
||||||
|
margin: 0em 0 0 16em;
|
||||||
|
padding: 0.5mm 5mm 5mm 5mm;
|
||||||
|
border-left: 1px solid white;
|
||||||
|
}
|
||||||
|
|
||||||
|
#bodyText {
|
||||||
|
margin: 0 0 0 15.5em;
|
||||||
|
padding: 2mm 5mm 2mm 5mm;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy p {
|
||||||
|
margin: 1em 1ex 1em 1ex !important; /* Need !important so troff-generated pages don't look totally squezed */
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy a {
|
||||||
|
color: gray;
|
||||||
|
background-color: transparent;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy a:hover {
|
||||||
|
color: gray;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy h1, #main-copy h2 {
|
||||||
|
color: gray;
|
||||||
|
background-color: transparent;
|
||||||
|
font-size: 145.5%;
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 2em 0 0 0;
|
||||||
|
padding: 0.5ex 0 0.5ex 0.6ex;
|
||||||
|
border-bottom: 2px solid gray;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy h2 {
|
||||||
|
font-size: 115.5%;
|
||||||
|
border-bottom: 1px solid gray;
|
||||||
|
}
|
||||||
|
|
||||||
|
#main-copy .topOfPage {
|
||||||
|
color: gray;
|
||||||
|
background-color: transparent;
|
||||||
|
font-size: 91%;
|
||||||
|
font-weight: bold;
|
||||||
|
text-decoration: none;
|
||||||
|
margin: 3ex 1ex 0 0;
|
||||||
|
padding: 0;
|
||||||
|
float: right;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post {
|
||||||
|
position: relative;
|
||||||
|
left: 23%;
|
||||||
|
width: 76%;
|
||||||
|
padding-top: 25px;
|
||||||
|
padding-bottom: 25px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post tr { background-color: transparent; }
|
||||||
|
|
||||||
|
#center {
|
||||||
|
position: absolute;
|
||||||
|
top: 210px;
|
||||||
|
left: 1%;
|
||||||
|
width: 65%;
|
||||||
|
height: 100%;
|
||||||
|
}
|
||||||
|
#center h1 { font-size 8pt; font-family :'Lucida Sans Unicode','Lucida Sans', 'Trebuchet MS', 'Lucida Grande', 'Bitstream Sans Vera', Verdana, Arial, Tahoma, Helvetica, Sans-Serif; }
|
||||||
|
|
||||||
|
a { text-decoration: none; color: #000000; }
|
||||||
|
a:hover { color: #111;}
|
||||||
|
li:hover { color: #111 }
|
||||||
|
li a { color: #000000 }
|
||||||
|
li a:hover { color: #111; }
|
||||||
|
ul { list-style: none; padding-left: 0px; margin: 0px }
|
||||||
|
|
||||||
|
h1 { font-size: 8pt; font-weight: normal; }
|
||||||
|
h2 { font-size : 140%; }
|
||||||
|
h3 { font-size: 120%; }
|
||||||
|
h4 { font-size: 100%; }
|
||||||
|
h2, h3, h1, h4 {
|
||||||
|
font-family: Georgia,'Trebuchet MS', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Verdana, Arial, Tahoma, Helvetica, Sans-Serif;
|
||||||
|
color : #000000;
|
||||||
|
margin: 0px 0px;
|
||||||
|
padding: 2px 0px;
|
||||||
|
clear: both;
|
||||||
|
}
|
||||||
|
|
||||||
|
input , textarea, select, option { background-color: #eee; border: none; }
|
||||||
|
|
||||||
|
dl {
|
||||||
|
margin: 1em 1ex 2em 1ex;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
dt {
|
||||||
|
font-weight: bold;
|
||||||
|
margin: 0 0 0 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
dd {
|
||||||
|
margin: 0 0 2em 2em;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#right {
|
||||||
|
float: right;
|
||||||
|
position: absolute;
|
||||||
|
top: 210px;
|
||||||
|
right: 1px;
|
||||||
|
width: 34%;
|
||||||
|
height: 100%;
|
||||||
|
list-style: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* sidebar */
|
||||||
|
#sidebar {
|
||||||
|
position: relative;
|
||||||
|
z-index: 100;
|
||||||
|
width: 95%;
|
||||||
|
top: 10px;
|
||||||
|
right: 10px;
|
||||||
|
left: 10px;
|
||||||
|
margin: 2px;
|
||||||
|
background: #FFFFFF;
|
||||||
|
}
|
||||||
|
#sidebar h2 {
|
||||||
|
margin: 5px 0px 0px;
|
||||||
|
padding: 4px 0px;
|
||||||
|
font-size:100%;
|
||||||
|
}
|
||||||
|
#sidebar li { font-size: 8.5pt; }
|
||||||
|
#sidebar ul { margin: 2px; }
|
||||||
|
|
||||||
|
/*searchform*/
|
||||||
|
#searchform label { font-weight:bold; }
|
||||||
|
#searchform input { width: 20%; }
|
||||||
|
#searchform input.submit { width: 16%; }
|
||||||
|
|
||||||
|
#top {
|
||||||
|
float: top;
|
||||||
|
position: absolute;
|
||||||
|
top: 0px;
|
||||||
|
left: 0px;
|
||||||
|
right: 0px;
|
||||||
|
height: 10%;
|
||||||
|
width: 100%
|
||||||
|
overflow: auto;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* # Footer # */
|
||||||
|
#footer {
|
||||||
|
font-size: 8pt;
|
||||||
|
background-color: white;
|
||||||
|
color: black;
|
||||||
|
}
|
||||||
|
#footer a { color: gray; text-decoration: none; }
|
||||||
|
#footer a:hover { color: #111; text-decoration: none; }
|
||||||
|
#footer table { font-size: 8pt; }
|
||||||
|
|
||||||
|
#footer .left {
|
||||||
|
text-align: left;
|
||||||
|
line-height: 1.55em;
|
||||||
|
float: left;
|
||||||
|
clear: left;
|
||||||
|
}
|
||||||
|
|
||||||
|
#footer .right {
|
||||||
|
text-align: right;
|
||||||
|
line-height: 1.45em;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* GENERAL */
|
||||||
|
|
||||||
|
table {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
tr {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
th {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
td {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: transparent;
|
||||||
|
}
|
||||||
|
|
||||||
|
acronym, .titleTip {
|
||||||
|
border-bottom: 1px solid #ddd;
|
||||||
|
cursor: help;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0 0 0.4px 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
pre {
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
|
||||||
|
blockquote {
|
||||||
|
border-left: none;
|
||||||
|
font-style: none;
|
||||||
|
background-color: silver;
|
||||||
|
}
|
||||||
|
|
||||||
|
.smallCaps {
|
||||||
|
font-size: 110%;
|
||||||
|
font-variant: small-caps;
|
||||||
|
}
|
||||||
|
|
||||||
|
.doNotDisplay { display: none; }
|
||||||
|
|
||||||
|
|
||||||
|
.notify_errors,
|
||||||
|
.notify_notes,
|
||||||
|
.notify_success { padding: .8em; margin-bottom: 1em; border: 2px solid #ddd; }
|
||||||
|
|
||||||
|
.notify_errors { background: #FBE3E4; color: #8a1f11; border-color: #FBC2C4; }
|
||||||
|
.notify_notes { background: #FFF6BF; color: #514721; border-color: #FFD324; }
|
||||||
|
.notify_success { background: #E6EFC2; color: #264409; border-color: #C6D880; }
|
||||||
|
.notify_errors a { color: #8a1f11; }
|
||||||
|
.notify_notes a { color: #514721; }
|
||||||
|
.notify_success a { color: #264409; }
|
||||||
|
|
||||||
|
|
||||||
|
/* # Page/Handler specific # */
|
||||||
|
h1.dir-list-head, ul.dir-list {
|
||||||
|
text-transform: capitalize;
|
||||||
|
font-weight: bold;
|
||||||
|
}
|
||||||
|
ul.sitemap-list a {
|
||||||
|
text-transform: capitalize;
|
||||||
|
}
|
||||||
62
werc/apps/barf/pub/massivefictions.css
Executable file
62
werc/apps/barf/pub/massivefictions.css
Executable file
|
|
@ -0,0 +1,62 @@
|
||||||
|
/* mf */
|
||||||
|
body {
|
||||||
|
color: #a6a6a6;
|
||||||
|
background-color: #626060;
|
||||||
|
font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif;
|
||||||
|
font-size: 84%; /* Enables font size scaling in MSIE */
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
a { text-decoration: none; color: #a6a6a6; }
|
||||||
|
a:hover { background-color: #a6a6a6; color: #626060; text-decoration: none; }
|
||||||
|
a img { display: block; border: 0 none; }
|
||||||
|
li:hover { background-color: #a6a6a6; color: #626060; text-decoration: none; }
|
||||||
|
li a { color: #a6a6a6 }
|
||||||
|
li a:hover { background-color: #a6a6a6; color: #626060; text-decoration: none; }
|
||||||
|
li ul { padding-left: 0.6em !important; }
|
||||||
|
h1 { font-size: 10pt; font-weight: normal; }
|
||||||
|
h2 { font-size: 9pt; font-weight: normal; }
|
||||||
|
input , textarea, select, option { background-color: #a6a6a6; border: none; }
|
||||||
|
table { border: none; background-color: transparent; }
|
||||||
|
th {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
tr:nth-child(odd) { background-color: transparent; }
|
||||||
|
td {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: transparent;
|
||||||
|
}
|
||||||
|
pre, code, blockquote {
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
blockquote {
|
||||||
|
border-left: none;
|
||||||
|
font-style: none;
|
||||||
|
background-color: #a6a6a6;
|
||||||
|
}
|
||||||
|
#header {
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#center {
|
||||||
|
width: 500px;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#center h1 { font-size 9pt; }
|
||||||
|
#footer {
|
||||||
|
font-size: 8pt;
|
||||||
|
background-color: #626060;
|
||||||
|
color: #a6a6a6;
|
||||||
|
}
|
||||||
|
#footer a { color: #a6a6a6; text-decoration: none; }
|
||||||
|
#footer a:hover { color: #626060; text-decoration: none; }
|
||||||
|
#footer table { font-size: 8pt; }
|
||||||
58
werc/apps/barf/pub/okturing.css
Executable file
58
werc/apps/barf/pub/okturing.css
Executable file
|
|
@ -0,0 +1,58 @@
|
||||||
|
/* okturing.com */
|
||||||
|
body { display: flex; flex-wrap: wrap; font-family: sans; }
|
||||||
|
header { flex-basis: 100%; flex-shrink: 0; }
|
||||||
|
article { flex-basis: 100%; padding: 1em; }
|
||||||
|
footer { flex-basis: 100%; flex-shrink: 0; }
|
||||||
|
header nav { display: flex; justify-content: space-between; }
|
||||||
|
nav a, header a { text-decoration: none ; color: inherit; }
|
||||||
|
header h1 span { margin-left: 1em; font-size: 50%; font-style: italic; }
|
||||||
|
body > nav { flex-basis: content; padding-right: 1vw; min-width: 16em; }
|
||||||
|
nav ul { display: flex; flex-direction: column; list-style-type: none; list-style-position: outside; padding-left: 0; }
|
||||||
|
nav li ul { padding-left: 0.6em }
|
||||||
|
footer { display: flex; justify-content: space-between; }
|
||||||
|
|
||||||
|
/* cut here to leave vanity behind */
|
||||||
|
|
||||||
|
body { margin:0; padding: 0; font-size: 84%; font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif; background-color: #FFFFFF; color: #000000; }
|
||||||
|
a:hover { text-decoration: none; background-color: #FFFFFF; color: #000000; }
|
||||||
|
|
||||||
|
/* header and top bar */
|
||||||
|
header nav { background-color: #FFFFFF; color: #000000; padding: 0em; border-bottom: 2px solid #FFFFFF; font-size: 91%; }
|
||||||
|
header h1 { background-color: #FFFFFF; color: #000000; margin: 0; border-bottom: 2px solid #FFFFFF; font-weight: normal; padding: 0.25ex; font-size: 233%; }
|
||||||
|
|
||||||
|
/* sidebar */
|
||||||
|
body > nav { border-right: 1px solid #FFFFFF; padding: 0; }
|
||||||
|
body > nav > div { border-bottom: 1px solid #FFFFFF; }
|
||||||
|
body > nav > div a { background-color: #00ff00; color: #000000; display: block; text-transform: capitalize; font-weight: bold; padding: 0.25em 1ex 0.25em 2mm; font-size: 102%}
|
||||||
|
body > nav > div a:hover { color: #FFFFFF; background-color: #000000 border-left: #FFFFFF solid 0.2em; text-decoration: none; }
|
||||||
|
body > nav > div p { font-weight: bold; margin: 0 0 0.5em 2mm; padding: 1em 0 0 0; }
|
||||||
|
|
||||||
|
/* main copy */
|
||||||
|
article { padding: 1em; }
|
||||||
|
article h1, article h2 { color: #000000; font-weight: bold; margin: 2em 0 0 0; border-bottom: 2px solid #FFFFFF; }
|
||||||
|
article h3, article h4, article h5 { #000000; font-weight: bold; margin: 2em 0 0 0; }
|
||||||
|
article h6, article h7, article h8 { color: #000000; font-weight: bold; margin: 2em 0 0 0; }
|
||||||
|
article a { background-color: #FFFFFF; color: #000000; text-decoration: none; }
|
||||||
|
article a:hover { text-decoration: none; background-color: #000000; color: #FFFFFF; }
|
||||||
|
article a img { display: block; border: 0 none; }
|
||||||
|
|
||||||
|
/* footer */
|
||||||
|
footer { color: #000000; background-color: #FFFFFF; }
|
||||||
|
footer a { background-color: #FFFFFF; color: #000000; }
|
||||||
|
footer div { padding: 1em; }
|
||||||
|
|
||||||
|
input, textarea, select, option {
|
||||||
|
font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif;
|
||||||
|
font-size:100%;
|
||||||
|
padding: 2px;
|
||||||
|
background : #eee;
|
||||||
|
color : #111;
|
||||||
|
border: 1px solid #fff;
|
||||||
|
margin: 2px;
|
||||||
|
}
|
||||||
|
|
||||||
|
pre, code, blockquote {
|
||||||
|
white-space: pre-wrap;
|
||||||
|
padding-left: 2em;
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
}
|
||||||
345
werc/apps/barf/pub/osx.css
Executable file
345
werc/apps/barf/pub/osx.css
Executable file
|
|
@ -0,0 +1,345 @@
|
||||||
|
/* osx.stanleylieber.com */
|
||||||
|
|
||||||
|
body {
|
||||||
|
font-family :Helvetica, Verdana, Arial, Sans-Serif;
|
||||||
|
font-style : normal;
|
||||||
|
padding: 2px 2em;
|
||||||
|
line-height: 1.5em;
|
||||||
|
font-size: 70%;
|
||||||
|
background: #FFF;
|
||||||
|
color: #111;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* font styles */
|
||||||
|
a { text-decoration: none; color: #000000; }
|
||||||
|
a:hover { background: #7600FC; color: #fff; }
|
||||||
|
li:hover { color: #000000; }
|
||||||
|
li a { color: #000000; }
|
||||||
|
li a:hover { background: #7600FC; color: #fff; }
|
||||||
|
ul { list-style: none; padding-left: 0px; margin: 0px }
|
||||||
|
p {
|
||||||
|
font-size : 100%;
|
||||||
|
font-style : normal;
|
||||||
|
padding: 0px;
|
||||||
|
}
|
||||||
|
h2 {
|
||||||
|
font-size : 140%;
|
||||||
|
}
|
||||||
|
h3 {
|
||||||
|
font-size: 120%;
|
||||||
|
}
|
||||||
|
h4 {
|
||||||
|
font-size: 100%;
|
||||||
|
}
|
||||||
|
h2, h3, h1, h4 {
|
||||||
|
font-family: Helvetica, Verdana, Arial, Sans-Serif;
|
||||||
|
color : #000000;
|
||||||
|
margin: 0px 0px;
|
||||||
|
padding: 2px 0px;
|
||||||
|
clear: both;
|
||||||
|
}
|
||||||
|
/* end font styles */
|
||||||
|
|
||||||
|
hr {
|
||||||
|
border: 1px solid #fff;
|
||||||
|
}
|
||||||
|
|
||||||
|
blockquote, code {
|
||||||
|
background : #eee;
|
||||||
|
padding: 6px;
|
||||||
|
border-left: 3px solid #eee;
|
||||||
|
}
|
||||||
|
|
||||||
|
code, pre {
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Sans-Serif;
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_banner {
|
||||||
|
position: relative;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_body {
|
||||||
|
position: relative;
|
||||||
|
top: 100px;
|
||||||
|
left: 10px;
|
||||||
|
width: 90%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_frames {
|
||||||
|
height: 100%;
|
||||||
|
float: top;
|
||||||
|
|
||||||
|
/* for ie */
|
||||||
|
margin: 0;
|
||||||
|
overflow: auto;
|
||||||
|
/* end for ie */
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_index_body {
|
||||||
|
position: relative;
|
||||||
|
top: 100px;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#admin_menu {
|
||||||
|
position: relative;
|
||||||
|
left: 10px;
|
||||||
|
width: 90%;
|
||||||
|
text-align: left;
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_table {
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
width: 90%;
|
||||||
|
border-collapse: collapse;
|
||||||
|
border-color: #111;
|
||||||
|
font-family: sans-serif;
|
||||||
|
font-size: 9pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_table td {
|
||||||
|
vertical-align: middle;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
|
||||||
|
#admin_table th {
|
||||||
|
background: #111;
|
||||||
|
color: gray;
|
||||||
|
}
|
||||||
|
|
||||||
|
#bottom {
|
||||||
|
float: bottom;
|
||||||
|
position: absolute;
|
||||||
|
bottom: 10px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#button input.submit {
|
||||||
|
background: #111;
|
||||||
|
color: gray;
|
||||||
|
border-top: solid 1px #111;
|
||||||
|
border-bottom: solid 1px #111;
|
||||||
|
border-left: solid 1px #111;
|
||||||
|
border-right: solid 1px #111;
|
||||||
|
width: 15%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#center {
|
||||||
|
position: absolute;
|
||||||
|
top: 155px;
|
||||||
|
left: 1%;
|
||||||
|
width: 65%;
|
||||||
|
height: 100%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#divider {
|
||||||
|
background: #111;
|
||||||
|
height: 1px;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*forms*/
|
||||||
|
input , textarea, select, option {
|
||||||
|
font-family : Helvetica, Verdana, Arial, Sans-Serif;
|
||||||
|
font-size:100%;
|
||||||
|
padding: 2px;
|
||||||
|
background : #eee;
|
||||||
|
color : #111;
|
||||||
|
border: 1px solid #fff;
|
||||||
|
margin: 2px;
|
||||||
|
}
|
||||||
|
fieldset, legend {
|
||||||
|
background:transparent;
|
||||||
|
color : #111;
|
||||||
|
border: none;
|
||||||
|
padding: 5px;
|
||||||
|
}
|
||||||
|
label, legend {
|
||||||
|
font-weight:normal;
|
||||||
|
}
|
||||||
|
|
||||||
|
#header {
|
||||||
|
float: top;
|
||||||
|
position: absolute;
|
||||||
|
top: 0px;
|
||||||
|
left: 17%;
|
||||||
|
height: 100%;
|
||||||
|
font-size: 24pt;
|
||||||
|
background: #7600FC;
|
||||||
|
height: 50px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#header a {
|
||||||
|
background: #7600FC;
|
||||||
|
color: #fff;
|
||||||
|
}
|
||||||
|
|
||||||
|
#left {
|
||||||
|
float: left;
|
||||||
|
position: absolute;
|
||||||
|
top: 0px;
|
||||||
|
left: 10%;
|
||||||
|
width: 15%;
|
||||||
|
height: 100%;
|
||||||
|
list-style: none;
|
||||||
|
overflow: auto;
|
||||||
|
}
|
||||||
|
|
||||||
|
#meta {
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#page_frames {
|
||||||
|
width: 100%;
|
||||||
|
float: left;
|
||||||
|
|
||||||
|
/* for ie */
|
||||||
|
margin: 0;
|
||||||
|
overflow: auto;
|
||||||
|
/* end for ie */
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
#page_category {
|
||||||
|
position: relative;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
|
||||||
|
#page_list {
|
||||||
|
text-align: right;
|
||||||
|
font-size: 9pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#page_login {
|
||||||
|
position: relative;
|
||||||
|
text-align: right;
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#page_upload {
|
||||||
|
background: #111; color: #444; font-weight: bold
|
||||||
|
}
|
||||||
|
|
||||||
|
#post {
|
||||||
|
position: relative;
|
||||||
|
left: 13%;
|
||||||
|
width: 86%;
|
||||||
|
padding-bottom: 100px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_body {
|
||||||
|
position: relative;
|
||||||
|
top: 10px;
|
||||||
|
bottom: 10px;
|
||||||
|
left: 10px;;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_date {
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_meta {
|
||||||
|
margin-left: 2px;
|
||||||
|
color: #111;
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_tags {
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_thumb {
|
||||||
|
margin-top: 5px;
|
||||||
|
margin-bottom: 5px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_title {
|
||||||
|
border: 1px;
|
||||||
|
line-height: 1.5em;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_title a {
|
||||||
|
background: red;
|
||||||
|
color: #fff;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_title a:hover {
|
||||||
|
background: #7600FC;
|
||||||
|
color: #fff;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_title h2 {
|
||||||
|
font-weight: 100;
|
||||||
|
}
|
||||||
|
|
||||||
|
#registration_body {
|
||||||
|
left: 10px;
|
||||||
|
text-align: left;
|
||||||
|
}
|
||||||
|
|
||||||
|
#right {
|
||||||
|
float: right;
|
||||||
|
position: absolute;
|
||||||
|
top: 150px;
|
||||||
|
right: 1%;
|
||||||
|
width: 33%;
|
||||||
|
height: 100%;
|
||||||
|
list-style: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
#rss {
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
text-align: center;
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* sidebar */
|
||||||
|
#sidebar {
|
||||||
|
position: relative;
|
||||||
|
z-index: 100;
|
||||||
|
width: 90%;
|
||||||
|
top: 10px;
|
||||||
|
right: 10px;
|
||||||
|
left: 10px;
|
||||||
|
margin: 2px;
|
||||||
|
background: #FFFFFF;
|
||||||
|
}
|
||||||
|
#sidebar h2 {
|
||||||
|
margin: 5px 0px 0px;
|
||||||
|
padding: 4px 0px;
|
||||||
|
font-size:100%;
|
||||||
|
}
|
||||||
|
#sidebar ul {
|
||||||
|
margin: 2px;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*searchform*/
|
||||||
|
#searchform label {
|
||||||
|
font-weight:bold;
|
||||||
|
}
|
||||||
|
#searchform input#s {
|
||||||
|
width: 40%;
|
||||||
|
}
|
||||||
|
#searchform input.submit {
|
||||||
|
width: 16%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#top {
|
||||||
|
float: top;
|
||||||
|
position: absolute;
|
||||||
|
top: 0px;
|
||||||
|
left: 0px;
|
||||||
|
right: 0px;
|
||||||
|
height: 10%;
|
||||||
|
width: 100%
|
||||||
|
overflow: auto;
|
||||||
|
}
|
||||||
|
|
||||||
|
.warning {
|
||||||
|
color: #111;
|
||||||
|
font-weight: bold;
|
||||||
|
}
|
||||||
67
werc/apps/barf/pub/other.css
Executable file
67
werc/apps/barf/pub/other.css
Executable file
|
|
@ -0,0 +1,67 @@
|
||||||
|
/* other */
|
||||||
|
body {
|
||||||
|
color: blue;
|
||||||
|
background-color: white;
|
||||||
|
font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif;
|
||||||
|
font-size: 84%; /* Enables font size scaling in MSIE */
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
a { text-decoration: none; color: blue; }
|
||||||
|
a:hover { color: purple; background-color: white; text-decoration: none; }
|
||||||
|
li:hover { color: purple; background-color: white; text-decoration: none; }
|
||||||
|
li a { color: blue; }
|
||||||
|
li a:hover { color: purple; background-color: white; text-decoration: none; }
|
||||||
|
h1 { font-size: 10pt; font-weight: normal; }
|
||||||
|
h2 { font-size: 9pt; font-weight: normal; }
|
||||||
|
input , textarea, select, option { background-color: #eee; border: none; }
|
||||||
|
li ul {
|
||||||
|
padding-left: 0.6em !important;
|
||||||
|
}
|
||||||
|
table { border: none; background-color: transparent; }
|
||||||
|
th {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
tr:nth-child(odd) { background-color: transparent; }
|
||||||
|
td {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: transparent;
|
||||||
|
}
|
||||||
|
pre, code, blockquote {
|
||||||
|
Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
blockquote {
|
||||||
|
border-left: none;
|
||||||
|
font-style: none;
|
||||||
|
background-color: #eee;
|
||||||
|
}
|
||||||
|
#center {
|
||||||
|
width: 500px;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
line-height: 0;
|
||||||
|
}
|
||||||
|
/* #center p {
|
||||||
|
line-height: 1;
|
||||||
|
-webkit-margin-before: 0px;
|
||||||
|
-webkit-margin-after: 0px;
|
||||||
|
} */
|
||||||
|
#footer {
|
||||||
|
font-size: 8pt;
|
||||||
|
background-color: white;
|
||||||
|
color: blue;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#footer a { color: blue; text-decoration: none; }
|
||||||
|
#footer a:hover { color: purple; background-color: white; text-decoration: none; }
|
||||||
|
#footer table { font-size: 8pt; }
|
||||||
|
#text { line-height: 1; }
|
||||||
29
werc/apps/barf/pub/read.css
Executable file
29
werc/apps/barf/pub/read.css
Executable file
|
|
@ -0,0 +1,29 @@
|
||||||
|
/* black */
|
||||||
|
header { flex-basis: 99%; flex-shrink: 0; padding-left: 1em; padding-bottom: 1em; }
|
||||||
|
header h3 { padding-bottom: 2px; }
|
||||||
|
header a img { vertical-align: bottom; padding-top: 1em; }
|
||||||
|
body { font-family: Helvetica, Verdana, Arial, 'Liberation Sans', FreeSans, sans-serif; background-color: #000000; color: #FFFFFF; }
|
||||||
|
a { text-decoration: none; color: #FFFFFF; background-color: #000000; font-weight: bold; }
|
||||||
|
a:hover { text-decoration: none; background-color: #FFFFFF; color: #000000; }
|
||||||
|
/* footer */
|
||||||
|
footer > nav { margin-left: auto; padding: 1em; }
|
||||||
|
|
||||||
|
/* fixed-width fonts */
|
||||||
|
pre, code { white-space: pre-wrap!important; }
|
||||||
|
pre, code, blockquote {
|
||||||
|
max-width: 100%!important;
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
}
|
||||||
|
/* input */
|
||||||
|
input, textarea, select, option {
|
||||||
|
font-family: Sans-Serif;
|
||||||
|
font-size: 100%;
|
||||||
|
padding: 2px;
|
||||||
|
border-top: solid 1px #FFFFFF;
|
||||||
|
border-bottom: solid 1px #FFFFFF;
|
||||||
|
border-left: solid 1px #FFFFFF;
|
||||||
|
border-right: solid 1px #FFFFFF;
|
||||||
|
background-color: #000000;
|
||||||
|
color: #FFFFFF;
|
||||||
|
margin: 2px;
|
||||||
|
}
|
||||||
64
werc/apps/barf/pub/stanleylieber.css
Executable file
64
werc/apps/barf/pub/stanleylieber.css
Executable file
|
|
@ -0,0 +1,64 @@
|
||||||
|
/* nothing */
|
||||||
|
body {
|
||||||
|
display: flex;
|
||||||
|
flex-wrap: wrap;
|
||||||
|
color: black;
|
||||||
|
background-color: white;
|
||||||
|
font-family: 'Lucida Sans Unicode', 'Lucida Sans', 'Lucida Grande', 'Bitstream Sans Vera', Sans-Serif;
|
||||||
|
font-size: 84%; /* Enables font size scaling in MSIE */
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
header, article, footer { flex-basis: 100%; }
|
||||||
|
a { text-decoration: none; color: gray; }
|
||||||
|
a:hover { color: #111; text-decoration: none; }
|
||||||
|
a img { display: block; border: 0 none; }
|
||||||
|
li:hover { color: #111; text-decoration: none; }
|
||||||
|
li a { color: gray }
|
||||||
|
li a:hover { color: #111; text-decoration: none; }
|
||||||
|
li ul { padding-left: 0.6em !important; }
|
||||||
|
h1 { font-size: 10pt; font-weight: normal; }
|
||||||
|
h2 { font-size: 9pt; font-weight: normal; }
|
||||||
|
input , textarea, select, option { background-color: gray; border: none; }
|
||||||
|
table { border: none; background-color: transparent; }
|
||||||
|
th {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
text-align: center;
|
||||||
|
}
|
||||||
|
tr:nth-child(odd) { background-color: transparent; }
|
||||||
|
td {
|
||||||
|
background-color: transparent;
|
||||||
|
border: none;
|
||||||
|
}
|
||||||
|
|
||||||
|
hr {
|
||||||
|
border-width: 0px 0px 0.1em 0px;
|
||||||
|
border-color: transparent;
|
||||||
|
}
|
||||||
|
pre, code, blockquote {
|
||||||
|
font-family: Courier, 'Lucida Console','Courier New', Serif;
|
||||||
|
margin-left: 2em;
|
||||||
|
font-size: 1.2em;
|
||||||
|
}
|
||||||
|
blockquote {
|
||||||
|
border-left: none;
|
||||||
|
font-style: none;
|
||||||
|
background-color: gray;
|
||||||
|
}
|
||||||
|
#center {
|
||||||
|
width: 500px;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#center h1 { font-size 9pt; }
|
||||||
|
#footer {
|
||||||
|
font-size: 8pt;
|
||||||
|
background-color: white;
|
||||||
|
color: gray;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
}
|
||||||
|
#footer a { color: gray; text-decoration: none; }
|
||||||
|
#footer a:hover { color: #111; text-decoration: none; }
|
||||||
|
#footer table { font-size: 8pt; }
|
||||||
195
werc/apps/barf/pub/url.css
Executable file
195
werc/apps/barf/pub/url.css
Executable file
|
|
@ -0,0 +1,195 @@
|
||||||
|
/* url.stanleylieber.com */
|
||||||
|
|
||||||
|
body {
|
||||||
|
font-family: Vera, Helvetica, Verdana, Arial, Sans-Serif;
|
||||||
|
font-style: normal;
|
||||||
|
padding: 2px 2em;
|
||||||
|
line-height: 1.5em;
|
||||||
|
font-size: 70%;
|
||||||
|
background: #FFFFFF;
|
||||||
|
color: #000000;
|
||||||
|
}
|
||||||
|
|
||||||
|
a { text-decoration: none; color: #000000; }
|
||||||
|
a:hover { background: #EEEEEE;}
|
||||||
|
li:hover { background: #EEEEEE; }
|
||||||
|
li a:hover { background: #EEEEEE; }
|
||||||
|
ul { list-style: none; }
|
||||||
|
|
||||||
|
p {
|
||||||
|
font-size : 100%;
|
||||||
|
font-style : normal;
|
||||||
|
padding: 0px;
|
||||||
|
}
|
||||||
|
|
||||||
|
h2 { font-size : 140%; }
|
||||||
|
h3 { font-size: 120%; }
|
||||||
|
h4 { font-size: 100%; }
|
||||||
|
h2, h3, h1, h4 {
|
||||||
|
margin: 0px 0px;
|
||||||
|
padding: 2px 0px;
|
||||||
|
clear: both;
|
||||||
|
}
|
||||||
|
|
||||||
|
hr { border: 1px solid #fff; }
|
||||||
|
|
||||||
|
input {
|
||||||
|
background-color: #EEEEEE;
|
||||||
|
}
|
||||||
|
|
||||||
|
code, pre { font-family: Courier, 'Lucida Console','Courier New', Sans-Serif; }
|
||||||
|
blockquote, code {
|
||||||
|
background : #eee;
|
||||||
|
padding: 6px;
|
||||||
|
border-left: 3px solid #eee;
|
||||||
|
}
|
||||||
|
|
||||||
|
td {
|
||||||
|
padding: 10px;
|
||||||
|
border-width: 1px;
|
||||||
|
border-style: solid;
|
||||||
|
border-collapse: collapse;
|
||||||
|
border-color: #000000;
|
||||||
|
background: #FFFFFF;
|
||||||
|
}
|
||||||
|
|
||||||
|
textarea {
|
||||||
|
height: 300px;
|
||||||
|
background-color: #EEEEEE;
|
||||||
|
}
|
||||||
|
|
||||||
|
tr {
|
||||||
|
border-width: 1px;
|
||||||
|
border-style: solid;
|
||||||
|
border-collapse: collapse;
|
||||||
|
border-color: #000000;
|
||||||
|
}
|
||||||
|
|
||||||
|
#add {
|
||||||
|
position: relative;
|
||||||
|
top: 65px;
|
||||||
|
left: 9%;
|
||||||
|
font-size: 10pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#blank {
|
||||||
|
border-width: 1px;
|
||||||
|
border-style: solid;
|
||||||
|
border-collapse: collapse;
|
||||||
|
border-color: #FFFFFF;
|
||||||
|
}
|
||||||
|
|
||||||
|
#bottom {
|
||||||
|
float: bottom;
|
||||||
|
position: absolute;
|
||||||
|
bottom: 0px;
|
||||||
|
left: 0px;
|
||||||
|
right: 0px;
|
||||||
|
width: 100%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#center {
|
||||||
|
position: relative;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
top: 130px;
|
||||||
|
width: 90%;
|
||||||
|
height: 100%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#edit {
|
||||||
|
width: 750px;
|
||||||
|
font-size: 10pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#footer {
|
||||||
|
position: relative;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
bottom: 100px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#header {
|
||||||
|
position: relative;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
top: 40px;
|
||||||
|
width: 83%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#logo { font-size: 40pt; color: #DDDDDD; }
|
||||||
|
#logo a { font-size: 40pt; color: #CCCCCC; }
|
||||||
|
#logo a:hover { background: #EEEEEE;}
|
||||||
|
|
||||||
|
#list {
|
||||||
|
position: relative;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
top: 90px;
|
||||||
|
width: 90%;
|
||||||
|
height: 100%;
|
||||||
|
}
|
||||||
|
|
||||||
|
#meta { font-size: 8pt; }
|
||||||
|
|
||||||
|
#page_list {
|
||||||
|
margin: 20px;
|
||||||
|
text-align: right;
|
||||||
|
font-size: 9pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post {
|
||||||
|
position: relative;
|
||||||
|
padding: 20px;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_meta { text-align: center; }
|
||||||
|
|
||||||
|
#post_date {
|
||||||
|
width: 200px;
|
||||||
|
text-align: center;
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_edit {
|
||||||
|
width: 100px;
|
||||||
|
text-align: center;
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_table {
|
||||||
|
position: relative;
|
||||||
|
margin-left: auto;
|
||||||
|
margin-right: auto;
|
||||||
|
padding: 0px;
|
||||||
|
width: 100%;
|
||||||
|
border-collapse: collapse;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_tags {
|
||||||
|
text-align: left;
|
||||||
|
font-size: 8pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#post_title {
|
||||||
|
text-align: left;
|
||||||
|
font-size: 10pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#search {
|
||||||
|
position: absolute;
|
||||||
|
top: 90px;
|
||||||
|
right: 9%;
|
||||||
|
font-size: 10pt;
|
||||||
|
}
|
||||||
|
|
||||||
|
#top {
|
||||||
|
float: top;
|
||||||
|
position: absolute;
|
||||||
|
top: 0px;
|
||||||
|
left: 0px;
|
||||||
|
right: 0px;
|
||||||
|
height: 100px;
|
||||||
|
width: 100%;
|
||||||
|
}
|
||||||
|
|
||||||
1
werc/apps/barf/src/1/body
Normal file
1
werc/apps/barf/src/1/body
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
Trust, but verify.
|
||||||
1
werc/apps/barf/src/1/date
Normal file
1
werc/apps/barf/src/1/date
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
Thu Aug 25 18:35:52 CDT 2011
|
||||||
1
werc/apps/barf/src/1/link
Normal file
1
werc/apps/barf/src/1/link
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
http://plan9.stanleylieber.com/9front
|
||||||
0
werc/apps/barf/src/1/tags/demo
Normal file
0
werc/apps/barf/src/1/tags/demo
Normal file
0
werc/apps/barf/src/1/tags/random
Normal file
0
werc/apps/barf/src/1/tags/random
Normal file
0
werc/apps/barf/src/1/tags/theory
Normal file
0
werc/apps/barf/src/1/tags/theory
Normal file
1
werc/apps/barf/src/1/title
Normal file
1
werc/apps/barf/src/1/title
Normal file
|
|
@ -0,0 +1 @@
|
||||||
|
This is a BULGE demo post.
|
||||||
3
werc/apps/barf/tags
Executable file
3
werc/apps/barf/tags
Executable file
|
|
@ -0,0 +1,3 @@
|
||||||
|
1/tags/theory
|
||||||
|
1/tags/random
|
||||||
|
1/tags/demo
|
||||||
148
werc/apps/blagh/app.rc
Normal file
148
werc/apps/blagh/app.rc
Normal file
|
|
@ -0,0 +1,148 @@
|
||||||
|
fn conf_enable_blog {
|
||||||
|
blagh_uri=$conf_wd
|
||||||
|
blagh_dirs=$*
|
||||||
|
if(~ $#blagh_dirs 0)
|
||||||
|
blagh_dirs=( . )
|
||||||
|
conf_enable_app blagh
|
||||||
|
|
||||||
|
if(~ $"conf_blog_editors '')
|
||||||
|
conf_blog_editors=blog-editors
|
||||||
|
|
||||||
|
if(~ $"conf_blog_only_pull '')
|
||||||
|
conf_blog_only_pull=0
|
||||||
|
|
||||||
|
if(~ $"conf_max_posts_per_page '')
|
||||||
|
conf_max_posts_per_page=32
|
||||||
|
}
|
||||||
|
|
||||||
|
fn blagh_init {
|
||||||
|
if(~ $#blagh_dirs 0 && ~ $req_path */[bB]log/*) {
|
||||||
|
blagh_uri=`{echo $req_path | sed 's,(/[bB]log/).*,\1,'}
|
||||||
|
blagh_dirs=( . )
|
||||||
|
}
|
||||||
|
|
||||||
|
# Should not match sub-dirs!
|
||||||
|
if(! ~ $#blagh_dirs 0) {
|
||||||
|
# && test -d / `{echo '-a -d '^$blagh_root^$blagh_dirs}
|
||||||
|
blagh_url=$base_url^$blagh_uri
|
||||||
|
blagh_root=$sitedir^$blagh_uri
|
||||||
|
if(check_user $conf_blog_editors && ! ~ $"conf_blog_only_pull '1') {
|
||||||
|
editor_mode=on
|
||||||
|
if(~ $"post_arg_date '')
|
||||||
|
post_date=`{/bin/date -I|sed 's,-,/,g'}
|
||||||
|
if not
|
||||||
|
post_date=$post_arg_date
|
||||||
|
ll_add handlers_bar_left echo '<a href="'$blagh_uri'new_post">Make a new post</a>'
|
||||||
|
}
|
||||||
|
|
||||||
|
if(~ $req_path $blagh_uri) {
|
||||||
|
handler_body_main=blagh_body
|
||||||
|
u=$blagh_uri'index'
|
||||||
|
extraHeaders=$"extraHeaders ^ \
|
||||||
|
'<link rel="alternate" type="application/atom+xml" title="ATOM" href="'$"u'.atom" />
|
||||||
|
<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"u'.rss" />
|
||||||
|
<link rel="alternate" type="application/json" title="JSON" href="'$"blagh_uri'feed.json" />'
|
||||||
|
}
|
||||||
|
if not if(~ $req_path $blagh_uri^index.atom)
|
||||||
|
blagh_setup_feed_handlers atom.tpl 'application/atom+xml'
|
||||||
|
|
||||||
|
if not if(~ $req_path $blagh_uri^index.rss)
|
||||||
|
blagh_setup_feed_handlers rss20.tpl 'text/xml; charset=utf-8'
|
||||||
|
|
||||||
|
if not if(~ $req_path $blagh_uri^feed.json)
|
||||||
|
blagh_setup_feed_handlers jsonfeed.tpl 'application/json; charset=utf-8'
|
||||||
|
|
||||||
|
if not if(~ $req_path $blagh_uri^new_post && ! ~ $#editor_mode 0) {
|
||||||
|
handler_body_main=( tpl_handler `{get_lib_file blagh/new_post.tpl apps/blagh/new_post.tpl} )
|
||||||
|
if(~ $REQUEST_METHOD POST) {
|
||||||
|
if(mkbpost $"post_arg_body $"post_date $"post_arg_title $post_arg_id)
|
||||||
|
post_redirect $blagh_uri
|
||||||
|
if not
|
||||||
|
notify_errors=$status
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn blagh_setup_feed_handlers {
|
||||||
|
handler_body_main=NOT_USED_by_blagh_feeds
|
||||||
|
res_tail=()
|
||||||
|
http_content_type=$2
|
||||||
|
headers=()
|
||||||
|
master_template=apps/blagh/$1 # Should we allow tempalte override?
|
||||||
|
}
|
||||||
|
|
||||||
|
fn blagh_body {
|
||||||
|
echo '<div class="bfeed">'
|
||||||
|
if (! ~ $"blogTitle '')
|
||||||
|
echo '<h1>'$"blogTitle'</h1>'
|
||||||
|
|
||||||
|
# Direct links to feeds are disabled because they are not very useful, add clutter and might waste pagerank.
|
||||||
|
# An user can add this on their own using handlers_body_head anyway.
|
||||||
|
#echo '<div style="text-align:right">(<a href="index.rss">RSS Feed</a>|<a href="index.atom">Atom Feed</a>)</div>'
|
||||||
|
|
||||||
|
# XXX Not sure why this fixes issues with blog setup, probably bug in fltr_cache!
|
||||||
|
for(p in `{get_post_list $blagh_root^$blagh_dirs}) {
|
||||||
|
l=`{echo -n $p|sed 's!'$sitedir^'/?(.*)([0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9])(/[^/]+/)!\2 /\1\2\3!'}
|
||||||
|
sed '1s!.*^') ('^$l(1)^')!' < $p/index.md |
|
||||||
|
sed 's!\([0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]\)!<div class="date">&</div>!'
|
||||||
|
echo # Needed extra \n so markdown doesn't mess up the formatting, probably can be done in sed.
|
||||||
|
} | $formatter
|
||||||
|
# XXX BUG! Markdown [references] break because multiple markdown documents are merged. Should format each blog post independently.
|
||||||
|
# TODO: use fltr_cache directly, that can fix the previous bug plus provide a perf boost by caching title generation.
|
||||||
|
echo '</div>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn get_post_list {
|
||||||
|
# /./->/|/ done to sort -t| and order by date
|
||||||
|
# Note: $paths in blagh_dirs should not contain '/./' or '|'
|
||||||
|
ls -F $*^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/ >[2]/dev/null | sed -n '/'^$forbidden_uri_chars^'/d; s,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed -e 's,/+\|/+,/,' -e $conf_max_posts_per_page^'q'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn mkbpost {
|
||||||
|
bptext=$1
|
||||||
|
bpdate=$2
|
||||||
|
bptitle=$3
|
||||||
|
bpid=$4
|
||||||
|
_status=()
|
||||||
|
if(~ $"bptext '')
|
||||||
|
_status=($_status 'You need to provide a post body.')
|
||||||
|
if(! ~ $"bpdate [0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9])
|
||||||
|
_status=($_status 'Invalid date: '''^$"bpdate^'''') # XXX Should make semantic check.
|
||||||
|
|
||||||
|
if(~ $#_status 0) {
|
||||||
|
umask 002 # Let group write
|
||||||
|
if(! ~ $"bpid '')
|
||||||
|
bpid=`{echo -n '-'^$bpid | sed 's/'$forbidden_uri_chars'+/_/g; 1q'}
|
||||||
|
|
||||||
|
ddir=$blagh_root^$bpdate^'/'
|
||||||
|
n=`{ls $ddir >[2]/dev/null |wc -l}
|
||||||
|
|
||||||
|
mkdir -p $ddir/$"n^$"bpid/
|
||||||
|
{
|
||||||
|
if(! ~ $"bptitle '') {
|
||||||
|
echo $bptitle
|
||||||
|
echo '-------------------------------------'
|
||||||
|
}
|
||||||
|
# TODO: Enable metadata
|
||||||
|
#echo '* Posted:' `{date}
|
||||||
|
#if(! ~ $#logged_user 0)
|
||||||
|
# echo '* Author: '$logged_user
|
||||||
|
echo
|
||||||
|
echo $bptext
|
||||||
|
}> $ddir/$"n^$"bpid/index.md
|
||||||
|
|
||||||
|
# Experimental support for http://pubsubhubbub.googlecode.com/
|
||||||
|
if(! ~ $"conf_blog_pubsubdub_hub '') {
|
||||||
|
ifs='' { p=`{echo $req_url|sed 's/new_post$/index.atom/'|url_encode } }
|
||||||
|
dprint hget -p 'hub.mode=publish&hub.url='^$"p $conf_blog_pubsubdub_hub
|
||||||
|
hget -d -h -p 'hub.mode=publish&hub.url='^$"p $conf_blog_pubsubdub_hub >[1=2] &
|
||||||
|
}
|
||||||
|
}
|
||||||
|
status=$_status
|
||||||
|
}
|
||||||
|
|
||||||
|
fn strip_title_from_md_file {
|
||||||
|
sed '1N; /^.*\n===*$/N; /.*\n===*\n$/d'
|
||||||
|
}
|
||||||
58
werc/apps/blagh/atom.tpl
Normal file
58
werc/apps/blagh/atom.tpl
Normal file
|
|
@ -0,0 +1,58 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
|
||||||
|
%{
|
||||||
|
# See for more info:http://www.tbray.org/ongoing/When/200x/2005/07/27/Atomic-RSS
|
||||||
|
fn statpost {
|
||||||
|
f = $1
|
||||||
|
|
||||||
|
post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
|
||||||
|
title=`{read $f/index.md}
|
||||||
|
by=`{ls -m $f | sed 's/^\[//g; s/].*$//g' >[2]/dev/null}
|
||||||
|
ifs=() { summary=`{cat $f/index.md | strip_title_from_md_file | ifs=$difs {$formatter} } }
|
||||||
|
}
|
||||||
|
# rfc3339 date when feed was last updated.
|
||||||
|
fupdated = `{ndate -a `{date `{mtime `{ls $blagh_root$blagh_dirs/[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/[0-9] | tail -1} | awk '{print $1}'}}}
|
||||||
|
%}
|
||||||
|
|
||||||
|
<feed xmlns="http://www.w3.org/2005/Atom"
|
||||||
|
xmlns:thr="http://purl.org/syndication/thread/1.0">
|
||||||
|
|
||||||
|
% if(! ~ $"conf_blog_pubsubdub_hub '') {
|
||||||
|
% echo '<link rel="hub" href="'$conf_blog_pubsubdub_hub'" />'
|
||||||
|
% }
|
||||||
|
|
||||||
|
<link rel="self" href="%($base_url^$req_path%)"/>
|
||||||
|
<id>%($base_url^$req_path%)</id>
|
||||||
|
<icon><![CDATA[/favicon.ico]]></icon>
|
||||||
|
|
||||||
|
<title><![CDATA[%($siteTitle%)]]></title>
|
||||||
|
<subtitle><![CDATA[%($siteSubTitle%)]]></subtitle>
|
||||||
|
|
||||||
|
<updated>%($fupdated%)</updated>
|
||||||
|
<link href="."/>
|
||||||
|
|
||||||
|
% for(f in `{get_post_list $blagh_root$blagh_dirs}) {
|
||||||
|
% statpost $f
|
||||||
|
|
||||||
|
<entry>
|
||||||
|
% # Maybe we should be smarter, see: http://diveintomark.org/archives/2004/05/28/howto-atom-id, example: <id>tag:intertwingly.net,2004:2899</id>
|
||||||
|
<id>%($post_uri%)</id>
|
||||||
|
<link href="%($post_uri%)"/>
|
||||||
|
<title><![CDATA[%($title%)]]></title>
|
||||||
|
% # <link rel="replies" href="2899.atom" thr:count="0"/>
|
||||||
|
<author><name><![CDATA[%($by%)]]></name></author>
|
||||||
|
|
||||||
|
<content type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||||
|
<![CDATA[%($summary%)]]>
|
||||||
|
</div></content>
|
||||||
|
|
||||||
|
% # rfc3339 date when entry was last updated.
|
||||||
|
% eupdated=`{ndate -a `{date `{mtime $f | awk '{print $1}'}}}
|
||||||
|
<updated>%($eupdated%)</updated>
|
||||||
|
</entry>
|
||||||
|
|
||||||
|
% }
|
||||||
|
|
||||||
|
</feed>
|
||||||
|
|
||||||
|
% exit
|
||||||
20
werc/apps/blagh/convert.rc
Executable file
20
werc/apps/blagh/convert.rc
Executable file
|
|
@ -0,0 +1,20 @@
|
||||||
|
#!/usr/bin/env rc
|
||||||
|
|
||||||
|
path=($PLAN9/bin/ $path)
|
||||||
|
|
||||||
|
for(p in *.md) {
|
||||||
|
echo
|
||||||
|
echo '========================='
|
||||||
|
echo p $p
|
||||||
|
pp=`{echo $p | sed 's/^([0-9][0-9][0-9][0-9])-([0-9][0-9])-([0-9][0-9])[\-_](.*).md$/\1 \2 \3 \4/' }
|
||||||
|
echo pp $pp
|
||||||
|
|
||||||
|
d=$pp(1)^'/'^$pp(2)^'/'^$pp(3)^'/'^$pp(4)^'/'
|
||||||
|
|
||||||
|
mkdir -p $d
|
||||||
|
echo $pp(4) | sed -e 's/^[0-9]_//; s/_/ /g;' > $d/index.md
|
||||||
|
echo '=================================' >> $d/index.md
|
||||||
|
echo >> $d/index.md
|
||||||
|
cat $p >> $d/index.md
|
||||||
|
|
||||||
|
}
|
||||||
35
werc/apps/blagh/jsonfeed.tpl
Normal file
35
werc/apps/blagh/jsonfeed.tpl
Normal file
|
|
@ -0,0 +1,35 @@
|
||||||
|
{
|
||||||
|
"version": "https://jsonfeed.org/version/1",
|
||||||
|
"title": "%($siteTitle%)",
|
||||||
|
"home_page_url": "%($"base_url%)",
|
||||||
|
"feed_url": "%($"base_url^$"req_path%)",
|
||||||
|
"items": [
|
||||||
|
%{
|
||||||
|
fn statpost {
|
||||||
|
f = $1
|
||||||
|
post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
|
||||||
|
title=`{read $f/index.md}
|
||||||
|
#ifs=() { summary=`{cat $f/index.md | crop_text 1024 ... | $formatter } }
|
||||||
|
ifs=() { summary=`{cat $f/index.md | strip_title_from_md_file | ifs=$difs {$formatter| sed 's/"/\\"/g' | tr -d '\012' } } }
|
||||||
|
}
|
||||||
|
%}
|
||||||
|
% #for(f in `{get_post_list $blagh_root$blagh_dirs}) {
|
||||||
|
%
|
||||||
|
% postlist=`{get_post_list $blagh_root$blagh_dirs}
|
||||||
|
% postcount=0
|
||||||
|
% for(f in $postlist) {
|
||||||
|
% statpost $f
|
||||||
|
{
|
||||||
|
"id": "%($post_uri%)",
|
||||||
|
"url": "%($post_uri%)",
|
||||||
|
"title": "%($title%)",
|
||||||
|
"content_html": "%($summary%)"
|
||||||
|
}
|
||||||
|
% postcount = `{echo $postcount 1+p | dc}
|
||||||
|
% if (! ~ $#postlist $postcount) { echo , }
|
||||||
|
% }
|
||||||
|
]
|
||||||
|
}
|
||||||
|
|
||||||
|
% exit
|
||||||
|
|
||||||
11
werc/apps/blagh/new_post.tpl
Normal file
11
werc/apps/blagh/new_post.tpl
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
<div>
|
||||||
|
% notices_handler
|
||||||
|
<form method="POST"><fieldset>
|
||||||
|
<legend>Submit a new blog post</legend>
|
||||||
|
<textarea cols="94" rows=16" name="body">%($"post_arg_body%)</textarea><br />
|
||||||
|
<label>Title: <input size="64" type="text" name="title" value="%($"post_arg_title%)" /></label>
|
||||||
|
<label>Id: <input size="8" type="text" name="id" value="%($"post_arg_id%)" /></label>
|
||||||
|
<label>Date: <input size="10" maxlength="10" type="text" name="date" value="%($"post_date%)" /></label>
|
||||||
|
<input type="submit" value="Post" />
|
||||||
|
</fieldset></form>
|
||||||
|
</div>
|
||||||
43
werc/apps/blagh/rss20.tpl
Normal file
43
werc/apps/blagh/rss20.tpl
Normal file
|
|
@ -0,0 +1,43 @@
|
||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
|
||||||
|
%{
|
||||||
|
fn statpost {
|
||||||
|
f = $1
|
||||||
|
post_uri = `{echo $f | sed 's,^'$sitedir',,'}
|
||||||
|
title=`{read $f/index.md}
|
||||||
|
post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
|
||||||
|
by=`{ls -m $f | sed 's/^\[//g; s/].*$//g' >[2]/dev/null}
|
||||||
|
ifs=() {summary=`{ cat $f/index.md |strip_title_from_md_file| ifs=$difs {$formatter | escape_html} }}
|
||||||
|
}
|
||||||
|
|
||||||
|
%}
|
||||||
|
|
||||||
|
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
|
||||||
|
<channel>
|
||||||
|
<atom:link href="%($base_url^$req_path%)" rel="self" type="application/rss+xml" />
|
||||||
|
<title><![CDATA[%($siteTitle%)]]></title>
|
||||||
|
<link>%($base_url^$req_path%)</link>
|
||||||
|
<description><![CDATA[%($blogDesc%)]]></description>
|
||||||
|
<language>en-us</language>
|
||||||
|
<generator><![CDATA[Tom Duff's rc, and Kris Maglione's clever hackery]]></generator>
|
||||||
|
%{
|
||||||
|
# <webMaster>uriel99+rss@gmail.com (Uriel)</webMaster>
|
||||||
|
# rfc2822 last time channel content changed.
|
||||||
|
lbd=`{ndate -m `{date `{mtime `{ls $blagh_root$blagh_dirs/[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/[0-9] | tail -1} | awk '{print $1}'}}}
|
||||||
|
echo '<lastBuildDate>'$"lbd'</lastBuildDate>'
|
||||||
|
# rfc2822 publication date for content in the channel.
|
||||||
|
pubdate=`{ndate -m}
|
||||||
|
for(f in `{get_post_list $blagh_root$blagh_dirs}){
|
||||||
|
statpost $f
|
||||||
|
%}
|
||||||
|
<item>
|
||||||
|
<title><![CDATA[%($title%)]]></title>
|
||||||
|
<author><![CDATA[%($by%)@noreply.cat-v.org (%($by%))]]></author>
|
||||||
|
<link>%($post_uri%)</link>
|
||||||
|
<guid isPermaLink="true">%($post_uri%)</guid>
|
||||||
|
<pubDate>%($pubdate%)</pubDate>
|
||||||
|
<description> %($summary%) </description>
|
||||||
|
</item>
|
||||||
|
% }
|
||||||
|
</channel>
|
||||||
|
</rss>
|
||||||
103
werc/apps/bridge/app.rc
Executable file
103
werc/apps/bridge/app.rc
Executable file
|
|
@ -0,0 +1,103 @@
|
||||||
|
comment_file_types=(md html)
|
||||||
|
|
||||||
|
fn conf_enable_comments {
|
||||||
|
if(~ $1 -n) {
|
||||||
|
allow_new_user_comments=yes
|
||||||
|
shift
|
||||||
|
}
|
||||||
|
if not if(~ $1 -a) {
|
||||||
|
bridge_anon_comments=yes
|
||||||
|
}
|
||||||
|
enable_comments=yes
|
||||||
|
groups_allowed_comments=$*
|
||||||
|
conf_enable_app bridge
|
||||||
|
}
|
||||||
|
|
||||||
|
fn bridge_init {
|
||||||
|
if(~ $#enable_comments 1 && ! ~ `{ls $local_path.$comment_file_types >[2]/dev/null|wc -l} 0) {
|
||||||
|
|
||||||
|
comments_dir=$sitedir$req_path'_werc/comments'
|
||||||
|
if(~ $REQUEST_METHOD GET && test -d $comments_dir)
|
||||||
|
ll_add handlers_body_foot template apps/bridge/comments_list.tpl
|
||||||
|
|
||||||
|
if(check_user $groups_allowed_comments || {~ $#logged_user 0 && ~ 1 $#allow_new_user_comments $#bridge_anon_comments}) {
|
||||||
|
|
||||||
|
if(~ $#post_arg_bridge_post 1) {
|
||||||
|
ll_add handlers_body_foot template apps/bridge/foot.tpl
|
||||||
|
|
||||||
|
if(mk_new_comment $comments_dir)
|
||||||
|
post_redirect $base_url^$req_path
|
||||||
|
if not
|
||||||
|
saved_comment_text=$post_arg_comment_text
|
||||||
|
}
|
||||||
|
if not if(~ $REQUEST_METHOD GET)
|
||||||
|
ll_add handlers_body_foot template apps/bridge/foot.tpl
|
||||||
|
}
|
||||||
|
if not if(~ $REQUEST_METHOD GET)
|
||||||
|
ll_add handlers_body_foot echo '<hr><p>To post a comment you need to <a href="/_users/login">login</a> first.</p>'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn validate_new_user {
|
||||||
|
usr=$1; pass=$2; pass2=$3
|
||||||
|
_status=()
|
||||||
|
|
||||||
|
if(~ $"usr '' || ! echo $usr |sed 1q|grep -s '^'$allowed_user_chars'+$')
|
||||||
|
_status='Requested user name is invalid, must match: '^$allowed_user_chars^'+'
|
||||||
|
if not if(test -d etc/users/$usr)
|
||||||
|
_status='Sorry, user name '''^$usr^''' already taken, please pick a different one.'
|
||||||
|
|
||||||
|
if(~ $"pass '' || ! ~ $"pass $"pass2)
|
||||||
|
_status=($_status 'Provided passwords don''t match.')
|
||||||
|
|
||||||
|
status=$_status
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
fn mk_new_comment {
|
||||||
|
_status=()
|
||||||
|
dir=$1
|
||||||
|
if(~ $"post_arg_comment_text '')
|
||||||
|
_status='Provide a comment!'
|
||||||
|
if not if(~ $#logged_user 0) {
|
||||||
|
if(! ~ $#allow_new_user_comments 0) {
|
||||||
|
if(validate_new_user $"post_arg_comment_user $post_arg_comment_passwd $post_arg_comment_passwd2) {
|
||||||
|
u=$post_arg_comment_user':'$post_arg_comment_passwd
|
||||||
|
dir=$comments_dir^'_pending'
|
||||||
|
# XXX: This doesn't work because we then do a redirect.
|
||||||
|
notify_notes='Saved comment and registration info, they will be enabled when approved by an admin.'
|
||||||
|
}
|
||||||
|
if not
|
||||||
|
_status=$status
|
||||||
|
}
|
||||||
|
if not if(! ~ $#bridge_anon_comments 0) {
|
||||||
|
if(~ $"post_arg_ima_robot 'not')
|
||||||
|
u='Glenda' # Anonymous
|
||||||
|
if not
|
||||||
|
_status='You are a robot!'
|
||||||
|
}
|
||||||
|
if not
|
||||||
|
_status='You need to log in to comment.'
|
||||||
|
}
|
||||||
|
if not if(check_user $groups_allowed_comments)
|
||||||
|
u=$logged_user
|
||||||
|
if not
|
||||||
|
_status='You are not a member of a group allowed to comment.'
|
||||||
|
|
||||||
|
if(~ $#_status 0) {
|
||||||
|
umask 002
|
||||||
|
|
||||||
|
dir=$dir'/'`{date -n} # FIXME Obvious race
|
||||||
|
mkdir -m 775 -p $dir &&
|
||||||
|
echo $u > $dir/user &&
|
||||||
|
echo $current_date_time > $dir/posted &&
|
||||||
|
echo $post_arg_comment_text > $dir/body
|
||||||
|
_s=$status
|
||||||
|
if(! ~ $"_s '') {
|
||||||
|
dprint 'ERROR XXX: Could not create comment: ' $_s
|
||||||
|
_status='Could not post comment due internal error, sorry.'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
notify_errors=$_status
|
||||||
|
status=$_status
|
||||||
|
}
|
||||||
13
werc/apps/bridge/comments_list.tpl
Executable file
13
werc/apps/bridge/comments_list.tpl
Executable file
|
|
@ -0,0 +1,13 @@
|
||||||
|
<hr>
|
||||||
|
<h2>Comments</h2>
|
||||||
|
|
||||||
|
% for(c in `{ls $comments_dir/}) {
|
||||||
|
% if(test -s $c/body) {
|
||||||
|
<div class="comment">
|
||||||
|
<h5>By: <i>%(`{cat $c/user}%)</i></b> (%(`{cat $c/posted}%))
|
||||||
|
</h5>
|
||||||
|
% cat $c/body | escape_html | sed 's,$,<br>,'
|
||||||
|
<hr></div>
|
||||||
|
% }
|
||||||
|
% }
|
||||||
|
|
||||||
37
werc/apps/bridge/foot.tpl
Executable file
37
werc/apps/bridge/foot.tpl
Executable file
|
|
@ -0,0 +1,37 @@
|
||||||
|
<hr>
|
||||||
|
|
||||||
|
% notices_handler
|
||||||
|
<form action="" method="post">
|
||||||
|
<textarea name="comment_text" id="comment_text" cols="80" rows="16">%($"saved_comment_text%)</textarea>
|
||||||
|
<br>
|
||||||
|
<input type="submit" name="bridge_post" value="Post a comment">
|
||||||
|
|
||||||
|
% if(~ $#logged_user 0) {
|
||||||
|
% if(~ $#allow_new_user_comments 1) {
|
||||||
|
<label>New user name:
|
||||||
|
<input type="text" name="comment_user" value="%($"post_arg_comment_user%)">
|
||||||
|
</label>
|
||||||
|
|
||||||
|
<label>Password:
|
||||||
|
<input type="password" name="comment_passwd" value="">
|
||||||
|
</label>
|
||||||
|
|
||||||
|
<label>Repeat password:
|
||||||
|
<input type="password" name="comment_passwd2" value="">
|
||||||
|
</label>
|
||||||
|
<div style="font-size: 70%">
|
||||||
|
Enter your desired user name/password and after your comment has been reviewed by an admin it will be posted and your account will be enabled. If you are already registered please <a href="/_users/login">login</a> before posting.
|
||||||
|
</div>
|
||||||
|
% }
|
||||||
|
% if not if(~ $#bridge_anon_comments 1) {
|
||||||
|
<label>Is <a href="http://glenda.cat-v.org">Glenda a cute bunny</a>?
|
||||||
|
<select name='ima_robot'>
|
||||||
|
<option value="yes">No</option>
|
||||||
|
<option value="not">Yes</option>
|
||||||
|
<option value="foobar">I hate bunnies!</option>
|
||||||
|
<option value="robot">I'm a robot!</option>
|
||||||
|
</select>
|
||||||
|
</label>
|
||||||
|
% }
|
||||||
|
% }
|
||||||
|
</form>
|
||||||
40
werc/apps/dirdir/app.rc
Executable file
40
werc/apps/dirdir/app.rc
Executable file
|
|
@ -0,0 +1,40 @@
|
||||||
|
fn conf_enable_wiki {
|
||||||
|
enable_wiki=yes
|
||||||
|
wiki_editors_groups=$*
|
||||||
|
conf_enable_app dirdir
|
||||||
|
}
|
||||||
|
|
||||||
|
fn dirdir_init {
|
||||||
|
if(! ~ $#enable_wiki 0 && check_user $wiki_editors_groups) {
|
||||||
|
lp=$local_path
|
||||||
|
# werc.rc doesn't append /index when $local_path doesn't exist
|
||||||
|
# maybe it should, but for now we can fix it up here.
|
||||||
|
if(~ $lp */)
|
||||||
|
lp=$lp^'index'
|
||||||
|
dirdir_file=$lp.md
|
||||||
|
dirdir_dir=$dirdir_file^'_werc/dirdir/'
|
||||||
|
|
||||||
|
if(~ 1 $#post_arg_dirdir_edit $#post_arg_dirdir_preview)
|
||||||
|
handler_body_main=(tpl_handler `{get_lib_file dirdir/edit.tpl apps/dirdir/edit.tpl})
|
||||||
|
|
||||||
|
if not if(! ~ '' $"post_arg_dirdir_save $"post_arg_edit_text)
|
||||||
|
save_page
|
||||||
|
|
||||||
|
if not if(~ $"handler_body_main '' || {~ $REQUEST_METHOD GET && test -f $local_path.md})
|
||||||
|
ll_add handlers_bar_left tpl_handler apps/dirdir/sidebar_controls.tpl
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn save_page {
|
||||||
|
dirdir_verdir=$dirdir_dir/^`{date -n}^/
|
||||||
|
mkdir -p $dirdir_verdir
|
||||||
|
umask 002
|
||||||
|
|
||||||
|
# XXX Use a tmp file and mv(1) to ensure updates are atomic?
|
||||||
|
echo $logged_user > $dirdir_verdir/author
|
||||||
|
echo $post_arg_edit_text > $dirdir_verdir/data
|
||||||
|
echo $post_arg_edit_text > $dirdir_file
|
||||||
|
|
||||||
|
post_redirect $base_url^$req_path
|
||||||
|
#notify_notes='Saved <a href="'$"req_path'">'$"req_path'</a>!'
|
||||||
|
}
|
||||||
25
werc/apps/dirdir/edit.tpl
Executable file
25
werc/apps/dirdir/edit.tpl
Executable file
|
|
@ -0,0 +1,25 @@
|
||||||
|
<div>
|
||||||
|
<h1>Editing: <a href="%($req_path%)">%($req_path%)</a></h1>
|
||||||
|
<br>
|
||||||
|
<form action="" method="POST">
|
||||||
|
<textarea name="edit_text" id="edit_text" cols="80" rows="43">%{
|
||||||
|
# FIXME Extra trailing new lines get added to the content somehow, should avoid it.
|
||||||
|
if(~ $#post_arg_edit_text 0 && test -f $dirdir_file)
|
||||||
|
cat $dirdir_file | escape_html
|
||||||
|
if not
|
||||||
|
echo -n $post_arg_edit_text | escape_html
|
||||||
|
|
||||||
|
%}</textarea>
|
||||||
|
<br>
|
||||||
|
<input type="submit" name="dirdir_save" value="Save">
|
||||||
|
<input type="submit" name="dirdir_preview" value="Preview">
|
||||||
|
<small>DirDir documents are written using <a href="http://daringfireball.net/projects/markdown/syntax">Markdown syntax</a>.</small>
|
||||||
|
</form>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
% if(! ~ $"post_arg_dirdir_preview '') {
|
||||||
|
<h2>Preview:</h2>
|
||||||
|
<div id="preview">
|
||||||
|
% echo $post_arg_edit_text | $formatter
|
||||||
|
</div>
|
||||||
|
% }
|
||||||
3
werc/apps/dirdir/sidebar_controls.tpl
Executable file
3
werc/apps/dirdir/sidebar_controls.tpl
Executable file
|
|
@ -0,0 +1,3 @@
|
||||||
|
<form action="" method="POST">
|
||||||
|
<input type="submit" name="dirdir_edit" value="Edit page" />
|
||||||
|
</form>
|
||||||
20
werc/apps/duckduckgo/HOWTO
Normal file
20
werc/apps/duckduckgo/HOWTO
Normal file
|
|
@ -0,0 +1,20 @@
|
||||||
|
The default path for site search is /_search/. Assuming you want to keep
|
||||||
|
that default, you could enable site search like so:
|
||||||
|
|
||||||
|
|
||||||
|
mkdir -p /www/werc/sites/MYSITE/_search/_werc/
|
||||||
|
echo 'conf_enable_duckduckgo' > /www/werc/sites/MYSITE/_search/_werc/config
|
||||||
|
mkdir -p /www/werc/sites/MYSITE/_werc/lib/
|
||||||
|
cp /www/werc/apps/duckduckgo/footer.inc.sample /www/werc/sites/MYSITE/_werc/lib/footer.inc
|
||||||
|
|
||||||
|
Searches will POST to /_search/ and from there get redirected to Duck Duck
|
||||||
|
Go with a site:$SERVER_NAME prefix. To have the search path URL be some-
|
||||||
|
thing different, you'll have to edit line 23 of app.rc to point to the new
|
||||||
|
path.
|
||||||
|
|
||||||
|
TODO:
|
||||||
|
* Make it automatically work no matter which directory the app is enabled in.
|
||||||
|
* OR make the search path a configuration option.
|
||||||
|
* Provide a template for non-footer deployment
|
||||||
|
* Enable the search path itself to serve a search form to GET requests
|
||||||
|
|
||||||
30
werc/apps/duckduckgo/app.rc
Executable file
30
werc/apps/duckduckgo/app.rc
Executable file
|
|
@ -0,0 +1,30 @@
|
||||||
|
fn conf_enable_duckduckgo {
|
||||||
|
enable_duckduckgo=yes
|
||||||
|
conf_enable_app duckduckgo
|
||||||
|
pageTitle='Site Search'
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
fn duckduckgo_init {
|
||||||
|
get_post_args q
|
||||||
|
if (! ~ $#q 0) {
|
||||||
|
redirect_string = 'https://duckduckgo.com/?q=site:'$SERVER_NAME^'+'^$"q
|
||||||
|
http_redirect $redirect_string '302 Found'
|
||||||
|
}
|
||||||
|
if not {
|
||||||
|
handler_body_main='duckduckgo_body'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn duckduckgo_body {
|
||||||
|
echo '
|
||||||
|
<h1>Site search</h1>
|
||||||
|
<h2>using DuckDuckGo</h2>
|
||||||
|
<form action="/_search/" method="POST">
|
||||||
|
<label for="searchtext">Site search:</label>
|
||||||
|
<input type="text" id="searchtext" name="q" placeholder="Search text...">
|
||||||
|
<input type="submit" value="Search">
|
||||||
|
</form>'
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
3
werc/apps/duckduckgo/footer.inc.sample
Normal file
3
werc/apps/duckduckgo/footer.inc.sample
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
<div><a href="http://werc.cat-v.org">Powered by werc</a></div>
|
||||||
|
|
||||||
|
<div><form action="/_search/" method="POST"><label for="searchtext">Site search:</label> <input type="text" id="searchtext" name="q" placeholder="Enter search text..."><input type="submit" display="Search"></form></div>
|
||||||
10
werc/apps/hello/app.rc
Executable file
10
werc/apps/hello/app.rc
Executable file
|
|
@ -0,0 +1,10 @@
|
||||||
|
fn hello_init {
|
||||||
|
if(~ $req_path /hello) {
|
||||||
|
handler_body_main='hello_body'
|
||||||
|
pageTitle='Hi title!'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn hello_body {
|
||||||
|
echo 'Hello world!'
|
||||||
|
}
|
||||||
45
werc/apps/paste/app.rc
Executable file
45
werc/apps/paste/app.rc
Executable file
|
|
@ -0,0 +1,45 @@
|
||||||
|
fn conf_enable_wercpaste {
|
||||||
|
paste_url=$conf_wd
|
||||||
|
if (~ $#paste_dir 0) { paste_dir=`{pwd} }
|
||||||
|
conf_enable_app wercpaste
|
||||||
|
}
|
||||||
|
|
||||||
|
fn wercpaste_init {
|
||||||
|
if (~ $REQUEST_METHOD POST && ~ $post_arg_url url && ~ $req_path $paste_url ) { # incoming paste
|
||||||
|
now=`{ date -n }
|
||||||
|
cksum=`{ echo $"post_arg_paste | sum | awk '{ print $1 }' }
|
||||||
|
if (~ $cksum '1715a8eb' ) { # empty paste; discard
|
||||||
|
post_redirect $base_url^$paste_url
|
||||||
|
}
|
||||||
|
if not { # save and redirect
|
||||||
|
# TODO: stop using echo
|
||||||
|
# env var size limit is 16kb, this thing dies with larger input.
|
||||||
|
echo $"post_arg_paste > $paste_dir^/^$now^.^$cksum
|
||||||
|
# uncomment the following line to redirect to the pasted file
|
||||||
|
#post_redirect $base_url^$paste_url^$now^.^$cksum
|
||||||
|
# uncomment the following line instead to just return the url
|
||||||
|
echo 'Content-type: text/plain'; echo ''; exec echo $base_url^$paste_url^$now^.^$cksum
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if not { # show a paste if there is one
|
||||||
|
if (test -r $werc_root/$local_path && ~ $QUERY_STRING raw ) {
|
||||||
|
echo 'Content-type: text/plain'; echo ''; exec cat $werc_root/$local_path
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# drop a textbox
|
||||||
|
if (~ $REQUEST_METHOD GET ) { handler_body_main='begforpaste' }
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
fn begforpaste {
|
||||||
|
echo '<article class="pastebox">
|
||||||
|
<h3 style="text-align: center">pasted data is not publically indexed</h3>
|
||||||
|
<form action="'$paste_url'" method="post" style="margin:2em">
|
||||||
|
<textarea name="paste" cols="120" rows="20" required style="display: block; margin: 0 auto 0 auto" ></textarea><br>
|
||||||
|
<input type="submit" name="submit" value="SUBMIT" style="display: block; margin: 0 auto 0 auto" ><br><br>
|
||||||
|
<span style="display: none"><input type="text" name="url" value="url" > (do not change) </span>
|
||||||
|
</form>
|
||||||
|
</article>
|
||||||
|
'
|
||||||
|
}
|
||||||
89
werc/apps/wman/app.rc
Executable file
89
werc/apps/wman/app.rc
Executable file
|
|
@ -0,0 +1,89 @@
|
||||||
|
fn conf_enable_wman {
|
||||||
|
wman_tmac=an
|
||||||
|
wman_base_uri=$conf_wd
|
||||||
|
wman_man_path=$*
|
||||||
|
if(~ $#wman_man_path 0)
|
||||||
|
wman_man_path=$wman_base_uri
|
||||||
|
conf_enable_app wman
|
||||||
|
}
|
||||||
|
|
||||||
|
wman_junk_filter='/(\/(INDEX|\.cvsignore|_.*)|\.9p|\.html)$/d; s!/man([0-9]+/[^/]+)$!/\1!; '
|
||||||
|
fn wman_ls_pages {
|
||||||
|
ls $* \
|
||||||
|
| sed $dirfilter^$wman_junk_filter^' s/\.([0-9]|9p)$//; s!/0intro$!/intro!' \
|
||||||
|
| sort -u
|
||||||
|
}
|
||||||
|
fn wman_init {
|
||||||
|
ifs=$ifs^'/' { p=`{echo $req_path | sed 's!^'^$wman_base_uri^'!!'} }
|
||||||
|
wman_cat=$p(1)
|
||||||
|
wman_page=$p(2)
|
||||||
|
if(~ $#wman_unix_mode 1) {
|
||||||
|
wman_cp='man'
|
||||||
|
wman_pe=.^$"wman_cat
|
||||||
|
}
|
||||||
|
|
||||||
|
if(! ~ $"wman_cat '') {
|
||||||
|
wman_cat_path=$wman_man_path^/^$"wman_cp^$p(1)
|
||||||
|
if(! ~ $"wman_page '') {
|
||||||
|
wman_page_file=$wman_page^$"wman_pe
|
||||||
|
# Hack to handle 0intro files.
|
||||||
|
if(~ $wman_page intro && test -f $wman_cat_path^/0^$"wman_page_file)
|
||||||
|
wman_page_file=0^$"wman_page_file
|
||||||
|
wman_page_file=$wman_cat_path^/^$"wman_page_file
|
||||||
|
x=`{echo $"req_path|sed 's%.*/([^/]+)/'$"wman_cat'/'^$"wman_page^'%\1%; s%_% %g'}
|
||||||
|
pageTitle=$wman_page' page from Section '$wman_cat' of the '^$"x' manual'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
wman_cat_list=`{ls -F $wman_man_path/*/ \
|
||||||
|
| sed -e $wman_junk_filter -e 's!.*/([^/]+)/[^/]+$!\1!; /[0-9]+/!d' \
|
||||||
|
| sort -un}
|
||||||
|
|
||||||
|
synth_paths=($wman_base_uri$wman_cat_list'/')
|
||||||
|
|
||||||
|
if(~ $req_path $wman_base_uri && ~ $"handler_body_main '')
|
||||||
|
handler_body_main=(tpl_handler apps/wman/section_list.tpl)
|
||||||
|
if not if(~ $req_path $wman_base_uri^*) {
|
||||||
|
#^*/[a-z0-9]*[a-z]* $wman_base_uri^*/*[a-z]*[a-z0-9] $wman_base_uri^*/[a-z])
|
||||||
|
if(echo $req_path | grep -s '^'^$wman_base_uri^'/*[0-9]+/[0-9a-z\-\+\.]+$')
|
||||||
|
if(test -f $wman_page_file) # Check for 404
|
||||||
|
handler_body_main=(tpl_handler apps/wman/man_page.tpl)
|
||||||
|
if not if(~ $req_path $wman_base_uri^*/)
|
||||||
|
handler_body_main=(tpl_handler apps/wman/page_list.tpl)
|
||||||
|
if not if(~ $p(2) [A-Z]* [0-9][A-Z]*) # Correct badly capitalized links
|
||||||
|
perm_redirect $wman_base_uri^$p(1)^/^`{echo $p(2) |tr 'A-Z' 'a-z'}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Search
|
||||||
|
ll_add handlers_body_head tpl_handler apps/wman/search.tpl
|
||||||
|
if(! ~ $"post_arg_wman_search '') {
|
||||||
|
s=`{echo $post_arg_wman_search | sed 's/[^a-zA-Z0-9\-\.]+//g; s/\.+/./g; 1q'}
|
||||||
|
ifs='' { wman_search_results=`{wman_ls_pages $wman_man_path/*/*^$"s^*} }
|
||||||
|
if(! ~ $"post_arg_go '' && ~ `{echo -n $wman_search_results|wc -l} 1)
|
||||||
|
post_redirect $wman_base_uri^`{echo $wman_search_results|awk -F/ '{print $(NF-1)"/"$NF}'}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
fn wman_get_section_desc {
|
||||||
|
cat $wman_man_path/^$"wman_cp^$1/0intro* >[2]/dev/null| sed '1,2d; s!intro \\- [Ii]ntroduction to !!; 3q;'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn wman_page_gen {
|
||||||
|
#troff -manhtml $1| troff2html -t 'Plan 9 from User Space'
|
||||||
|
troff -N -m$wman_tmac $1 | wman_out_filter
|
||||||
|
}
|
||||||
|
|
||||||
|
fn wman_out_filter {
|
||||||
|
wman_default_out_filter
|
||||||
|
}
|
||||||
|
|
||||||
|
fn wman_default_out_filter {
|
||||||
|
# col -x syntax is the same for UNIX and Plan 9.
|
||||||
|
escape_html \
|
||||||
|
| sed 's!([\.\-a-zA-Z0-9]+)\(('^`{echo $wman_cat_list|tr ' ' '|'}^')\)!<a href="../\2/\1">&</a>!g' \
|
||||||
|
| awk '/^$/ {if(n != 1) print; n=1; next} /./ {n=0; print}' \
|
||||||
|
| col -x
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
3
werc/apps/wman/man_page.tpl
Executable file
3
werc/apps/wman/man_page.tpl
Executable file
|
|
@ -0,0 +1,3 @@
|
||||||
|
<pre>
|
||||||
|
% wman_page_gen $wman_page_file
|
||||||
|
</pre>
|
||||||
11
werc/apps/wman/page_list.tpl
Executable file
11
werc/apps/wman/page_list.tpl
Executable file
|
|
@ -0,0 +1,11 @@
|
||||||
|
% d=`{wman_get_section_desc $wman_cat}
|
||||||
|
<h1>Manual pages - Section %($wman_cat%): %($"d%)</h1>
|
||||||
|
|
||||||
|
<ul style="float:left">
|
||||||
|
%{
|
||||||
|
wman_ls_pages $wman_cat_path \
|
||||||
|
| awk -F/ '{ print "<li><a href=\""$(NF)"\">"$(NF)"</a></li>" }
|
||||||
|
NR%20 == 0 { print "</ul><ul style=\"float: left\">" }'
|
||||||
|
%}
|
||||||
|
</ul>
|
||||||
|
|
||||||
20
werc/apps/wman/search.tpl
Executable file
20
werc/apps/wman/search.tpl
Executable file
|
|
@ -0,0 +1,20 @@
|
||||||
|
<form action="" method="POST">
|
||||||
|
<fieldset>
|
||||||
|
<input type="text" name="wman_search" value="%($"s%)" />
|
||||||
|
<input type="submit" name="go" value="Feel Lucky" />
|
||||||
|
<input type="submit" value="Search" />
|
||||||
|
|
||||||
|
% if(! ~ $"post_arg_wman_search '') {
|
||||||
|
% if(~ $"wman_search_results '') {
|
||||||
|
No matches found for <i>'%($post_arg_wman_search%)'</i>.
|
||||||
|
% }
|
||||||
|
% if not {
|
||||||
|
<ul>
|
||||||
|
% echo $wman_search_results|awk -F/ '$(NF-1) ~ "^[0-9]+$" {printf "<li><a href=\"'$wman_base_uri'%s/%s\" />%s(%s)</a></li>", $(NF-1),$NF, $NF, $(NF-1)}'
|
||||||
|
</ul>
|
||||||
|
% }
|
||||||
|
% }
|
||||||
|
|
||||||
|
</fieldset>
|
||||||
|
</form>
|
||||||
|
|
||||||
11
werc/apps/wman/section_list.tpl
Executable file
11
werc/apps/wman/section_list.tpl
Executable file
|
|
@ -0,0 +1,11 @@
|
||||||
|
<h1>Manual Sections</h1>
|
||||||
|
|
||||||
|
<ul style="text-transform: capitalize;">
|
||||||
|
% for(c in $wman_cat_list) {
|
||||||
|
<li><a href="%($c%)/"><b>Section: %($c%)</b></a>
|
||||||
|
% wman_get_section_desc $c
|
||||||
|
% if(~ $status '' '|')
|
||||||
|
% echo '(<a href="'$c'/intro">intro</a>)'
|
||||||
|
</li>
|
||||||
|
% }
|
||||||
|
</ul>
|
||||||
45
werc/apps/xibit/README
Normal file
45
werc/apps/xibit/README
Normal file
|
|
@ -0,0 +1,45 @@
|
||||||
|
Xibit (tibix) - the image gallery generator for werc
|
||||||
|
Xibit can:
|
||||||
|
- generate thumbnails from almost any picture format
|
||||||
|
- generate preview images with captions
|
||||||
|
- display them (rather brokenly for now)
|
||||||
|
|
||||||
|
|
||||||
|
Dependencies:
|
||||||
|
- Plan9port
|
||||||
|
- Imagemagick
|
||||||
|
- werc
|
||||||
|
|
||||||
|
|
||||||
|
To make it work:
|
||||||
|
1, clone the git repo at git://home.9souldier.org/xibit into $werc_root/apps
|
||||||
|
2, pick a directory to serve the gallery from
|
||||||
|
3, create an _werc and _werc/xibit directory in there, the xibit directory needs to be writable by the webserver to generate the thumbnails (at one point i'll probably make a cronjob, and then this will be optional)
|
||||||
|
4, create an _werc/config file (readable by the webserver), that contains the options for xibit
|
||||||
|
5, add xibit to the enabled_apps in initrc.local (or the local per-directory config file)
|
||||||
|
That should get you going.
|
||||||
|
|
||||||
|
to use captions just create a directory in GALLERY/_werc/xibit called captions, make it readable by the weberver and add the captions as files, using the following naming convention:
|
||||||
|
image.imageextension.md
|
||||||
|
the caption handler accepts markdown formatting
|
||||||
|
|
||||||
|
to enable comments add the comments handler (bridge) to the enabled apps, it'll (should) automatically work with xibit
|
||||||
|
|
||||||
|
Config options:
|
||||||
|
- fmts:
|
||||||
|
file extensions recognised
|
||||||
|
ex. fmts=(jpg gif png svg)
|
||||||
|
- thumbsize:
|
||||||
|
size of thumbnails to generate, accepts
|
||||||
|
ex. thumbsize='140x'
|
||||||
|
- previewsize:
|
||||||
|
size of the previews to generate
|
||||||
|
ex. previewsize='x460'
|
||||||
|
|
||||||
|
check_user:
|
||||||
|
Enforce authentication
|
||||||
|
This has been ripped out of the xibit code, if you want to enable perms enforcing, you should add the following to your config:
|
||||||
|
if ( ! check_user) { #if fyou want to enforce per-group permissions, do "if( ! check_user $group) {"
|
||||||
|
enabled_apps=() #maybe you want to leave some apps on, i just do this on a per-directory besis
|
||||||
|
handler_body_main=(echo '<a href="/_users/login">please log in</a>')
|
||||||
|
}
|
||||||
5
werc/apps/xibit/TODO
Normal file
5
werc/apps/xibit/TODO
Normal file
|
|
@ -0,0 +1,5 @@
|
||||||
|
features:
|
||||||
|
- details list index - filenames with creation, etc..
|
||||||
|
- if format is image format but not one recognised by browsers, convert it to png for preview and thumbnail viewing
|
||||||
|
|
||||||
|
nice css @ http://www.area17.com/03_work/nove/photography/ and http://www.sergiojuncos.com/usa2008/large-2.html and http://jmcpherson.org/photoblog/index.php
|
||||||
91
werc/apps/xibit/app.rc
Executable file
91
werc/apps/xibit/app.rc
Executable file
|
|
@ -0,0 +1,91 @@
|
||||||
|
#xibit is an app that generates image galeries for werc.
|
||||||
|
#the license the mit license, see the license file in the distribution's root directory
|
||||||
|
#until the time i change my mind
|
||||||
|
#comments and suggestions can come to http://redmine.9souldier.org/projects/xibit0/issues/new or johnny@9souldier.org
|
||||||
|
|
||||||
|
fn conf_enable_xibit {
|
||||||
|
xibit_uri=$conf_wd
|
||||||
|
conf_enable_app xibit
|
||||||
|
}
|
||||||
|
|
||||||
|
fn xibit_init {
|
||||||
|
xibit_root=$sitedir$"xibit_uri
|
||||||
|
#SOMEONE PLEASE FIXME if(! ~ $#xibit_uri 0 && test '( -d '^$"xibit_root^'/_werc/xibit ) -a ( -w '^$"xibit_root^'/_werc/xibit )' && convert -help > /dev/null) {
|
||||||
|
if(! ~ $#xibit_uri 0 && test -d $"xibit_root/_werc/xibit && test -w $"xibit_root/_werc/xibit && which convert > /dev/null) {
|
||||||
|
xibitdir=$xibit_root^/_werc/xibit
|
||||||
|
xibit_uri_file=`{echo $req_path |sed 's,^.*/([^/]+)$,\1,g'}
|
||||||
|
mkdir -p $"xibitdir/previews
|
||||||
|
mkdir -p $"xibitdir/thumbs
|
||||||
|
extraHeaders=($extraHeaders '<style>' `{cat apps/xibit/xibit.css} '</style>')
|
||||||
|
if( ~ $"req_path */index */)
|
||||||
|
handler_body_main=xibit_thumb_handler
|
||||||
|
if not {
|
||||||
|
xibit_img=`{echo $req_path |sed 's,^.*/([^/]+)(\.[^\.]+)?$,\1,g'}
|
||||||
|
for(pic in $xibit_img.^$fmts){
|
||||||
|
if(test -f $xibit_root/^$pic)
|
||||||
|
handler_body_main=xibit_img_handler
|
||||||
|
}
|
||||||
|
if ( ~ $#handler_body_main 0 )
|
||||||
|
status='xibit cant to anything here'
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn xibit_thumb_handler {
|
||||||
|
cd $xibit_root
|
||||||
|
xibitdir=_werc/xibit
|
||||||
|
rm $"xibitdir/dirstat.md5.tmp > /dev/null >[2] /dev/null
|
||||||
|
if( ! ~ `{ls -l |md5sum |tee $xibitdir/dirstat.md5.tmp} `{cat $xibitdir/dirstat.md5}) {
|
||||||
|
mv $xibitdir/dirstat.md5.tmp $xibitdir/dirstat.md5
|
||||||
|
for(pic in `{ls *.^$fmts >[2] /dev/null}) {
|
||||||
|
if( ! test -f $"xibitdir/thumbs/^$"pic )
|
||||||
|
convert $pic -resize $thumbsize $xibitdir/thumbs/^$pic
|
||||||
|
if( ! test -f $"xibitdir/previews/^$"pic )
|
||||||
|
convert $pic -resize $previewsize $xibitdir/previews/^$pic
|
||||||
|
|
||||||
|
xibit_pics=($xibit_pics $pic)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if not
|
||||||
|
for(pic in `{ls *.^$fmts >[2] /dev/null})
|
||||||
|
xibit_pics=($xibit_pics $pic)
|
||||||
|
rm $xibitdir/dirstat.md5.tmp > /dev/null >[2] /dev/null
|
||||||
|
cd $werc_root
|
||||||
|
|
||||||
|
if( ! ~ $req_path */details )
|
||||||
|
template apps/xibit/thumbs.tpl
|
||||||
|
if not
|
||||||
|
template apps/xibit/details.tpl
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
fn xibit_img_handler {
|
||||||
|
cd $xibit_root
|
||||||
|
for(file in $xibit_uri_file.^$fmts) {
|
||||||
|
if( test -f $file) {
|
||||||
|
xibit_img=`{echo $file |sed 's,^.*/([^/]+),\1,g'}
|
||||||
|
xibit_preview=_werc/xibit/previews/^$xibit_img
|
||||||
|
if (test -r _werc/xibit/captions/^$xibit_img^.md)
|
||||||
|
xibit_caption_file=$xibitdir^/captions/^$xibit_img^.md
|
||||||
|
xibit_nextpic=`{next_pic $xibit_img}
|
||||||
|
xibit_prevpic=`{prev_pic $xibit_img}
|
||||||
|
dprint $xibit_nextpic $xibit_prevpic
|
||||||
|
cd $werc_root
|
||||||
|
}
|
||||||
|
}
|
||||||
|
cd $werc_root
|
||||||
|
xibit_thumb_handler
|
||||||
|
}
|
||||||
|
|
||||||
|
fn prev_pic {
|
||||||
|
findre='/^'^$1^'$/!h; /^'^$1^'$/!d; /^'^$1^'$/g;'
|
||||||
|
if( ! ls -F |sed 1q |grep -s $1 )
|
||||||
|
ls -F |grep -v '_werc' | sed 's,\*$,,g; /\$/d; s,'',,g' | sed $"findre^'; s,\.[^\.]+$,,'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn next_pic {
|
||||||
|
findre='/^'^$1^'$/!d; /^'^$1^'/n; p'
|
||||||
|
if( ! ls -F |tail -1 |grep -s $1 )
|
||||||
|
ls -F |grep -v '_werc' | sed 's,\*$,,g; /\/$/d; s,'',,g' | sed -n $"findre |sed 's,\.[^\.]+$,,'
|
||||||
|
}
|
||||||
|
|
||||||
14
werc/apps/xibit/details.tpl
Normal file
14
werc/apps/xibit/details.tpl
Normal file
|
|
@ -0,0 +1,14 @@
|
||||||
|
<div class="images-details">
|
||||||
|
<ul>
|
||||||
|
% for (pic in $xibit_pics) {
|
||||||
|
<li>
|
||||||
|
<a href="
|
||||||
|
% echo $pic |sed 's,(.*)\..+$,\1,g'
|
||||||
|
" class="thumb" >
|
||||||
|
<img src="%( $xibit_thumbsdir^/^$pic %)" class="thumb"/>
|
||||||
|
</a>
|
||||||
|
% identify $xibit_urlroot/^$pic |awk '{print $4}'
|
||||||
|
</li>
|
||||||
|
% }
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
21
werc/apps/xibit/image.tpl
Normal file
21
werc/apps/xibit/image.tpl
Normal file
|
|
@ -0,0 +1,21 @@
|
||||||
|
<div id="main-img">
|
||||||
|
% if ( ! ~ $#xibit_prevpic 0) {
|
||||||
|
<a href="%($xibit_prevpic%)#main-img">Previous</a>
|
||||||
|
% }
|
||||||
|
% if ( ! ~ $#xibit_nextpic 0 && ! ~ $#xibit_prevpic 0 ) {
|
||||||
|
/
|
||||||
|
% }
|
||||||
|
% if ( ! ~ $#xibit_nextpic 0) {
|
||||||
|
<a href="%($xibit_nextpic%)#main-img">Next</a>
|
||||||
|
% }
|
||||||
|
<div class="main-img" id="mainpic">
|
||||||
|
<a href="%($xibit_img%)">
|
||||||
|
<img src="%($xibit_preview%)" />
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
% if ( ! ~ $#xibit_caption_file 0) {
|
||||||
|
<div class="caption">
|
||||||
|
% md_handler $xibit_caption_file
|
||||||
|
</div>
|
||||||
|
% }
|
||||||
|
</div>
|
||||||
19
werc/apps/xibit/license
Normal file
19
werc/apps/xibit/license
Normal file
|
|
@ -0,0 +1,19 @@
|
||||||
|
Copyright (c) 2009 John Soros
|
||||||
|
|
||||||
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
|
in the Software without restriction, including without limitation the rights
|
||||||
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||||
|
copies of the Software, and to permit persons to whom the Software is
|
||||||
|
furnished to do so, subject to the following conditions:
|
||||||
|
|
||||||
|
The above copyright notice and this permission notice shall be included in
|
||||||
|
all copies or substantial portions of the Software.
|
||||||
|
|
||||||
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||||
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||||
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
||||||
|
THE SOFTWARE.
|
||||||
11
werc/apps/xibit/thumbs.tpl
Normal file
11
werc/apps/xibit/thumbs.tpl
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
% for (pic in $xibit_pics){
|
||||||
|
% picnoext=`{echo $pic |sed 's,(.*)\..+$,\1,g'}
|
||||||
|
% if(! ~ $pic $xibit_img) {
|
||||||
|
<a href="%($picnoext%)#main-img" class="thumb" >
|
||||||
|
<img src="%( _werc/xibit/thumbs/^$pic %)" class="thumb"/>
|
||||||
|
</a>
|
||||||
|
% }
|
||||||
|
% if not {
|
||||||
|
% template apps/xibit/image.tpl
|
||||||
|
% }
|
||||||
|
% }
|
||||||
17
werc/apps/xibit/xibit.css
Normal file
17
werc/apps/xibit/xibit.css
Normal file
|
|
@ -0,0 +1,17 @@
|
||||||
|
.thumbs-index {
|
||||||
|
float: right;
|
||||||
|
clear: none;
|
||||||
|
white-space: nowrap;
|
||||||
|
}
|
||||||
|
.thumb {
|
||||||
|
clear: none;
|
||||||
|
width: auto;
|
||||||
|
height: auto;
|
||||||
|
padding: 5px;
|
||||||
|
border: 2px;
|
||||||
|
display: inline;
|
||||||
|
}
|
||||||
|
#main-img {
|
||||||
|
text-align: center;
|
||||||
|
clear: none;
|
||||||
|
}
|
||||||
33
werc/bin/aux/addwuser.rc
Executable file
33
werc/bin/aux/addwuser.rc
Executable file
|
|
@ -0,0 +1,33 @@
|
||||||
|
#!/bin/rc
|
||||||
|
|
||||||
|
if(! ~ $#werc_root 0)
|
||||||
|
cd $werc_root
|
||||||
|
|
||||||
|
fn usage {
|
||||||
|
if(! ~ $#* 0)
|
||||||
|
echo $0: $* >[1=2]
|
||||||
|
echo 'Usage:' $0 'user_name user_password [groups ...]' >[1=2]
|
||||||
|
exit usage
|
||||||
|
}
|
||||||
|
|
||||||
|
if(! test -d etc/users/)
|
||||||
|
usage 'Run for root of werc installation or set $werc_root'
|
||||||
|
|
||||||
|
user_name=$1
|
||||||
|
shift
|
||||||
|
user_pass=$1
|
||||||
|
shift
|
||||||
|
user_groups=$*
|
||||||
|
|
||||||
|
if(~ $"user_name '' || ~ $"user_pass '')
|
||||||
|
usage
|
||||||
|
|
||||||
|
mkdir etc/users/$user_name
|
||||||
|
echo $user_pass > etc/users/$user_name/password
|
||||||
|
|
||||||
|
if(! ~ $#user_groups 0)
|
||||||
|
for(g in $user_groups) {
|
||||||
|
mkdir -p etc/users/$g
|
||||||
|
echo $user_name >> etc/users/$g/members
|
||||||
|
}
|
||||||
|
|
||||||
64
werc/bin/aux/bpst.rc
Executable file
64
werc/bin/aux/bpst.rc
Executable file
|
|
@ -0,0 +1,64 @@
|
||||||
|
#!/bin/rc
|
||||||
|
|
||||||
|
path=( $PLAN9/bin $path )
|
||||||
|
base=.
|
||||||
|
|
||||||
|
if(~ $#user 0)
|
||||||
|
user=`{whoami}
|
||||||
|
|
||||||
|
file=(); title=();
|
||||||
|
bloguser=$user
|
||||||
|
while(! ~ $#* 0) {
|
||||||
|
switch($1) {
|
||||||
|
case -u
|
||||||
|
base=/gsoc/www/people/$user/blog/
|
||||||
|
case -b
|
||||||
|
shift
|
||||||
|
base=$1
|
||||||
|
case -f
|
||||||
|
shift
|
||||||
|
file=$1
|
||||||
|
}
|
||||||
|
shift
|
||||||
|
}
|
||||||
|
|
||||||
|
if(~ $"EDITOR '')
|
||||||
|
EDITOR=vi
|
||||||
|
|
||||||
|
if(~ $#file 0 || ! test -f $file) {
|
||||||
|
file=/tmp/blogtmp.$pid
|
||||||
|
rm $file >[2]/dev/null
|
||||||
|
touch $file
|
||||||
|
}
|
||||||
|
|
||||||
|
$EDITOR $file
|
||||||
|
aspell -c $file
|
||||||
|
rm $file.bak >[2]/dev/null
|
||||||
|
|
||||||
|
fn mkbpost {
|
||||||
|
umask 002 # Let group write
|
||||||
|
bptext=$1
|
||||||
|
if(! ~ $#2 0)
|
||||||
|
bpid=`{echo -n '-'^$"bpid | sed 's/'$forbidden_uri_chars'+/_/g; 1q'}
|
||||||
|
d=`{/bin/date +%F|sed 's,-,/,g'}
|
||||||
|
|
||||||
|
ddir=$blagh_root^$d^'/'
|
||||||
|
n=`{ls $ddir >[2]/dev/null |wc -l}
|
||||||
|
|
||||||
|
mkdir -p $ddir/$"n^$"bpid/
|
||||||
|
{
|
||||||
|
# TODO: Enable metadata
|
||||||
|
#echo '* Posted:' `{date}
|
||||||
|
#if(! ~ $#logged_user 0)
|
||||||
|
# echo '* Author: '$logged_user
|
||||||
|
cat $bptext
|
||||||
|
}> $ddir/$"n^$"bpid/index.md
|
||||||
|
}
|
||||||
|
|
||||||
|
forbidden_uri_chars='[^a-zA-Z0-9_+\-\/\.]'
|
||||||
|
blagh_root=$base
|
||||||
|
|
||||||
|
if(test -s $file)
|
||||||
|
mkbpost $file
|
||||||
|
if not
|
||||||
|
echo Empty file!
|
||||||
14
werc/bin/aux/gensitemaptxt.rc
Executable file
14
werc/bin/aux/gensitemaptxt.rc
Executable file
|
|
@ -0,0 +1,14 @@
|
||||||
|
#!/bin/rc
|
||||||
|
# DEPRECATED: sitemap.tpl now generates and updates a sitemap.txt when requested, and is also more smart than this simplistic script.
|
||||||
|
|
||||||
|
for(d in sites/*/) {
|
||||||
|
echo $d
|
||||||
|
9 du -a $d | awk '/\.(md|html)$/ { print $2 }; {}' | 9 sed -e 's/\.(md|html)$//' -e 's,/index$,/,' -e 's,^sites/,http://,' > $d/sitemap.txt
|
||||||
|
|
||||||
|
if(! test -f $d/robots.txt) {
|
||||||
|
echo generating missing robots.txt for $d
|
||||||
|
echo $d|sed 's,sites/,Sitemap: http://,; s/$/sitemap.txt/;' > $d/robots.txt
|
||||||
|
cat $d/robots.txt
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
16
werc/bin/aux/runtsts.rc
Executable file
16
werc/bin/aux/runtsts.rc
Executable file
|
|
@ -0,0 +1,16 @@
|
||||||
|
#!/bin/rc
|
||||||
|
|
||||||
|
tstdom='http://test.cat-v.org'
|
||||||
|
|
||||||
|
cd sites/tst.cat-v.org
|
||||||
|
|
||||||
|
tstfiles=`{du -a |awk '/\.tst$/ { print $2 }; {} ' | sed 's/^\.//; s/\.tst$//'}
|
||||||
|
|
||||||
|
for(f in $tstfiles) {
|
||||||
|
ifs='
|
||||||
|
' { tsts=`{cat ./$f.tst} }
|
||||||
|
|
||||||
|
for(t in $tsts) {
|
||||||
|
echo tst $t
|
||||||
|
}
|
||||||
|
}
|
||||||
236
werc/bin/cgilib.rc
Executable file
236
werc/bin/cgilib.rc
Executable file
|
|
@ -0,0 +1,236 @@
|
||||||
|
# Useful CGI stuff
|
||||||
|
|
||||||
|
fn dprint { echo $* >[1=2] }
|
||||||
|
fn dprintv { { for(v in $*) { echo -n $v^'#'^$#$v^'=' $$v '; ' }; echo } >[1=2] }
|
||||||
|
fn echo {if(! ~ $1 -n || ! ~ $2 '') /bin/echo $*}
|
||||||
|
fn escape_html { sed 's/&/\&/g; s/</\</g; s/>/\>/g' $* }
|
||||||
|
|
||||||
|
fn http_redirect {
|
||||||
|
if(~ $1 http://* https://*)
|
||||||
|
t=$1
|
||||||
|
if not if(~ $1 /*)
|
||||||
|
t=$"base_url^$1
|
||||||
|
if not
|
||||||
|
t=$"base_url^$"req_path^$1
|
||||||
|
exec /bin/echo 'Status: '^$2^'
|
||||||
|
Location: '^$t^'
|
||||||
|
|
||||||
|
'
|
||||||
|
exit
|
||||||
|
}
|
||||||
|
fn perm_redirect { http_redirect $1 '301 Moved Permanantly' }
|
||||||
|
fn post_redirect { http_redirect $1 '303 See Other' }
|
||||||
|
|
||||||
|
|
||||||
|
# Note: should check if content type is application/x-www-form-urlencoded?
|
||||||
|
# Should compare with http://www.shelldorado.com/scripts/cmds/urlgetopt.txt
|
||||||
|
fn load_post_args {
|
||||||
|
if(~ $REQUEST_METHOD POST && ~ $#post_args 0) {
|
||||||
|
ifs='&
|
||||||
|
' for(pair in `{cat}) {
|
||||||
|
ifs='=' { pair=`{echo -n $pair} }
|
||||||
|
n='post_arg_'^`{echo $pair(1)|nurldecode|tr -cd 'a-zA-Z0-9_'}
|
||||||
|
post_args=( $post_args $n )
|
||||||
|
ifs=() { $n=`{echo -n $pair(2)|nurldecode|tr -d '
'} }
|
||||||
|
}
|
||||||
|
pair=()
|
||||||
|
}
|
||||||
|
if not
|
||||||
|
status='No POST or post args already loaded'
|
||||||
|
}
|
||||||
|
# Status is () if at least one arg is found. DEPRECATED: access vars directly.
|
||||||
|
fn get_post_args {
|
||||||
|
load_post_args
|
||||||
|
_status='No post arg matches'
|
||||||
|
for(n in $*) {
|
||||||
|
v=post_arg_$n
|
||||||
|
if(! ~ $#$v 0) {
|
||||||
|
$n=$$v
|
||||||
|
_status=()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
status=$_status
|
||||||
|
}
|
||||||
|
|
||||||
|
# This seems slightly improve performance, but might depend on httpd buffering behavior.
|
||||||
|
fn awk_buffer {
|
||||||
|
awk '{
|
||||||
|
buf = buf $0"\n"
|
||||||
|
if(length(buf) > 1400) {
|
||||||
|
printf "%s", buf
|
||||||
|
buf = ""
|
||||||
|
}
|
||||||
|
}
|
||||||
|
END { printf "%s", buf }'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn nurldecode { urlencode -d || url_decode} # GROSS
|
||||||
|
|
||||||
|
fn url_decode {
|
||||||
|
awk '
|
||||||
|
BEGIN {
|
||||||
|
hextab ["0"] = 0; hextab ["8"] = 8;
|
||||||
|
hextab ["1"] = 1; hextab ["9"] = 9;
|
||||||
|
hextab ["2"] = 2; hextab ["A"] = hextab ["a"] = 10
|
||||||
|
hextab ["3"] = 3; hextab ["B"] = hextab ["b"] = 11;
|
||||||
|
hextab ["4"] = 4; hextab ["C"] = hextab ["c"] = 12;
|
||||||
|
hextab ["5"] = 5; hextab ["D"] = hextab ["d"] = 13;
|
||||||
|
hextab ["6"] = 6; hextab ["E"] = hextab ["e"] = 14;
|
||||||
|
hextab ["7"] = 7; hextab ["F"] = hextab ["f"] = 15;
|
||||||
|
}
|
||||||
|
{
|
||||||
|
decoded = ""
|
||||||
|
i = 1
|
||||||
|
len = length ($0)
|
||||||
|
while ( i <= len ) {
|
||||||
|
c = substr ($0, i, 1)
|
||||||
|
if ( c == "%" ) {
|
||||||
|
if ( i+2 <= len ) {
|
||||||
|
c1 = substr ($0, i+1, 1)
|
||||||
|
c2 = substr ($0, i+2, 1)
|
||||||
|
if ( hextab [c1] == "" || hextab [c2] == "" ) {
|
||||||
|
print "WARNING: invalid hex encoding: %" c1 c2 | "cat >&2"
|
||||||
|
} else {
|
||||||
|
code = 0 + hextab [c1] * 16 + hextab [c2] + 0
|
||||||
|
c = sprintf ("%c", code)
|
||||||
|
i = i + 2
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
print "WARNING: invalid % encoding: " substr ($0, i, len - i)
|
||||||
|
}
|
||||||
|
} else if ( c == "+" ) {
|
||||||
|
c = " "
|
||||||
|
}
|
||||||
|
decoded = decoded c
|
||||||
|
++i
|
||||||
|
}
|
||||||
|
printf "%s", decoded
|
||||||
|
}
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn nurlencode { urlencode || url_encode } # GROSS
|
||||||
|
|
||||||
|
fn url_encode {
|
||||||
|
awk '
|
||||||
|
BEGIN {
|
||||||
|
# We assume an awk implementation that is just plain dumb.
|
||||||
|
# We will convert an character to its ASCII value with the
|
||||||
|
# table ord[], and produce two-digit hexadecimal output
|
||||||
|
# without the printf("%02X") feature.
|
||||||
|
|
||||||
|
EOL = "%0A" # "end of line" string (encoded)
|
||||||
|
split ("1 2 3 4 5 6 7 8 9 A B C D E F", hextab, " ")
|
||||||
|
hextab [0] = 0
|
||||||
|
for ( i=1; i<=255; ++i ) ord [ sprintf ("%c", i) "" ] = i + 0
|
||||||
|
if ("'^$"EncodeEOL^'" == "yes") EncodeEOL = 1; else EncodeEOL = 0
|
||||||
|
}
|
||||||
|
{
|
||||||
|
encoded = ""
|
||||||
|
for ( i=1; i<=length ($0); ++i ) {
|
||||||
|
c = substr ($0, i, 1)
|
||||||
|
if ( c ~ /[a-zA-Z0-9.-]/ ) {
|
||||||
|
encoded = encoded c # safe character
|
||||||
|
} else if ( c == " " ) {
|
||||||
|
encoded = encoded "+" # special handling
|
||||||
|
} else {
|
||||||
|
# unsafe character, encode it as a two-digit hex-number
|
||||||
|
lo = ord [c] % 16
|
||||||
|
hi = int (ord [c] / 16);
|
||||||
|
encoded = encoded "%" hextab [hi] hextab [lo]
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ( EncodeEOL ) {
|
||||||
|
printf ("%s", encoded EOL)
|
||||||
|
} else {
|
||||||
|
print encoded
|
||||||
|
}
|
||||||
|
}
|
||||||
|
END {
|
||||||
|
#if ( EncodeEOL ) print ""
|
||||||
|
}
|
||||||
|
' $*
|
||||||
|
}
|
||||||
|
|
||||||
|
# Cookies
|
||||||
|
fn set_cookie {
|
||||||
|
# TODO: should check input values more carefully
|
||||||
|
name=$1
|
||||||
|
val=$2
|
||||||
|
extraHttpHeaders=( $extraHttpHeaders 'Set-cookie: '^$"name^'='^$"val^'; path=/;' )
|
||||||
|
}
|
||||||
|
fn get_cookie {
|
||||||
|
ifs=';' { co=`{echo $HTTP_COOKIE} }
|
||||||
|
|
||||||
|
# XXX: we might be adding a trailing new line?
|
||||||
|
# The ' ?' is needed to deal with '; ' inter-cookie delimiter
|
||||||
|
{ for(c in $co) echo $c } | sed -n 's/^ ?'$1'=//p'
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
fn static_file {
|
||||||
|
echo -n 'Content-Type: '
|
||||||
|
select_mime $1
|
||||||
|
echo
|
||||||
|
exec cat $1
|
||||||
|
}
|
||||||
|
|
||||||
|
fn select_mime {
|
||||||
|
m='text/plain'
|
||||||
|
if(~ $1 *.css)
|
||||||
|
m='text/css'
|
||||||
|
if not if(~ $1 *.ico)
|
||||||
|
m='image/x-icon'
|
||||||
|
if not if(~ $1 *.png)
|
||||||
|
m='image/png'
|
||||||
|
if not if(~ $1 *.jpg *.jpeg)
|
||||||
|
m='image/jpeg'
|
||||||
|
if not if(~ $1 *.gif)
|
||||||
|
m='image/gif'
|
||||||
|
if not if(~ $1 *.pdf)
|
||||||
|
m='application/pdf'
|
||||||
|
echo $m
|
||||||
|
}
|
||||||
|
|
||||||
|
##############################################
|
||||||
|
# Generic rc programming helpers
|
||||||
|
|
||||||
|
# Manage nested lists
|
||||||
|
fn ll_add {
|
||||||
|
_l=$1^_^$#$1
|
||||||
|
$_l=$*(2-)
|
||||||
|
$1=( $$1 $_l )
|
||||||
|
}
|
||||||
|
# Add to the head: dangerous if you shrink list by hand!
|
||||||
|
fn ll_addh {
|
||||||
|
_l=$1^_^$#$1
|
||||||
|
$_l=$*(2-)
|
||||||
|
$1=( $_l $$1 )
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
NEW_LINE='
|
||||||
|
'
|
||||||
|
|
||||||
|
# crop_text [max_lenght [ellipsis]]
|
||||||
|
# TODO: Option to crop only at word-delimiters.
|
||||||
|
fn crop_text {
|
||||||
|
m=512
|
||||||
|
e='...'
|
||||||
|
if(! ~ $#1 0)
|
||||||
|
m=$1
|
||||||
|
if(! ~ $#2 0)
|
||||||
|
e=$2
|
||||||
|
|
||||||
|
awk -v 'max='^$"m -v 'ellipsis='$e '
|
||||||
|
{
|
||||||
|
nc += 1 + length;
|
||||||
|
if(nc > max) {
|
||||||
|
print substr($0, 1, nc - max) " " ellipsis
|
||||||
|
exit
|
||||||
|
}
|
||||||
|
print
|
||||||
|
}'
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
27
werc/bin/contrib/fix-rc-scripts
Executable file
27
werc/bin/contrib/fix-rc-scripts
Executable file
|
|
@ -0,0 +1,27 @@
|
||||||
|
#!/usr/local/plan9/bin/rc
|
||||||
|
|
||||||
|
# Fix rc shell scripts to find rc without launching env every time.
|
||||||
|
# Invoke with rc and plan9 versions of grep and ed in $PATH
|
||||||
|
|
||||||
|
# If your system lacks which (e.g. some gnu/linux)
|
||||||
|
# substitute the full path to rc in this line:
|
||||||
|
rc=/usr/local/plan9/bin/rc
|
||||||
|
firstline='#!'$"rc
|
||||||
|
|
||||||
|
if(~ $#* 0) files = *
|
||||||
|
if not files = $*
|
||||||
|
|
||||||
|
myname = `{basename $0}
|
||||||
|
|
||||||
|
for(file in $files) {
|
||||||
|
if(test -d $file) $0 $file/*
|
||||||
|
if not if(~ $file *$myname) {}
|
||||||
|
if not if(sed 1q $file | grep '^#!/.*[/ ]rc$' > /dev/null) {
|
||||||
|
{
|
||||||
|
echo 1c
|
||||||
|
echo $firstline
|
||||||
|
echo .
|
||||||
|
echo wq
|
||||||
|
} | ed $file > /dev/null
|
||||||
|
}
|
||||||
|
}
|
||||||
12
werc/bin/contrib/hgweb.config
Executable file
12
werc/bin/contrib/hgweb.config
Executable file
|
|
@ -0,0 +1,12 @@
|
||||||
|
[web]
|
||||||
|
style = gitweb
|
||||||
|
allow_archive = bz2
|
||||||
|
|
||||||
|
#[paths]
|
||||||
|
#w9 = /gsoc/hg/w9/
|
||||||
|
|
||||||
|
[collections]
|
||||||
|
#allow_archive = bz2 zip
|
||||||
|
/gsoc/hg = /gsoc/hg/
|
||||||
|
#/var/hg = /var/hg/
|
||||||
|
|
||||||
47
werc/bin/contrib/hgwebdir.cgi
Executable file
47
werc/bin/contrib/hgwebdir.cgi
Executable file
|
|
@ -0,0 +1,47 @@
|
||||||
|
#!/usr/bin/env python
|
||||||
|
#
|
||||||
|
# An example CGI script to export multiple hgweb repos, edit as necessary
|
||||||
|
|
||||||
|
# send python tracebacks to the browser if an error occurs:
|
||||||
|
import cgitb
|
||||||
|
cgitb.enable()
|
||||||
|
|
||||||
|
# adjust python path if not a system-wide install:
|
||||||
|
#import sys
|
||||||
|
#sys.path.insert(0, "/path/to/python/lib")
|
||||||
|
|
||||||
|
# If you'd like to serve pages with UTF-8 instead of your default
|
||||||
|
# locale charset, you can do so by uncommenting the following lines.
|
||||||
|
# Note that this will cause your .hgrc files to be interpreted in
|
||||||
|
# UTF-8 and all your repo files to be displayed using UTF-8.
|
||||||
|
#
|
||||||
|
#import os
|
||||||
|
#os.environ["HGENCODING"] = "UTF-8"
|
||||||
|
|
||||||
|
from mercurial.hgweb.hgwebdir_mod import hgwebdir
|
||||||
|
from mercurial.hgweb.request import wsgiapplication
|
||||||
|
import mercurial.hgweb.wsgicgi as wsgicgi
|
||||||
|
|
||||||
|
# The config file looks like this. You can have paths to individual
|
||||||
|
# repos, collections of repos in a directory tree, or both.
|
||||||
|
#
|
||||||
|
# [paths]
|
||||||
|
# virtual/path = /real/path
|
||||||
|
# virtual/path = /real/path
|
||||||
|
#
|
||||||
|
# [collections]
|
||||||
|
# /prefix/to/strip/off = /root/of/tree/full/of/repos
|
||||||
|
#
|
||||||
|
# collections example: say directory tree /foo contains repos /foo/bar,
|
||||||
|
# /foo/quux/baz. Give this config section:
|
||||||
|
# [collections]
|
||||||
|
# /foo = /foo
|
||||||
|
# Then repos will list as bar and quux/baz.
|
||||||
|
#
|
||||||
|
# Alternatively you can pass a list of ('virtual/path', '/real/path') tuples
|
||||||
|
# or use a dictionary with entries like 'virtual/path': '/real/path'
|
||||||
|
|
||||||
|
def make_web_app():
|
||||||
|
return hgwebdir("hgweb.config")
|
||||||
|
|
||||||
|
wsgicgi.launch(wsgiapplication(make_web_app))
|
||||||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue