Pulled all of src
This commit is contained in:
parent
d746005b1f
commit
36b2855d3e
|
Before Width: | Height: | Size: 306 KiB After Width: | Height: | Size: 306 KiB |
|
Before Width: | Height: | Size: 120 KiB After Width: | Height: | Size: 120 KiB |
|
Before Width: | Height: | Size: 1.2 MiB After Width: | Height: | Size: 1.2 MiB |
|
Before Width: | Height: | Size: 400 KiB After Width: | Height: | Size: 400 KiB |
|
Before Width: | Height: | Size: 38 KiB After Width: | Height: | Size: 38 KiB |
|
Before Width: | Height: | Size: 729 KiB After Width: | Height: | Size: 729 KiB |
|
Before Width: | Height: | Size: 1.1 MiB After Width: | Height: | Size: 1.1 MiB |
|
Before Width: | Height: | Size: 452 KiB After Width: | Height: | Size: 452 KiB |
|
Before Width: | Height: | Size: 95 KiB After Width: | Height: | Size: 95 KiB |
|
Before Width: | Height: | Size: 44 KiB After Width: | Height: | Size: 44 KiB |
|
Before Width: | Height: | Size: 97 KiB After Width: | Height: | Size: 97 KiB |
|
Before Width: | Height: | Size: 61 KiB After Width: | Height: | Size: 61 KiB |
|
Before Width: | Height: | Size: 31 KiB After Width: | Height: | Size: 31 KiB |
|
Before Width: | Height: | Size: 19 KiB After Width: | Height: | Size: 19 KiB |
|
Before Width: | Height: | Size: 17 KiB After Width: | Height: | Size: 17 KiB |
|
Before Width: | Height: | Size: 52 KiB After Width: | Height: | Size: 52 KiB |
|
Before Width: | Height: | Size: 3.5 KiB After Width: | Height: | Size: 3.5 KiB |
|
Before Width: | Height: | Size: 980 KiB After Width: | Height: | Size: 980 KiB |
|
Before Width: | Height: | Size: 87 KiB After Width: | Height: | Size: 87 KiB |
|
Before Width: | Height: | Size: 8.3 KiB After Width: | Height: | Size: 8.3 KiB |
|
Before Width: | Height: | Size: 158 KiB After Width: | Height: | Size: 158 KiB |
|
Before Width: | Height: | Size: 10 KiB After Width: | Height: | Size: 10 KiB |
108
g.cgi.go
108
g.cgi.go
|
|
@ -1,108 +0,0 @@
|
||||||
package main
|
|
||||||
|
|
||||||
import (
|
|
||||||
"bufio"
|
|
||||||
"crypto/md5"
|
|
||||||
"fmt"
|
|
||||||
"log"
|
|
||||||
"os"
|
|
||||||
"os/exec"
|
|
||||||
"strings"
|
|
||||||
)
|
|
||||||
|
|
||||||
// printf "USER:PASS" | base64 | while read a; do printf "%s" "$a" | md5sum; done
|
|
||||||
const AuthFilename = "/home/neale/.config/g.cgi/authorization"
|
|
||||||
const GitProjectRoot = "/home/neale/projects"
|
|
||||||
|
|
||||||
func execv(name string, arg ...string) {
|
|
||||||
c := exec.Command(name, arg...)
|
|
||||||
c.Stdin = os.Stdin
|
|
||||||
c.Stdout = os.Stdout
|
|
||||||
c.Stderr = os.Stderr
|
|
||||||
if err := c.Run(); err != nil {
|
|
||||||
log.Print(err)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
func Authenticated() bool {
|
|
||||||
auth := os.Getenv("HTTP_AUTHORIZATION")
|
|
||||||
if auth == "" {
|
|
||||||
return false
|
|
||||||
}
|
|
||||||
|
|
||||||
// Build up a string to match
|
|
||||||
parts := strings.Split(auth, " ")
|
|
||||||
switch {
|
|
||||||
case len(parts) != 2:
|
|
||||||
return false
|
|
||||||
case parts[0] != "Basic":
|
|
||||||
return false
|
|
||||||
}
|
|
||||||
|
|
||||||
hash := md5.Sum([]byte(parts[1]))
|
|
||||||
hashhex := fmt.Sprintf("%x", hash)
|
|
||||||
|
|
||||||
authfile, err := os.Open(AuthFilename)
|
|
||||||
if err != nil {
|
|
||||||
log.Fatal(err)
|
|
||||||
}
|
|
||||||
defer authfile.Close()
|
|
||||||
|
|
||||||
scanner := bufio.NewScanner(authfile)
|
|
||||||
for scanner.Scan() {
|
|
||||||
line := scanner.Text()
|
|
||||||
if line == "" || strings.HasPrefix(line, "#") {
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if line == hashhex {
|
|
||||||
os.Setenv("AUTH_TYPE", parts[0])
|
|
||||||
os.Setenv("REMOTE_USER", "XXX-neale")
|
|
||||||
return true
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return false
|
|
||||||
}
|
|
||||||
|
|
||||||
func notice() {
|
|
||||||
fmt.Println("Content-type: text/html")
|
|
||||||
fmt.Println()
|
|
||||||
fmt.Println("<!DOCTYPE html>")
|
|
||||||
fmt.Println("<html><head>")
|
|
||||||
fmt.Println("<title>Neale's Projects have Moved</title>")
|
|
||||||
fmt.Println("<meta name=\"viewport\" content=\"width=device-width\">")
|
|
||||||
fmt.Println("</head><body>")
|
|
||||||
fmt.Println("<h1>Neale's Projects have Moved</h1>")
|
|
||||||
fmt.Println("I've moved most of my stuff to")
|
|
||||||
fmt.Println("<a href=\"https://github.com/nealey\">Github</a>.")
|
|
||||||
fmt.Println("<p>")
|
|
||||||
fmt.Println("X11 things may now be in the")
|
|
||||||
fmt.Println("<a href=\"https://github.com/9wm\">9wm team</a>.")
|
|
||||||
fmt.Println("<p>")
|
|
||||||
fmt.Println("Network security things may now be in the")
|
|
||||||
fmt.Println("<a href=\"https://github.com/dirtbags\">dirtbags team</a>.")
|
|
||||||
fmt.Println("</body></html>")
|
|
||||||
}
|
|
||||||
|
|
||||||
func main() {
|
|
||||||
log.SetFlags(0)
|
|
||||||
//log.SetOutput(os.Stdout)
|
|
||||||
//log.SetPrefix("Status: 500 CGI Go Boom\nContent-type: text/plain\n\nERROR: ")
|
|
||||||
|
|
||||||
uri := os.Getenv("REQUEST_URI")
|
|
||||||
switch {
|
|
||||||
case strings.HasSuffix(uri, "git-upload-pack") || strings.HasSuffix(uri, "git-receive-pack"):
|
|
||||||
if Authenticated() {
|
|
||||||
os.Setenv("GIT_PROJECT_ROOT", GitProjectRoot)
|
|
||||||
execv("git", "http-backend")
|
|
||||||
} else {
|
|
||||||
fmt.Println("Status: 401 Not Authorized")
|
|
||||||
fmt.Println("Content-type: text/plain")
|
|
||||||
fmt.Println("WWW-Authenticate: Basic realm=\"git\"")
|
|
||||||
fmt.Println()
|
|
||||||
fmt.Println("Nope", os.Getenv("HTTP_AUTHORIZATION"))
|
|
||||||
}
|
|
||||||
default:
|
|
||||||
notice()
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
COPY += src/9wm/9wm.png
|
|
||||||
BIN
src/9wm/9wm.png
BIN
src/9wm/9wm.png
Binary file not shown.
|
Before Width: | Height: | Size: 75 KiB |
|
|
@ -1,54 +0,0 @@
|
||||||
Title: 9wm
|
|
||||||
Author: Neale Pickett <neale@woozle.org>
|
|
||||||
|
|
||||||
9wm is an X11 window manager inspired by the Plan 9 window manager 8½.
|
|
||||||
It provides a very simple and clean user interface.
|
|
||||||
It makes heavy use of the mouse, and no use of the keyboard.
|
|
||||||
It is click-to-type.
|
|
||||||
It uses the X11 font system (which, unfortunately, means no Unicode support).
|
|
||||||
|
|
||||||
9wm does not provide virtual desktops, customization, key bindings,
|
|
||||||
or compositing.
|
|
||||||
It does not allocate any colors,
|
|
||||||
and only requires Xlib,
|
|
||||||
both of which will be great news if you are in 1993.
|
|
||||||
|
|
||||||
9wm is distributed under [an MIT License](https://github.com/nealey/9wm/blob/master/LICENSE.md),
|
|
||||||
at <https://github.com/nealey/9wm>.
|
|
||||||
|
|
||||||
|
|
||||||
How do I use it?
|
|
||||||
================
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
The focused window has a black border.
|
|
||||||
Mouse and keyboard events go to this window.
|
|
||||||
Left click a non-focused window (white border) to focus it.
|
|
||||||
|
|
||||||
Right-click anywhere other than the focused window,
|
|
||||||
including in any non-focused window,
|
|
||||||
to bring up a menu.
|
|
||||||
All further actions are done with the right mouse button.
|
|
||||||
The menu has options for:
|
|
||||||
|
|
||||||
* New: launch a new xterm
|
|
||||||
* Reshape: select a window, draw new rectangle for its size
|
|
||||||
* Move: drag a window around
|
|
||||||
* Delete: kill (close) a window
|
|
||||||
* Hide: hide (iconify) a window
|
|
||||||
|
|
||||||
Beneath the first 5 items are a list of all hidden windows.
|
|
||||||
|
|
||||||
Middle-click anywhere other than the focused window
|
|
||||||
to run "mm mouse2".
|
|
||||||
It's up to you to write an "mm" program and put it in your path somewhere,
|
|
||||||
if you want to use this for something.
|
|
||||||
I have mine run "google-chrome-stable --show-app-list".
|
|
||||||
|
|
||||||
|
|
||||||
More Information
|
|
||||||
================
|
|
||||||
|
|
||||||
More information can be found in the
|
|
||||||
[README](https://github.com/nealey/9wm/blob/master/README.md).
|
|
||||||
|
|
@ -1,10 +0,0 @@
|
||||||
TARGETS += $(DESTDIR)/src/dwm/config.h $(DESTDIR)/src/dwm/status.sh
|
|
||||||
TARGETS += $(DESTDIR)/src/dwm/dwm-button.sh
|
|
||||||
|
|
||||||
$(DESTDIR)/src/dwm/config.h: $(HOME)/src/ports/dwm/config.h
|
|
||||||
@mkdir -p $(@D)
|
|
||||||
cp $< $@
|
|
||||||
|
|
||||||
$(DESTDIR)/src/dwm/%.sh: $(HOME)/bin/%
|
|
||||||
@mkdir -p $(@D)
|
|
||||||
cp $< $@
|
|
||||||
|
|
@ -1,26 +0,0 @@
|
||||||
Title: dwm hacks
|
|
||||||
|
|
||||||
I seem to have trouble keeping my attention on the task at hand if there
|
|
||||||
are little things flashing in the corner of the screen, or even changing
|
|
||||||
color (like, "you have new email"). The less I have on the screen, the
|
|
||||||
more productive I seem to be. It is for this reason that I've been
|
|
||||||
using "tiling" window managers since about 2003.
|
|
||||||
|
|
||||||
I've been using [dwm](http://dwm.suckless.org/) since a friend
|
|
||||||
introduced me to it around 2008. What I like most about dwm, aside from
|
|
||||||
helping me stay focused on the task at hand, is that it gets out of my
|
|
||||||
way. There are no buttons to click, and no windows to drag around or
|
|
||||||
resize. In fact, I hardly ever use the mouse anymore, outside of my web
|
|
||||||
browser.
|
|
||||||
|
|
||||||
* [My config.h](config.h) contains a few features I've added, like
|
|
||||||
restarting dwm, multimedia buttons, and
|
|
||||||
[xss](http://woozle.org/~neale/src/xss.html) integration (3 lines of
|
|
||||||
code).
|
|
||||||
* [My status program](http://woozle.org/~neale/g.cgi/status)
|
|
||||||
is responsible for having DWM show the
|
|
||||||
current time, load average, battery charge, and wifi status. It
|
|
||||||
gracefully handles machines that lack one or more of these features.
|
|
||||||
* [My button script](dwm-button.sh) is invoked when a multimedia button
|
|
||||||
is pressed, and handles screen brightness, volume, external monitors,
|
|
||||||
and more.
|
|
||||||
|
|
@ -1,140 +0,0 @@
|
||||||
#! /usr/bin/guile \
|
|
||||||
--debug -e eguile-main -s
|
|
||||||
!#
|
|
||||||
|
|
||||||
;; eguile -- embedded guile preprocessor
|
|
||||||
;; Copyright (C) 2002 Neale Pickett <neale@woozle.org>
|
|
||||||
;;
|
|
||||||
;; This program is free software; you can redistribute it and/or
|
|
||||||
;; modify it under the terms of the GNU General Public License as
|
|
||||||
;; published by the Free Software Foundation; either version 2 of the
|
|
||||||
;; License, or (at your option) any later version.
|
|
||||||
;;
|
|
||||||
;; This program is distributed in the hope that it will be useful,
|
|
||||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
;; General Public License for more details.
|
|
||||||
;;
|
|
||||||
;; You should have received a copy of the GNU General Public License
|
|
||||||
;; along with this program; if not, write to the Free Software
|
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
||||||
;; 02111-1307 USA
|
|
||||||
|
|
||||||
|
|
||||||
(use-modules (ice-9 slib))
|
|
||||||
|
|
||||||
(require 'fluid-let)
|
|
||||||
(require 'string-search)
|
|
||||||
(require 'object->string)
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Backwards compatibility. Set this to:
|
|
||||||
;;
|
|
||||||
;; 'escm for escm compatibility
|
|
||||||
;; number for old eguile compatibility
|
|
||||||
;;
|
|
||||||
;; Anything else gets you no backwards compatibility -- you get to do
|
|
||||||
;; things the current way.
|
|
||||||
;;
|
|
||||||
(define eguile-compatibility 'current)
|
|
||||||
|
|
||||||
;; Retrieve a named parameter with optional default
|
|
||||||
(define (getparam args name . default)
|
|
||||||
(define (loop args)
|
|
||||||
(cond
|
|
||||||
((null? args)
|
|
||||||
(if (pair? default)
|
|
||||||
(car default)
|
|
||||||
#f))
|
|
||||||
((equal? (car args) name)
|
|
||||||
(cadr args))
|
|
||||||
(else
|
|
||||||
(loop (cddr args)))))
|
|
||||||
(loop args))
|
|
||||||
|
|
||||||
|
|
||||||
(define lmatch '())
|
|
||||||
(define rmatch '())
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; New^3 improved parser! Woo woo woo!
|
|
||||||
;;
|
|
||||||
(define (stml->commands inp)
|
|
||||||
(define (loop inp needle other buf)
|
|
||||||
;; Read in a line, looking for needle. If it's there, switch needle
|
|
||||||
;; and other, and outbuf buf + line
|
|
||||||
(let ((line (read-line inp 'concat)))
|
|
||||||
(cond
|
|
||||||
((eof-object? line) (cons buf '("")))
|
|
||||||
(else
|
|
||||||
(let ((pos (substring? needle line)))
|
|
||||||
(cond
|
|
||||||
(pos
|
|
||||||
(unread-string (substring line
|
|
||||||
(+ (string-length needle)
|
|
||||||
pos))
|
|
||||||
inp)
|
|
||||||
(cons (string-append buf (substring line 0 pos))
|
|
||||||
(loop inp other needle "")))
|
|
||||||
(else
|
|
||||||
(loop inp needle other (string-append buf line))))))))) ; Ha ha, scheme
|
|
||||||
|
|
||||||
(define (list->commands list)
|
|
||||||
;; Convert the output of (loop) to something that can be evaled.
|
|
||||||
(cond
|
|
||||||
((null? list) "")
|
|
||||||
((null? (cdr list))
|
|
||||||
(string-append "Unbalanced preprocessor directives: "
|
|
||||||
(object->string list)))
|
|
||||||
(else
|
|
||||||
(let ((str (object->string (car list)))
|
|
||||||
(expr (cadr list))
|
|
||||||
(rest (list->commands (cddr list))))
|
|
||||||
(string-append " (display "
|
|
||||||
(object->string (car list))
|
|
||||||
") "
|
|
||||||
(cond
|
|
||||||
((equal? (substring? ":d " expr) 0)
|
|
||||||
(string-append "(display "
|
|
||||||
(substring expr 3)
|
|
||||||
")"))
|
|
||||||
(else
|
|
||||||
expr))
|
|
||||||
rest)))))
|
|
||||||
|
|
||||||
(list->commands
|
|
||||||
(loop inp "<?scm" " ?>" "")))
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(define *program-name* #f) ; Dynamically bound
|
|
||||||
(define *input-file* #f) ; Dynamically bound
|
|
||||||
(define *output-file* #f) ; Dynamically bound
|
|
||||||
|
|
||||||
(define (eguile-port inp)
|
|
||||||
(let ((commands (stml->commands inp)))
|
|
||||||
(eval-string commands)))
|
|
||||||
|
|
||||||
(define (eguile-file input)
|
|
||||||
(fluid-let ((*input-file* input))
|
|
||||||
(eguile-port (open-input-file input))))
|
|
||||||
|
|
||||||
(define (eguile input output)
|
|
||||||
(fluid-let ((*output-file* output))
|
|
||||||
(let ((out-port (open-output-file output))
|
|
||||||
(*stdout* (current-output-port)))
|
|
||||||
(set-current-output-port out-port)
|
|
||||||
(eguile-file input)
|
|
||||||
(set-current-output-port *stdout*))))
|
|
||||||
|
|
||||||
(define (eguile-main argv)
|
|
||||||
;; Make sure we have the correct number of arguments
|
|
||||||
(if (not (= (length argv) 3))
|
|
||||||
(begin
|
|
||||||
(display (string-append "Usage: " (car argv) " infile outfile"))
|
|
||||||
(newline)
|
|
||||||
(exit)))
|
|
||||||
|
|
||||||
(fluid-let ((*program-name* (car argv)))
|
|
||||||
;; Do it to it
|
|
||||||
(eguile (cadr argv) (caddr argv))))
|
|
||||||
|
|
@ -1,62 +0,0 @@
|
||||||
Title: Eguile : a scheme preprocessor
|
|
||||||
Author: Neale Pickett <neale@woozle.org>
|
|
||||||
|
|
||||||
If you've ever wished your text preprocessor could do symbolic
|
|
||||||
derivation, eguile is the tool for you!
|
|
||||||
|
|
||||||
eguile is a preprocessor which lets you include Scheme code in your
|
|
||||||
source files--any source files, not just HTML. With the bundled
|
|
||||||
ntp-style.scm, you can give web pages a consistent interface with easy
|
|
||||||
navigation bars, just like this page. Further functionality is limited
|
|
||||||
only by your imagination and programming ability.
|
|
||||||
|
|
||||||
eguile looks like PHP, but with Scheme instead of Perl. If you're the
|
|
||||||
sort of person that would enjoy something like this, you probably don't
|
|
||||||
need any further description.
|
|
||||||
|
|
||||||
|
|
||||||
Downloading it
|
|
||||||
--------------------------
|
|
||||||
|
|
||||||
[eguile.scm](http://woozle.org/~neale/src/eguile/eguile.scm).
|
|
||||||
|
|
||||||
|
|
||||||
Reference
|
|
||||||
--------------------------
|
|
||||||
|
|
||||||
Easy squeezy:
|
|
||||||
|
|
||||||
<dl>
|
|
||||||
<dt><?scm scheme-code ?></dt>
|
|
||||||
<dd>Evaluates scheme-code, discarding value of the last expression</dd>
|
|
||||||
|
|
||||||
<dt><?scm:d scheme-code ?></dt>
|
|
||||||
<dd>Evaluates scheme-code, displaying the value of the last expression</dd>
|
|
||||||
</dl>
|
|
||||||
|
|
||||||
For example:
|
|
||||||
|
|
||||||
<?scm (define (square x) (* x x)) ?>
|
|
||||||
2 squared is <?scm:d (square 2) ?>
|
|
||||||
|
|
||||||
renders as:
|
|
||||||
|
|
||||||
2 squared is 4
|
|
||||||
|
|
||||||
|
|
||||||
Inspiration
|
|
||||||
--------------------------
|
|
||||||
|
|
||||||
I modeled eguile after ht2html by Barry Warsaw (a far cooler cat than
|
|
||||||
I). ht2html is a slick package, but it didn't feel enough like
|
|
||||||
programming to me and seemed more complicated than it needed to be. escm
|
|
||||||
seemed like a better solution, but felt a little too kludgy, and I
|
|
||||||
needed to learn Scheme better anyway. So I stole the layout from ht2html
|
|
||||||
and the syntax from escm.
|
|
||||||
|
|
||||||
|
|
||||||
License
|
|
||||||
--------------------------
|
|
||||||
|
|
||||||
eguile is distributed under the GNU Public License version 2.0 or
|
|
||||||
later. Please refer to the file COPYING for more information.
|
|
||||||
10
src/eris.md
10
src/eris.md
|
|
@ -1,10 +0,0 @@
|
||||||
Title: Eris HTTPd
|
|
||||||
|
|
||||||
Eris HTTPd is a small web server to be run from inetd or tcpserver
|
|
||||||
(tcpsvd in busybox). It is based on
|
|
||||||
[fnord HTTPd](http://www.fefe.de/fnord/) but shares very little
|
|
||||||
code in common now.
|
|
||||||
|
|
||||||
* [Eris Versions](/neale/g.cgi/net/eris/)
|
|
||||||
* [README](/neale/g.cgi/net/eris/about/)
|
|
||||||
|
|
||||||
54
src/escm.md
54
src/escm.md
|
|
@ -1,54 +0,0 @@
|
||||||
Title: escm: a scheme preprocessor
|
|
||||||
|
|
||||||
This is my port of [eguile](http://woozle.org/~neale/src/eguile) to
|
|
||||||
gauche scheme. It uses regular expressions and as a result is faster
|
|
||||||
and easier to read. It's so tiny, in fact, that I don't feel compelled
|
|
||||||
to write much about it.
|
|
||||||
|
|
||||||
eguile looks like PHP, but with Scheme instead of Perl. If you're the
|
|
||||||
sort of person that would enjoy something like this, you probably don't
|
|
||||||
need any further description.
|
|
||||||
|
|
||||||
I use eguile along with a couple handy procedures and some makefiles to
|
|
||||||
generate my entire web space, and a few non-profit web sites I maintain.
|
|
||||||
I'd be happy to share the site-building stuff with anybody who asks, but
|
|
||||||
I'm not going to package it up until someone's interested.
|
|
||||||
|
|
||||||
|
|
||||||
Downloading it
|
|
||||||
--------------
|
|
||||||
|
|
||||||
You can download a [tarball of the latest version in git](http://woozle.org/~neale/g.cgi/escm/snapshot/escm-master.tar.gz), or check it out yourself:
|
|
||||||
|
|
||||||
git clone http://woozle.org/~neale/repos/escm
|
|
||||||
|
|
||||||
|
|
||||||
Reference
|
|
||||||
---------
|
|
||||||
|
|
||||||
Easy squeezy:
|
|
||||||
|
|
||||||
<dl>
|
|
||||||
<dt><?scm scheme-code ?></dt>
|
|
||||||
<dd>Evaluates scheme-code, discarding value of the last expression</dd>
|
|
||||||
|
|
||||||
<dt><?scm:d scheme-code ?></dt>
|
|
||||||
<dd>Evaluates scheme-code, displaying the value of the last expression</dd>
|
|
||||||
</dl>
|
|
||||||
|
|
||||||
For example:
|
|
||||||
|
|
||||||
<?scm (define (square x) (* x x)) ?>
|
|
||||||
2 squared is <?scm:d (square 2) ?>
|
|
||||||
|
|
||||||
renders as:
|
|
||||||
|
|
||||||
2 squared is 4
|
|
||||||
|
|
||||||
|
|
||||||
Related stuff
|
|
||||||
------------------------
|
|
||||||
|
|
||||||
* [escm 1.1](http://practical-scheme.net/vault/escm.html) by Shiro
|
|
||||||
Kawai, author of gauche, was my inspiration.
|
|
||||||
* [eguile](http://woozle.org/~neale/src/eguile) is Guile-only
|
|
||||||
167
src/firebot.md
167
src/firebot.md
|
|
@ -1,167 +0,0 @@
|
||||||
Title: Firebot: IRC Automaton
|
|
||||||
|
|
||||||
FireBot is a winner!
|
|
||||||
|
|
||||||
Firebot is an IRC bot combining the functionality of a Linkbot, an
|
|
||||||
Infobot, and a Clickolinko, which is this cool thing Emad El-Haraty and
|
|
||||||
I came up with to make short URLs out of stuff posted into the channel,
|
|
||||||
for people with text browsers that wrap URLs.
|
|
||||||
|
|
||||||
Note that, in addition to interacting with FireBot within a channel, you
|
|
||||||
can also communicate directly with FireBot via `/msg` commands. Just in
|
|
||||||
case you need a little one-on-one action and don't want spew your
|
|
||||||
playtime around some channel with other folks watching. That can be *so*
|
|
||||||
distracting. Some commands still require you to preface them with
|
|
||||||
FireBot's name. Example:
|
|
||||||
|
|
||||||
/msg firebot firebot: literal ...
|
|
||||||
|
|
||||||
|
|
||||||
Downloading
|
|
||||||
-----------
|
|
||||||
|
|
||||||
You can download a [tarball snapshot of the latest release](http://woozle.org/~neale/g.cgi/firebot/snapshot/firebot-master.tar.gz), or use cogito:
|
|
||||||
|
|
||||||
git clone http://woozle.org/~neale/projects/firebot
|
|
||||||
|
|
||||||
|
|
||||||
LinkBot Features
|
|
||||||
----------------
|
|
||||||
|
|
||||||
Firebot can link channels across networks. It is present in all
|
|
||||||
channels and the same functions can be accessed on either side.
|
|
||||||
Everything said on one channel is relayed to the others.
|
|
||||||
|
|
||||||
It is possible to link multiple channels on multiple servers, including
|
|
||||||
multiple channels on a single server.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ClickLinko (UrlBot)
|
|
||||||
-------------------
|
|
||||||
|
|
||||||
Whenever FireBot sees a URL in the channel, he makes a note of it and
|
|
||||||
creates a shorter URL out of it.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
InfoBot
|
|
||||||
-------
|
|
||||||
|
|
||||||
As an InfoBot, FireBot listens in the channel for anything of the form
|
|
||||||
"x is y", and then stores that little tidbit. Later, when someone asks
|
|
||||||
a question about x ("what is x?", "who is x?", "wtf is x?"), FireBot
|
|
||||||
answers with the factoid he gathered.
|
|
||||||
|
|
||||||
<dl>
|
|
||||||
<dt>firebot, **x**</dt>
|
|
||||||
<dd>look up a factoid for **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, **x** is **y**</dt>
|
|
||||||
<dd>store **y** as a factiod about **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, **x** is also **y**</dt>
|
|
||||||
<dd>store **y** as another factoid about **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, append **x** <= **y**</dt>
|
|
||||||
<dd>store **y** as another factoid about **x**. You'd use this for things where **x** has the word "is" in it, or other things that you can't store with the preceding commands.</dd>
|
|
||||||
|
|
||||||
<dt>no, firebot, **x** is **y**</dt>
|
|
||||||
<dd>store **y** as the only factoid about **x**, even if **x** already has factoids</dd>
|
|
||||||
|
|
||||||
<dt>firebot, literal **x**</dt>
|
|
||||||
<dd>display all factoids about **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, lock **x**</dt>
|
|
||||||
<dd>do not learn any more factoids about **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, unlock **x**</dt>
|
|
||||||
<dd>resume learning factoids about **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, forget **x**</dt>
|
|
||||||
<dd>forget all factoids about **x**</dd>
|
|
||||||
|
|
||||||
<dt>firebot, forget **x** from **y**</dt>
|
|
||||||
<dd>forget a single entry (**x**) that is listed in **y**; **x** can be a single word, it does not need to be the whole entry</dd>
|
|
||||||
|
|
||||||
<dt>firebot, shut up</td>
|
|
||||||
<dd>make the bot only respond to factoids when addressed specifically</dd>
|
|
||||||
|
|
||||||
<dt>firebot, be chatty</td>
|
|
||||||
<dd>make the bot respond to factoids even when not addressed</dd>
|
|
||||||
|
|
||||||
</dl>
|
|
||||||
|
|
||||||
In addition, the following tricks can be used within factiods:
|
|
||||||
|
|
||||||
* Any factoid beginning with `\\` (a backslash) is displayed directly.
|
|
||||||
That is, instead of saying "<firebot> x is y", FireBot just says
|
|
||||||
"<firebot> y".
|
|
||||||
* Any factoid beginning with <code>:</code> (a colon) is
|
|
||||||
displayed an action. That is, instead of saying "<firebot> x is y",
|
|
||||||
FireBot says "* firebot y"
|
|
||||||
* You may put `%(sender)s` in the factoid to print the name of the
|
|
||||||
person who asked about the factoid (when sent to a user in a private
|
|
||||||
message, it's the recipient of the message)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Utilities
|
|
||||||
---------
|
|
||||||
|
|
||||||
<dl>
|
|
||||||
|
|
||||||
<dt>firebot, later tell **whom** **what**</dt>
|
|
||||||
<dd>The next time **whom** says something in the channel, deliver the message **what** publically.</dd>
|
|
||||||
|
|
||||||
<dt>firebot, in **time** say **what**</dt>
|
|
||||||
<dd>after **time** (eg. "15 seconds", "2 hours", "5 days"), announce **what** in the channel</dd>
|
|
||||||
|
|
||||||
<dt>seen **whom**</dt>
|
|
||||||
<dd>Report the last thing said in the channel by **whom**, and how long ago it was said.</dd>
|
|
||||||
|
|
||||||
<dt>dict **word**</dt>
|
|
||||||
<dd>look **word** up in the dictionary</dd>
|
|
||||||
|
|
||||||
<dt>quote **symbol**</dt>
|
|
||||||
<dd>get a stock quote for **symbol**</dd>
|
|
||||||
|
|
||||||
<dt>pollen **zip**</dt>
|
|
||||||
<dd>report pollen forecast for US zip code **zip**</dd>
|
|
||||||
|
|
||||||
<dt>cdecl explain **jibberish**</dt>
|
|
||||||
<dd>explain the C declaration **jibberish** (eg. "cdecl explain struct bar *(*foo)[](int)")</dd>
|
|
||||||
|
|
||||||
<dt>cdecl declare **english**</dt>
|
|
||||||
<dd>give the C declaration for **english** (eg. "cdecl declare foo as pointer to array of function (int) returning pointer to struct bar")</dd>
|
|
||||||
|
|
||||||
<dt>how many **x** in **y** **z**</dt>
|
|
||||||
<dd>determine the number of **x** items that are contained in **y** amount of **z** items (eg. how many miles in 1 light year)</dd>
|
|
||||||
|
|
||||||
<dt>how much is **amt** **source** in **dest**</dt>
|
|
||||||
<dd>do a currency conversion from **source** to **dest**. Both must be three-letter currency codes. (eg. "how much is 100 USD in EUR")</dd>
|
|
||||||
|
|
||||||
<dt>calc **expr**</dt>
|
|
||||||
<dd>calculate **expr** (eg. "calc 2 * 5")</dd>
|
|
||||||
|
|
||||||
</dl>
|
|
||||||
|
|
||||||
|
|
||||||
Toys
|
|
||||||
----
|
|
||||||
|
|
||||||
<dl>
|
|
||||||
|
|
||||||
<dt>8ball, **question**</dt>
|
|
||||||
<dd>consult the magic 8-ball regarding **question**</dd>
|
|
||||||
|
|
||||||
<dt>**nickname**++</dt>
|
|
||||||
<dd>add a whuffie point for **nickname**</dd>
|
|
||||||
|
|
||||||
<dt>**nickname**--</dt>
|
|
||||||
<dd>remove a whuffie point for **nickname**</dd>
|
|
||||||
|
|
||||||
<dt>whuffie for **nickname**</dt>
|
|
||||||
<dd>check the whuffie for **nickname**</dd>
|
|
||||||
|
|
||||||
</dl>
|
|
||||||
32
src/index.md
32
src/index.md
|
|
@ -1,32 +0,0 @@
|
||||||
Title: Software
|
|
||||||
|
|
||||||
I write software for a living. I like doing it so much that sometimes I
|
|
||||||
even write software just for fun.
|
|
||||||
|
|
||||||
|
|
||||||
Current Work
|
|
||||||
------------
|
|
||||||
|
|
||||||
* [Runit-Init](/neale/g.cgi/aur/runit-init/about/), an /sbin/init replacement based on busybox
|
|
||||||
* [Eris HTTPd](/neale/g.cgi/net/eris/about/), a small HTTP (web) server
|
|
||||||
* [9wm](9wm/), an emulation of the Plan 9 window manager
|
|
||||||
* [xss](/neale/g.cgi/x11/xss/about/), a suite of X screensaver programs
|
|
||||||
|
|
||||||
|
|
||||||
Not-So-Current Work
|
|
||||||
-------------------
|
|
||||||
|
|
||||||
* [Python IPQueue](ipqueue/), python bindings to Linux libipqueue. It was mentioned in a book and Google Scholar says it's been cited two other times, which makes me *Internet Famous* 😎.
|
|
||||||
* [eguile](eguile/), like PHP but with Scheme instead. A fork of this is used in gnucash.
|
|
||||||
* [Woozle Scoreboard](http://woozle.org/scoreboard/), a browser-based roller derby scorebard
|
|
||||||
* [Hardware Scoreboard](/neale/g.cgi/derby/hw-scoreboard/about/), a microcontroller-based LED roller derby scoreboard
|
|
||||||
* [Penalty Timer](https://play.google.com/store/apps/details?id=org.woozle.penaltytimer), a roller derby penalty timer for Android
|
|
||||||
* [Hercules DJ Controller Driver](/neale/g.cgi/hdjd/about/)
|
|
||||||
|
|
||||||
|
|
||||||
Even More
|
|
||||||
---------
|
|
||||||
|
|
||||||
* [All projects on woozle](/neale/g.cgi/)
|
|
||||||
* [Github Account](https://github.com/nealey)
|
|
||||||
* [Gitorious Account](https://gitorious.org/~neale)
|
|
||||||
|
|
@ -1,84 +0,0 @@
|
||||||
Title: Python ipqueue
|
|
||||||
|
|
||||||
No Longer Maintained
|
|
||||||
--------------------
|
|
||||||
|
|
||||||
This software is no longer maintained.
|
|
||||||
|
|
||||||
ipqueue has been deprecated in favor of nfqueue. You can download a [Python
|
|
||||||
nfqueue module](http://software.inl.fr/trac/wiki/nfqueue-bindings) which should
|
|
||||||
support all the functionality of ipqueue. In Debian or Ubuntu, you can just
|
|
||||||
|
|
||||||
# apt-get install libnetfilter-queue-python
|
|
||||||
|
|
||||||
This page remains here for those who know what they're doing and are
|
|
||||||
still using the old libipq. This software will not compile with the
|
|
||||||
backwards-compatibility library provided by nfqueue.
|
|
||||||
|
|
||||||
About
|
|
||||||
-----
|
|
||||||
|
|
||||||
This is the Netfilter userspace IPQueue module for Python. It allows you
|
|
||||||
to do all your Linux IPQueue stuff from the comfort of Python. This only
|
|
||||||
works with Linux.
|
|
||||||
|
|
||||||
Put in simpler terms, this is a way to hook a Python script into your
|
|
||||||
kernel's networking stack. This could be the fundamental building block
|
|
||||||
of a firewall. You can use it to snoop on traffic, modify or discard
|
|
||||||
certain packets, make routing decisions, masquerade stuff, whatever--and
|
|
||||||
you get it all with garbage collection :)
|
|
||||||
|
|
||||||
Apparently this program appears in a book called "Security Power Tools".
|
|
||||||
That means I'm *Internet Famous*!
|
|
||||||
|
|
||||||
Download
|
|
||||||
--------
|
|
||||||
|
|
||||||
This software is no longer maintained (see above).
|
|
||||||
|
|
||||||
* [Latest version](/neale/g.cgi/attic/py-ipqueue/snapshot/py-ipqueue-master.tar.gz)
|
|
||||||
* [Git repository](/neale/g.cgi/attic/py-ipqueue/)
|
|
||||||
* [Netfilter QUEUE bindings](nfqueue-0.1.tar.bz2) by Mike Auty <mike.auty@gmail.com>
|
|
||||||
* [nfqueue bindings](http://software.inl.fr/trac/wiki/nfqueue-bindings)
|
|
||||||
|
|
||||||
License
|
|
||||||
-------
|
|
||||||
|
|
||||||
GPL, of course.
|
|
||||||
|
|
||||||
Support
|
|
||||||
-------
|
|
||||||
|
|
||||||
This software is no longer maintained (see above). Support requests
|
|
||||||
will be politely redirected to the newer [nfqueue
|
|
||||||
bindings](http://software.inl.fr/trac/wiki/nfqueue-bindings).
|
|
||||||
|
|
||||||
|
|
||||||
Screen Shots
|
|
||||||
------------
|
|
||||||
|
|
||||||
Here's an example program which transparently proxies all traffic it
|
|
||||||
gets to port 25 of 10.1.1.2. This is just an example, a real-world
|
|
||||||
transparent proxy would be much more sophisticated.
|
|
||||||
|
|
||||||
#! /usr/bin/env python
|
|
||||||
|
|
||||||
import ipqueue
|
|
||||||
import iputils
|
|
||||||
|
|
||||||
rewrite = 1
|
|
||||||
|
|
||||||
q = ipqueue.IPQ(ipqueue.IPQ_COPY_PACKET)
|
|
||||||
while 1:
|
|
||||||
p = q.read()
|
|
||||||
tcp = iputils.TCP(p[ipqueue.PAYLOAD])
|
|
||||||
print "Got %s -> %s on hook %d" % (iputils.ntoa(tcp.saddr),
|
|
||||||
iputils.ntoa(tcp.daddr),
|
|
||||||
p[ipqueue.HOOK])
|
|
||||||
|
|
||||||
if rewrite and p[ipqueue.HOOK] == 0:
|
|
||||||
tcp.daddr = iputils.aton("10.1.1.2")
|
|
||||||
tcp.th_dport = 25
|
|
||||||
q.set_verdict(p[0], ipqueue.NF_ACCEPT, tcp.to_str())
|
|
||||||
else:
|
|
||||||
q.set_verdict(p[0], ipqueue.NF_ACCEPT)
|
|
||||||
Binary file not shown.
Binary file not shown.
264
src/misc/9p.scm
264
src/misc/9p.scm
|
|
@ -1,264 +0,0 @@
|
||||||
#! /usr/bin/gosh
|
|
||||||
|
|
||||||
;; Description: 9p implementation in Scheme
|
|
||||||
;; Author: Neale Pickett <neale@woozle.org>
|
|
||||||
|
|
||||||
;; This uses gauche's networking stuff, but no other gauche stuff. It
|
|
||||||
;; should be possible to substitute your implementation's networking
|
|
||||||
;; procedures without too much effort.
|
|
||||||
(use gauche.net)
|
|
||||||
(require-extension (srfi 1 4 8 9))
|
|
||||||
|
|
||||||
(define message-specs
|
|
||||||
;; name num format
|
|
||||||
'((TVersion 100 (2 4 s)) ;x64
|
|
||||||
(RVersion 101 (2 4 s))
|
|
||||||
(TAuth 102 (2 4 s s))
|
|
||||||
(RAuth 103 (2 13))
|
|
||||||
(TAttach 104 (2 4 4 s s)) ;x68
|
|
||||||
(RAttach 105 (2 13))
|
|
||||||
(TError 106 ()) ;illegal
|
|
||||||
(RError 107 (2 s))
|
|
||||||
(TFlush 108 (2 2)) ;x6c
|
|
||||||
(RFlush 109 (2))
|
|
||||||
(TWalk 110 (2 4 4 (2 . s)))
|
|
||||||
(RWalk 111 (2 (2 . 13)))
|
|
||||||
(TOpen 112 (2 4 1)) ;x70
|
|
||||||
(ROpen 113 (2 13 4))
|
|
||||||
(TCreate 114 (2 4 s 4 1))
|
|
||||||
(RCreate 115 (2 13 4))
|
|
||||||
(TRead 116 (2 4 8 4)) ;x74
|
|
||||||
(RRead 117 (2 (4 . d)))
|
|
||||||
(TWrite 118 (2 4 8 (4 . s)))
|
|
||||||
(RRwrite 119 (2 4))
|
|
||||||
(TClunk 120 (2 4)) ;x78
|
|
||||||
(RClunk 121 (2))
|
|
||||||
(TRemove 122 (2 4))
|
|
||||||
(RRemove 123 (2))
|
|
||||||
(TStat 124 (2 4)) ;x7c
|
|
||||||
(RStat 125 (2 n))
|
|
||||||
(TWStat 126 (2 4 n))
|
|
||||||
(RWStat 127 (2)))) ;x7f
|
|
||||||
|
|
||||||
(define (spec-by-num num)
|
|
||||||
(let loop ((specs message-specs))
|
|
||||||
(cond
|
|
||||||
((null? specs)
|
|
||||||
#f)
|
|
||||||
((equal? (cadar specs) num)
|
|
||||||
(car specs))
|
|
||||||
(else
|
|
||||||
(loop (cdr specs))))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Helper procedures
|
|
||||||
;;
|
|
||||||
|
|
||||||
(define (u8-list->uint l)
|
|
||||||
(let loop ((l (reverse l))
|
|
||||||
(acc 0))
|
|
||||||
(if (null? l)
|
|
||||||
acc
|
|
||||||
(loop (cdr l)
|
|
||||||
(+ (* 256 acc)
|
|
||||||
(car l))))))
|
|
||||||
|
|
||||||
(define (uint->u8-list width i)
|
|
||||||
(if (zero? width)
|
|
||||||
'()
|
|
||||||
(let ((b (modulo i 256))
|
|
||||||
(r (floor (/ i 256))))
|
|
||||||
(cons b (uint->u8-list (- width 1) r)))))
|
|
||||||
|
|
||||||
;; XXX: s had better be printable 7-bit ASCII
|
|
||||||
(define (string->u8-list s)
|
|
||||||
(map char->integer (string->list s)))
|
|
||||||
|
|
||||||
(define (u8-list->string l)
|
|
||||||
(list->string (map integer->char l)))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Packing and unpacking, both deal with u8-lists
|
|
||||||
;;
|
|
||||||
|
|
||||||
(define (pack fmt args)
|
|
||||||
(let loop ((fmt fmt)
|
|
||||||
(args args)
|
|
||||||
(acc '()))
|
|
||||||
;;(write (list fmt args acc)) (newline)
|
|
||||||
(cond
|
|
||||||
((null? fmt)
|
|
||||||
acc)
|
|
||||||
((number? (car fmt))
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(cdr args)
|
|
||||||
(append acc (uint->u8-list (car fmt) (car args)))))
|
|
||||||
((equal? (car fmt) 's)
|
|
||||||
;;XXX Should handle UTF-8
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(cdr args)
|
|
||||||
(append acc
|
|
||||||
(uint->u8-list 2 (string-length (car args)))
|
|
||||||
(string->u8-list (car args)))))
|
|
||||||
((pair? (car fmt))
|
|
||||||
;; fmt item is (c . type), which gets packed to a c-octet n,
|
|
||||||
;; followed by n types.
|
|
||||||
(let ((count (length (car args))))
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(cdr args)
|
|
||||||
(append acc
|
|
||||||
(uint->u8-list (caar fmt) count)
|
|
||||||
(pack (make-list count (cdar fmt))
|
|
||||||
(car args))))))
|
|
||||||
((equal? (car fmt) 'n)
|
|
||||||
;; XXX: total guess here
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(cdr args)
|
|
||||||
(append acc (car args))))
|
|
||||||
(else
|
|
||||||
(error (format "Unknown format element: ~a" (car fmt)))))))
|
|
||||||
|
|
||||||
(define (unpack fmt l)
|
|
||||||
(reverse
|
|
||||||
(let loop ((fmt fmt)
|
|
||||||
(l l)
|
|
||||||
(acc '()))
|
|
||||||
;;(write (list fmt l acc)) (newline)
|
|
||||||
(cond
|
|
||||||
((null? fmt)
|
|
||||||
acc)
|
|
||||||
((number? (car fmt))
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(drop l (car fmt))
|
|
||||||
(cons (u8-list->uint (take l (car fmt)))
|
|
||||||
acc)))
|
|
||||||
((equal? (car fmt) 's)
|
|
||||||
(let ((len (u8-list->uint (take l 2)))
|
|
||||||
(m (drop l 2)))
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(drop m len)
|
|
||||||
(cons (u8-list->string (take m len))
|
|
||||||
acc))))
|
|
||||||
((pair? (car fmt))
|
|
||||||
(let* ((count (u8-list->uint (take l (caar fmt))))
|
|
||||||
(m (drop l (caar fmt))))
|
|
||||||
(receive (p octets)
|
|
||||||
(case (cdar fmt)
|
|
||||||
((s)
|
|
||||||
(let ((p (reverse (unpack (make-list count (cdar fmt))
|
|
||||||
l))))
|
|
||||||
(values p
|
|
||||||
(reduce + 0 (map string-length p)))))
|
|
||||||
((d)
|
|
||||||
(values (take m count)
|
|
||||||
count))
|
|
||||||
(else
|
|
||||||
(values (reverse (unpack (make-list count (cdar fmt))
|
|
||||||
l))
|
|
||||||
(* count (cdar fmt)))))
|
|
||||||
(loop (cdr fmt)
|
|
||||||
(drop m octets)
|
|
||||||
(cons p acc)))))
|
|
||||||
|
|
||||||
(else
|
|
||||||
(error (format "Unknown format element: ~a" (car fmt))))))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; Packet assembly and disassembly
|
|
||||||
;;
|
|
||||||
|
|
||||||
(define (make-packet type . args)
|
|
||||||
(let* ((spec (cdr (assoc type message-specs)))
|
|
||||||
(msgnum (car spec))
|
|
||||||
(fmt (cadr spec))
|
|
||||||
(p (pack fmt args)))
|
|
||||||
(append (uint->u8-list 4 (+ 5 (length p)))
|
|
||||||
(list msgnum)
|
|
||||||
p)))
|
|
||||||
|
|
||||||
(define (write-packet ixp type . args)
|
|
||||||
((ixp-write ixp) (apply make-packet (cons type args))))
|
|
||||||
|
|
||||||
(define (read-uint width ixp)
|
|
||||||
(u8-list->uint ((ixp-read ixp) width)))
|
|
||||||
|
|
||||||
(define (read-packet ixp)
|
|
||||||
(let* ((len (read-uint 4 ixp))
|
|
||||||
(msgnum (read-uint 1 ixp))
|
|
||||||
(spec (spec-by-num msgnum))
|
|
||||||
(fmt (caddr spec))
|
|
||||||
(datum ((ixp-read ixp) (- len 5))))
|
|
||||||
(cons (car spec)
|
|
||||||
(unpack fmt datum))))
|
|
||||||
|
|
||||||
|
|
||||||
;;
|
|
||||||
;; 9p record
|
|
||||||
;;
|
|
||||||
;; This is how I deal with the fact that no two scheme implementations
|
|
||||||
;; have the same socket API. There are no SRFIs for sockets so that's
|
|
||||||
;; not likely to change in the near future.
|
|
||||||
;;
|
|
||||||
;; You create one of these with (make-ixp read-u8-list write-u8-list).
|
|
||||||
;; read-u8-list should one argument, count, and return a list of length
|
|
||||||
;; count of octets (u8s) read from the socket. write-u8-list takes one
|
|
||||||
;; argument, l (a u8-list), and writes that to the socket.
|
|
||||||
;;
|
|
||||||
(define-record-type ixp
|
|
||||||
(make-ixp read-u8-list write-u8-list)
|
|
||||||
ixp?
|
|
||||||
(read-u8-list ixp-read)
|
|
||||||
(write-u8-list ixp-write))
|
|
||||||
|
|
||||||
|
|
||||||
(define (ixp-transaction ixp type . args)
|
|
||||||
(apply write-packet (append (list ixp type 1) args))
|
|
||||||
(let ((ret (read-packet ixp)))
|
|
||||||
(if (equal? (car ret) 'RError)
|
|
||||||
(error (format "IXP Recieve: ~a" ret))
|
|
||||||
ret)))
|
|
||||||
|
|
||||||
;; Rewriting this procedure should be all you need to do in order to
|
|
||||||
;; port this code.
|
|
||||||
(define (gauche-with-ixp socket proc)
|
|
||||||
(call-with-client-socket socket
|
|
||||||
(lambda (in out)
|
|
||||||
(let ((ixp (make-ixp
|
|
||||||
(lambda (count)
|
|
||||||
(let ((vec (make-u8vector count)))
|
|
||||||
(if (not (equal? (read-block! vec in) count))
|
|
||||||
(error "read-octets: short read")
|
|
||||||
(u8vector->list vec))))
|
|
||||||
(lambda (u8-list)
|
|
||||||
(write-block (list->u8vector u8-list) out)
|
|
||||||
(flush out)))))
|
|
||||||
(proc ixp)))))
|
|
||||||
|
|
||||||
|
|
||||||
(define (main args)
|
|
||||||
(gauche-with-ixp (make-client-socket 'unix "/tmp/ns.neale.:0/wmii")
|
|
||||||
(lambda (ixp)
|
|
||||||
(let ((root-fid #xf00fb1ba)
|
|
||||||
(fid 1)
|
|
||||||
(username "the dink")
|
|
||||||
(filename "event")
|
|
||||||
(data "hello\n"))
|
|
||||||
(ixp-transaction ixp 'TVersion 4096 "9P2000")
|
|
||||||
(ixp-transaction ixp 'TAttach root-fid #xffffffff username "")
|
|
||||||
|
|
||||||
(ixp-transaction ixp 'TWalk root-fid fid (list filename))
|
|
||||||
(ixp-transaction ixp 'TOpen fid 1)
|
|
||||||
(ixp-transaction ixp 'TWrite fid 0 (list data))
|
|
||||||
(ixp-transaction ixp 'TClunk fid)
|
|
||||||
|
|
||||||
(ixp-transaction ixp 'TWalk root-fid fid (list filename))
|
|
||||||
(ixp-transaction ixp 'TOpen fid 0)
|
|
||||||
(write
|
|
||||||
(let ((cl (caddr (ixp-transaction ixp 'TRead fid 0 4096))))
|
|
||||||
(ixp-transaction ixp 'TClunk fid)
|
|
||||||
(u8-list->string cl)))
|
|
||||||
(newline))))
|
|
||||||
0)
|
|
||||||
|
|
@ -1,38 +0,0 @@
|
||||||
#! /bin/sh -x
|
|
||||||
|
|
||||||
JUNK=$HOME/Maildir/.Junk
|
|
||||||
|
|
||||||
deliver () {
|
|
||||||
fn=`date +%s`.$$.`hostname`
|
|
||||||
mv $1 $2/tmp/$fn
|
|
||||||
mv $2/tmp/$fn $2/new/
|
|
||||||
chmod 600 $2/new/$fn
|
|
||||||
}
|
|
||||||
|
|
||||||
if [ -d $JUNK ]; then
|
|
||||||
tmp=`tempfile`
|
|
||||||
trap "rm -f $tmp" 0
|
|
||||||
|
|
||||||
bogofilter -p -u > $tmp
|
|
||||||
case $? in
|
|
||||||
0) # spam
|
|
||||||
deliver $tmp $JUNK
|
|
||||||
;;
|
|
||||||
1) # ham
|
|
||||||
/usr/lib/dovecot/deliver < $tmp
|
|
||||||
;;
|
|
||||||
2) # unsure
|
|
||||||
for d in .maybe -maybe; do
|
|
||||||
if [ -d $JUNK$d ]; then
|
|
||||||
deliver $tmp $JUNK$d
|
|
||||||
exit 0
|
|
||||||
fi
|
|
||||||
done
|
|
||||||
|
|
||||||
# Fall-through
|
|
||||||
/usr/lib/dovecot/deliver < $tmp
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
else
|
|
||||||
exec /usr/lib/dovecot/deliver
|
|
||||||
fi
|
|
||||||
|
|
@ -1,102 +0,0 @@
|
||||||
/*
|
|
||||||
* Description: Neale's DWM config
|
|
||||||
* Author: Neale Pickett <neale@woozle.org>
|
|
||||||
* Time-stamp: <2008-03-31 11:52:28 neale>
|
|
||||||
*/
|
|
||||||
|
|
||||||
#define TERM "rxvt"
|
|
||||||
|
|
||||||
/* appearance */
|
|
||||||
#define BORDERPX 2
|
|
||||||
#define FONT "-adobe-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*"
|
|
||||||
#define NORMBORDERCOLOR "#cfdde6"
|
|
||||||
#define SELBORDERCOLOR "#80d0ff"
|
|
||||||
#define NORMBGCOLOR "#69668b"
|
|
||||||
#define NORMFGCOLOR "#d3d1e6"
|
|
||||||
#define SELBGCOLOR "#ccb48f"
|
|
||||||
#define SELFGCOLOR "#000000"
|
|
||||||
|
|
||||||
/* tagging */
|
|
||||||
const char tags[][MAXTAGLEN] = { "1", "2", "3", "4", "5", "6", "7", "8", "9" };
|
|
||||||
|
|
||||||
Rule rules[] = {
|
|
||||||
/* class:instance:title substr tags ref isfloating */
|
|
||||||
{ "Gimp", tags[5], True },
|
|
||||||
{ "KNetworkManager", tags[8], False },
|
|
||||||
};
|
|
||||||
|
|
||||||
/* layout(s) */
|
|
||||||
#define RESIZEHINTS True /* False - respect size hints in tiled resizals */
|
|
||||||
#define SNAP 32 /* snap pixel */
|
|
||||||
|
|
||||||
Layout layouts[] = {
|
|
||||||
/* symbol function isfloating */
|
|
||||||
{ "[]=", tilev, False }, /* first entry is default */
|
|
||||||
{ "><>", floating, True },
|
|
||||||
{ "[M]", monocle, False },
|
|
||||||
};
|
|
||||||
|
|
||||||
const char *layoutcycle[] = {"[]=", "[M]"};
|
|
||||||
|
|
||||||
void
|
|
||||||
nextlayout(const char *arg)
|
|
||||||
{
|
|
||||||
static int which = 0;
|
|
||||||
|
|
||||||
which = (which + 1) % LENGTH(layoutcycle);
|
|
||||||
setlayout(layoutcycle[which]);
|
|
||||||
}
|
|
||||||
|
|
||||||
void
|
|
||||||
restart(const char *arg)
|
|
||||||
{
|
|
||||||
if (arg) {
|
|
||||||
execlp(arg, arg, NULL);
|
|
||||||
} else {
|
|
||||||
execlp("dwm", "dwm", NULL);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/* key definitions */
|
|
||||||
#define MODKEY Mod4Mask
|
|
||||||
Key keys[] = {
|
|
||||||
/* modifier key function argument */
|
|
||||||
{ MODKEY, XK_a, spawn,
|
|
||||||
"exec dmenu_run -fn '"FONT"' -nb '"NORMBGCOLOR"' -nf '"NORMFGCOLOR"' -sb '"SELBGCOLOR"' -sf '"SELFGCOLOR"'" },
|
|
||||||
{ MODKEY|ShiftMask, XK_Return, spawn, "exec " TERM },
|
|
||||||
{ MODKEY, XK_l, spawn, "exec screenlock" },
|
|
||||||
{ MODKEY, XK_m, spawn, "exec " TERM " -e ncmpc" },
|
|
||||||
{ MODKEY, XK_w, spawn, "exec mpc prev" },
|
|
||||||
{ MODKEY, XK_v, spawn, "exec mpc toggle" },
|
|
||||||
{ MODKEY, XK_z, spawn, "exec mpc next" },
|
|
||||||
|
|
||||||
{ MODKEY, XK_n, focusnext, NULL },
|
|
||||||
{ MODKEY, XK_t, focusprev, NULL },
|
|
||||||
{ MODKEY, XK_Return, zoom, NULL },
|
|
||||||
{ MODKEY, XK_equal, nextlayout, NULL },
|
|
||||||
{ MODKEY|ShiftMask, XK_equal, setlayout, "><>" },
|
|
||||||
{ MODKEY|ShiftMask, XK_space, togglefloating, NULL },
|
|
||||||
{ MODKEY, XK_grave, killclient, NULL },
|
|
||||||
{ MODKEY, XK_0, view, NULL },
|
|
||||||
{ MODKEY, XK_1, view, tags[0] },
|
|
||||||
{ MODKEY, XK_2, view, tags[1] },
|
|
||||||
{ MODKEY, XK_3, view, tags[2] },
|
|
||||||
{ MODKEY, XK_4, view, tags[3] },
|
|
||||||
{ MODKEY, XK_5, view, tags[4] },
|
|
||||||
{ MODKEY, XK_6, view, tags[5] },
|
|
||||||
{ MODKEY, XK_7, view, tags[6] },
|
|
||||||
{ MODKEY, XK_8, view, tags[7] },
|
|
||||||
{ MODKEY, XK_9, view, tags[8] },
|
|
||||||
{ MODKEY|ShiftMask, XK_0, tag, NULL },
|
|
||||||
{ MODKEY|ShiftMask, XK_1, tag, tags[0] },
|
|
||||||
{ MODKEY|ShiftMask, XK_2, tag, tags[1] },
|
|
||||||
{ MODKEY|ShiftMask, XK_3, tag, tags[2] },
|
|
||||||
{ MODKEY|ShiftMask, XK_4, tag, tags[3] },
|
|
||||||
{ MODKEY|ShiftMask, XK_5, tag, tags[4] },
|
|
||||||
{ MODKEY|ShiftMask, XK_6, tag, tags[5] },
|
|
||||||
{ MODKEY|ShiftMask, XK_7, tag, tags[6] },
|
|
||||||
{ MODKEY|ShiftMask, XK_8, tag, tags[7] },
|
|
||||||
{ MODKEY|ShiftMask, XK_9, tag, tags[8] },
|
|
||||||
{ MODKEY, XK_q, restart, NULL },
|
|
||||||
{ MODKEY|ShiftMask, XK_q, quit, NULL },
|
|
||||||
};
|
|
||||||
|
|
@ -1,389 +0,0 @@
|
||||||
(** A stupid adventure game
|
|
||||||
|
|
||||||
Nick wanted an adventure game framework. Here ya go, Nick.
|
|
||||||
|
|
||||||
Compile this with
|
|
||||||
ocamlc -o foo foo.ml
|
|
||||||
|
|
||||||
@author Neale Pickett <neale@woozle.org>
|
|
||||||
|
|
||||||
*)
|
|
||||||
|
|
||||||
(** Directions *)
|
|
||||||
type direction = North | South | East | West | Up | Down | Emad
|
|
||||||
|
|
||||||
(** An item *)
|
|
||||||
type item = {
|
|
||||||
names: string list;
|
|
||||||
i_full_name: string;
|
|
||||||
i_description: string;
|
|
||||||
actions: (string * (item -> unit)) list;
|
|
||||||
}
|
|
||||||
|
|
||||||
(** A room. Contents are mutable so that the player can pick stuff
|
|
||||||
up. Exits are mutable so that I can link them back and forth *)
|
|
||||||
type room = {
|
|
||||||
r_full_name: string;
|
|
||||||
r_description: string;
|
|
||||||
mutable contents: item list;
|
|
||||||
mutable exits: (direction * room) list;
|
|
||||||
}
|
|
||||||
|
|
||||||
(** The player *)
|
|
||||||
type player = {
|
|
||||||
mutable carrying: item list;
|
|
||||||
mutable location: room;
|
|
||||||
}
|
|
||||||
|
|
||||||
let player = {
|
|
||||||
carrying = [];
|
|
||||||
location = {
|
|
||||||
r_full_name = "Nowhere";
|
|
||||||
r_description = "Non-descript";
|
|
||||||
contents = [];
|
|
||||||
exits = []
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
(*
|
|
||||||
*
|
|
||||||
* General functions
|
|
||||||
*
|
|
||||||
*)
|
|
||||||
|
|
||||||
(** Relocate something
|
|
||||||
|
|
||||||
Note that this does no checks to make sure the item is actually in
|
|
||||||
src!
|
|
||||||
|
|
||||||
@param i item to relocate
|
|
||||||
@param src where it comes from
|
|
||||||
@param dst where it goes
|
|
||||||
@return (new src, new dst)
|
|
||||||
*)
|
|
||||||
let move i src dst =
|
|
||||||
(List.filter ((!=) i) src,
|
|
||||||
i :: dst)
|
|
||||||
|
|
||||||
|
|
||||||
(** Is the player carrying an item? *)
|
|
||||||
let carrying p i =
|
|
||||||
List.exists ((==) i) p.carrying
|
|
||||||
|
|
||||||
(** Drop something *)
|
|
||||||
let drop i =
|
|
||||||
if carrying player i then
|
|
||||||
let carrying, contents = move i player.carrying player.location.contents in
|
|
||||||
player.carrying <- carrying;
|
|
||||||
player.location.contents <- contents;
|
|
||||||
else
|
|
||||||
raise (Failure ("You're not carrying " ^ i.i_full_name ^ "!"))
|
|
||||||
|
|
||||||
|
|
||||||
(** Pick something up *)
|
|
||||||
let get i =
|
|
||||||
if carrying player i then
|
|
||||||
raise (Failure ("You already have " ^ i.i_full_name ^ "!"))
|
|
||||||
else if List.exists ((==) i) player.location.contents then
|
|
||||||
let contents, carrying = move i player.location.contents player.carrying in
|
|
||||||
player.carrying <- carrying;
|
|
||||||
player.location.contents <- contents;
|
|
||||||
else
|
|
||||||
raise (Failure ("You don't see " ^ i.i_full_name ^ " here!"))
|
|
||||||
|
|
||||||
|
|
||||||
(** Describe an item *)
|
|
||||||
let describe i =
|
|
||||||
print_endline i.i_description
|
|
||||||
|
|
||||||
(*
|
|
||||||
*
|
|
||||||
* Rooms
|
|
||||||
*
|
|
||||||
* There's really no need to clutter up the global namespace here,
|
|
||||||
* since all I really need is "start_location" to set the starting
|
|
||||||
* location.
|
|
||||||
*
|
|
||||||
*)
|
|
||||||
let start_location =
|
|
||||||
let bigroom = { (* Big room *)
|
|
||||||
r_full_name = "The big room";
|
|
||||||
r_description = "This is that big room just outside the computer lab " ^
|
|
||||||
"with the blue ceiling. It smells fresh, yet dirty at the same time. " ^
|
|
||||||
"Off to the north is a grassy knoll.";
|
|
||||||
contents = [
|
|
||||||
{ (* lantern *)
|
|
||||||
names = ["brass lantern"; "brass"; "lantern"; "lamp"; "light"];
|
|
||||||
i_full_name = "a brass lantern";
|
|
||||||
i_description = "This rusty lantern looks like it's been used in " ^
|
|
||||||
"one too many adventure games.";
|
|
||||||
actions = [
|
|
||||||
("rub",
|
|
||||||
fun self ->
|
|
||||||
print_endline "Nothing happens.";
|
|
||||||
);
|
|
||||||
("kick",
|
|
||||||
fun self ->
|
|
||||||
print_endline "There'll be a hot time in the old town tonight!";
|
|
||||||
)
|
|
||||||
]
|
|
||||||
};
|
|
||||||
{ (* stone *)
|
|
||||||
names = ["smooth"; "stone"; "rock"];
|
|
||||||
i_full_name = "a smooth stone";
|
|
||||||
i_description = "This stone is smooth. Yes it is.";
|
|
||||||
actions = [
|
|
||||||
("rub",
|
|
||||||
fun self ->
|
|
||||||
print_endline "Your worries seem to vanish.";
|
|
||||||
);
|
|
||||||
("throw",
|
|
||||||
fun self ->
|
|
||||||
print_endline "You throw the stone.";
|
|
||||||
let carrying, contents = (move self player.carrying
|
|
||||||
player.location.contents) in
|
|
||||||
drop self;
|
|
||||||
print_endline "It lands a stone's throw away.";
|
|
||||||
)
|
|
||||||
]
|
|
||||||
}
|
|
||||||
];
|
|
||||||
exits = []
|
|
||||||
}
|
|
||||||
in
|
|
||||||
let knoll = { (* Grassy knoll *)
|
|
||||||
r_full_name = "Grassy knoll";
|
|
||||||
r_description = "You find yourself standing on the top of a " ^
|
|
||||||
"small mound. The green carpeting of grass beneath your feet " ^
|
|
||||||
"beckons kite-flying or frisbee-throwing. Near the bottom of the " ^
|
|
||||||
"mound is a funny-looking man intensely examining a teacup. He " ^
|
|
||||||
"is wearing a nametag reading \"Emad\".";
|
|
||||||
contents = [];
|
|
||||||
exits = []
|
|
||||||
}
|
|
||||||
in
|
|
||||||
let emad = {
|
|
||||||
r_full_name = "Emad"; (* Emad *)
|
|
||||||
r_description = "You are in Emad. How unpleasant.";
|
|
||||||
contents = [
|
|
||||||
{ (* ham sandwich *)
|
|
||||||
names = ["ham and bacon sandwich"; "bacon sandwich"; "ham sandwich";
|
|
||||||
"sandwich"; "ham"; "bacon"];
|
|
||||||
i_full_name = "a delicious ham and bacon sandwich";
|
|
||||||
i_description = "Named after John Montagu, fourth Earl of Sandwich, " ^
|
|
||||||
"this savory instance is comprised of ham and bacon, \"sandwiched\" " ^
|
|
||||||
"as it were between two slices of whole-wheat bread.";
|
|
||||||
actions = [
|
|
||||||
("eat",
|
|
||||||
fun self ->
|
|
||||||
print_endline "A little acidic, but not bad."
|
|
||||||
)
|
|
||||||
]
|
|
||||||
}
|
|
||||||
];
|
|
||||||
exits = []
|
|
||||||
}
|
|
||||||
in
|
|
||||||
begin
|
|
||||||
bigroom.exits <- [(North, knoll)];
|
|
||||||
knoll.exits <- [(South, bigroom);
|
|
||||||
(Emad, emad)];
|
|
||||||
emad.exits <- [(Up, knoll)];
|
|
||||||
bigroom
|
|
||||||
end
|
|
||||||
|
|
||||||
let describe_room r =
|
|
||||||
let rec display_items = function
|
|
||||||
| [] ->
|
|
||||||
" nothing"
|
|
||||||
| [i] -> (* just one *)
|
|
||||||
(" " ^ i.i_full_name)
|
|
||||||
| [i; j] -> (* two *)
|
|
||||||
(" " ^ i.i_full_name ^
|
|
||||||
", and " ^ j.i_full_name)
|
|
||||||
| i :: j :: tl -> (* multiple *)
|
|
||||||
(" " ^ i.i_full_name ^ "," ^
|
|
||||||
display_items (j :: tl))
|
|
||||||
in
|
|
||||||
print_endline "";
|
|
||||||
print_endline r.r_full_name;
|
|
||||||
print_endline "";
|
|
||||||
print_endline r.r_description;
|
|
||||||
if (r.contents = []) then
|
|
||||||
print_endline ""
|
|
||||||
else
|
|
||||||
print_endline ("You see" ^ (display_items r.contents) ^ " here.")
|
|
||||||
|
|
||||||
|
|
||||||
(*
|
|
||||||
*
|
|
||||||
* Player functions
|
|
||||||
*
|
|
||||||
*)
|
|
||||||
|
|
||||||
|
|
||||||
let rec find_item name l =
|
|
||||||
match (name, l) with
|
|
||||||
| _, [] ->
|
|
||||||
raise Not_found
|
|
||||||
| name, i :: tl ->
|
|
||||||
if List.exists ((=) name) i.names then
|
|
||||||
i
|
|
||||||
else
|
|
||||||
find_item name tl
|
|
||||||
|
|
||||||
let rec find_action action l =
|
|
||||||
match (action, l) with
|
|
||||||
| _, [] ->
|
|
||||||
raise Not_found
|
|
||||||
| action, (name, func) :: tl ->
|
|
||||||
if (action = name) then
|
|
||||||
func
|
|
||||||
else
|
|
||||||
find_action action tl
|
|
||||||
|
|
||||||
(** Apply action to name
|
|
||||||
|
|
||||||
@param action What to do
|
|
||||||
@param name What to do it to
|
|
||||||
*)
|
|
||||||
let apply_action action name =
|
|
||||||
match action with
|
|
||||||
| "describe" | "look" | "l" ->
|
|
||||||
let i = try
|
|
||||||
find_item name player.carrying
|
|
||||||
with Not_found ->
|
|
||||||
try
|
|
||||||
find_item name player.location.contents
|
|
||||||
with Not_found ->
|
|
||||||
raise (Failure "You're not carrying that.")
|
|
||||||
in
|
|
||||||
describe i
|
|
||||||
| "take" | "get" ->
|
|
||||||
let i = try
|
|
||||||
find_item name player.location.contents
|
|
||||||
with Not_found ->
|
|
||||||
raise (Failure "You don't see that here.")
|
|
||||||
in
|
|
||||||
get i;
|
|
||||||
print_endline "Taken."
|
|
||||||
| "drop" ->
|
|
||||||
let i = try
|
|
||||||
find_item name player.carrying
|
|
||||||
with Not_found ->
|
|
||||||
raise (Failure "You're not carrying that.")
|
|
||||||
in
|
|
||||||
drop i;
|
|
||||||
print_endline "Dropped."
|
|
||||||
| _ ->
|
|
||||||
let i = try
|
|
||||||
find_item name player.carrying
|
|
||||||
with Not_found ->
|
|
||||||
raise (Failure "You don't have that.")
|
|
||||||
in
|
|
||||||
let a = try
|
|
||||||
find_action action i.actions
|
|
||||||
with Not_found ->
|
|
||||||
raise (Failure ("You can't do that to " ^ i.i_full_name ^ "."))
|
|
||||||
in
|
|
||||||
a i
|
|
||||||
|
|
||||||
(** Move the player
|
|
||||||
|
|
||||||
@param dir direction
|
|
||||||
*)
|
|
||||||
let go dir =
|
|
||||||
let moveout (d, room) =
|
|
||||||
if d = dir then
|
|
||||||
begin
|
|
||||||
player.location <- room;
|
|
||||||
describe_room player.location;
|
|
||||||
end
|
|
||||||
in
|
|
||||||
let here = player.location in
|
|
||||||
List.iter moveout player.location.exits;
|
|
||||||
if here == player.location then
|
|
||||||
raise (Failure "You can't get there from here.")
|
|
||||||
|
|
||||||
(** Display inventory
|
|
||||||
*)
|
|
||||||
let inventory () =
|
|
||||||
let print_item i =
|
|
||||||
print_endline ("* " ^ i.i_full_name)
|
|
||||||
in
|
|
||||||
if (player.carrying = []) then
|
|
||||||
print_endline "You are empty-handed."
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
print_endline "You are carrying: ";
|
|
||||||
List.iter print_item player.carrying
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
(** Do something
|
|
||||||
|
|
||||||
@param action What to do
|
|
||||||
*)
|
|
||||||
let do_action action =
|
|
||||||
match action with
|
|
||||||
| "inventory" | "inv" | "i" ->
|
|
||||||
inventory ()
|
|
||||||
| "look" | "l" ->
|
|
||||||
describe_room player.location
|
|
||||||
| "north" | "n" ->
|
|
||||||
go North
|
|
||||||
| "south" | "s" ->
|
|
||||||
go South
|
|
||||||
| "east" | "e" ->
|
|
||||||
go East
|
|
||||||
| "west" | "w" ->
|
|
||||||
go West
|
|
||||||
| "up" | "u" ->
|
|
||||||
go Up
|
|
||||||
| "down" | "d" ->
|
|
||||||
go Down
|
|
||||||
| "emad" ->
|
|
||||||
go Emad
|
|
||||||
| _ ->
|
|
||||||
print_endline "I'm sorry, Dave, I'm afraid I can't do that."
|
|
||||||
|
|
||||||
(** Parse a line
|
|
||||||
|
|
||||||
@param str the line to parse
|
|
||||||
*)
|
|
||||||
let parse str =
|
|
||||||
try
|
|
||||||
let action, name =
|
|
||||||
let pos = String.index str ' ' in
|
|
||||||
(String.sub str 0 pos,
|
|
||||||
String.sub str (pos + 1) ((String.length str) - pos - 1))
|
|
||||||
in
|
|
||||||
apply_action action name
|
|
||||||
with Not_found ->
|
|
||||||
do_action str
|
|
||||||
|
|
||||||
(** Read-Eval-Print loop
|
|
||||||
*)
|
|
||||||
let rec repl () =
|
|
||||||
let line = read_line () in
|
|
||||||
print_endline "";
|
|
||||||
begin
|
|
||||||
try
|
|
||||||
parse (String.lowercase line)
|
|
||||||
with Failure str ->
|
|
||||||
print_endline str
|
|
||||||
end;
|
|
||||||
repl ()
|
|
||||||
|
|
||||||
let main () =
|
|
||||||
player.location <- start_location;
|
|
||||||
describe_room player.location;
|
|
||||||
repl ()
|
|
||||||
|
|
||||||
let _ =
|
|
||||||
try
|
|
||||||
main ()
|
|
||||||
with End_of_file ->
|
|
||||||
()
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,38 +0,0 @@
|
||||||
#! /bin/sh
|
|
||||||
|
|
||||||
frm="$1"
|
|
||||||
ext="$2"
|
|
||||||
base="${HOME}/.gourmet"
|
|
||||||
|
|
||||||
num="`echo $ext | sed -n 's/^\([0-9]*\)-.*/\1/p'`"
|
|
||||||
|
|
||||||
if [ -z "$num" ]; then
|
|
||||||
# No number; not a gourmet address
|
|
||||||
exec cat
|
|
||||||
fi
|
|
||||||
|
|
||||||
if ! [ -d "$base" ]; then
|
|
||||||
mkdir "$base"
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ -f "$base/$ext" ]; then
|
|
||||||
num="`cat $base/$ext`"
|
|
||||||
fi
|
|
||||||
|
|
||||||
left=`expr "$num" - 1`
|
|
||||||
echo $left > "$base/$ext"
|
|
||||||
|
|
||||||
if [ "$num" -gt 0 ]; then
|
|
||||||
exec awk "
|
|
||||||
{
|
|
||||||
if (! p && /^Subject: /) {
|
|
||||||
sub(\"^Subject: \", \"Subject: <$ext: $left left> \");
|
|
||||||
p = 1;
|
|
||||||
}
|
|
||||||
print;
|
|
||||||
}"
|
|
||||||
fi
|
|
||||||
|
|
||||||
# Must have sent too many, return permanent failure code
|
|
||||||
echo "Address has self-destructed." 1>&2
|
|
||||||
exit 69
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
Title: Miscellaneous hacks
|
|
||||||
|
|
||||||
Binary file not shown.
|
|
@ -1,86 +0,0 @@
|
||||||
#!/usr/bin/python
|
|
||||||
|
|
||||||
description = '''All Maildir++ folders are checked for old mail. Any messages older than
|
|
||||||
DAYS days than the newest message in a folder are removed. If there is
|
|
||||||
a file named"expire" in a maildir, its contents will be used instead of
|
|
||||||
DAYS for that folder. You can put "12345678" in the "expire" file to
|
|
||||||
set an expiration of 1413 years, which is probably longer than you will
|
|
||||||
care about the mail folder.
|
|
||||||
|
|
||||||
Specify a path in MAILDIR to check a specific Maildir. Subfolders will
|
|
||||||
not be checked in this case.
|
|
||||||
|
|
||||||
'''
|
|
||||||
|
|
||||||
import glob
|
|
||||||
import os
|
|
||||||
import sys
|
|
||||||
import optparse
|
|
||||||
|
|
||||||
progname = sys.argv[0]
|
|
||||||
debug = 0
|
|
||||||
|
|
||||||
def expire(dirname, days):
|
|
||||||
expire = "%s/expire" % dirname
|
|
||||||
if os.path.exists(expire):
|
|
||||||
days = int(open(expire).read())
|
|
||||||
secs = long(days) * 24 * 60 * 60
|
|
||||||
messages = glob.glob("%s/cur/*" % dirname)
|
|
||||||
messages += glob.glob("%s/new/*" % dirname)
|
|
||||||
if not messages:
|
|
||||||
return
|
|
||||||
messages = [(os.path.getmtime(m), m) for m in messages]
|
|
||||||
messages.sort()
|
|
||||||
latest = messages[-1][0]
|
|
||||||
for m in messages:
|
|
||||||
if (m[0] + secs) < latest:
|
|
||||||
try:
|
|
||||||
_, flags = m[1].split(',')
|
|
||||||
except ValueError:
|
|
||||||
continue
|
|
||||||
if 'S' in flags:
|
|
||||||
# Only if the mail's been seen
|
|
||||||
if debug:
|
|
||||||
print m[1]
|
|
||||||
else:
|
|
||||||
os.remove(m[1])
|
|
||||||
|
|
||||||
def usage(err=None):
|
|
||||||
if err:
|
|
||||||
print "Error: %s" % err
|
|
||||||
print
|
|
||||||
print __doc__ % globals()
|
|
||||||
if err:
|
|
||||||
sys.exit(1)
|
|
||||||
else:
|
|
||||||
sys.exit()
|
|
||||||
|
|
||||||
def main():
|
|
||||||
import optparse
|
|
||||||
global debug
|
|
||||||
|
|
||||||
parser = optparse.OptionParser(usage='usage: %prog [options] [MAILDIR ...]',
|
|
||||||
description=description)
|
|
||||||
parser.add_option('-d', '--debug', dest='debug', action='store_true',
|
|
||||||
help="run in debug mode (don't do anything)")
|
|
||||||
parser.add_option('-t', '--time', dest='days', metavar='DAYS', type='int',
|
|
||||||
default=90,
|
|
||||||
help="Mail older than DAYS days will be removed (default 90)")
|
|
||||||
options, args = parser.parse_args()
|
|
||||||
|
|
||||||
debug = options.debug
|
|
||||||
|
|
||||||
if (len(args) == 0):
|
|
||||||
base = os.path.expanduser("~/Maildir")
|
|
||||||
files = [os.path.join(base, x) for x in os.listdir(base) if x[0] == '.']
|
|
||||||
dirs = [f for f in files if os.path.isdir(f)]
|
|
||||||
dirs.append(base)
|
|
||||||
else:
|
|
||||||
dirs = args
|
|
||||||
|
|
||||||
for d in dirs:
|
|
||||||
expire(d, options.days)
|
|
||||||
|
|
||||||
|
|
||||||
if __name__ == "__main__":
|
|
||||||
main()
|
|
||||||
|
|
@ -1,190 +0,0 @@
|
||||||
#! /usr/bin/python
|
|
||||||
|
|
||||||
import os
|
|
||||||
import glob
|
|
||||||
import time
|
|
||||||
from sets import Set
|
|
||||||
|
|
||||||
bogosity = {'U': "Unsure",
|
|
||||||
'S': "Spam",
|
|
||||||
'H': "Ham"}
|
|
||||||
|
|
||||||
def classification(filename):
|
|
||||||
f = file(filename)
|
|
||||||
for l in f:
|
|
||||||
if l.startswith('X-Bogosity: '):
|
|
||||||
return l[12]
|
|
||||||
elif not l.strip():
|
|
||||||
return None
|
|
||||||
|
|
||||||
def reclassify(oldtype, newtype, filenames):
|
|
||||||
cmd = 'bogofilter -b -v'
|
|
||||||
t = oldtype + newtype
|
|
||||||
if t == 'SH':
|
|
||||||
cmd += ' -Sn'
|
|
||||||
elif t == 'HS':
|
|
||||||
cmd += ' -Ns'
|
|
||||||
elif t == 'UH':
|
|
||||||
cmd += ' -n'
|
|
||||||
elif t == 'US':
|
|
||||||
cmd += ' -s'
|
|
||||||
else:
|
|
||||||
raise ValueError('Unable to reclassify %s' % t)
|
|
||||||
|
|
||||||
cmd += ' 2>/dev/null'
|
|
||||||
|
|
||||||
# Reclassify them
|
|
||||||
f = os.popen(cmd, 'w')
|
|
||||||
for fn in filenames:
|
|
||||||
f.write('%s\n' % fn)
|
|
||||||
ret = f.close()
|
|
||||||
if ret:
|
|
||||||
raise IOError("bogofilter puked on %s (%r)" % (fn, ret))
|
|
||||||
|
|
||||||
# Add new bogosity header
|
|
||||||
for fn in filenames:
|
|
||||||
base, filename = os.path.split(fn)
|
|
||||||
folder, _ = os.path.split(base)
|
|
||||||
tmpfn = os.path.join(folder, 'tmp', filename)
|
|
||||||
|
|
||||||
inf = file(fn)
|
|
||||||
outf = file(tmpfn, 'w')
|
|
||||||
|
|
||||||
headered = False
|
|
||||||
for l in inf:
|
|
||||||
if l.startswith('X-Bogosity: '):
|
|
||||||
l = (('X-Bogosity: %s (Reclassified), was ' % bogosity[newtype])
|
|
||||||
+ l[12:])
|
|
||||||
headered = True
|
|
||||||
elif not l.strip() and not headered:
|
|
||||||
l = (('X-Bogosity: %s (Reclassified)\n' % bogosity[newtype]))
|
|
||||||
headered = True
|
|
||||||
outf.write(l)
|
|
||||||
os.rename(tmpfn, fn)
|
|
||||||
|
|
||||||
def visit(path, folder_type):
|
|
||||||
# Read in list of already-processed files
|
|
||||||
visited = os.path.join(path, 'spamfairy-visited')
|
|
||||||
oldfiles = Set()
|
|
||||||
try:
|
|
||||||
f = file(visited)
|
|
||||||
for l in f:
|
|
||||||
oldfiles.add(l.strip())
|
|
||||||
f.close()
|
|
||||||
except IOError:
|
|
||||||
pass
|
|
||||||
|
|
||||||
if folder_type == 'S':
|
|
||||||
subdirs = ('cur', 'new')
|
|
||||||
else:
|
|
||||||
subdirs = ('cur',)
|
|
||||||
|
|
||||||
for sd in subdirs:
|
|
||||||
# Read in list of current files in the directory
|
|
||||||
root = os.path.join(path, sd)
|
|
||||||
files = Set(os.listdir(root))
|
|
||||||
|
|
||||||
# We only consider the difference
|
|
||||||
todo = files - oldfiles
|
|
||||||
|
|
||||||
# Check new messages for reclassification
|
|
||||||
reclass = {} # {oldtype: [filenames]}
|
|
||||||
for fn in todo:
|
|
||||||
fn = os.path.join(root, fn)
|
|
||||||
c = classification(fn)
|
|
||||||
if not c:
|
|
||||||
continue
|
|
||||||
if c != folder_type:
|
|
||||||
l = reclass.setdefault(c, [])
|
|
||||||
l.append(fn)
|
|
||||||
|
|
||||||
# Reclassify anything that needs it
|
|
||||||
for c, filenames in reclass.iteritems():
|
|
||||||
try:
|
|
||||||
reclassify(c, folder_type, filenames)
|
|
||||||
except ValueError:
|
|
||||||
pass
|
|
||||||
|
|
||||||
# Write out new list of processed files
|
|
||||||
new_visited = "%s.%d" % (visited, os.getpid())
|
|
||||||
f = file(new_visited, 'w')
|
|
||||||
for fn in files:
|
|
||||||
f.write('%s\n' % fn)
|
|
||||||
f.close()
|
|
||||||
os.rename(new_visited, visited)
|
|
||||||
|
|
||||||
|
|
||||||
def get_folder_type(path):
|
|
||||||
"""Auto-detect type of a maildir.
|
|
||||||
|
|
||||||
You can have the following files in your maildir:
|
|
||||||
spamfairy-ignore : skip this folder entirely
|
|
||||||
spamfairy-spam : treat this folder as spam
|
|
||||||
spamfairy-ham : treat this folder as ham
|
|
||||||
|
|
||||||
Otherwise, check the name of the folder:
|
|
||||||
Trash : skip
|
|
||||||
Drafts : skip
|
|
||||||
Sent : skip
|
|
||||||
Unsure : skip
|
|
||||||
Junk.maybe : skip
|
|
||||||
Junk : spam
|
|
||||||
|
|
||||||
Otherwise, treat it as a ham folder.
|
|
||||||
|
|
||||||
Return values are None for skip, 'S' for spam, 'H' for ham
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
path = os.path.realpath(path)
|
|
||||||
_, folder = os.path.split(path)
|
|
||||||
folder = folder.lower()
|
|
||||||
if os.path.exists(os.path.join(path, 'spamfairy-ignore')):
|
|
||||||
return None
|
|
||||||
elif os.path.exists(os.path.join(path, 'spamfairy-ham')):
|
|
||||||
return 'H'
|
|
||||||
elif os.path.exists(os.path.join(path, 'spamfairy-spam')):
|
|
||||||
return 'S'
|
|
||||||
elif folder in ('.sent', '.drafts', '.trash', '.unsure', '.junk.maybe'):
|
|
||||||
return None
|
|
||||||
elif folder in ('.junk', '.spam'):
|
|
||||||
return 'S'
|
|
||||||
else:
|
|
||||||
return 'H'
|
|
||||||
|
|
||||||
|
|
||||||
def sprinkle(folders):
|
|
||||||
"""Sprinkle magic spamfairy dust on the given folders"""
|
|
||||||
|
|
||||||
if not folders:
|
|
||||||
maildir = os.path.expanduser(os.path.join('~', 'Maildir'))
|
|
||||||
folders = [maildir]
|
|
||||||
folders += glob.glob(os.path.join(maildir, '.??*'))
|
|
||||||
|
|
||||||
# Only do maildirs
|
|
||||||
folders = filter(lambda d: os.path.isdir(os.path.join(d, 'cur')),
|
|
||||||
folders)
|
|
||||||
|
|
||||||
for path in folders:
|
|
||||||
folder_type = get_folder_type(path)
|
|
||||||
if not folder_type:
|
|
||||||
continue
|
|
||||||
visit(path, folder_type)
|
|
||||||
|
|
||||||
def compact(wordlist):
|
|
||||||
"""Compact bogofilter database"""
|
|
||||||
otime = os.path.getmtime(wordlist)
|
|
||||||
now = time.time()
|
|
||||||
if now - otime > 60*60*24*11:
|
|
||||||
new = '%s.new' % wordlist
|
|
||||||
ret = os.system('bogoutil -d %s | bogoutil -l %s' % (wordlist, new))
|
|
||||||
if not ret:
|
|
||||||
os.rename(new, wordlist)
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
import sys
|
|
||||||
|
|
||||||
wordlist = os.path.expanduser(os.path.join('~', '.bogofilter', 'wordlist.db'))
|
|
||||||
if os.path.exists(wordlist):
|
|
||||||
sprinkle(sys.argv[1:])
|
|
||||||
compact(wordlist)
|
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -1,4 +0,0 @@
|
||||||
index.html: - 12dab84c3ad5b0dba380c051471c14d6 - -
|
|
||||||
index.ptml: 1042003175 - 39a0ed00cb554392574b5955dbdc0af9 -
|
|
||||||
links.html: - 962d7fd4c69ea67cfeb1d0cc88e892a6 - -
|
|
||||||
links.ptml: 1041913579 - bd8a21beca5f285bf5e8ba50e86f340f -
|
|
||||||
|
|
@ -1,562 +0,0 @@
|
||||||
%!PS-Adobe-2.0
|
|
||||||
%%Title: Alice in DIGITALand -- an example application of skel.ps
|
|
||||||
%%Creator: Neale Pickett <neale@lanl.gov>
|
|
||||||
%%CreationDate: Thu Nov 22 15:27:53 MST 1998
|
|
||||||
%% Time-stamp: <2002-10-22 09:34:24 neale>
|
|
||||||
%%EndComments
|
|
||||||
|
|
||||||
/FontSize 12 def
|
|
||||||
|
|
||||||
/RegFont /Times-Roman def
|
|
||||||
/BoldFont /Times-Bold def
|
|
||||||
/ItalFont /Times-Italic def
|
|
||||||
|
|
||||||
/RegFSet RegFont findfont FontSize scalefont def
|
|
||||||
/BoldFSet BoldFont findfont FontSize scalefont def
|
|
||||||
/HeadFSet BoldFont findfont FontSize 1.1 mul scalefont def
|
|
||||||
/ItalFSet ItalFont findfont FontSize scalefont def
|
|
||||||
|
|
||||||
/SetRegFont { RegFSet setfont } def
|
|
||||||
/SetBoldFont { BoldFSet setfont } def
|
|
||||||
/SetHeadFont { HeadFSet setfont } def
|
|
||||||
/SetItalFont { ItalFSet setfont } def
|
|
||||||
|
|
||||||
/LM 50 def
|
|
||||||
/BM 50 def
|
|
||||||
/RM 580 LM sub def
|
|
||||||
/TM 760 BM sub def
|
|
||||||
|
|
||||||
/indentLevel 30 def
|
|
||||||
|
|
||||||
% Re-set the margins
|
|
||||||
/reset_margins {
|
|
||||||
/lm LM def
|
|
||||||
/rm RM def
|
|
||||||
} def
|
|
||||||
|
|
||||||
reset_margins
|
|
||||||
|
|
||||||
% Move down just a little
|
|
||||||
/down {
|
|
||||||
reset_margins
|
|
||||||
lm indentation add currentpoint exch pop
|
|
||||||
FontSize 3 div sub
|
|
||||||
moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Move to the next line
|
|
||||||
/next {
|
|
||||||
reset_margins
|
|
||||||
lm indentation add currentpoint exch pop % LM Y
|
|
||||||
FontSize 1.1 mul sub % LM Y'
|
|
||||||
moveto
|
|
||||||
currentpoint exch pop
|
|
||||||
BM lt {
|
|
||||||
showpage
|
|
||||||
LM TM moveto
|
|
||||||
} {} ifelse
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Move to the previous line
|
|
||||||
/prev {
|
|
||||||
lm indentation add currentpoint exch pop % LM Y
|
|
||||||
FontSize 1.1 mul add % LM Y'
|
|
||||||
moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Re-align the indentation
|
|
||||||
/align {
|
|
||||||
lm indentation add currentpoint exch pop moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Indent once
|
|
||||||
/indentation 0 def
|
|
||||||
/indent {
|
|
||||||
/indentation indentation indentLevel add def
|
|
||||||
align
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Deindent
|
|
||||||
/deindent {
|
|
||||||
/indentation indentation indentLevel sub def
|
|
||||||
align
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show left justified
|
|
||||||
/lshow {
|
|
||||||
gsave
|
|
||||||
% Set the left margin
|
|
||||||
dup
|
|
||||||
stringwidth pop
|
|
||||||
LM add
|
|
||||||
/lm exch def
|
|
||||||
|
|
||||||
currentpoint exch pop % (str) Y
|
|
||||||
LM exch % (str) x Y
|
|
||||||
moveto show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show centered
|
|
||||||
/cshow {
|
|
||||||
gsave
|
|
||||||
dup % (str) (str)
|
|
||||||
stringwidth pop % (str) x
|
|
||||||
2 div % (str) x/2
|
|
||||||
RM LM sub 2 div % (str) x/2 RM/2
|
|
||||||
exch sub LM add % (str) x'
|
|
||||||
currentpoint exch pop % (str) x' Y
|
|
||||||
moveto show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show right justified
|
|
||||||
/rshow {
|
|
||||||
gsave
|
|
||||||
dup % (str) (str)
|
|
||||||
stringwidth pop % (str) x
|
|
||||||
|
|
||||||
% set the right margin
|
|
||||||
dup
|
|
||||||
RM exch sub padwidth sub
|
|
||||||
/rm exch def
|
|
||||||
|
|
||||||
RM exch sub % (str) x'
|
|
||||||
currentpoint exch pop % (str) x' Y
|
|
||||||
moveto show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show in a bold font
|
|
||||||
/bshow {
|
|
||||||
SetBoldFont
|
|
||||||
show
|
|
||||||
SetRegFont
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show in a italics font
|
|
||||||
/ishow {
|
|
||||||
SetItalFont
|
|
||||||
show
|
|
||||||
SetRegFont
|
|
||||||
} def
|
|
||||||
|
|
||||||
% I totally stole this out of the blue book.
|
|
||||||
/wordbreak ( ) def
|
|
||||||
/BreakIntoLines {
|
|
||||||
/proc exch def
|
|
||||||
/linelength exch def
|
|
||||||
/textstring exch def
|
|
||||||
/curwidth exch def
|
|
||||||
|
|
||||||
/breakwidth wordbreak stringwidth pop def
|
|
||||||
/lastwordbreak 0 def
|
|
||||||
|
|
||||||
/startchar 0 def
|
|
||||||
/restoftext textstring def
|
|
||||||
|
|
||||||
{
|
|
||||||
restoftext wordbreak search
|
|
||||||
|
|
||||||
{
|
|
||||||
/done false def
|
|
||||||
} {
|
|
||||||
() exch
|
|
||||||
wordbreak exch
|
|
||||||
/done true def
|
|
||||||
} ifelse
|
|
||||||
|
|
||||||
/nextword exch def pop
|
|
||||||
/restoftext exch def
|
|
||||||
/wordwidth nextword stringwidth pop def
|
|
||||||
|
|
||||||
curwidth wordwidth add linelength gt
|
|
||||||
{
|
|
||||||
textstring startchar
|
|
||||||
lastwordbreak startchar sub
|
|
||||||
getinterval proc
|
|
||||||
/startchar lastwordbreak def
|
|
||||||
/curwidth wordwidth breakwidth add def
|
|
||||||
} {
|
|
||||||
/curwidth curwidth wordwidth add
|
|
||||||
breakwidth add def
|
|
||||||
} ifelse
|
|
||||||
|
|
||||||
/lastwordbreak lastwordbreak
|
|
||||||
nextword length add 1 add def
|
|
||||||
|
|
||||||
done {
|
|
||||||
exit
|
|
||||||
} {
|
|
||||||
} ifelse
|
|
||||||
} loop
|
|
||||||
/lastchar textstring length def
|
|
||||||
textstring startchar lastchar startchar sub
|
|
||||||
getinterval proc
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show some text, and word-wrap it if necessary, then move to the next line
|
|
||||||
/wshow {
|
|
||||||
0 exch
|
|
||||||
/x currentpoint pop def
|
|
||||||
rm x sub % Line length
|
|
||||||
{
|
|
||||||
show next
|
|
||||||
x currentpoint exch pop moveto
|
|
||||||
}
|
|
||||||
BreakIntoLines
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show indented, wrapped text
|
|
||||||
/iwshow {
|
|
||||||
indentLevel exch
|
|
||||||
/x currentpoint pop def
|
|
||||||
rm x sub
|
|
||||||
indentLevel 0 rmoveto
|
|
||||||
{
|
|
||||||
show next
|
|
||||||
x currentpoint exch pop moveto
|
|
||||||
}
|
|
||||||
BreakIntoLines
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show inverse-indented, wrapped text
|
|
||||||
/iiwshow {
|
|
||||||
indentLevel neg exch
|
|
||||||
/x currentpoint pop indentLevel add def
|
|
||||||
rm x sub
|
|
||||||
{
|
|
||||||
show next
|
|
||||||
x currentpoint exch pop moveto
|
|
||||||
}
|
|
||||||
BreakIntoLines
|
|
||||||
indentLevel neg 0 rmoveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
LM TM moveto
|
|
||||||
SetRegFont
|
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
||||||
% Content goes here ;-)
|
|
||||||
|
|
||||||
(Alice in DIGITALand) cshow next
|
|
||||||
|
|
||||||
(Author: ) show (rals@pineapple.bbs.com) ishow next next align
|
|
||||||
|
|
||||||
("Where am I?" asked Alice, as she peered at the large 7-lettered sign
|
|
||||||
with the standard blue letters.) iwshow
|
|
||||||
|
|
||||||
("You're in Digitaland," replied the security guard, "May I see your
|
|
||||||
badge?") iwshow
|
|
||||||
|
|
||||||
("I don't have a badge.") iwshow
|
|
||||||
|
|
||||||
("Did you lose it?") iwshow
|
|
||||||
|
|
||||||
("No," answered Alice in a puzzled tone. "How could I lose something I
|
|
||||||
never had?") iwshow
|
|
||||||
|
|
||||||
("If it's not lost then you must show it to me.") iwshow
|
|
||||||
|
|
||||||
("I can't. I don't have one.") iwshow
|
|
||||||
|
|
||||||
("Then you'll have to have a temporary.") iwshow
|
|
||||||
|
|
||||||
("A temporary what?" asked Alice, more confused then ever.) iwshow
|
|
||||||
|
|
||||||
("A temporary Badge. What's your badge number?" requested the guard.) iwshow
|
|
||||||
|
|
||||||
("I don't have one") iwshow
|
|
||||||
|
|
||||||
("Of course not, Ken Olsen has 1. Give me your badge number, and your
|
|
||||||
cost center") iwshow
|
|
||||||
|
|
||||||
("I'm so confused. I can't do this. I've already said 3 times why. Do
|
|
||||||
I have to tell you 4?") iwshow
|
|
||||||
|
|
||||||
("Ahhh. 3XY, badge number 4. You must be very important to have such a
|
|
||||||
low badge number. I should have immediately recognized how low by your
|
|
||||||
state of extreme confusion. Here's your temporary. Go right on in.") iwshow
|
|
||||||
|
|
||||||
(Alice pasted the sticky paper to her dress and headed down the hall.
|
|
||||||
Not 10 feet ahead she saw a rather distressed looking rabbit coming
|
|
||||||
toward her. He was dressed in a pair of torn, faded jeans, and a dirty
|
|
||||||
tee shirt.) iwshow
|
|
||||||
|
|
||||||
("What's wrong?" Alice asked.) iwshow
|
|
||||||
|
|
||||||
("I'm late! I'm late!" exclaimed the rabbit as he peered at the PERT
|
|
||||||
chart dangling from his pocket protector.) iwshow
|
|
||||||
|
|
||||||
("Late for what?" asked Alice.) iwshow
|
|
||||||
|
|
||||||
("My date. I'm going to miss my date. I've got a deadline to meet and
|
|
||||||
I'm not going to make it.") iwshow
|
|
||||||
|
|
||||||
("Well, if it's already dead, it probably won't mind. In fact it isn't
|
|
||||||
likely to be going too far in such a state. I'm sure that however long
|
|
||||||
you take will be just fine.") iwshow
|
|
||||||
|
|
||||||
("You obviously don't understand. Everything takes longer than it
|
|
||||||
really does. It doesn't matter what you are doing, only that you meet
|
|
||||||
your date, and that's always impossible.") iwshow
|
|
||||||
|
|
||||||
("Well if it's impossible, why would anyone expect you to meet it?"
|
|
||||||
Almost at once regretting that she had asked. Was this was going to be
|
|
||||||
as confusing as badges?) iwshow
|
|
||||||
|
|
||||||
("It's really very simple. In order to move forward, you need a goal.
|
|
||||||
Any goal will do. It just has to be impossible to do. To motivate the
|
|
||||||
troops, you have to make goals very challenging. It's really only
|
|
||||||
there to get a stake in the ground, you know. After that we march in
|
|
||||||
step until we reach our objective. The date really doesn't mean
|
|
||||||
anything. You simple have to understand that we are going to do the
|
|
||||||
right thing.") iwshow
|
|
||||||
|
|
||||||
("But the if the goal is impossible, and really doesn't mean anything
|
|
||||||
why are you trying to go there. Wouldn't it be simpler to first figure
|
|
||||||
out what you are really going to do, then figure out how to get there?")
|
|
||||||
iwshow
|
|
||||||
|
|
||||||
("You obviously don't understand the process. And as I said before I'm
|
|
||||||
late so there is obviously only one thing to do.") iwshow
|
|
||||||
|
|
||||||
("Hurry up and rush off?" Alice asked, hoping it would sound more like
|
|
||||||
a suggestion than a question.) iwshow
|
|
||||||
|
|
||||||
("No. No. No. A meeting. Let me find the Mad Manager and a number of
|
|
||||||
involved, interested, or warm bodies.") iwshow
|
|
||||||
|
|
||||||
("That will obviously take a lot of time. I don't think you have any to
|
|
||||||
waste.) iwshow
|
|
||||||
|
|
||||||
("No it won't. All we have to do is find a conference room. There are
|
|
||||||
lots of them right over here.") iwshow
|
|
||||||
|
|
||||||
("But," started Alice, "those rooms are all full of people. Don't we
|
|
||||||
need an empty conference room?") iwshow
|
|
||||||
|
|
||||||
("Silly thought. If we want to find the Mad Manager and some meeting
|
|
||||||
attendees, why would we look in an empty conference room? Anyway, it's
|
|
||||||
impossible to ever find an empty conference room.") iwshow
|
|
||||||
|
|
||||||
(The rabbit took Alice by the hand, and promptly lead her into the
|
|
||||||
largest, fullest conference room. Alice immediately noticed that the
|
|
||||||
wastebasket was quite full of foam cups, and overhead projector bulbs.
|
|
||||||
These people had obviously been here for a long time.) iwshow
|
|
||||||
|
|
||||||
(At the head of the table sat a man with a rather funny suit wearing a
|
|
||||||
large hat.) iwshow
|
|
||||||
|
|
||||||
("Why" whispered Alice to the rabbit, "is that man wearing that funny
|
|
||||||
hat? Who is he?") iwshow
|
|
||||||
|
|
||||||
("I'm the Mad Manager," answered the man at the end of the table,
|
|
||||||
obviously overhearing the question, " And I'll be happy to tell you
|
|
||||||
why I'm wearing this Hat, but that topic is not on the agenda.") iwshow
|
|
||||||
|
|
||||||
("Why don't we change the agenda?" asked a person in the corner.) iwshow
|
|
||||||
|
|
||||||
("Is that a topic for another meeting?" replied the manager.) iwshow
|
|
||||||
|
|
||||||
("Is what a topic for another meeting?" voiced a third. "The reason
|
|
||||||
for the hat, or why we don't change the agenda?") iwshow
|
|
||||||
|
|
||||||
("Why don't we take this off line?" queried another.) iwshow
|
|
||||||
|
|
||||||
("Does everyone agree that these are all topics we should address?"
|
|
||||||
asked the mad manager.) iwshow
|
|
||||||
|
|
||||||
("Possibly so. " injected the person in the corner. "Could it be that
|
|
||||||
we have a hidden agenda?") iwshow
|
|
||||||
|
|
||||||
("Oh no!" the Mad Manager began, the dismay obvious on his face,
|
|
||||||
"someone has hidden the agenda again! Let me put on my process hat and
|
|
||||||
we'll see if we can work this issue.") iwshow
|
|
||||||
|
|
||||||
(With that, he removed his rather amusing top hat, and place a big green
|
|
||||||
fedora on his head.) iwshow
|
|
||||||
|
|
||||||
("Now, with my process hat on, I'd like to address the issue of the
|
|
||||||
hidden agenda. Since we can't have a productive meeting without an
|
|
||||||
agenda, it is up to all of us to find it.") iwshow
|
|
||||||
|
|
||||||
("But, " a voice from the corner piped in, "who is going to drive this
|
|
||||||
issue?") iwshow
|
|
||||||
|
|
||||||
("Do we have an action item here?" asked another attendee.) iwshow
|
|
||||||
|
|
||||||
("Does anyone here want to work this?" asked the mad manager.) iwshow
|
|
||||||
|
|
||||||
("Who originally brought this up?" asked another.) iwshow
|
|
||||||
|
|
||||||
("I believe that the woman who came in with the rabbit proposed this.
|
|
||||||
Shouldn't she own it?") iwshow
|
|
||||||
|
|
||||||
("Well" the Manager stated, pointing to Alice. "I'd say that this is
|
|
||||||
your issue.") iwshow
|
|
||||||
|
|
||||||
("What issue. I don't have any issues. " retorted Alice, nervously
|
|
||||||
fingering her temporary badge. "I only posed a simple question.") iwshow
|
|
||||||
|
|
||||||
("I'm not sure we can accept that," the manager declared. "We need a
|
|
||||||
date.") iwshow
|
|
||||||
|
|
||||||
("But, " Alice began, remembering what the rabbit told her about dates,
|
|
||||||
"a date is impossible.") iwshow
|
|
||||||
|
|
||||||
(From the back of the room another voice asked, "How about a date for a
|
|
||||||
date?") iwshow
|
|
||||||
|
|
||||||
("The least we can ask it that you give us a date when you will be able
|
|
||||||
to give us the date for the date." stated the person in the corner.)
|
|
||||||
iwshow
|
|
||||||
|
|
||||||
("I'm not sure I can do that," Alice opened, "since I don't know what
|
|
||||||
I'm supposed to give you a date for. I'm having a problem trying to
|
|
||||||
figure out what you want me to do.") iwshow
|
|
||||||
|
|
||||||
("We don't have any problems here, only opportunities!" Piped a chorus
|
|
||||||
of voices.) iwshow
|
|
||||||
|
|
||||||
("It's really quite obvious," the mad manager declared as he reached
|
|
||||||
behind him for a striped blue and gray beret, "let me put on my Digital
|
|
||||||
hat for a moment," he continued doffing the fedora and flipping on his
|
|
||||||
latest selection, "You must do the right thing.") iwshow
|
|
||||||
|
|
||||||
("Yes. yes. " chimed the chorus of attendees, "Do the right thing.)
|
|
||||||
iwshow
|
|
||||||
|
|
||||||
("Now, who is keeping the minutes?" the manager asked as he pitched the
|
|
||||||
beret and placed the fedora back on his head. "We need to record this
|
|
||||||
action item so we can come back to it later.") iwshow
|
|
||||||
|
|
||||||
("We obviously can't deal with this issue until we can determine whose
|
|
||||||
meeting this is?") iwshow
|
|
||||||
|
|
||||||
("Should we schedule some time to cover that topic?" asked one of the
|
|
||||||
attendees.) iwshow
|
|
||||||
|
|
||||||
("Whose going to drive this?" asked another.) iwshow
|
|
||||||
|
|
||||||
(Just at the Mad Manager was pulling out a rather worn pith helmet, a
|
|
||||||
voice in the back suggested "Let's take a break and work some of this
|
|
||||||
1x1 off line") iwshow
|
|
||||||
|
|
||||||
(Being closest to the door Alice was the first to leave. She quickly
|
|
||||||
dashed down the hall, and ran up the first flight of stairs she
|
|
||||||
encountered, relieved to be free of the madness.) iwshow
|
|
||||||
|
|
||||||
(When she opened the door the scene that confronted her made her wonder
|
|
||||||
if returning to the meeting wasn't a bad idea. Seated around a large
|
|
||||||
oval table were what appeared to be playing cards, each dressed in a
|
|
||||||
gray or navy blue three piece suit. Around each neck was a rather
|
|
||||||
oddly shaped handle \(or were they nooses?\) made of silk, or polyester.)
|
|
||||||
iwshow
|
|
||||||
|
|
||||||
("Off with her head!" screamed the queen of hearts who was sitting at
|
|
||||||
the head of the table. Alice noticed that her tie was silk, and each
|
|
||||||
card seated near her was dressed in a suit and noose combination
|
|
||||||
similar to the queen's.) iwshow
|
|
||||||
|
|
||||||
("Why would you want to remove my head?" Alice asked. By now she was
|
|
||||||
feeling beyond confused.) iwshow
|
|
||||||
|
|
||||||
("It's not a modern, iconic, user friendly, menu driven, color, PC
|
|
||||||
compatible user interface," replied the queen, in a tone that would
|
|
||||||
need to come up two notches to be vaguely considered condescending.)
|
|
||||||
iwshow
|
|
||||||
|
|
||||||
("It happens to suit me just fine," retorted Alice.) iwshow
|
|
||||||
|
|
||||||
("What are you an engineer or something?" asked the 7 of spades.) iwshow
|
|
||||||
|
|
||||||
("No, I'm Alice. Who are you?") iwshow
|
|
||||||
|
|
||||||
("Marketing." they replied in perfect fifty-two part harmony.) iwshow
|
|
||||||
|
|
||||||
("And what is that?" asked Alice.) iwshow
|
|
||||||
|
|
||||||
(There was a brief interlude of silence as each of the cards fidgeted
|
|
||||||
with their ties, checked their watches and scribbled notes on the pads
|
|
||||||
of paper contained in a handsome genuine imitation leather folder
|
|
||||||
embossed with the company logo. Then one by one, as dominoes would do,
|
|
||||||
they turned to the person on the left until they all stared at the
|
|
||||||
queen of hearts.) iwshow
|
|
||||||
|
|
||||||
(The queen cleared her throat, adjusted her tie a second time and stared
|
|
||||||
directly at Alice. "We provide the strategic thinking necessary to
|
|
||||||
grow the business.") iwshow
|
|
||||||
|
|
||||||
("Oh," said Alice, "you figure out what products to build!") iwshow
|
|
||||||
|
|
||||||
("Heavens, no!" exclaimed the Queen, "That's too tactical. We feel
|
|
||||||
it's our job to develop the vision for the long term.") iwshow
|
|
||||||
|
|
||||||
("You develop things," began Alice, "so you build the products?") iwshow
|
|
||||||
|
|
||||||
(In unison each member of the table made a face reminiscent of the look
|
|
||||||
a small child gets upon tasting spoiled dead roaches for the first
|
|
||||||
time.) iwshow
|
|
||||||
|
|
||||||
("Uggggh, that's even more tactical," jeered the chorus.) iwshow
|
|
||||||
|
|
||||||
("No! No!" shouted the Queen. "You still do not understand. We take
|
|
||||||
the pulse of the key market leaders demand curve.") iwshow
|
|
||||||
|
|
||||||
("I see now." said Alice, "You sell the products.") iwshow
|
|
||||||
|
|
||||||
(By now the chorus of cards chanting "Tac-ti-cal! Tac-ti-cal!" was
|
|
||||||
becoming too much.) iwshow
|
|
||||||
|
|
||||||
(The queen was furious and repeated her original greeting. "Off with
|
|
||||||
her head! Off With her head") iwshow
|
|
||||||
|
|
||||||
("WAIT!" demanded Alice. "I believe I understand. You are all
|
|
||||||
responsible for driving the solution opportunities for the key client
|
|
||||||
supply perceptions through strategic vision management!") iwshow
|
|
||||||
|
|
||||||
(Alice wondered if she should add something about the claws catching,
|
|
||||||
and frumious bandersnatches and thought that she'd best leave it at
|
|
||||||
that before she became ill.) iwshow
|
|
||||||
|
|
||||||
("Yes," screamed the cards, "That's exactly right!") iwshow
|
|
||||||
|
|
||||||
("And how, might I ask, do you accomplish these lofty and important
|
|
||||||
goals?") iwshow
|
|
||||||
|
|
||||||
("By calling a BOD," the queen responded.) iwshow
|
|
||||||
|
|
||||||
("And what, pray tell, might that be?" inquired Alice as she looked for
|
|
||||||
the quickest escape route, hoping that this jabber would keep her head
|
|
||||||
attached long enough to get out.) iwshow
|
|
||||||
|
|
||||||
("A Board of Directors," began the queen, just as Alice noticed the door
|
|
||||||
to the left of the table. "It's a type of high level meeting.") iwshow
|
|
||||||
|
|
||||||
("A meeting????!!!!" exclaimed Alice. "Not another meeting!" With
|
|
||||||
that she bolted for the door, no longer fearing for her head. Her only
|
|
||||||
hope was that she make it through before the agenda hit the overhead.
|
|
||||||
In a dead run, she passed through the door just as the projector lamp
|
|
||||||
flicked on. The sound of the fan was the last sound to fade as the
|
|
||||||
door closed.) iwshow
|
|
||||||
|
|
||||||
(Breathlessly she looked up to see a large open area. Directly in front
|
|
||||||
of her was an enclosed area lined on one side with triple chrome table.
|
|
||||||
A stack of plastic trays was at the foyer.) iwshow
|
|
||||||
|
|
||||||
(As she wandered through an assortment of sandwiches, prepared foods,
|
|
||||||
soft drinks and salad began their daily spiel. "Eat Me! Drink Me! Eat
|
|
||||||
Me!") iwshow
|
|
||||||
|
|
||||||
("Oh no," answered Alice, "I may know nothing about dates, and problems
|
|
||||||
and meetings and agendas, and marketing and badges, but I do know food.
|
|
||||||
I'm not gonna touch any of you. After the morning I've had I deserve a
|
|
||||||
nice cheese steak \(no lettuce\)!") iwshow
|
|
||||||
|
|
||||||
(With that, Alice opened the nearest exit door and left. A resounding
|
|
||||||
high pitched whine sang its midday good-byes as Alice returned to the
|
|
||||||
real world.) iwshow
|
|
||||||
|
|
||||||
showpage
|
|
||||||
|
|
@ -1,111 +0,0 @@
|
||||||
%!PS-Adobe-2.0
|
|
||||||
%%Description: Boilerplate for multi-page banners
|
|
||||||
|
|
||||||
% --- Leave this alone, go to the bottom to start writing stuff ---
|
|
||||||
|
|
||||||
% Define margins
|
|
||||||
/LM 50 def
|
|
||||||
/BM 50 def
|
|
||||||
/RM 580 LM sub def
|
|
||||||
/TM 760 BM sub def
|
|
||||||
|
|
||||||
% font types
|
|
||||||
/times {
|
|
||||||
/font /Times-Roman def
|
|
||||||
} def
|
|
||||||
|
|
||||||
/courier {
|
|
||||||
/font /Courier def
|
|
||||||
} def
|
|
||||||
|
|
||||||
% font sizes
|
|
||||||
/monstrous {
|
|
||||||
/FontSize 312 def
|
|
||||||
/font findfont FontSize scalefont setfont
|
|
||||||
} def
|
|
||||||
|
|
||||||
/huge {
|
|
||||||
/FontSize 288 def
|
|
||||||
font findfont FontSize scalefont setfont
|
|
||||||
} def
|
|
||||||
|
|
||||||
/jumbo {
|
|
||||||
/FontSize 188 def
|
|
||||||
font findfont FontSize scalefont setfont
|
|
||||||
} def
|
|
||||||
|
|
||||||
/large {
|
|
||||||
/FontSize 122 def
|
|
||||||
font findfont FontSize scalefont setfont
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
% Line kerning
|
|
||||||
/smooshed {
|
|
||||||
/Spacing .5 def
|
|
||||||
} def
|
|
||||||
|
|
||||||
/even {
|
|
||||||
/Spacing .75 def
|
|
||||||
} def
|
|
||||||
|
|
||||||
/wide {
|
|
||||||
/Spacing 1 def
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show text in landscape
|
|
||||||
/lshow {
|
|
||||||
gsave
|
|
||||||
90 rotate
|
|
||||||
show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% start on line 1
|
|
||||||
/offset 0 def
|
|
||||||
|
|
||||||
% Form feed
|
|
||||||
/ff {
|
|
||||||
showpage
|
|
||||||
/offset 0 def
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Line feed (in current font)
|
|
||||||
/lf {
|
|
||||||
/offset offset Spacing FontSize mul add def
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show top text
|
|
||||||
/disp {
|
|
||||||
lf
|
|
||||||
LM offset add RM gt {
|
|
||||||
ff
|
|
||||||
lf
|
|
||||||
} {
|
|
||||||
} ifelse
|
|
||||||
LM offset add BM moveto
|
|
||||||
lshow
|
|
||||||
} def
|
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
||||||
|
|
||||||
%% Start writing your data here
|
|
||||||
|
|
||||||
% How do you want it to appear?
|
|
||||||
courier jumbo wide
|
|
||||||
|
|
||||||
% Even bigger font: times, letters closely spaced
|
|
||||||
%times huge smooshed
|
|
||||||
|
|
||||||
% Smaller times, normal spacing
|
|
||||||
%times large even
|
|
||||||
|
|
||||||
% Monstrous, the biggest of all
|
|
||||||
%times monstrous smooshed
|
|
||||||
|
|
||||||
(This) disp
|
|
||||||
(is some) disp
|
|
||||||
(really) disp
|
|
||||||
(large) disp
|
|
||||||
(text.) disp
|
|
||||||
ff
|
|
||||||
Binary file not shown.
|
Before Width: | Height: | Size: 26 KiB |
|
|
@ -1,357 +0,0 @@
|
||||||
%!PS-Adobe-2.0
|
|
||||||
%%Creator: Neale Pickett
|
|
||||||
%%Title: Emergency card
|
|
||||||
%%Pages: 2
|
|
||||||
%%PageOrder: Ascend
|
|
||||||
%%BoundingBox: 50 50 358 294
|
|
||||||
%%EndComments
|
|
||||||
|
|
||||||
% A credit card is 0 0 154 244, this page is twice that so you can fold
|
|
||||||
% it in half. Store phone numbers inside or whatever.
|
|
||||||
|
|
||||||
/RegFont /Times-Roman findfont 8 scalefont def
|
|
||||||
/BoldFont /Times-Bold findfont 8 scalefont def
|
|
||||||
|
|
||||||
RegFont setfont
|
|
||||||
|
|
||||||
/bshow {
|
|
||||||
BoldFont setfont
|
|
||||||
show
|
|
||||||
RegFont setfont
|
|
||||||
} def
|
|
||||||
|
|
||||||
/h1 {
|
|
||||||
/Times-Bold findfont 11 scalefont setfont
|
|
||||||
show
|
|
||||||
RegFont setfont
|
|
||||||
} def
|
|
||||||
|
|
||||||
/nl {
|
|
||||||
currentpoint exch pop 10 exch 10 sub moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
/tab {
|
|
||||||
currentpoint exch pop moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
/hl {
|
|
||||||
gsave
|
|
||||||
currentpoint exch pop 10 exch moveto
|
|
||||||
0.3 setlinewidth
|
|
||||||
134 0 rlineto
|
|
||||||
closepath stroke
|
|
||||||
grestore
|
|
||||||
nl
|
|
||||||
} def
|
|
||||||
|
|
||||||
/star-of-life {
|
|
||||||
gsave
|
|
||||||
translate
|
|
||||||
0.13 -0.13 scale
|
|
||||||
[] 0 setdash
|
|
||||||
1 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
0 setlinecap
|
|
||||||
currentrgbcolor % push color
|
|
||||||
gsave [1 0 0 1 0 0] concat
|
|
||||||
gsave
|
|
||||||
1 1 1 setrgbcolor
|
|
||||||
newpath
|
|
||||||
71.9375 6.84375 moveto
|
|
||||||
71.9375 51.09375 lineto
|
|
||||||
33.625 28.96875 lineto
|
|
||||||
8 73.375 lineto
|
|
||||||
46.3125 95.46875 lineto
|
|
||||||
8 117.59375 lineto
|
|
||||||
33.625 162.03125 lineto
|
|
||||||
71.9375 139.90625 lineto
|
|
||||||
71.9375 184.15625 lineto
|
|
||||||
123.25 184.15625 lineto
|
|
||||||
123.25 139.9375 lineto
|
|
||||||
161.53125 162.03125 lineto
|
|
||||||
187.1875 117.59375 lineto
|
|
||||||
148.875 95.5 lineto
|
|
||||||
187.1875 73.375 lineto
|
|
||||||
161.53125 28.96875 lineto
|
|
||||||
123.25 51.0625 lineto
|
|
||||||
123.25 6.84375 lineto
|
|
||||||
71.9375 6.84375 lineto
|
|
||||||
closepath
|
|
||||||
fill
|
|
||||||
grestore
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
[] 0 setdash
|
|
||||||
1.7 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
1 setlinecap
|
|
||||||
newpath
|
|
||||||
71.9375 6.84375 moveto
|
|
||||||
71.9375 51.09375 lineto
|
|
||||||
33.625 28.96875 lineto
|
|
||||||
8 73.375 lineto
|
|
||||||
46.3125 95.46875 lineto
|
|
||||||
8 117.59375 lineto
|
|
||||||
33.625 162.03125 lineto
|
|
||||||
71.9375 139.90625 lineto
|
|
||||||
71.9375 184.15625 lineto
|
|
||||||
123.25 184.15625 lineto
|
|
||||||
123.25 139.9375 lineto
|
|
||||||
161.53125 162.03125 lineto
|
|
||||||
187.1875 117.59375 lineto
|
|
||||||
148.875 95.5 lineto
|
|
||||||
187.1875 73.375 lineto
|
|
||||||
161.53125 28.96875 lineto
|
|
||||||
123.25 51.0625 lineto
|
|
||||||
123.25 6.84375 lineto
|
|
||||||
71.9375 6.84375 lineto
|
|
||||||
closepath
|
|
||||||
stroke
|
|
||||||
gsave
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
newpath
|
|
||||||
75.09375 10 moveto
|
|
||||||
75.09375 56.53125 lineto
|
|
||||||
34.78125 33.25 lineto
|
|
||||||
12.28125 72.21875 lineto
|
|
||||||
52.59375 95.5 lineto
|
|
||||||
12.28125 118.75 lineto
|
|
||||||
34.78125 157.71875 lineto
|
|
||||||
75.09375 134.4375 lineto
|
|
||||||
75.09375 181 lineto
|
|
||||||
120.09375 181 lineto
|
|
||||||
120.09375 134.46875 lineto
|
|
||||||
160.375 157.71875 lineto
|
|
||||||
182.875 118.75 lineto
|
|
||||||
142.5625 95.5 lineto
|
|
||||||
182.875 72.21875 lineto
|
|
||||||
160.375 33.25 lineto
|
|
||||||
120.09375 56.5 lineto
|
|
||||||
120.09375 10 lineto
|
|
||||||
75.09375 10 lineto
|
|
||||||
closepath
|
|
||||||
fill
|
|
||||||
grestore
|
|
||||||
gsave
|
|
||||||
1 1 1 setrgbcolor
|
|
||||||
newpath
|
|
||||||
92.517151 28.749341 moveto
|
|
||||||
92.408986 25.487473 95.364102 22.444786 98.522226 22.444786 curveto
|
|
||||||
100.78169 22.444786 103.56391 24.163507 103.49852 27.028713 curveto
|
|
||||||
102.70837 61.652668 100.60467 131.89502 99.809866 166.84929 curveto
|
|
||||||
99.785836 167.9063 98.454636 167.43783 98.406332 166.35356 curveto
|
|
||||||
96.861909 131.68636 93.680464 63.830863 92.517151 28.749341 curveto
|
|
||||||
closepath
|
|
||||||
eofill
|
|
||||||
grestore
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
[] 0 setdash
|
|
||||||
0.60000002 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
0 setlinecap
|
|
||||||
newpath
|
|
||||||
92.517151 28.749341 moveto
|
|
||||||
92.408986 25.487473 95.364102 22.444786 98.522226 22.444786 curveto
|
|
||||||
100.78169 22.444786 103.56391 24.163507 103.49852 27.028713 curveto
|
|
||||||
102.70837 61.652668 100.60467 131.89502 99.809866 166.84929 curveto
|
|
||||||
99.785836 167.9063 98.454636 167.43783 98.406332 166.35356 curveto
|
|
||||||
96.861909 131.68636 93.680464 63.830863 92.517151 28.749341 curveto
|
|
||||||
closepath
|
|
||||||
stroke
|
|
||||||
gsave
|
|
||||||
1 1 1 setrgbcolor
|
|
||||||
newpath
|
|
||||||
94.036939 33.435356 moveto
|
|
||||||
96.542562 33.435356 97.667652 34.958914 99.217717 36.299367 curveto
|
|
||||||
100.71504 37.594206 101.88918 38.77889 101.88918 40.05277 curveto
|
|
||||||
101.88918 41.391534 100.90645 40.990382 99.865157 41.482074 curveto
|
|
||||||
99.316637 41.74108 99.365585 42.300792 98.469657 42.300792 curveto
|
|
||||||
96.316099 42.300792 95.45867 40.274406 92.51715 40.274406 curveto
|
|
||||||
90.093039 40.274406 86.944591 43.179145 86.944591 48.506596 curveto
|
|
||||||
86.944591 56.552685 90.047493 60.158311 93.720316 62.944591 curveto
|
|
||||||
94.100263 72.506596 lineto
|
|
||||||
90.174142 70.860159 80.042216 61.931473 80.042216 49.519789 curveto
|
|
||||||
80.042216 38.718116 87.055227 33.435356 94.036939 33.435356 curveto
|
|
||||||
closepath
|
|
||||||
eofill
|
|
||||||
grestore
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
[] 0 setdash
|
|
||||||
0.60000002 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
0 setlinecap
|
|
||||||
newpath
|
|
||||||
94.036939 33.435356 moveto
|
|
||||||
96.542562 33.435356 97.667652 34.958914 99.217717 36.299367 curveto
|
|
||||||
100.71504 37.594206 101.88918 38.77889 101.88918 40.05277 curveto
|
|
||||||
101.88918 41.391534 100.90645 40.990382 99.865157 41.482074 curveto
|
|
||||||
99.316637 41.74108 99.365585 42.300792 98.469657 42.300792 curveto
|
|
||||||
96.316099 42.300792 95.45867 40.274406 92.51715 40.274406 curveto
|
|
||||||
90.093039 40.274406 86.944591 43.179145 86.944591 48.506596 curveto
|
|
||||||
86.944591 56.552685 90.047493 60.158311 93.720316 62.944591 curveto
|
|
||||||
94.100263 72.506596 lineto
|
|
||||||
90.174142 70.860159 80.042216 61.931473 80.042216 49.519789 curveto
|
|
||||||
80.042216 38.718116 87.055227 33.435356 94.036939 33.435356 curveto
|
|
||||||
closepath
|
|
||||||
stroke
|
|
||||||
gsave
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
newpath
|
|
||||||
94.986808 36.126649 moveto
|
|
||||||
96.778096 35.842684 96.597917 36.918831 97.39314 37.614775 curveto
|
|
||||||
95.554706 37.669411 95.147378 36.898305 94.986808 36.126649 curveto
|
|
||||||
closepath
|
|
||||||
eofill
|
|
||||||
grestore
|
|
||||||
gsave
|
|
||||||
1 1 1 setrgbcolor
|
|
||||||
newpath
|
|
||||||
102.52243 66.934037 moveto
|
|
||||||
102.26913 76.05277 lineto
|
|
||||||
102.26913 81.62722 87.514512 91.407424 87.514512 101.38259 curveto
|
|
||||||
87.514512 109.06464 93.688655 113.98417 95.968338 115.12401 curveto
|
|
||||||
95.683377 107.08179 lineto
|
|
||||||
95.683377 107.08179 92.897098 105.20276 92.897098 102.01583 curveto
|
|
||||||
92.897098 97.506158 109.86807 85.891676 109.86807 77.002639 curveto
|
|
||||||
109.86807 70.699933 105.56201 68.348285 102.52243 66.934037 curveto
|
|
||||||
closepath
|
|
||||||
eofill
|
|
||||||
grestore
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
[] 0 setdash
|
|
||||||
0.60000002 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
0 setlinecap
|
|
||||||
newpath
|
|
||||||
102.52243 66.934037 moveto
|
|
||||||
102.26913 76.05277 lineto
|
|
||||||
102.26913 81.62722 87.514512 91.407424 87.514512 101.38259 curveto
|
|
||||||
87.514512 109.06464 93.688655 113.98417 95.968338 115.12401 curveto
|
|
||||||
95.683377 107.08179 lineto
|
|
||||||
95.683377 107.08179 92.897098 105.20276 92.897098 102.01583 curveto
|
|
||||||
92.897098 97.506158 109.86807 85.891676 109.86807 77.002639 curveto
|
|
||||||
109.86807 70.699933 105.56201 68.348285 102.52243 66.934037 curveto
|
|
||||||
closepath
|
|
||||||
stroke
|
|
||||||
gsave
|
|
||||||
1 1 1 setrgbcolor
|
|
||||||
newpath
|
|
||||||
101.35093 111.54617 moveto
|
|
||||||
101.35093 111.54617 107.14512 115.37689 107.14512 120.18997 curveto
|
|
||||||
107.14512 124.30746 103.98764 128.07412 100.25762 131.96931 curveto
|
|
||||||
95.900204 136.51968 94.980033 142.21601 97.551452 148.17942 curveto
|
|
||||||
97.773087 153.0554 lineto
|
|
||||||
95.905013 151.53561 92.960422 146.78869 92.960422 138.87071 curveto
|
|
||||||
92.960422 129.33988 101.12929 126.47258 101.12929 117.68866 curveto
|
|
||||||
101.35093 111.54617 lineto
|
|
||||||
closepath
|
|
||||||
eofill
|
|
||||||
grestore
|
|
||||||
setrgbcolor currentrgbcolor
|
|
||||||
[] 0 setdash
|
|
||||||
0.60000002 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
0 setlinecap
|
|
||||||
newpath
|
|
||||||
101.35093 111.54617 moveto
|
|
||||||
101.35093 111.54617 107.14512 115.37689 107.14512 120.18997 curveto
|
|
||||||
107.14512 124.30746 103.98764 128.07412 100.25762 131.96931 curveto
|
|
||||||
95.900204 136.51968 94.980033 142.21601 97.551452 148.17942 curveto
|
|
||||||
97.773087 153.0554 lineto
|
|
||||||
95.905013 151.53561 92.960422 146.78869 92.960422 138.87071 curveto
|
|
||||||
92.960422 129.33988 101.12929 126.47258 101.12929 117.68866 curveto
|
|
||||||
101.35093 111.54617 lineto
|
|
||||||
closepath
|
|
||||||
stroke
|
|
||||||
gsave
|
|
||||||
1 1 1 setrgbcolor
|
|
||||||
newpath
|
|
||||||
100.21108 151.25066 moveto
|
|
||||||
100.21108 151.25066 102.90238 152.69861 102.90238 156.47493 curveto
|
|
||||||
102.90238 160.02958 98.451601 163.27556 97.773087 163.75726 curveto
|
|
||||||
97.11579 164.2239 96.863869 163.61619 97.39314 163.12401 curveto
|
|
||||||
97.939619 162.61583 100.17942 159.61423 100.17942 156.15831 curveto
|
|
||||||
100.21108 151.25066 lineto
|
|
||||||
closepath
|
|
||||||
eofill
|
|
||||||
grestore
|
|
||||||
setrgbcolor
|
|
||||||
[] 0 setdash
|
|
||||||
0.60000002 setlinewidth
|
|
||||||
0 setlinejoin
|
|
||||||
0 setlinecap
|
|
||||||
newpath
|
|
||||||
100.21108 151.25066 moveto
|
|
||||||
100.21108 151.25066 102.90238 152.69861 102.90238 156.47493 curveto
|
|
||||||
102.90238 160.02958 98.451601 163.27556 97.773087 163.75726 curveto
|
|
||||||
97.11579 164.2239 96.863869 163.61619 97.39314 163.12401 curveto
|
|
||||||
97.939619 162.61583 100.17942 159.61423 100.17942 156.15831 curveto
|
|
||||||
100.21108 151.25066 lineto
|
|
||||||
closepath
|
|
||||||
stroke
|
|
||||||
grestore
|
|
||||||
|
|
||||||
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
%%Page: 1
|
|
||||||
|
|
||||||
% Get away from the edge of the paper
|
|
||||||
50 50 translate
|
|
||||||
|
|
||||||
% Draw some lines for cutting
|
|
||||||
gsave
|
|
||||||
0.9 setgray
|
|
||||||
|
|
||||||
154 0 moveto
|
|
||||||
154 244 lineto
|
|
||||||
closepath stroke
|
|
||||||
|
|
||||||
0 0 moveto
|
|
||||||
308 0 lineto
|
|
||||||
308 244 lineto
|
|
||||||
0 244 lineto
|
|
||||||
closepath stroke
|
|
||||||
grestore
|
|
||||||
|
|
||||||
125 240 star-of-life
|
|
||||||
|
|
||||||
10 230 moveto
|
|
||||||
(Name) bshow 50 tab (John Smith) show nl
|
|
||||||
(Address) bshow 50 tab (21 Jump Street) show nl
|
|
||||||
50 tab (New York, NY USA) show nl
|
|
||||||
|
|
||||||
nl
|
|
||||||
30 tab (Notify In Emergency) h1 hl
|
|
||||||
|
|
||||||
(Name) bshow 50 tab (Sally Smith) show nl
|
|
||||||
50 tab (+1 800-555-1212) show nl
|
|
||||||
(Name) bshow 50 tab (Joseph Smith) show nl
|
|
||||||
50 tab (+1 800-555-1212) show nl
|
|
||||||
(Doctor) bshow 50 tab (Mahatma Ghandi) show nl
|
|
||||||
50 tab (+1 800-555-1212) show nl
|
|
||||||
|
|
||||||
hl
|
|
||||||
|
|
||||||
(Conditions) bshow 50 tab (None) show nl
|
|
||||||
(Allergies) bshow 50 tab (None) show nl
|
|
||||||
(Meds) bshow 50 tab (None) show nl
|
|
||||||
(Blood) bshow 50 tab (A+++) show
|
|
||||||
70 tab (I'm an Organ Donor!) bshow
|
|
||||||
|
|
||||||
% Next page
|
|
||||||
154 0 translate
|
|
||||||
|
|
||||||
5 240 star-of-life
|
|
||||||
|
|
||||||
40 225 moveto
|
|
||||||
(info on other side) h1 nl
|
|
||||||
nl
|
|
||||||
nl
|
|
||||||
(You can put whatever you want here.) show nl
|
|
||||||
|
|
||||||
showpage
|
|
||||||
|
|
||||||
% Local Variables:
|
|
||||||
% mode: ps
|
|
||||||
% End:
|
|
||||||
|
|
@ -1,32 +0,0 @@
|
||||||
%!PS-Adobe-3.0
|
|
||||||
%%Title: A sheet of graph paper
|
|
||||||
%%Creator: Neale Pickett
|
|
||||||
%%CreationDate: Sun Oct 20 17:10:42 2002
|
|
||||||
%%EndComments
|
|
||||||
|
|
||||||
64 dict begin
|
|
||||||
|
|
||||||
% How wide do you want the cells to be? (in mm)
|
|
||||||
/l 5 def
|
|
||||||
|
|
||||||
% How light should the lines be? 0.0 is black, 1.0 is white (no lines).
|
|
||||||
0.9 setgray
|
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
||||||
% You don't need to change anything below here
|
|
||||||
|
|
||||||
% One millimeter in points
|
|
||||||
/mm 2.8452756 def
|
|
||||||
|
|
||||||
0 l mm mul 900 {
|
|
||||||
dup 0 moveto
|
|
||||||
0 900 rlineto
|
|
||||||
|
|
||||||
0 exch moveto
|
|
||||||
900 0 rlineto
|
|
||||||
} for
|
|
||||||
stroke
|
|
||||||
|
|
||||||
end
|
|
||||||
showpage
|
|
||||||
%%EOF
|
|
||||||
|
|
@ -1,5 +0,0 @@
|
||||||
Title: PostScript Hacks
|
|
||||||
|
|
||||||
One morning I woke up wondering, "how difficult could PostScript really be?"
|
|
||||||
|
|
||||||
Answer: Not very.
|
|
||||||
|
|
@ -1,34 +0,0 @@
|
||||||
%!PS-Adobe-3.0 EPSF-3.0
|
|
||||||
%%BoundingBox: 0 0 612 792
|
|
||||||
%%Title: Some functions to make PostScript feel like LOGO
|
|
||||||
%%Creator: Neale Pickett
|
|
||||||
%%CreationDate: Tue Oct 22 09:23:22 2002
|
|
||||||
%%EndComments
|
|
||||||
|
|
||||||
64 dict begin
|
|
||||||
/pen true def
|
|
||||||
/pu { /pen false def } def
|
|
||||||
/pd { /pen true def } def
|
|
||||||
/fd { /l exch def pen { 0 l rlineto } { 0 l rmoveto } ifelse } def
|
|
||||||
/rt { rotate } def
|
|
||||||
/lt { -1 mul rotate } def
|
|
||||||
/home { 306 496 moveto } def
|
|
||||||
home
|
|
||||||
|
|
||||||
%% Your LOGO-like program starts here
|
|
||||||
|
|
||||||
% a square
|
|
||||||
40 fd
|
|
||||||
90 rt
|
|
||||||
40 fd
|
|
||||||
90 rt
|
|
||||||
40 fd
|
|
||||||
90 rt
|
|
||||||
40 fd
|
|
||||||
stroke
|
|
||||||
|
|
||||||
%% Your LOGO-like program ends here
|
|
||||||
|
|
||||||
end
|
|
||||||
showpage
|
|
||||||
%%EOF
|
|
||||||
|
|
@ -1,117 +0,0 @@
|
||||||
%!PS-Adobe-2.0
|
|
||||||
%Description: Displays dimensions of the page, and where your printer clips.
|
|
||||||
|
|
||||||
/TM 792 def
|
|
||||||
/RM 612 def
|
|
||||||
|
|
||||||
/margin 18 def
|
|
||||||
/linelen 18 def
|
|
||||||
|
|
||||||
/step 18 def
|
|
||||||
|
|
||||||
|
|
||||||
.1 setlinewidth
|
|
||||||
/ruler {
|
|
||||||
newpath
|
|
||||||
|
|
||||||
0 0 moveto
|
|
||||||
0 1 18 {
|
|
||||||
0 6 rlineto
|
|
||||||
1 -6 rmoveto
|
|
||||||
} for
|
|
||||||
|
|
||||||
0 0 moveto
|
|
||||||
0 3 18 {
|
|
||||||
0 12 rlineto
|
|
||||||
3 -12 rmoveto
|
|
||||||
} for
|
|
||||||
|
|
||||||
9 0 moveto
|
|
||||||
0 15 rlineto
|
|
||||||
|
|
||||||
0 0 moveto
|
|
||||||
0 18 rlineto
|
|
||||||
18 0 moveto
|
|
||||||
0 18 rlineto
|
|
||||||
|
|
||||||
stroke
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
/Times-Roman findfont 10 scalefont setfont
|
|
||||||
|
|
||||||
|
|
||||||
/str 20 string def
|
|
||||||
0 step TM {
|
|
||||||
dup dup
|
|
||||||
margin exch
|
|
||||||
gsave
|
|
||||||
translate
|
|
||||||
|
|
||||||
0 0 moveto
|
|
||||||
step 2 mul le {
|
|
||||||
pop
|
|
||||||
} {
|
|
||||||
18 0 rmoveto
|
|
||||||
str cvs str show
|
|
||||||
} ifelse
|
|
||||||
0 18 translate
|
|
||||||
-90 rotate
|
|
||||||
ruler
|
|
||||||
|
|
||||||
grestore
|
|
||||||
} for
|
|
||||||
|
|
||||||
/str 20 string def
|
|
||||||
newpath
|
|
||||||
0 step RM {
|
|
||||||
dup dup
|
|
||||||
margin
|
|
||||||
gsave
|
|
||||||
translate
|
|
||||||
0 0 moveto
|
|
||||||
|
|
||||||
step 2 mul le {
|
|
||||||
pop
|
|
||||||
} {
|
|
||||||
0 18 rmoveto
|
|
||||||
str cvs str show
|
|
||||||
} ifelse
|
|
||||||
ruler
|
|
||||||
grestore
|
|
||||||
} for
|
|
||||||
|
|
||||||
1 setlinewidth
|
|
||||||
|
|
||||||
% Score 1" in on all sides
|
|
||||||
newpath
|
|
||||||
|
|
||||||
72 0 moveto
|
|
||||||
0 36 rlineto
|
|
||||||
|
|
||||||
72 TM moveto
|
|
||||||
0 -36 rlineto
|
|
||||||
|
|
||||||
RM 72 sub 0 moveto
|
|
||||||
0 36 rlineto
|
|
||||||
|
|
||||||
RM 72 sub TM moveto
|
|
||||||
0 -36 rlineto
|
|
||||||
|
|
||||||
|
|
||||||
0 72 moveto
|
|
||||||
36 0 rlineto
|
|
||||||
|
|
||||||
RM 72 moveto
|
|
||||||
-36 0 rlineto
|
|
||||||
|
|
||||||
0 TM 72 sub moveto
|
|
||||||
36 0 rlineto
|
|
||||||
|
|
||||||
RM TM 72 sub moveto
|
|
||||||
-37 0 rlineto
|
|
||||||
|
|
||||||
stroke
|
|
||||||
|
|
||||||
|
|
||||||
showpage
|
|
||||||
|
|
@ -1,95 +0,0 @@
|
||||||
%!PS-Adobe-3.0
|
|
||||||
%%Title: A sheet of ruled paper
|
|
||||||
%%Creator: Neale Pickett
|
|
||||||
%%CreationDate: Sun Oct 20 17:10:42 2002
|
|
||||||
%%Pages: 1
|
|
||||||
%%BoundingBox: 0 0 612 792
|
|
||||||
%%EndComments
|
|
||||||
|
|
||||||
|
|
||||||
% Body height (in mm)
|
|
||||||
% 9 - big chief
|
|
||||||
% 5 - wide
|
|
||||||
% 4 - average
|
|
||||||
% 3 - teensy
|
|
||||||
/bh 9 def
|
|
||||||
|
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
||||||
% You don't need to change anything below here
|
|
||||||
|
|
||||||
|
|
||||||
% How much additional space between lines (mm)?
|
|
||||||
/ls 0 def
|
|
||||||
|
|
||||||
% Show waist line?
|
|
||||||
/wl true def
|
|
||||||
|
|
||||||
% Show ascenders and descenders?
|
|
||||||
/ad false def
|
|
||||||
|
|
||||||
9 bh le {
|
|
||||||
/ls 4 def
|
|
||||||
/wl true def
|
|
||||||
/ad true def
|
|
||||||
} if
|
|
||||||
|
|
||||||
5 bh eq {
|
|
||||||
/ls 2 def
|
|
||||||
} if
|
|
||||||
|
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
||||||
% You really don't need to change anything below here
|
|
||||||
|
|
||||||
% One millimeter in points
|
|
||||||
/mm 2.8452756 def
|
|
||||||
|
|
||||||
% Distance from baseline to baseline, in points
|
|
||||||
/lp bh 2 mul ls add mm mul def
|
|
||||||
|
|
||||||
% Body height, in points
|
|
||||||
/bp bh mm mul def
|
|
||||||
|
|
||||||
792 lp sub lp neg 0 {
|
|
||||||
20 exch moveto
|
|
||||||
|
|
||||||
ad {
|
|
||||||
% ascender and descender
|
|
||||||
gsave
|
|
||||||
0.9 setgray
|
|
||||||
0 bp 2 div rmoveto
|
|
||||||
900 0 rlineto
|
|
||||||
-900 bp rmoveto
|
|
||||||
900 0 rlineto
|
|
||||||
stroke
|
|
||||||
grestore
|
|
||||||
} if
|
|
||||||
|
|
||||||
% waist line
|
|
||||||
wl {
|
|
||||||
gsave
|
|
||||||
0.7 setgray
|
|
||||||
0 bp rmoveto
|
|
||||||
900 0 rlineto
|
|
||||||
stroke
|
|
||||||
grestore
|
|
||||||
} if
|
|
||||||
|
|
||||||
% left margin
|
|
||||||
gsave
|
|
||||||
0.3 setgray
|
|
||||||
0 bp rlineto
|
|
||||||
stroke
|
|
||||||
grestore
|
|
||||||
|
|
||||||
% base line
|
|
||||||
gsave
|
|
||||||
0.3 setgray
|
|
||||||
900 0 rlineto
|
|
||||||
stroke
|
|
||||||
grestore
|
|
||||||
} for
|
|
||||||
|
|
||||||
showpage
|
|
||||||
%%EOF
|
|
||||||
|
|
@ -1,273 +0,0 @@
|
||||||
%!PS-Adobe-2.0
|
|
||||||
%%Title: Skeleton for typesetting in PostScript.
|
|
||||||
%%Creator: Neale Pickett <neale@lanl.gov>
|
|
||||||
%%CreationDate: Thu Nov 22 15:27:53 MST 1998
|
|
||||||
%% Time-stamp: <2002-10-22 09:34:13 neale>
|
|
||||||
%%EndComments
|
|
||||||
|
|
||||||
/FontSize 12 def
|
|
||||||
|
|
||||||
/RegFont /Times-Roman def
|
|
||||||
/BoldFont /Times-Bold def
|
|
||||||
/ItalFont /Times-Italic def
|
|
||||||
|
|
||||||
/RegFSet RegFont findfont FontSize scalefont def
|
|
||||||
/BoldFSet BoldFont findfont FontSize scalefont def
|
|
||||||
/HeadFSet BoldFont findfont FontSize 1.1 mul scalefont def
|
|
||||||
/ItalFSet ItalFont findfont FontSize scalefont def
|
|
||||||
|
|
||||||
/SetRegFont { RegFSet setfont } def
|
|
||||||
/SetBoldFont { BoldFSet setfont } def
|
|
||||||
/SetHeadFont { HeadFSet setfont } def
|
|
||||||
/SetItalFont { ItalFSet setfont } def
|
|
||||||
|
|
||||||
/LM 50 def
|
|
||||||
/BM 50 def
|
|
||||||
/RM 580 LM sub def
|
|
||||||
/TM 760 BM sub def
|
|
||||||
|
|
||||||
/indentLevel 30 def
|
|
||||||
|
|
||||||
% Re-set the margins
|
|
||||||
/reset_margins {
|
|
||||||
/lm LM def
|
|
||||||
/rm RM def
|
|
||||||
} def
|
|
||||||
|
|
||||||
reset_margins
|
|
||||||
|
|
||||||
% Move down just a little
|
|
||||||
/down {
|
|
||||||
reset_margins
|
|
||||||
lm indentation add currentpoint exch pop
|
|
||||||
FontSize 3 div sub
|
|
||||||
moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Move to the next line
|
|
||||||
/next {
|
|
||||||
reset_margins
|
|
||||||
lm indentation add currentpoint exch pop % LM Y
|
|
||||||
FontSize 1.1 mul sub % LM Y'
|
|
||||||
moveto
|
|
||||||
currentpoint exch pop
|
|
||||||
BM lt {
|
|
||||||
showpage
|
|
||||||
LM TM moveto
|
|
||||||
} {} ifelse
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Move to the previous line
|
|
||||||
/prev {
|
|
||||||
lm indentation add currentpoint exch pop % LM Y
|
|
||||||
FontSize 1.1 mul add % LM Y'
|
|
||||||
moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Re-align the indentation
|
|
||||||
/align {
|
|
||||||
lm indentation add currentpoint exch pop moveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Indent once
|
|
||||||
/indentation 0 def
|
|
||||||
/indent {
|
|
||||||
/indentation indentation indentLevel add def
|
|
||||||
align
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Deindent
|
|
||||||
/deindent {
|
|
||||||
/indentation indentation indentLevel sub def
|
|
||||||
align
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show left justified
|
|
||||||
/lshow {
|
|
||||||
gsave
|
|
||||||
% Set the left margin
|
|
||||||
dup
|
|
||||||
stringwidth pop
|
|
||||||
LM add
|
|
||||||
/lm exch def
|
|
||||||
|
|
||||||
currentpoint exch pop % (str) Y
|
|
||||||
LM exch % (str) x Y
|
|
||||||
moveto show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show centered
|
|
||||||
/cshow {
|
|
||||||
gsave
|
|
||||||
dup % (str) (str)
|
|
||||||
stringwidth pop % (str) x
|
|
||||||
2 div % (str) x/2
|
|
||||||
RM LM sub 2 div % (str) x/2 RM/2
|
|
||||||
exch sub LM add % (str) x'
|
|
||||||
currentpoint exch pop % (str) x' Y
|
|
||||||
moveto show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show right justified
|
|
||||||
/rshow {
|
|
||||||
gsave
|
|
||||||
dup % (str) (str)
|
|
||||||
stringwidth pop % (str) x
|
|
||||||
|
|
||||||
% set the right margin
|
|
||||||
dup
|
|
||||||
RM exch sub padwidth sub
|
|
||||||
/rm exch def
|
|
||||||
|
|
||||||
RM exch sub % (str) x'
|
|
||||||
currentpoint exch pop % (str) x' Y
|
|
||||||
moveto show
|
|
||||||
grestore
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show in a bold font
|
|
||||||
/bshow {
|
|
||||||
SetBoldFont
|
|
||||||
show
|
|
||||||
SetRegFont
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show in a italics font
|
|
||||||
/ishow {
|
|
||||||
SetItalFont
|
|
||||||
show
|
|
||||||
SetRegFont
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Special parsing stuff; returns true if it's a printing character
|
|
||||||
/parse_special {
|
|
||||||
/word exch def
|
|
||||||
(<b>) word eq {
|
|
||||||
SetBoldFont
|
|
||||||
false
|
|
||||||
} {
|
|
||||||
(<i>) word eq {
|
|
||||||
SetItalFont
|
|
||||||
false
|
|
||||||
} {
|
|
||||||
(<r>) word eq {
|
|
||||||
SetRegFont
|
|
||||||
false
|
|
||||||
} {
|
|
||||||
true
|
|
||||||
} ifelse
|
|
||||||
} ifelse
|
|
||||||
} ifelse
|
|
||||||
} def
|
|
||||||
|
|
||||||
% I totally stole this out of the blue book. But I changed it a lot, so
|
|
||||||
% you might not recognize it if not for the name.
|
|
||||||
/wordbreak ( ) def
|
|
||||||
/BreakIntoLines {
|
|
||||||
/proc exch def
|
|
||||||
/linelength exch def
|
|
||||||
/textstring exch def
|
|
||||||
/curwidth exch def
|
|
||||||
|
|
||||||
/breakwidth wordbreak stringwidth pop def
|
|
||||||
/lastwordbreak 0 def
|
|
||||||
|
|
||||||
/startchar 0 def
|
|
||||||
/restoftext textstring def
|
|
||||||
|
|
||||||
SetRegFont
|
|
||||||
{
|
|
||||||
restoftext wordbreak search
|
|
||||||
|
|
||||||
{
|
|
||||||
/done false def
|
|
||||||
} {
|
|
||||||
() exch
|
|
||||||
wordbreak exch
|
|
||||||
/done true def
|
|
||||||
} ifelse
|
|
||||||
|
|
||||||
/nextword exch def pop
|
|
||||||
/restoftext exch def
|
|
||||||
|
|
||||||
nextword parse_special {
|
|
||||||
/wordwidth nextword stringwidth pop def
|
|
||||||
curwidth wordwidth add linelength gt
|
|
||||||
{
|
|
||||||
% This word should go on the next line
|
|
||||||
proc
|
|
||||||
/curwidth exch def
|
|
||||||
} if
|
|
||||||
|
|
||||||
/curwidth curwidth wordwidth add
|
|
||||||
breakwidth add def
|
|
||||||
nextword show
|
|
||||||
wordbreak show
|
|
||||||
|
|
||||||
/lastwordbreak lastwordbreak
|
|
||||||
nextword length add 1 add def
|
|
||||||
|
|
||||||
done {
|
|
||||||
exit
|
|
||||||
} {
|
|
||||||
} ifelse
|
|
||||||
} if
|
|
||||||
} loop
|
|
||||||
/lastchar textstring length def
|
|
||||||
textstring startchar lastchar startchar sub
|
|
||||||
getinterval proc
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show some text, and word-wrap it if necessary, then move to the next line
|
|
||||||
/wshow {
|
|
||||||
0 exch
|
|
||||||
/x currentpoint pop def
|
|
||||||
rm x sub % Line length
|
|
||||||
{
|
|
||||||
next
|
|
||||||
x currentpoint exch pop moveto
|
|
||||||
0
|
|
||||||
}
|
|
||||||
BreakIntoLines
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show indented, wrapped text
|
|
||||||
/iwshow {
|
|
||||||
indentLevel exch
|
|
||||||
/x currentpoint pop def
|
|
||||||
rm x sub
|
|
||||||
indentLevel 0 rmoveto
|
|
||||||
{
|
|
||||||
next
|
|
||||||
x currentpoint exch pop moveto
|
|
||||||
0
|
|
||||||
}
|
|
||||||
BreakIntoLines
|
|
||||||
} def
|
|
||||||
|
|
||||||
% Show inverse-indented, wrapped text
|
|
||||||
/iiwshow {
|
|
||||||
indentLevel neg exch
|
|
||||||
/x currentpoint pop indentLevel add def
|
|
||||||
rm x sub
|
|
||||||
{
|
|
||||||
next
|
|
||||||
x currentpoint exch pop moveto
|
|
||||||
0
|
|
||||||
}
|
|
||||||
BreakIntoLines
|
|
||||||
indentLevel neg 0 rmoveto
|
|
||||||
} def
|
|
||||||
|
|
||||||
|
|
||||||
LM TM moveto
|
|
||||||
SetRegFont
|
|
||||||
|
|
||||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
||||||
% Content goes here ;-)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
showpage
|
|
||||||
|
|
@ -1,4 +0,0 @@
|
||||||
Title: pysieved: Python Managesieve Server
|
|
||||||
|
|
||||||
pysieved is a GPL managesieve server. It is now hosted on gitorious, at
|
|
||||||
<http://www.gitorious.net/pysieved/pages/Home>.
|
|
||||||
|
|
@ -1 +0,0 @@
|
||||||
../pysieved.mdwn
|
|
||||||
|
|
@ -1,100 +0,0 @@
|
||||||
#! /usr/bin/env python
|
|
||||||
|
|
||||||
## htmlpp -- Python HTML/CSS pretty-printer
|
|
||||||
##
|
|
||||||
## Thanks to ActiveState's ASPN (which rules, thanks guys) for leading
|
|
||||||
## me to this idea. AFAIK, they got the idea from MoinMoin.
|
|
||||||
##
|
|
||||||
## This is a part of epy: http://woozle.org/~neale/src/epy/
|
|
||||||
|
|
||||||
from __future__ import generators
|
|
||||||
import cgi
|
|
||||||
import sys
|
|
||||||
import keyword
|
|
||||||
import token
|
|
||||||
import tokenize
|
|
||||||
|
|
||||||
def prettyprint(fd):
|
|
||||||
"""Pretty print code into HTML/CSS.
|
|
||||||
|
|
||||||
This returns a generator, which generates tokens to be printed to
|
|
||||||
some HTML document. You'll need to define a style sheet to get the
|
|
||||||
colors you like.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
end = (0, 0)
|
|
||||||
last = (None,) * 5
|
|
||||||
for tok in tokenize.generate_tokens(fd.readline):
|
|
||||||
start = tok[2]
|
|
||||||
if start[1] != end[1]:
|
|
||||||
if start[0] != end[0]:
|
|
||||||
# What to do here? Punt.
|
|
||||||
yield '\n<strong>prettyprint punting: %s %s</strong>\n' % (tok, end)
|
|
||||||
else:
|
|
||||||
yield tok[4][end[1]:start[1]]
|
|
||||||
end = tok[3]
|
|
||||||
if end[1] == len(tok[4]):
|
|
||||||
# Prevent punting on newlines
|
|
||||||
end = (end[0] + 1, 0)
|
|
||||||
if tok[0] == token.NAME:
|
|
||||||
if keyword.iskeyword(tok[1]):
|
|
||||||
style = 'KEYWORD'
|
|
||||||
elif last[1] in ('class', 'def'):
|
|
||||||
style = 'FUNCTION'
|
|
||||||
else:
|
|
||||||
style = 'NAME'
|
|
||||||
else:
|
|
||||||
style = token.tok_name.get(tok[0])
|
|
||||||
s = tok[1].expandtabs()
|
|
||||||
txt = cgi.escape(s)
|
|
||||||
if style:
|
|
||||||
last = tok
|
|
||||||
yield ('<span class="%s">%s</span>'
|
|
||||||
% (style, txt))
|
|
||||||
else:
|
|
||||||
yield s
|
|
||||||
|
|
||||||
def pp_fd(f, out=sys.stdout):
|
|
||||||
"""Pretty print a file object."""
|
|
||||||
|
|
||||||
for item in prettyprint(f):
|
|
||||||
out.write(item)
|
|
||||||
|
|
||||||
def pp_file(filename, out=sys.stdout):
|
|
||||||
"""Pretty print a filename.
|
|
||||||
|
|
||||||
Open and pretty-print python source in filename. Output goes to out
|
|
||||||
(default, sys.stdout).
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
pp_fd(open(filename), out)
|
|
||||||
|
|
||||||
def pp_string(string, out=sys.stdout):
|
|
||||||
"""Pretty print a string."""
|
|
||||||
|
|
||||||
import cStringIO as StringIO
|
|
||||||
|
|
||||||
f = StringIO.StringIO(string)
|
|
||||||
pp_fd(f, out)
|
|
||||||
|
|
||||||
if __name__ == "__main__":
|
|
||||||
import sys
|
|
||||||
|
|
||||||
print '''<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
|
|
||||||
"http://www.w3.org/TR/html4/strict.dtd">
|
|
||||||
<html>
|
|
||||||
<head>
|
|
||||||
<title>Bee-yoo-ti-ful source code</title>
|
|
||||||
<link rel="stylesheet" type="text/css"
|
|
||||||
href="http://woozle.org/~neale/default.css">
|
|
||||||
</head>
|
|
||||||
<body>'''
|
|
||||||
print '<pre>'
|
|
||||||
# write colorized version to stdout
|
|
||||||
for item in prettyprint(sys.stdin):
|
|
||||||
sys.stdout.write(item)
|
|
||||||
print '</pre></body></html>'
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,3 +0,0 @@
|
||||||
Title: Python hacks
|
|
||||||
|
|
||||||
Here's some junk I did in Python.
|
|
||||||
|
|
@ -1,42 +0,0 @@
|
||||||
#! /usr/bin/env python
|
|
||||||
|
|
||||||
# Description: Knuth-Morris-Pratt algorithm
|
|
||||||
|
|
||||||
"""Knuth-Morris-Pratt algorithm
|
|
||||||
|
|
||||||
This is a direct transaltion of the KMP algorithm in the book
|
|
||||||
"Introduction to Algorithms" by Cormen, Lieserson, and Rivest. See that
|
|
||||||
book for an explanation of why this algorithm works. It's pretty cool.
|
|
||||||
|
|
||||||
The only things I changed were some offsets, to cope with the fact that
|
|
||||||
Python arrays are 0-offset.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
__author__ = 'Neale Pickett <neale@woozle.org>'
|
|
||||||
|
|
||||||
def compute_prefix_function(p):
|
|
||||||
m = len(p)
|
|
||||||
pi = [0] * m
|
|
||||||
k = 0
|
|
||||||
for q in range(1, m):
|
|
||||||
while k > 0 and p[k] != p[q]:
|
|
||||||
k = pi[k - 1]
|
|
||||||
if p[k] == p[q]:
|
|
||||||
k = k + 1
|
|
||||||
pi[q] = k
|
|
||||||
return pi
|
|
||||||
|
|
||||||
def kmp_matcher(t, p):
|
|
||||||
n = len(t)
|
|
||||||
m = len(p)
|
|
||||||
pi = compute_prefix_function(p)
|
|
||||||
q = 0
|
|
||||||
for i in range(n):
|
|
||||||
while q > 0 and p[q] != t[i]:
|
|
||||||
q = pi[q - 1]
|
|
||||||
if p[q] == t[i]:
|
|
||||||
q = q + 1
|
|
||||||
if q == m:
|
|
||||||
return i - m + 1
|
|
||||||
return -1
|
|
||||||
|
|
@ -1,68 +0,0 @@
|
||||||
#! /usr/bin/python
|
|
||||||
|
|
||||||
## cronit -- A lightweight (aka "lousy") anacron replacement
|
|
||||||
## Copyright (C) 2007 Neale Pickett
|
|
||||||
##
|
|
||||||
## This program is free software: you can redistribute it and/or modify
|
|
||||||
## it under the terms of the GNU General Public License as published by
|
|
||||||
## the Free Software Foundation, either version 3 of the License, or (at
|
|
||||||
## your option) any later version.
|
|
||||||
##
|
|
||||||
## This program is distributed in the hope that it will be useful, but
|
|
||||||
## WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
## General Public License for more details.
|
|
||||||
##
|
|
||||||
## You should have received a copy of the GNU General Public License
|
|
||||||
## along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
import time
|
|
||||||
import os
|
|
||||||
import popen2
|
|
||||||
import socket
|
|
||||||
|
|
||||||
basedir = os.path.expanduser('~/lib/cron')
|
|
||||||
|
|
||||||
os.chdir(os.path.expanduser('~'))
|
|
||||||
|
|
||||||
now = time.time()
|
|
||||||
periods = (('test', -1),
|
|
||||||
('hourly', 3600),
|
|
||||||
('daily', 86400),
|
|
||||||
('weekly', 604800),
|
|
||||||
('monthly', 18144000), # more or less
|
|
||||||
('yearly', 2204892000))
|
|
||||||
|
|
||||||
def run_parts(dir):
|
|
||||||
out = []
|
|
||||||
for script in os.listdir(dir):
|
|
||||||
if script.endswith('~') or script.startswith('.'):
|
|
||||||
continue
|
|
||||||
fn = os.path.join(dir, script)
|
|
||||||
proc = popen2.Popen4(fn)
|
|
||||||
proc.tochild.close()
|
|
||||||
outstr = proc.fromchild.read()
|
|
||||||
ret = proc.wait()
|
|
||||||
if outstr or ret:
|
|
||||||
out.append((fn, outstr, ret))
|
|
||||||
return out
|
|
||||||
|
|
||||||
def cronit(basedir):
|
|
||||||
for name, interval in periods:
|
|
||||||
dir = os.path.join(basedir, name)
|
|
||||||
if not os.path.exists(dir):
|
|
||||||
continue
|
|
||||||
tsfile = os.path.join(dir, '.timestamp.%s' % socket.gethostname())
|
|
||||||
try:
|
|
||||||
ts = int(file(tsfile).read().strip())
|
|
||||||
except:
|
|
||||||
ts = 0
|
|
||||||
if ts + interval < now:
|
|
||||||
problems = run_parts(dir)
|
|
||||||
file(tsfile, 'w').write('%d\n' % now)
|
|
||||||
for script, output, ret in problems:
|
|
||||||
print '====== %s exited with code %d' % (script, ret/256)
|
|
||||||
print output
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
cronit(basedir)
|
|
||||||
|
|
@ -1,46 +0,0 @@
|
||||||
# maildir.py -- Maildir utilities
|
|
||||||
#
|
|
||||||
# Released into the public domain
|
|
||||||
|
|
||||||
"""Maildir utilities"""
|
|
||||||
|
|
||||||
__author__ = 'Neale Pickett <neale@woozle.org>'
|
|
||||||
|
|
||||||
import os
|
|
||||||
import socket
|
|
||||||
import time
|
|
||||||
|
|
||||||
# Counter gets incremented by one for every message delivered
|
|
||||||
count = 0
|
|
||||||
|
|
||||||
# Local hostname
|
|
||||||
HOST = socket.gethostname()
|
|
||||||
|
|
||||||
def create(mdir):
|
|
||||||
os.umask(0022)
|
|
||||||
for i in ('tmp', 'cur', 'new'):
|
|
||||||
os.makedirs('%s/%s' % (mdir, i))
|
|
||||||
|
|
||||||
def write(mdir, message, info=None):
|
|
||||||
"""Write a message out to a maildir.
|
|
||||||
|
|
||||||
"""
|
|
||||||
global count
|
|
||||||
|
|
||||||
mdir = time.strftime('%Y-%m')
|
|
||||||
if not os.path.exists(mdir):
|
|
||||||
maildir_create(mdir)
|
|
||||||
|
|
||||||
filename = '%d.%d_%04d.%s' % (time.time(), os.getpid(),
|
|
||||||
count, HOST)
|
|
||||||
f = open('%s/tmp/%s' % (mdir, filename),
|
|
||||||
'w')
|
|
||||||
f.write(message)
|
|
||||||
f.close()
|
|
||||||
if info:
|
|
||||||
os.rename('%s/tmp/%s' % (mdir, filename),
|
|
||||||
'%s/cur/%s:2,%s' % (mdir, filename, info))
|
|
||||||
else:
|
|
||||||
os.rename('%s/tmp/%s' % (mdir, filename),
|
|
||||||
'%s/new/%s' % (mdir, filename))
|
|
||||||
count += 1
|
|
||||||
|
|
@ -1,54 +0,0 @@
|
||||||
#! /usr/bin/python
|
|
||||||
|
|
||||||
### ndstrunc -- Trims .nds ROM files
|
|
||||||
|
|
||||||
|
|
||||||
import struct
|
|
||||||
import optparse
|
|
||||||
import os
|
|
||||||
|
|
||||||
parser = optparse.OptionParser(description='Trims .nds ROM files.')
|
|
||||||
parser.add_option('-d', '--dry-run',
|
|
||||||
action='store_false', dest='writeout', default=True,
|
|
||||||
help="Don't actually modify any files.")
|
|
||||||
parser.add_option('-f', '--force',
|
|
||||||
action='store_true', dest='force', default=False,
|
|
||||||
help="Force truncation even if it seems like too much.")
|
|
||||||
(options, args) = parser.parse_args()
|
|
||||||
|
|
||||||
for fn in args:
|
|
||||||
f = file(fn, 'rb+')
|
|
||||||
f.seek(0x80)
|
|
||||||
(size,) = struct.unpack('<I', f.read(4))
|
|
||||||
|
|
||||||
ondisk = os.path.getsize(fn)
|
|
||||||
reduction = 100 - (size * 100.0 / ondisk)
|
|
||||||
print fn
|
|
||||||
|
|
||||||
if size == ondisk:
|
|
||||||
print ' Already truncated.'
|
|
||||||
continue
|
|
||||||
# I read in some source code that wifi games need 138 extra bytes.
|
|
||||||
# Why? I don't understand, but I figure you can afford 256 bytes
|
|
||||||
# extra to be on the safe side. Compared to the size of typical ROM
|
|
||||||
# images it's a pittance.
|
|
||||||
size += 256
|
|
||||||
if size >= ondisk:
|
|
||||||
print ' Already truncated.'
|
|
||||||
continue
|
|
||||||
|
|
||||||
print ' On disk:', ondisk
|
|
||||||
print ' Header says:', size
|
|
||||||
print ' Would save: %dB (%2.0f%%)' % (ondisk-size, reduction)
|
|
||||||
if size < (ondisk >> 2):
|
|
||||||
if options.force:
|
|
||||||
print ' Truncating anyway, as requested.'
|
|
||||||
else:
|
|
||||||
print ' Would truncate too much!!'
|
|
||||||
continue
|
|
||||||
if options.writeout:
|
|
||||||
f.truncate(size)
|
|
||||||
print ' Truncated.'
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,116 +0,0 @@
|
||||||
#!/usr/bin/env python
|
|
||||||
|
|
||||||
"""robotfindskitten -- A zen simulation.
|
|
||||||
|
|
||||||
This is a web version of the classic text-based game. The text-based
|
|
||||||
version is much better. Go check it out at http://robotfindskitten.org/
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
import cgitb; cgitb.enable()
|
|
||||||
import cgi
|
|
||||||
import whrandom
|
|
||||||
import sys
|
|
||||||
|
|
||||||
symbols = list('0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!"$%&\'()*+,-./:;<=>?@[\]^_`{|}~')
|
|
||||||
width = 50
|
|
||||||
height = 30
|
|
||||||
|
|
||||||
def color():
|
|
||||||
def c():
|
|
||||||
return whrandom.choice(('44', '88', 'cc', 'ff'))
|
|
||||||
|
|
||||||
return c() + c() + c()
|
|
||||||
|
|
||||||
print 'Content-type: text/html'
|
|
||||||
print
|
|
||||||
|
|
||||||
def main():
|
|
||||||
nki = []
|
|
||||||
f = open('messages.h')
|
|
||||||
for line in f.xreadlines():
|
|
||||||
if line.startswith(' "'):
|
|
||||||
line = line.strip()
|
|
||||||
if line[-1] == ',':
|
|
||||||
line = line[1:-2]
|
|
||||||
else:
|
|
||||||
line = line[1:-1]
|
|
||||||
line = line.replace(r'\"', '"')
|
|
||||||
nki.append(line)
|
|
||||||
|
|
||||||
print '''<html><head>
|
|
||||||
<title>robotfindskitten: a zen simulation</title>
|
|
||||||
<link rel="stylesheet" type="text/css"
|
|
||||||
href="http://woozle.org/~neale/default.css">
|
|
||||||
<style type="text/css">
|
|
||||||
a {
|
|
||||||
text-decoration: none;
|
|
||||||
cursor: default;
|
|
||||||
}
|
|
||||||
a:visited {
|
|
||||||
color: #%s;
|
|
||||||
}
|
|
||||||
pre {
|
|
||||||
background-color: black;
|
|
||||||
border: solid white;
|
|
||||||
text-align: center;
|
|
||||||
padding: .75em;
|
|
||||||
cursor: default;
|
|
||||||
}
|
|
||||||
</style>
|
|
||||||
</head>''' % color()
|
|
||||||
|
|
||||||
print '<html>'
|
|
||||||
|
|
||||||
print '<h1>robotfindskitten</h1>'
|
|
||||||
|
|
||||||
print '''
|
|
||||||
<p>
|
|
||||||
You are robot. Your mission: find kitten.
|
|
||||||
|
|
||||||
|
|
||||||
Hold the mouse cursor over an object you suspect to be kitten.
|
|
||||||
After a few seconds, your browser will tell you what you have
|
|
||||||
found. Older browsers may not be able to relay what an object
|
|
||||||
actually is, so the experience may be diminished somewhat.
|
|
||||||
</p>
|
|
||||||
|
|
||||||
'''
|
|
||||||
|
|
||||||
|
|
||||||
print '<pre>'
|
|
||||||
|
|
||||||
screen = []
|
|
||||||
for i in range(height):
|
|
||||||
screen.append([' '] * width)
|
|
||||||
|
|
||||||
for i in range(30):
|
|
||||||
x = whrandom.randrange(width)
|
|
||||||
y = whrandom.randrange(height)
|
|
||||||
|
|
||||||
n = whrandom.randrange(len(symbols))
|
|
||||||
s = symbols[n]
|
|
||||||
del symbols[n]
|
|
||||||
s = cgi.escape(s)
|
|
||||||
|
|
||||||
n = whrandom.randrange(len(nki))
|
|
||||||
t = nki[n]
|
|
||||||
del nki[n]
|
|
||||||
t = cgi.escape(t)
|
|
||||||
t = t.replace('"', '"')
|
|
||||||
|
|
||||||
screen[y][x] = ('<span style="color: #%s;" title="%s">%s</span>'
|
|
||||||
% (color(), t, s))
|
|
||||||
# place kitten!
|
|
||||||
screen[y][x] = '<a href="http://robotfindskitten.org" title="You found kitten! Way to go, robot!">%s</a>' % s
|
|
||||||
|
|
||||||
for row in screen:
|
|
||||||
print ''.join(row)
|
|
||||||
|
|
||||||
print '</pre>'
|
|
||||||
|
|
||||||
print '</html>'
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
main()
|
|
||||||
|
|
||||||
|
|
@ -1,538 +0,0 @@
|
||||||
#! /usr/bin/env python
|
|
||||||
|
|
||||||
# Description: SNPP client class for Python
|
|
||||||
|
|
||||||
'''SNPP client class.
|
|
||||||
|
|
||||||
Author: Neale Pickett <neale@woozle.org>
|
|
||||||
|
|
||||||
This was modified from the Python 1.5 library SMTP lib.
|
|
||||||
Which was modified from the Python 1.5 library HTTP lib.
|
|
||||||
|
|
||||||
Basically, I took smtplib, did an s/SMTP/SNPP/, and changed about ten
|
|
||||||
other things. If only all projects were this easy :-)
|
|
||||||
|
|
||||||
Example:
|
|
||||||
|
|
||||||
>>> import snpplib
|
|
||||||
>>> s = snpplib.SNPP("localhost")
|
|
||||||
>>> print s.help()[1]
|
|
||||||
|
|
||||||
Level 1 commands accepted:
|
|
||||||
|
|
||||||
PAGEr <pager ID>
|
|
||||||
MESSage <alpha or numeric message>
|
|
||||||
RESEt
|
|
||||||
SEND
|
|
||||||
QUIT
|
|
||||||
HELP
|
|
||||||
|
|
||||||
Level 2 commands accepted:
|
|
||||||
|
|
||||||
DATA
|
|
||||||
LOGIn <loginid> [password]
|
|
||||||
LEVEl <ServiceLevel>
|
|
||||||
COVErage <AlternateArea>
|
|
||||||
HOLDuntil <YYMMDDHHMMSS> [+/-GMTdifference]
|
|
||||||
CALLerid <CallerID>
|
|
||||||
|
|
||||||
Level 3 commands accepted:
|
|
||||||
|
|
||||||
none
|
|
||||||
|
|
||||||
OK
|
|
||||||
>>> s.putcmd("rese")
|
|
||||||
>>> s.getreply()
|
|
||||||
(250, 'Reset ok')
|
|
||||||
>>> s.quit()
|
|
||||||
'''
|
|
||||||
|
|
||||||
import socket
|
|
||||||
import re
|
|
||||||
import rfc822
|
|
||||||
import types
|
|
||||||
|
|
||||||
SNPP_PORT = 444
|
|
||||||
CRLF="\r\n"
|
|
||||||
|
|
||||||
# Exception classes used by this module.
|
|
||||||
class SNPPException(Exception):
|
|
||||||
"""Base class for all exceptions raised by this module."""
|
|
||||||
|
|
||||||
class SNPPServerDisconnected(SNPPException):
|
|
||||||
"""Not connected to any SNPP server.
|
|
||||||
|
|
||||||
This exception is raised when the server unexpectedly disconnects,
|
|
||||||
or when an attempt is made to use the SNPP instance before
|
|
||||||
connecting it to a server.
|
|
||||||
"""
|
|
||||||
|
|
||||||
class SNPPResponseException(SNPPException):
|
|
||||||
"""Base class for all exceptions that include an SNPP error code.
|
|
||||||
|
|
||||||
These exceptions are generated in some instances when the SNPP
|
|
||||||
server returns an error code. The error code is stored in the
|
|
||||||
`snpp_code' attribute of the error, and the `snpp_error' attribute
|
|
||||||
is set to the error message.
|
|
||||||
"""
|
|
||||||
|
|
||||||
def __init__(self, code, msg):
|
|
||||||
self.snpp_code = code
|
|
||||||
self.snpp_error = msg
|
|
||||||
self.args = (code, msg)
|
|
||||||
|
|
||||||
class SNPPSenderRefused(SNPPResponseException):
|
|
||||||
"""Caller ID refused.
|
|
||||||
|
|
||||||
In addition to the attributes set by on all SNPPResponseException
|
|
||||||
exceptions, this sets `sender' to the string that the SNPP refused
|
|
||||||
"""
|
|
||||||
|
|
||||||
def __init__(self, code, msg, sender):
|
|
||||||
self.snpp_code = code
|
|
||||||
self.snpp_error = msg
|
|
||||||
self.sender = sender
|
|
||||||
self.args = (code, msg, sender)
|
|
||||||
|
|
||||||
class SMTPRecipientsRefused(SNPPResponseException):
|
|
||||||
"""All recipient addresses refused.
|
|
||||||
|
|
||||||
The errors for each recipient are accessable thru the attribute
|
|
||||||
'recipients', which is a dictionary of exactly the same sort as
|
|
||||||
SNPP.sendpage() returns.
|
|
||||||
"""
|
|
||||||
|
|
||||||
def __init__(self, recipients):
|
|
||||||
self.recipients = recipients
|
|
||||||
self.args = ( recipients,)
|
|
||||||
|
|
||||||
|
|
||||||
class SNPPDataError(SNPPResponseException):
|
|
||||||
"""The SNPP server didn't accept the data."""
|
|
||||||
|
|
||||||
class SNPPConnectError(SNPPResponseException):
|
|
||||||
"""Error during connection establishment"""
|
|
||||||
|
|
||||||
def quotedata(data):
|
|
||||||
"""Quote data for email.
|
|
||||||
|
|
||||||
Double leading '.', and change Unix newline '\n', or Mac '\r' into
|
|
||||||
Internet CRLF end-of-line.
|
|
||||||
"""
|
|
||||||
return re.sub(r'(?m)^\.', '..',
|
|
||||||
re.sub(r'(?:\r\n|\n|\r(?!\n))', CRLF, data))
|
|
||||||
|
|
||||||
class SNPP:
|
|
||||||
"""This class manages a connection to an SNPP server.
|
|
||||||
SNPP Objects:
|
|
||||||
|
|
||||||
For method docs, see each method's docstrings. In general, there is
|
|
||||||
a method of the same name to perform each SNPP command, and there
|
|
||||||
is a method called 'sendpage' that will do an entire page
|
|
||||||
transaction.
|
|
||||||
"""
|
|
||||||
debuglevel = 0
|
|
||||||
file = None
|
|
||||||
|
|
||||||
def __init__(self, host = '', port = 0):
|
|
||||||
"""Initialize a new instance.
|
|
||||||
|
|
||||||
If specified, `host' is the name of the remote host to which to
|
|
||||||
connect. If specified, `port' specifies the port to which to connect.
|
|
||||||
By default, snpplib.SNPP_PORT is used. An SNPPConnectError is
|
|
||||||
raised if the specified `host' doesn't respond correctly.
|
|
||||||
|
|
||||||
"""
|
|
||||||
self.esnpp_features = {}
|
|
||||||
if host:
|
|
||||||
(code, msg) = self.connect(host, port)
|
|
||||||
if code != 220:
|
|
||||||
raise SNPPConnectError(code, msg)
|
|
||||||
|
|
||||||
def set_debuglevel(self, debuglevel):
|
|
||||||
"""Set the debug output level.
|
|
||||||
|
|
||||||
A non-false value results in debug messages for connection and for all
|
|
||||||
messages sent to and received from the server.
|
|
||||||
|
|
||||||
"""
|
|
||||||
self.debuglevel = debuglevel
|
|
||||||
|
|
||||||
def connect(self, host='localhost', port = 0):
|
|
||||||
"""Connect to a host on a given port.
|
|
||||||
|
|
||||||
If the hostname ends with a colon (`:') followed by a number, and
|
|
||||||
there is no port specified, that suffix will be stripped off and the
|
|
||||||
number interpreted as the port number to use.
|
|
||||||
|
|
||||||
Note: This method is automatically invoked by __init__, if a host is
|
|
||||||
specified during instantiation.
|
|
||||||
|
|
||||||
"""
|
|
||||||
if not port:
|
|
||||||
i = host.find(':')
|
|
||||||
if i >= 0:
|
|
||||||
host, port = host[:i], host[i+1:]
|
|
||||||
try:
|
|
||||||
port = int(port)
|
|
||||||
except ValueError:
|
|
||||||
raise socket.error, "nonnumeric port"
|
|
||||||
if not port: port = SNPP_PORT
|
|
||||||
self.sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
|
|
||||||
if self.debuglevel > 0: print 'connect:', (host, port)
|
|
||||||
self.sock.connect((host, port))
|
|
||||||
(code,msg)=self.getreply()
|
|
||||||
if self.debuglevel >0 : print "connect:", msg
|
|
||||||
return (code,msg)
|
|
||||||
|
|
||||||
def sendstr(self, str):
|
|
||||||
"""Send `str' to the server."""
|
|
||||||
if self.debuglevel > 0: print 'send:', `str`
|
|
||||||
if self.sock:
|
|
||||||
try:
|
|
||||||
self.sock.send(str)
|
|
||||||
except socket.error:
|
|
||||||
raise SNPPServerDisconnected('Server not connected')
|
|
||||||
else:
|
|
||||||
raise SNPPServerDisconnected('please run connect() first')
|
|
||||||
|
|
||||||
def putcmd(self, cmd, args=""):
|
|
||||||
"""Send a command to the server."""
|
|
||||||
str = '%s %s%s' % (cmd, args, CRLF)
|
|
||||||
self.sendstr(str)
|
|
||||||
|
|
||||||
def getreply(self):
|
|
||||||
"""Get a reply from the server.
|
|
||||||
|
|
||||||
Returns a tuple consisting of:
|
|
||||||
|
|
||||||
- server response code (e.g. '250', or such, if all goes well)
|
|
||||||
Note: returns -1 if it can't read response code.
|
|
||||||
|
|
||||||
- server response string corresponding to response code (multiline
|
|
||||||
responses are converted to a single, multiline string).
|
|
||||||
|
|
||||||
Raises SNPPServerDisconnected if end-of-file is reached.
|
|
||||||
"""
|
|
||||||
resp=[]
|
|
||||||
if self.file is None:
|
|
||||||
self.file = self.sock.makefile('rb')
|
|
||||||
while 1:
|
|
||||||
line = self.file.readline()
|
|
||||||
if line == '':
|
|
||||||
self.close()
|
|
||||||
raise SNPPServerDisconnected("Connection unexpectedly closed")
|
|
||||||
if self.debuglevel > 0: print 'reply:', `line`
|
|
||||||
resp.append(line[4:].strip())
|
|
||||||
code=line[:3]
|
|
||||||
# Check that the error code is syntactically correct.
|
|
||||||
# Don't attempt to read a continuation line if it is broken.
|
|
||||||
try:
|
|
||||||
errcode = int(code)
|
|
||||||
except ValueError:
|
|
||||||
errcode = -1
|
|
||||||
break
|
|
||||||
# Check if multiline response.
|
|
||||||
if errcode != 214:
|
|
||||||
break
|
|
||||||
|
|
||||||
errmsg = '\n'.join(resp)
|
|
||||||
if self.debuglevel > 0:
|
|
||||||
print 'reply: retcode (%s); Msg: %s' % (errcode,errmsg)
|
|
||||||
return errcode, errmsg
|
|
||||||
|
|
||||||
def docmd(self, cmd, args=""):
|
|
||||||
"""Send a command, and return its response code."""
|
|
||||||
self.putcmd(cmd,args)
|
|
||||||
return self.getreply()
|
|
||||||
|
|
||||||
def help(self, args=''):
|
|
||||||
"""SNPP 'help' command.
|
|
||||||
Returns help text from server."""
|
|
||||||
return self.docmd("help", args)
|
|
||||||
|
|
||||||
def rese(self):
|
|
||||||
"""SNPP 'rese' command -- resets session."""
|
|
||||||
return self.docmd("rese")
|
|
||||||
|
|
||||||
def page(self, pagerid, password=""):
|
|
||||||
"""SNPP 'page' command -- specifies a pager ID.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
if password:
|
|
||||||
args = "%s %s" % (pagerid, password)
|
|
||||||
else:
|
|
||||||
args = pagerid
|
|
||||||
return self.docmd("page", args)
|
|
||||||
|
|
||||||
def mess(self, msg):
|
|
||||||
"""SNPP 'mess' command -- sends a single-line message."""
|
|
||||||
return self.docmd("mess", msg)
|
|
||||||
|
|
||||||
def send(self):
|
|
||||||
"""SNPP 'send' command -- sends a message."""
|
|
||||||
return self.docmd("send")
|
|
||||||
|
|
||||||
def data(self, msg):
|
|
||||||
"""SNPP 'DATA' command -- sends message data to server.
|
|
||||||
|
|
||||||
Automatically quotes lines beginning with a period per rfc821.
|
|
||||||
Raises SNPPDataError if there is an unexpected reply to the
|
|
||||||
DATA command; the return value from this method is the final
|
|
||||||
response code received when the all data is sent.
|
|
||||||
"""
|
|
||||||
self.putcmd("data")
|
|
||||||
(code,repl)=self.getreply()
|
|
||||||
if self.debuglevel >0 : print "data:", (code,repl)
|
|
||||||
if code <> 354:
|
|
||||||
raise SNPPDataError(code,repl)
|
|
||||||
else:
|
|
||||||
self.sendstr(quotedata(msg))
|
|
||||||
self.sendstr("%s.%s" % (CRLF, CRLF))
|
|
||||||
(code,msg)=self.getreply()
|
|
||||||
if self.debuglevel >0 : print "data:", (code,msg)
|
|
||||||
return (code,msg)
|
|
||||||
|
|
||||||
# Level 2 - Optional Extensions
|
|
||||||
|
|
||||||
def logi(self, loginid, password=""):
|
|
||||||
"""SNPP 'logi' command -- logs in to the server.
|
|
||||||
|
|
||||||
This command allows for a session login ID to be specified. It
|
|
||||||
is used to validate the person attempting to access the paging
|
|
||||||
terminal. If no LOGIn command is issued, "anonymous" user
|
|
||||||
status is assumed.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
if password:
|
|
||||||
args = "%s %s" % (loginid, password)
|
|
||||||
else:
|
|
||||||
args = loginid
|
|
||||||
return self.docmd("logi", args)
|
|
||||||
|
|
||||||
def leve(self, servicelevel):
|
|
||||||
"""SNPP 'leve' command -- sets server level for next PAGE.
|
|
||||||
|
|
||||||
The LEVEl function is used to specify an optional alternate
|
|
||||||
level of service for the next PAGEr command. Ideally,
|
|
||||||
"ServiceLevel" should be an integer between 0 and 11 inclusive.
|
|
||||||
The TME protocol specifies ServiceLevel as follows:
|
|
||||||
|
|
||||||
0 - Priority
|
|
||||||
1 - Normal (default)
|
|
||||||
2 - Five minutes
|
|
||||||
3 - Fifteen minutes
|
|
||||||
4 - One hour
|
|
||||||
5 - Four hours
|
|
||||||
6 - Twelve hours
|
|
||||||
7 - Twenty Four hours
|
|
||||||
8 - Carrier specific '1'
|
|
||||||
9 - Carrier specific '2'
|
|
||||||
10 - Carrier specific '3'
|
|
||||||
11 - Carrier specific '4'
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
return self.docmd("leve", servicelevel)
|
|
||||||
|
|
||||||
def aler(self, alertoverride):
|
|
||||||
"""SNPP 'aler' command -- override alert setting.
|
|
||||||
|
|
||||||
The optional ALERt command may be used to override the default
|
|
||||||
setting and specify whether or not to alert the subscriber upon
|
|
||||||
receipt of a message. This option, like the previous command,
|
|
||||||
alters the parameters submitted to the paging terminal using
|
|
||||||
the PAGEr command. The TME protocol specifies AlertOverride as
|
|
||||||
either 0-DoNotAlert, or 1-Alert.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
return self.docmd("aler", alertoverride)
|
|
||||||
|
|
||||||
def cove(self, alternatearea):
|
|
||||||
"""SNPP 'cove' command -- override coverage area.
|
|
||||||
|
|
||||||
The optional COVErage command is used to override the
|
|
||||||
subscriber's default coverage area, and allow for the selection
|
|
||||||
of an alternate region. This option, like the previous
|
|
||||||
command, alters the parameters submitted to the paging terminal
|
|
||||||
using the PAGEr command. AlternateArea is a designator for one
|
|
||||||
of the following:
|
|
||||||
|
|
||||||
- A subscriber-specific alternate coverage area
|
|
||||||
- A carrier-defined region available to subscribers
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
return self.docmd("cove", alternatearea)
|
|
||||||
|
|
||||||
def hold(self, timespec, gmtdiff=""):
|
|
||||||
"""SNPP 'hold' command -- hold until specified time.
|
|
||||||
|
|
||||||
The HOLDuntil command allows for the delayed delivery of a
|
|
||||||
message, to a particular subscriber, until after the time
|
|
||||||
specified. The time may be specified in local time (e.g. local
|
|
||||||
to the paging terminal), or with an added parameter specifying
|
|
||||||
offset from GMT (in other words, "-0600" specifies Eastern
|
|
||||||
Standard Time). This option, like the previous command, alters
|
|
||||||
the parameters submitted to the paging terminal using the PAGEr
|
|
||||||
command.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
if gmtdiff:
|
|
||||||
args = "%s %s" % (timespec, gmtdiff)
|
|
||||||
else:
|
|
||||||
args = timespec
|
|
||||||
|
|
||||||
return self.docmd("hold", args)
|
|
||||||
|
|
||||||
def call(self, callerid):
|
|
||||||
"""SNPP 'call' command -- specify caller ID.
|
|
||||||
|
|
||||||
The CALLerid function is a message-oriented function (as opposed
|
|
||||||
to the subscriber-oriented functions just described). This
|
|
||||||
allows for the specification of the CallerIdentifier function as
|
|
||||||
described in TME. This parameter is optional, and is at the
|
|
||||||
discretion of the carrier as to how it should be implemented or
|
|
||||||
used.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
return self.docmd("call", callerid)
|
|
||||||
|
|
||||||
def subj(self, messagesubject):
|
|
||||||
"""SNPP 'subj' command -- specify a message subject.
|
|
||||||
|
|
||||||
The SUBJect function allows is a message-oriented function that
|
|
||||||
allows the sender to specify a subject for the next message to
|
|
||||||
be sent. This parameter is optional and is at the discretion of
|
|
||||||
the carrier as to how it should be implemented or used.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
return self.docmd("subj", messagesubject)
|
|
||||||
|
|
||||||
|
|
||||||
# Level 3 -- Two-Way Extensions
|
|
||||||
|
|
||||||
# I didn't implement these because I got tired of typing this stuff
|
|
||||||
# in, and I doubt anyone's going to use this anyhow, seeing as how
|
|
||||||
# qpage doesn't do any of these extensions. Although this may
|
|
||||||
# change.
|
|
||||||
|
|
||||||
# some useful methods
|
|
||||||
def sendpage(self, from_id, to_ids, msg):
|
|
||||||
"""This command performs an entire mail transaction.
|
|
||||||
|
|
||||||
The arguments are:
|
|
||||||
- from_id : The CallerID sending this mail, or None to
|
|
||||||
not send any CallerID.
|
|
||||||
- to_ids : A list of pager IDs to send this page to. A
|
|
||||||
bare string will be treated as a list with 1
|
|
||||||
address.
|
|
||||||
- msg : The message to send.
|
|
||||||
|
|
||||||
This method will return normally if the page is accepted for at
|
|
||||||
least one recipient. It returns a dictionary, with one entry for
|
|
||||||
each recipient that was refused. Each entry contains a tuple of
|
|
||||||
the SNPP error code and the accompanying error message sent by
|
|
||||||
the server.
|
|
||||||
|
|
||||||
This method may raise the following exceptions:
|
|
||||||
|
|
||||||
SNPPRecipientsRefused The server rejected for ALL recipients
|
|
||||||
(no mail was sent).
|
|
||||||
SNPPSenderRefused The server didn't accept the from_id.
|
|
||||||
SNPPDataError The server replied with an unexpected
|
|
||||||
error code
|
|
||||||
|
|
||||||
Note: the connection will be open even after an exception is raised.
|
|
||||||
|
|
||||||
Example:
|
|
||||||
|
|
||||||
>>> import snpplib
|
|
||||||
>>> s=snpplib.SNPP("localhost")
|
|
||||||
>>> tolist=["parsingh","rhiannon","saffola","bob"]
|
|
||||||
>>> msg = 'Hey guys, what say we have pizza for dinner?'
|
|
||||||
>>> s.sendpage("neale",tolist,msg)
|
|
||||||
{ "bob" : ( 550 ,"User unknown" ) }
|
|
||||||
>>> s.quit()
|
|
||||||
|
|
||||||
In the above example, the message was accepted for delivery to three
|
|
||||||
of the four addresses, and one was rejected, with the error code
|
|
||||||
550. If all addresses are accepted, then the method will return an
|
|
||||||
empty dictionary.
|
|
||||||
|
|
||||||
"""
|
|
||||||
(code,resp) = self.call(from_id)
|
|
||||||
if code <> 250:
|
|
||||||
# CallerID command not implemented, too bad.
|
|
||||||
pass
|
|
||||||
senderrs={}
|
|
||||||
if type(to_ids) == types.StringType:
|
|
||||||
to_ids = [to_ids]
|
|
||||||
for each in to_ids:
|
|
||||||
(code,resp)=self.page(each)
|
|
||||||
if (code <> 250) and (code <> 251):
|
|
||||||
senderrs[each]=(code,resp)
|
|
||||||
if len(senderrs)==len(to_ids):
|
|
||||||
# the server refused all our recipients
|
|
||||||
self.rese()
|
|
||||||
raise SNPPRecipientsRefused(senderrs)
|
|
||||||
(code,resp)=self.data(msg)
|
|
||||||
if code <> 250:
|
|
||||||
self.rese()
|
|
||||||
raise SNPPDataError(code, resp)
|
|
||||||
(code,resp)=self.send()
|
|
||||||
if code <> 250:
|
|
||||||
self.rese()
|
|
||||||
raise SNPPDataError(code, resp)
|
|
||||||
#if we got here then somebody got our page
|
|
||||||
return senderrs
|
|
||||||
|
|
||||||
|
|
||||||
def close(self):
|
|
||||||
"""Close the connection to the SNPP server."""
|
|
||||||
if self.file:
|
|
||||||
self.file.close()
|
|
||||||
self.file = None
|
|
||||||
if self.sock:
|
|
||||||
self.sock.close()
|
|
||||||
self.sock = None
|
|
||||||
|
|
||||||
|
|
||||||
def quit(self):
|
|
||||||
"""Terminate the SNPP session."""
|
|
||||||
self.docmd("quit")
|
|
||||||
self.close()
|
|
||||||
|
|
||||||
|
|
||||||
# Test the sendmail method, which tests most of the others.
|
|
||||||
# Note: This always sends to localhost.
|
|
||||||
if __name__ == '__main__':
|
|
||||||
import sys, rfc822
|
|
||||||
|
|
||||||
def prompt(prompt):
|
|
||||||
sys.stdout.write(prompt + ": ")
|
|
||||||
return sys.stdin.readline().strip()
|
|
||||||
|
|
||||||
fromaddr = prompt("From")
|
|
||||||
toaddrs = prompt("To").split(',')
|
|
||||||
print "Enter message, end with ^D:"
|
|
||||||
msg = ''
|
|
||||||
while 1:
|
|
||||||
line = sys.stdin.readline()
|
|
||||||
if not line:
|
|
||||||
break
|
|
||||||
msg = msg + line
|
|
||||||
print "Message length is " + `len(msg)`
|
|
||||||
|
|
||||||
server = SNPP('localhost')
|
|
||||||
server.set_debuglevel(1)
|
|
||||||
server.sendpage(fromaddr, toaddrs, msg)
|
|
||||||
server.quit()
|
|
||||||
|
|
@ -1,325 +0,0 @@
|
||||||
#! /usr/bin/env python
|
|
||||||
|
|
||||||
### spampot.py -- Spam honeypot SMTP server
|
|
||||||
### Copyright (C) 2003 Neale Pikett <neale@woozle.org>
|
|
||||||
### Time-stamp: <2003-05-06 09:08:52 neale>
|
|
||||||
###
|
|
||||||
### This is free software; you can redistribute it and/or modify it
|
|
||||||
### under the terms of the GNU General Public License as published by
|
|
||||||
### the Free Software Foundation; either version 2, or (at your option)
|
|
||||||
### any later version.
|
|
||||||
###
|
|
||||||
### This program is distributed in the hope that it will be useful, but
|
|
||||||
### WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
||||||
### General Public License for more details.
|
|
||||||
###
|
|
||||||
### You should have received a copy of the GNU General Public License
|
|
||||||
### along with this software; see the file COPYING. If not, write to
|
|
||||||
### the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
|
|
||||||
### USA.
|
|
||||||
|
|
||||||
"""Spam honeypot SMTP server.
|
|
||||||
|
|
||||||
This just sits on port 25 of whatever IP you pass in as an argument, and
|
|
||||||
spools every message out to MAILDIR. It tries to look like an old
|
|
||||||
Sendmail server, to maximize chances of being tagged as an open relay.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
import cStringIO as StringIO
|
|
||||||
import asynchat
|
|
||||||
import asyncore
|
|
||||||
import syslog
|
|
||||||
import smtplib
|
|
||||||
import rfc822
|
|
||||||
import socket
|
|
||||||
import time
|
|
||||||
import sys
|
|
||||||
import os
|
|
||||||
import re
|
|
||||||
import struct
|
|
||||||
import maildir # get maildir.py from the same place you got this file
|
|
||||||
|
|
||||||
# suid to this user
|
|
||||||
USER = 'spam'
|
|
||||||
|
|
||||||
# host to relay probes for us
|
|
||||||
SMARTHOST = '127.0.0.1'
|
|
||||||
|
|
||||||
# save multiple messages from the same IP? You probably don't want this
|
|
||||||
# -- it can consume a gigabyte a day.
|
|
||||||
SAVEDUPES = False
|
|
||||||
|
|
||||||
# slow down if multiple mails are getting sent over a single connection?
|
|
||||||
# This could save bandwidth.
|
|
||||||
TARPIT = True
|
|
||||||
|
|
||||||
# chroot to this directory and spool messages there
|
|
||||||
MAILDIR = '/home/spam/Maildir/spampot'
|
|
||||||
|
|
||||||
# My hostname
|
|
||||||
HOST = socket.gethostname()
|
|
||||||
|
|
||||||
# write to this PID file
|
|
||||||
PIDFILE = '/var/run/spampot.pid'
|
|
||||||
|
|
||||||
# syslog levels (you shouldn't need to change this)
|
|
||||||
LEVELS = {'info': syslog.LOG_INFO,
|
|
||||||
'warning': syslog.LOG_WARNING,
|
|
||||||
'error': syslog.LOG_ERR}
|
|
||||||
|
|
||||||
###
|
|
||||||
|
|
||||||
# Hosts seen
|
|
||||||
seen = {}
|
|
||||||
|
|
||||||
def shescape(str):
|
|
||||||
return "'" + str.replace("'", "'\"'\"'") + "'"
|
|
||||||
|
|
||||||
|
|
||||||
class Daemon:
|
|
||||||
"""Helpful class to make a process a daemon"""
|
|
||||||
|
|
||||||
def __init__(self, pidfile):
|
|
||||||
try:
|
|
||||||
f = file(pidfile, "r")
|
|
||||||
pid = int(f.read())
|
|
||||||
f.close()
|
|
||||||
os.kill(pid, 0)
|
|
||||||
print "Already running at pid %d" % pid
|
|
||||||
sys.exit(1)
|
|
||||||
except (IOError, OSError, ValueError):
|
|
||||||
pass
|
|
||||||
self.pidf = file(pidfile, 'w')
|
|
||||||
|
|
||||||
def daemonize(self):
|
|
||||||
self.pid = os.fork()
|
|
||||||
if self.pid:
|
|
||||||
self.pidf.write("%d\n" % self.pid)
|
|
||||||
sys.exit(0)
|
|
||||||
# Decouple from parent
|
|
||||||
self.pidf.close()
|
|
||||||
os.chdir("/")
|
|
||||||
os.setsid()
|
|
||||||
os.umask(0)
|
|
||||||
os.close(sys.stdin.fileno())
|
|
||||||
os.close(sys.stdout.fileno())
|
|
||||||
os.close(sys.stderr.fileno())
|
|
||||||
syslog.syslog(syslog.LOG_INFO, "starting")
|
|
||||||
return self.pid
|
|
||||||
|
|
||||||
def jail(self, root, user=None, group=None):
|
|
||||||
uid, gid = None, None
|
|
||||||
if group:
|
|
||||||
import grp
|
|
||||||
|
|
||||||
gr = grp.getgrnam(group)
|
|
||||||
gid = gr[2]
|
|
||||||
if user:
|
|
||||||
import pwd
|
|
||||||
|
|
||||||
pw = pwd.getpwnam(user)
|
|
||||||
uid = pw[2]
|
|
||||||
if not gid: gid = pw[3]
|
|
||||||
os.chroot(root)
|
|
||||||
os.chdir('/')
|
|
||||||
if gid: os.setgid(gid)
|
|
||||||
if uid: os.setuid(uid)
|
|
||||||
|
|
||||||
|
|
||||||
class Listener(asyncore.dispatcher):
|
|
||||||
"""Listens for incoming socket connections and spins off
|
|
||||||
dispatchers created by a factory callable.
|
|
||||||
"""
|
|
||||||
|
|
||||||
def __init__(self, bindaddr, port,
|
|
||||||
factory, factoryArgs=()):
|
|
||||||
asyncore.dispatcher.__init__(self)
|
|
||||||
self.factory = factory
|
|
||||||
self.factoryArgs = factoryArgs
|
|
||||||
self.create_socket(socket.AF_INET, socket.SOCK_STREAM)
|
|
||||||
self.set_reuse_addr()
|
|
||||||
self.bind((bindaddr, port))
|
|
||||||
self.listen(40)
|
|
||||||
syslog.syslog(syslog.LOG_INFO, 'Listening on %s:%d' % (bindaddr, port))
|
|
||||||
|
|
||||||
def handle_accept(self):
|
|
||||||
# If an incoming connection is instantly reset, eg. by following a
|
|
||||||
# link in the web interface then instantly following another one or
|
|
||||||
# hitting stop, handle_accept() will be triggered but accept() will
|
|
||||||
# return None.
|
|
||||||
result = self.accept()
|
|
||||||
if result:
|
|
||||||
clientSocket, clientAddress = result
|
|
||||||
args = [clientSocket] + list(self.factoryArgs)
|
|
||||||
self.factory(*args)
|
|
||||||
|
|
||||||
|
|
||||||
class Server(asynchat.async_chat):
|
|
||||||
"""A stupid SMTP server."""
|
|
||||||
|
|
||||||
def __init__(self, sock):
|
|
||||||
self.msg_count = 0
|
|
||||||
self.host = 'internal.nat'
|
|
||||||
self.request = ''
|
|
||||||
self.hello = None
|
|
||||||
self.reset()
|
|
||||||
asynchat.async_chat.__init__(self)
|
|
||||||
self.set_socket(sock)
|
|
||||||
|
|
||||||
def reset(self):
|
|
||||||
self.mailfrom = None
|
|
||||||
self.rcptto = []
|
|
||||||
|
|
||||||
def log(self, message):
|
|
||||||
syslog.syslog(syslog.LOG_INFO, message)
|
|
||||||
|
|
||||||
def log_info(self, message, type='info'):
|
|
||||||
lvl = LEVELS.get(type, syslog.LOG_INFO)
|
|
||||||
syslog.syslog(lvl, message)
|
|
||||||
|
|
||||||
def handle_connect(self):
|
|
||||||
self.peername = self.getpeername()
|
|
||||||
self.sockname = self.getsockname()
|
|
||||||
self.socknamehex = "%X" % struct.unpack('L', socket.inet_aton(self.sockname[0]))
|
|
||||||
self.set_terminator('\r\n')
|
|
||||||
|
|
||||||
self.log('Connect from %s' % (self.peername,))
|
|
||||||
now = time.localtime()
|
|
||||||
ts = time.strftime('%a, ' + str(now[2]) + ' %b %y %H:%M:%S %Z')
|
|
||||||
self.push("220 %s Sendmail ready at %s\r\n" % (self.host, ts))
|
|
||||||
|
|
||||||
def handle_close(self):
|
|
||||||
self.log('Close from %s; relayed %d messages' % (self.peername, self.msg_count))
|
|
||||||
self.close()
|
|
||||||
|
|
||||||
def collect_incoming_data(self, data):
|
|
||||||
self.request += data
|
|
||||||
|
|
||||||
def envelope_found_terminator(self):
|
|
||||||
data = self.request
|
|
||||||
self.request = ""
|
|
||||||
command = data[:4].upper()
|
|
||||||
if command in ["HELO", "EHLO"]:
|
|
||||||
whom = data[5:].strip()
|
|
||||||
self.hello = whom
|
|
||||||
self.push("250 Hello %s, pleased to meet you.\r\n" % whom)
|
|
||||||
elif command == 'MAIL':
|
|
||||||
whom = data[10:].strip()
|
|
||||||
self.mailfrom = whom
|
|
||||||
self.push("250 %s... Sender ok\r\n" % whom)
|
|
||||||
elif command == 'RCPT':
|
|
||||||
whom = data[8:].strip()
|
|
||||||
self.rcptto.append(whom)
|
|
||||||
self.push("250 %s... Recipient ok\r\n" % whom)
|
|
||||||
elif command == "DATA":
|
|
||||||
self.set_terminator('\r\n.\r\n')
|
|
||||||
self.found_terminator = self.data_found_terminator
|
|
||||||
self.push('354 Enter mail, end with "." on a line by itself\r\n')
|
|
||||||
elif command == "QUIT":
|
|
||||||
self.push("221 %s closing connection\r\n" % self.host)
|
|
||||||
self.close_when_done()
|
|
||||||
elif command == "RSET":
|
|
||||||
self.reset()
|
|
||||||
self.push('250 Reset state\r\n')
|
|
||||||
else:
|
|
||||||
self.push("500 Command unrecognized\r\n")
|
|
||||||
found_terminator = envelope_found_terminator
|
|
||||||
|
|
||||||
def data_found_terminator(self):
|
|
||||||
self.message = self.request
|
|
||||||
self.request = ''
|
|
||||||
self.set_terminator('\r\n')
|
|
||||||
self.found_terminator = self.envelope_found_terminator
|
|
||||||
self.deliver_message()
|
|
||||||
self.push("250 Mail accepted\r\n")
|
|
||||||
self.reset()
|
|
||||||
|
|
||||||
def relay_message(self):
|
|
||||||
s = os.popen("/usr/lib/sendmail -f %s %s"
|
|
||||||
% (shescape(self.string),
|
|
||||||
' '.join([shescape(s) for s in self.rcptto])),
|
|
||||||
'w')
|
|
||||||
s.write(self.message)
|
|
||||||
s.close()
|
|
||||||
|
|
||||||
probe_re = None
|
|
||||||
|
|
||||||
def is_probe(self):
|
|
||||||
"""Returns true if the current message is a probe message"""
|
|
||||||
|
|
||||||
# Compile the probe regular expression the first time through
|
|
||||||
if not self.probe_re:
|
|
||||||
self.probe_re = re.compile(r'\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}|%s:25' % self.socknamehex,
|
|
||||||
re.IGNORECASE)
|
|
||||||
|
|
||||||
# If it's not the first message this connection, it's probably
|
|
||||||
# not a probe.
|
|
||||||
if self.msg_count:
|
|
||||||
return False
|
|
||||||
|
|
||||||
# Probes also don't have multiple recipients
|
|
||||||
if len(self.rcptto) != 1:
|
|
||||||
return False
|
|
||||||
|
|
||||||
# And they're short
|
|
||||||
if len(self.message) > 1024:
|
|
||||||
return False
|
|
||||||
|
|
||||||
# Check for the probe regex
|
|
||||||
if self.probe_re.search(self.message):
|
|
||||||
# we have a bite: now do some more intense investigation
|
|
||||||
f = StringIO.StringIO(self.message)
|
|
||||||
m = rfc822.Message(f)
|
|
||||||
|
|
||||||
# IP address in subject?
|
|
||||||
subj = m.get('Subject')
|
|
||||||
if subj and subj.find(self.sockname[0]) != -1:
|
|
||||||
return True
|
|
||||||
|
|
||||||
# Hex-encoded IP address anywhere in message?
|
|
||||||
if m.find(self.socknamehex) != -1:
|
|
||||||
return True
|
|
||||||
|
|
||||||
return False
|
|
||||||
|
|
||||||
def deliver_message(self):
|
|
||||||
global seen
|
|
||||||
|
|
||||||
headers = [
|
|
||||||
"SMTP-Date: %s" % time.ctime(),
|
|
||||||
"SMTP-Sock: %s:%d" % self.sockname,
|
|
||||||
"SMTP-Peer: %s:%d" % self.peername,
|
|
||||||
"SMTP-Hello: %s" % self.hello,
|
|
||||||
"SMTP-Mail-From: %s" % self.mailfrom,
|
|
||||||
"SMTP-Messages-This-Connection: %s" % self.msg_count,
|
|
||||||
]
|
|
||||||
for t in self.rcptto:
|
|
||||||
headers.append("SMTP-Rcpt-To: %s" % t)
|
|
||||||
if self.is_probe():
|
|
||||||
self.relay_message()
|
|
||||||
self.log('Relayed probe from=%s to=%s' % (self.mailfrom, self.rcptto))
|
|
||||||
headers.append("SMTP-Relayed: Yes")
|
|
||||||
msg_count = seen.get(self.peername) + 1
|
|
||||||
seen[self.peername] = msg_count
|
|
||||||
if msg_count in (0, 1, 2, 3, 4, 8, 64, 512, 4096, 32768, 262144):
|
|
||||||
# Hopefully nobody running this will ever hit that last one ;)
|
|
||||||
msg = '\r\n'.join(headers) + '\r\n' + self.message
|
|
||||||
m = maildir.write(time.strftime('%Y-%m'), msg)
|
|
||||||
self.log('Trapped from=%s to=%s msg_count=%d' % (self.mailfrom, self.rcptto, msg_count))
|
|
||||||
self.msg_count += 1
|
|
||||||
|
|
||||||
|
|
||||||
def main():
|
|
||||||
dmn = Daemon(PIDFILE)
|
|
||||||
syslog.openlog('spampot', syslog.LOG_PID, syslog.LOG_MAIL)
|
|
||||||
listener = Listener(sys.argv[1], 25, Server)
|
|
||||||
dmn.jail(MAILDIR, USER)
|
|
||||||
dmn.daemonize()
|
|
||||||
asyncore.loop()
|
|
||||||
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
main()
|
|
||||||
|
|
||||||
|
|
@ -1,329 +0,0 @@
|
||||||
#! /usr/bin/python
|
|
||||||
|
|
||||||
"""Status dealiemajigger for dzen2 (or others, probably).
|
|
||||||
|
|
||||||
This outputs:
|
|
||||||
|
|
||||||
* Debian packages in need of upgrade (if you have the apt module)
|
|
||||||
* master volume (if you have alsa)
|
|
||||||
* battery life (if you have a battery)
|
|
||||||
* load average if it goes over 0.25
|
|
||||||
* current date and time
|
|
||||||
|
|
||||||
It prints it again whenever any of these change. It also watches for Mute,
|
|
||||||
Volume Up, and Volume Down key events on multimedia keyboards, and adjusts
|
|
||||||
the mixer appropriately.
|
|
||||||
|
|
||||||
Lastly, it registers itself with D-Bus so you can send yourself notices
|
|
||||||
like so:
|
|
||||||
|
|
||||||
$ dbus-send --dest=org.woozle.Status \
|
|
||||||
/org/woozle/Status \
|
|
||||||
org.woozle.Status.notice \
|
|
||||||
string:'this is where your message goes'
|
|
||||||
|
|
||||||
They will show up green in dzen2.
|
|
||||||
|
|
||||||
This only polls the ALSA mixer settings, and those only every minute.
|
|
||||||
Master mixer changes will take from 0 to 60 seconds to register if you
|
|
||||||
don't use the multimedia keys on your keyboard.
|
|
||||||
|
|
||||||
You need to be running HAL for this to do much other than tell you
|
|
||||||
the time. Don't worry, HAL is pretty small.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
import signal
|
|
||||||
import dbus
|
|
||||||
import dbus.service
|
|
||||||
import sys
|
|
||||||
import os
|
|
||||||
import gobject
|
|
||||||
import time
|
|
||||||
from sets import Set
|
|
||||||
try:
|
|
||||||
import apt
|
|
||||||
import socket
|
|
||||||
except ImportError:
|
|
||||||
apt = None
|
|
||||||
|
|
||||||
try:
|
|
||||||
import alsaaudio
|
|
||||||
except ImportError:
|
|
||||||
alsaaudio = None
|
|
||||||
|
|
||||||
# Set to true if you want dzen2 colors
|
|
||||||
dzen2 = False
|
|
||||||
|
|
||||||
def color(name, text):
|
|
||||||
if dzen2:
|
|
||||||
return '^fg(%s)%s^fg()' % (name, text)
|
|
||||||
else:
|
|
||||||
return '-=[ %s ]=-' % text
|
|
||||||
|
|
||||||
class Status(dbus.service.Object):
|
|
||||||
debug = False
|
|
||||||
|
|
||||||
def __init__(self, *args, **kwargs):
|
|
||||||
dbus.service.Object.__init__(self, *args, **kwargs)
|
|
||||||
|
|
||||||
self.system_bus = dbus.SystemBus()
|
|
||||||
|
|
||||||
self.hal_manager = self.system_bus.get_object('org.freedesktop.Hal',
|
|
||||||
'/org/freedesktop/Hal/Manager')
|
|
||||||
self.hal_computer = self.system_bus.get_object('org.freedesktop.Hal',
|
|
||||||
'/org/freedesktop/Hal/devices/computer')
|
|
||||||
|
|
||||||
# Listen for HAL events
|
|
||||||
self.system_bus.add_signal_receiver(self.handle_hal_event,
|
|
||||||
dbus_interface='org.freedesktop.Hal.Device',
|
|
||||||
path_keyword='path',
|
|
||||||
member_keyword='member')
|
|
||||||
|
|
||||||
# For now I only care about battery 0.
|
|
||||||
batteries = self.hal_manager.FindDeviceByCapability('battery',
|
|
||||||
dbus_interface='org.freedesktop.Hal.Manager')
|
|
||||||
if batteries:
|
|
||||||
bat = self.system_bus.get_object('org.freedesktop.Hal',
|
|
||||||
batteries[0])
|
|
||||||
self.battery = dbus.Interface(bat,
|
|
||||||
dbus_interface='org.freedesktop.Hal.Device')
|
|
||||||
else:
|
|
||||||
self.battery = None
|
|
||||||
|
|
||||||
# Audio mixer, if we have the ALSA module installed.
|
|
||||||
if alsaaudio:
|
|
||||||
try:
|
|
||||||
self.mixer = alsaaudio.Mixer()
|
|
||||||
except alsaaudio.ALSAAudioError:
|
|
||||||
# Some weird mixers have no Master control (eg. Mac Mini)
|
|
||||||
self.mixer = alsaaudio.Mixer('PCM')
|
|
||||||
except ImportError:
|
|
||||||
self.mixer = None
|
|
||||||
else:
|
|
||||||
self.mixer = None
|
|
||||||
|
|
||||||
# How many debian packages can be upgraded?
|
|
||||||
self.upgradable = []
|
|
||||||
|
|
||||||
# All my children
|
|
||||||
self.pids = Set()
|
|
||||||
|
|
||||||
def run(self, file, *args):
|
|
||||||
pid = os.spawnlp(os.P_NOWAIT, file, file, *args)
|
|
||||||
self.pids.add(pid)
|
|
||||||
|
|
||||||
def battery_level(self):
|
|
||||||
if self.battery:
|
|
||||||
return self.battery.GetProperty('battery.charge_level.percentage')
|
|
||||||
|
|
||||||
def battery_capacity_state(self):
|
|
||||||
if self.battery:
|
|
||||||
try:
|
|
||||||
return self.battery.GetProperty('battery.charge_level.capacity_state')
|
|
||||||
except dbus.exceptions.DBusException:
|
|
||||||
bat = self.battery_level()
|
|
||||||
if bat > 20:
|
|
||||||
return 'ok'
|
|
||||||
else:
|
|
||||||
return 'battery low'
|
|
||||||
|
|
||||||
def suspend(self, num_secs_to_wakeup=0):
|
|
||||||
def ignore(*d):
|
|
||||||
pass
|
|
||||||
|
|
||||||
self.run('screenlock')
|
|
||||||
self.hal_computer.Suspend(num_secs_to_wakeup,
|
|
||||||
dbus_interface='org.freedesktop.Hal.Device.SystemPowerManagement',
|
|
||||||
reply_handler=ignore,
|
|
||||||
error_handler=ignore)
|
|
||||||
|
|
||||||
def muted(self):
|
|
||||||
if self.mixer:
|
|
||||||
try:
|
|
||||||
return self.mixer.getmute()[0]
|
|
||||||
except alsaaudio.ALSAAudioError:
|
|
||||||
pass
|
|
||||||
raise ValueError('No mute control')
|
|
||||||
|
|
||||||
def toggle_mute(self):
|
|
||||||
try:
|
|
||||||
mute = self.muted()
|
|
||||||
self.mixer.setmute(not mute)
|
|
||||||
self.update()
|
|
||||||
except ValueError:
|
|
||||||
pass
|
|
||||||
|
|
||||||
@dbus.service.method('org.woozle.Status',
|
|
||||||
in_signature='d')
|
|
||||||
def adjust_volume(self, adj):
|
|
||||||
if self.mixer:
|
|
||||||
vol = self.mixer.getvolume()[0]
|
|
||||||
vol += adj
|
|
||||||
vol = min(vol, 100)
|
|
||||||
vol = max(vol, 0)
|
|
||||||
self.mixer.setvolume(vol)
|
|
||||||
self.update()
|
|
||||||
|
|
||||||
def volume(self):
|
|
||||||
if self.mixer:
|
|
||||||
try:
|
|
||||||
mute = self.muted()
|
|
||||||
except ValueError:
|
|
||||||
mute = False
|
|
||||||
if mute:
|
|
||||||
return '--'
|
|
||||||
else:
|
|
||||||
return str(self.mixer.getvolume()[0])
|
|
||||||
|
|
||||||
def handle_button_pressed(self, button, path):
|
|
||||||
if button == 'lid':
|
|
||||||
lid = self.system_bus.get_object('org.freedesktop.Hal',
|
|
||||||
path)
|
|
||||||
if (lid.GetProperty('button.state.value',
|
|
||||||
dbus_interface='org.freedesktop.Hal.Device') and
|
|
||||||
not os.path.exists(os.path.expanduser('~/nosusp'))):
|
|
||||||
self.suspend()
|
|
||||||
elif button == 'mute':
|
|
||||||
self.toggle_mute()
|
|
||||||
elif button == 'volume-down':
|
|
||||||
self.adjust_volume(-5)
|
|
||||||
elif button == 'volume-up':
|
|
||||||
self.adjust_volume(+5)
|
|
||||||
elif button == 'sleep':
|
|
||||||
self.suspend()
|
|
||||||
elif self.debug:
|
|
||||||
self.update('button pressed: %s' % button)
|
|
||||||
|
|
||||||
def handle_property_modified(self, name, added, removed):
|
|
||||||
if name == 'battery.charge_level.percentage':
|
|
||||||
self.update()
|
|
||||||
elif name.startswith('battery.'):
|
|
||||||
pass
|
|
||||||
else:
|
|
||||||
self.update('property modified: %s' % name)
|
|
||||||
|
|
||||||
def handle_hal_event(self, *d, **k):
|
|
||||||
member = k.get('member')
|
|
||||||
if member == 'Condition':
|
|
||||||
if d[0] == 'ButtonPressed':
|
|
||||||
self.handle_button_pressed(d[1], k.get('path'))
|
|
||||||
elif member == 'PropertyModified':
|
|
||||||
assert int(d[0]) == len(d[1])
|
|
||||||
for p in d[1]:
|
|
||||||
self.handle_property_modified(*p)
|
|
||||||
else:
|
|
||||||
self.update('%s: %s' % (d, kwargs))
|
|
||||||
|
|
||||||
def update(self, msg=None):
|
|
||||||
out = []
|
|
||||||
if msg:
|
|
||||||
out.append(color('green', msg))
|
|
||||||
|
|
||||||
if self.upgradable:
|
|
||||||
out.append(color('cyan', '%d upgradable packages' % self.upgradable))
|
|
||||||
|
|
||||||
la = file('/proc/loadavg').read()
|
|
||||||
load = la.split()[0]
|
|
||||||
if float(load) > 0.2:
|
|
||||||
out.append('L %s' % load)
|
|
||||||
|
|
||||||
vol = self.volume()
|
|
||||||
if vol:
|
|
||||||
out.append('V %s' % vol)
|
|
||||||
|
|
||||||
bat = self.battery_level()
|
|
||||||
if bat:
|
|
||||||
out.append('B %s%%' % bat)
|
|
||||||
|
|
||||||
cap_state = self.battery_capacity_state()
|
|
||||||
if cap_state != 'ok':
|
|
||||||
out.append(color('green', cap))
|
|
||||||
|
|
||||||
out.append(time.strftime('%b %e %l:%M%P'))
|
|
||||||
|
|
||||||
print ' '.join(out)
|
|
||||||
sys.stdout.flush()
|
|
||||||
|
|
||||||
try:
|
|
||||||
pid, status = os.waitpid(0, os.WNOHANG)
|
|
||||||
self.pids.remove(pid)
|
|
||||||
except (OSError, KeyError):
|
|
||||||
pass
|
|
||||||
|
|
||||||
return True
|
|
||||||
|
|
||||||
@dbus.service.method('org.woozle.Status',
|
|
||||||
in_signature='s')
|
|
||||||
def notice(self, msg):
|
|
||||||
self.update(msg)
|
|
||||||
|
|
||||||
@dbus.service.method('org.woozle.Status',
|
|
||||||
in_signature='')
|
|
||||||
def restart(self):
|
|
||||||
re_exec()
|
|
||||||
|
|
||||||
@dbus.service.method('org.woozle.Status',
|
|
||||||
in_signature='b')
|
|
||||||
def set_debug(self, debug):
|
|
||||||
self.debug = debug
|
|
||||||
|
|
||||||
def debcheck(self):
|
|
||||||
# I used to do this in a thread. Unfortunately, this expensive
|
|
||||||
# operation kept the entire apt cache around in RAM forever,
|
|
||||||
# making the status program the biggest memory user on my entire
|
|
||||||
# machine. That offends my sense of aesthetics, so now we fork
|
|
||||||
# and read from a pipe.
|
|
||||||
def cb(source, cb_condition):
|
|
||||||
s = source.recv(8192)
|
|
||||||
self.upgradable = int(s)
|
|
||||||
return False
|
|
||||||
|
|
||||||
a,b = socket.socketpair()
|
|
||||||
if os.fork():
|
|
||||||
gobject.io_add_watch(a, gobject.IO_IN, cb)
|
|
||||||
else:
|
|
||||||
l = [p for p in apt.Cache() if p.isUpgradable]
|
|
||||||
b.send(str(len(l)))
|
|
||||||
sys.exit(0)
|
|
||||||
return True
|
|
||||||
|
|
||||||
def start(self):
|
|
||||||
self.update()
|
|
||||||
gobject.timeout_add(12 * 1000, self.update)
|
|
||||||
if apt:
|
|
||||||
self.debcheck()
|
|
||||||
gobject.timeout_add(900 * 1000, self.debcheck)
|
|
||||||
|
|
||||||
|
|
||||||
def re_exec(*ign):
|
|
||||||
os.execv(sys.argv[0], sys.argv)
|
|
||||||
|
|
||||||
|
|
||||||
def main():
|
|
||||||
import signal
|
|
||||||
import gobject
|
|
||||||
import dbus.mainloop.glib
|
|
||||||
|
|
||||||
# Set up main loop
|
|
||||||
dbus.mainloop.glib.DBusGMainLoop(set_as_default=True)
|
|
||||||
|
|
||||||
# kill -HUP makes this re-exec itself
|
|
||||||
signal.signal(signal.SIGHUP, re_exec)
|
|
||||||
|
|
||||||
# Register ourselves as a service
|
|
||||||
session_bus = dbus.SessionBus()
|
|
||||||
dbus_name = dbus.service.BusName('org.woozle.Status',
|
|
||||||
session_bus)
|
|
||||||
|
|
||||||
# Our founder
|
|
||||||
s = Status(session_bus, '/org/woozle/Status')
|
|
||||||
|
|
||||||
# Go!
|
|
||||||
loop = gobject.MainLoop()
|
|
||||||
s.start()
|
|
||||||
loop.run()
|
|
||||||
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
main()
|
|
||||||
|
|
@ -1,130 +0,0 @@
|
||||||
#!/usr/bin/python
|
|
||||||
|
|
||||||
"""watch.py -- Web site change notification tool
|
|
||||||
Author: Neale Pickett <neale@woozle.org>
|
|
||||||
Time-stamp: <2007-09-19 15:00:43 neale>
|
|
||||||
|
|
||||||
Usage: urlwatch [-c|--config WATCHRC]
|
|
||||||
|
|
||||||
This is something you can run from a cron job to notify you of changes
|
|
||||||
to a web site. You just set up a ~/.watchrc file, and run watcher.py
|
|
||||||
from cron. It mails you when a page has changed.
|
|
||||||
|
|
||||||
I use this to check for new software releases on sites that just change
|
|
||||||
web pages; my wife uses it to check pages for classes she's in.
|
|
||||||
|
|
||||||
You'll want a ~/.watchrc that looks something like this:
|
|
||||||
|
|
||||||
to: your.email.address@example.com
|
|
||||||
http://www.example.com/path/to/some/page.html
|
|
||||||
|
|
||||||
The 'to:' line tells watch.py where to send change notification email.
|
|
||||||
You can also specify 'from:' for an address the message should come from
|
|
||||||
(defaults to whatever to: is), and 'host:' for what SMTP server to send
|
|
||||||
the message through (defaults to localhost).
|
|
||||||
|
|
||||||
When watch.py checks a URL for the first time, it will send you a
|
|
||||||
message (so you know it's working) and write some funny characters after
|
|
||||||
the URL in the .watchrc file. This is normal--watch.py uses these
|
|
||||||
characters to remember what the page looked like the last time it
|
|
||||||
checked.
|
|
||||||
|
|
||||||
"""
|
|
||||||
|
|
||||||
import os
|
|
||||||
import urllib2 as urllib
|
|
||||||
import sha
|
|
||||||
import smtplib
|
|
||||||
import sys
|
|
||||||
|
|
||||||
host = 'localhost'
|
|
||||||
fromaddr = None
|
|
||||||
toaddr = None
|
|
||||||
|
|
||||||
rc = os.path.expanduser('~/.watchrc')
|
|
||||||
|
|
||||||
def usage(errmsg=None):
|
|
||||||
if errmsg:
|
|
||||||
print "error: %s" % errmsg
|
|
||||||
print
|
|
||||||
|
|
||||||
print globals()['__doc__']
|
|
||||||
|
|
||||||
if errmsg:
|
|
||||||
sys.exit(1)
|
|
||||||
sys.exit(0)
|
|
||||||
|
|
||||||
def myhash(data):
|
|
||||||
return sha.new(data).hexdigest()
|
|
||||||
|
|
||||||
def notify(fromaddr, toaddr, url):
|
|
||||||
msg = """From: URL Watcher <%(from)s>
|
|
||||||
To: %(to)s
|
|
||||||
Subject: %(url)s changed
|
|
||||||
|
|
||||||
%(url)s has changed!
|
|
||||||
""" % {'from': fromaddr,
|
|
||||||
'to': toaddr,
|
|
||||||
'url': url}
|
|
||||||
s = smtplib.SMTP(host)
|
|
||||||
s.sendmail(fromaddr, [toaddr], msg)
|
|
||||||
s.quit()
|
|
||||||
|
|
||||||
def watch(rcfile):
|
|
||||||
global host, fromaddr, toaddr
|
|
||||||
|
|
||||||
f = open(rcfile)
|
|
||||||
outlines = []
|
|
||||||
for line in f.xreadlines():
|
|
||||||
if line[0] == '#':
|
|
||||||
continue
|
|
||||||
|
|
||||||
line = line.strip()
|
|
||||||
if not line:
|
|
||||||
continue
|
|
||||||
|
|
||||||
splits = line.split(' ', 1)
|
|
||||||
url = splits[0]
|
|
||||||
if url == 'from:':
|
|
||||||
fromaddr = splits[1]
|
|
||||||
elif url == 'to:':
|
|
||||||
toaddr = splits[1]
|
|
||||||
if not fromaddr:
|
|
||||||
fromaddr = toaddr
|
|
||||||
elif url == 'mailhost:':
|
|
||||||
host = splits[1]
|
|
||||||
else:
|
|
||||||
if (not fromaddr) or (not toaddr):
|
|
||||||
raise ValueError("must set to: before any urls")
|
|
||||||
page = urllib.urlopen(url).read()
|
|
||||||
ph = myhash(page)
|
|
||||||
|
|
||||||
try:
|
|
||||||
h = splits[1]
|
|
||||||
except IndexError:
|
|
||||||
h = None
|
|
||||||
if h != ph:
|
|
||||||
notify(fromaddr, toaddr, url)
|
|
||||||
line = '%s %s' % (url, ph)
|
|
||||||
outlines.append(line)
|
|
||||||
|
|
||||||
f.close()
|
|
||||||
|
|
||||||
f = open(rcfile, 'w')
|
|
||||||
f.write('\n'.join(outlines) + '\n')
|
|
||||||
f.close()
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
import getopt
|
|
||||||
import sys
|
|
||||||
|
|
||||||
opts, args = getopt.getopt(sys.argv[1:], 'c:h', ['config=', 'help'])
|
|
||||||
for k,v in opts:
|
|
||||||
if k in ('-c', '--config'):
|
|
||||||
rc = v
|
|
||||||
elif k in ('-h', '--help'):
|
|
||||||
usage()
|
|
||||||
else:
|
|
||||||
usage("Unknown option: %s" % k)
|
|
||||||
|
|
||||||
watch(rc)
|
|
||||||
107
src/xss.md
107
src/xss.md
|
|
@ -1,107 +0,0 @@
|
||||||
Title: xss: X Screensaver Construction Kit
|
|
||||||
Author: Neale Pickett <neale@woozle.org>
|
|
||||||
|
|
||||||
[xss](http://woozle.org/neale/g.cgi/x11/xss) is a suite of X screensaver
|
|
||||||
utilities. You can use shell scripts to glue the tools together to
|
|
||||||
build your own screen saver and/or locker. You can use any
|
|
||||||
`xscreensaver` hack instead of the built-in `magic` hack, or you can use
|
|
||||||
`xlock` if you prefer.
|
|
||||||
|
|
||||||
|
|
||||||
The programs
|
|
||||||
------------
|
|
||||||
|
|
||||||
`xss` uses the decades-old MIT-SCREEN-SAVER extension to launch a
|
|
||||||
program when the X server turns on the built-in screen saver. Unlike
|
|
||||||
`xautolock`, `xss` blocks until the X server says it's time to do
|
|
||||||
something.
|
|
||||||
|
|
||||||
`xsswin` makes a full-screen black window and runs some other program,
|
|
||||||
passing along the window ID in the environment (`$XSS_WINDOW`) and
|
|
||||||
possibly as an argument (`XSS_WINDOW` in argv is replaced with the ID).
|
|
||||||
|
|
||||||
`xkeygrab` grabs the keyboard and mouse, and echoes all typed lines to
|
|
||||||
stdout.
|
|
||||||
|
|
||||||
`xcursorpos` prints out the x and y coordinates of the cursor.
|
|
||||||
|
|
||||||
`xbell` sounds the X server's bell.
|
|
||||||
|
|
||||||
`magic` is a reimplementation of the "magic" screen saver from After
|
|
||||||
Dark. It might look weird at 8bpp.
|
|
||||||
|
|
||||||
|
|
||||||
Examples
|
|
||||||
--------
|
|
||||||
|
|
||||||
Tell the X server to launch the screen saver after 90 seconds idle:
|
|
||||||
|
|
||||||
$ xset s 90
|
|
||||||
|
|
||||||
Run like `xautolock`:
|
|
||||||
|
|
||||||
$ xss xlock -mode qix &
|
|
||||||
|
|
||||||
Just run a screen saver, don't lock
|
|
||||||
|
|
||||||
$ xss -w /usr/lib/xscreensaver/deco -window-id XSS_WINDOW &
|
|
||||||
|
|
||||||
Launch a program called "screenlock" when you're idle:
|
|
||||||
|
|
||||||
$ xss screenlock &
|
|
||||||
|
|
||||||
An simple "screenlock" script:
|
|
||||||
|
|
||||||
#! /bin/sh
|
|
||||||
|
|
||||||
xsswin magic XSS_WINDOW & pid=$!
|
|
||||||
xkeygrab | (while read l; do [ "$l" != "secret" ] && break; done)
|
|
||||||
kill $pid
|
|
||||||
|
|
||||||
A more complex "screenlock" script which locks the screen awaiting a
|
|
||||||
pass phrase with the right md5 checksum. After 4 seconds of being
|
|
||||||
locked, it pauses mpd (iff it was playing). When the screen is
|
|
||||||
unlocked, mpd is resumed (iff it was playing beforehand). The script
|
|
||||||
won't lock if the cursor's at the top of the screen.
|
|
||||||
|
|
||||||
#! /bin/sh
|
|
||||||
|
|
||||||
xcursorpos | (read x y; [ $y -lt 20 ]) && exit 0
|
|
||||||
mpc | fgrep -q '[playing]' && playing=1
|
|
||||||
xsswin magic XSS_WINDOW 2>/dev/null & xsswin=$!
|
|
||||||
(sleep 4; [ $playing ] && kill -0 $xsswin 2>/dev/null && mpc --no-status pause) &
|
|
||||||
xkeygrab | (
|
|
||||||
while read l; do
|
|
||||||
md5s=$(echo -n $l | md5sum | cut -d\ -f1)
|
|
||||||
if [ $md5s = 'a37c87558d98e9fe0484e09070268be1' ]; then
|
|
||||||
break
|
|
||||||
fi
|
|
||||||
xbell
|
|
||||||
done
|
|
||||||
)
|
|
||||||
kill $xsswin
|
|
||||||
[ $playing ] && mpc --no-status play
|
|
||||||
|
|
||||||
|
|
||||||
Download
|
|
||||||
--------
|
|
||||||
|
|
||||||
You can [browse the source](http://woozle.org/neale/g.cgi/x11/xss),
|
|
||||||
download a [tarball of the latest
|
|
||||||
commit](http://woozle.org/neale/g.cgi/x11/xss/snapshot/xss-master.tar.gz), or clone the
|
|
||||||
git repository:
|
|
||||||
|
|
||||||
git clone http://woozle.org/~neale/projects/x11/xss
|
|
||||||
|
|
||||||
|
|
||||||
History
|
|
||||||
-------
|
|
||||||
|
|
||||||
AIX apparently had something also called `xss` which did almost exactly
|
|
||||||
what mine does, but with command-line options. `magic` is similar to
|
|
||||||
the `qix` hack from xscreensaver and xlock. I'm not aware of anything
|
|
||||||
else like the rest of the programs, which is why I wrote them.
|
|
||||||
|
|
||||||
I lifted some code from `beforelight` from the X11 distribution, and
|
|
||||||
from `slock` from [suckless.org](http://suckless.org/). Both have a
|
|
||||||
BSD/X11-like license.
|
|
||||||
112
trigger.cgi.go
112
trigger.cgi.go
|
|
@ -1,112 +0,0 @@
|
||||||
package main
|
|
||||||
|
|
||||||
import (
|
|
||||||
"fmt"
|
|
||||||
"github.com/coduno/netrc"
|
|
||||||
"github.com/jsgoecke/tesla"
|
|
||||||
"log"
|
|
||||||
"net/http"
|
|
||||||
"net/http/cgi"
|
|
||||||
"net/smtp"
|
|
||||||
"os"
|
|
||||||
)
|
|
||||||
|
|
||||||
// These are not actually secrets, and get posted around various forums
|
|
||||||
const clientId = "81527cff06843c8634fdc09e8ac0abefb46ac849f38fe1e431c2ef2106796384"
|
|
||||||
const clientSec = "c7257eb71a564034f9419ee651c7d0e5f7aa6bfbd18bafb5c5c033b093bb2fa3"
|
|
||||||
|
|
||||||
func Kersplode(section string, error string, w http.ResponseWriter) {
|
|
||||||
errtxt := fmt.Sprintf("%s: %s", section, error)
|
|
||||||
|
|
||||||
http.Error(w, errtxt, 500)
|
|
||||||
|
|
||||||
// Send an email
|
|
||||||
c, _ := smtp.Dial("localhost:25")
|
|
||||||
defer c.Close()
|
|
||||||
c.Mail("neale@woozle.org")
|
|
||||||
c.Rcpt("dartcatcher@gmail.com")
|
|
||||||
wc, _ := c.Data()
|
|
||||||
defer wc.Close()
|
|
||||||
fmt.Fprintln(wc, "From: IFTTT Trigger <neale@woozle.org>")
|
|
||||||
fmt.Fprintln(wc, "To: Neale Pickett <dartcatcher@gmail.com>")
|
|
||||||
fmt.Fprintln(wc, "Subject: IFTTT trigger error")
|
|
||||||
fmt.Fprintln(wc, "")
|
|
||||||
fmt.Fprintln(wc, "Hi, this is the IFTTT trigger at woozle.org.")
|
|
||||||
fmt.Fprintln(wc, "I'm sorry to say that something went wrong with a recent request.")
|
|
||||||
fmt.Fprintln(wc, "Here is the text of the error:")
|
|
||||||
fmt.Fprintln(wc, "")
|
|
||||||
fmt.Fprintln(wc, errtxt)
|
|
||||||
}
|
|
||||||
|
|
||||||
type Handler struct {
|
|
||||||
cgi.Handler
|
|
||||||
}
|
|
||||||
|
|
||||||
func getSecret(host string) netrc.Entry {
|
|
||||||
n, _ := netrc.Parse()
|
|
||||||
return n[host]
|
|
||||||
}
|
|
||||||
|
|
||||||
func (h Handler) TriggerHvac(w http.ResponseWriter, r *http.Request) {
|
|
||||||
secret := getSecret("teslamotors.com")
|
|
||||||
auth := tesla.Auth{
|
|
||||||
ClientID: clientId,
|
|
||||||
ClientSecret: clientSec,
|
|
||||||
Email: secret.Login,
|
|
||||||
Password: secret.Password,
|
|
||||||
}
|
|
||||||
cli, err := tesla.NewClient(&auth)
|
|
||||||
if err != nil {
|
|
||||||
Kersplode("tesla.NewClient", err.Error(), w);
|
|
||||||
return
|
|
||||||
}
|
|
||||||
|
|
||||||
vehicles, err := cli.Vehicles()
|
|
||||||
if err != nil {
|
|
||||||
Kersplode("cli.Vehicles", err.Error(), w);
|
|
||||||
return
|
|
||||||
}
|
|
||||||
|
|
||||||
vehicle := vehicles[0]
|
|
||||||
if _, err := vehicle.Wakeup(); err != nil {
|
|
||||||
Kersplode("vehicle.Wakeup", err.Error(), w);
|
|
||||||
return
|
|
||||||
}
|
|
||||||
for i := 0; i < 5; i += 1 {
|
|
||||||
err := vehicle.StartAirConditioning()
|
|
||||||
if err == nil {
|
|
||||||
break
|
|
||||||
} else if (i == 5) {
|
|
||||||
Kersplode("vehicle.StartAirConditioning", err.Error(), w);
|
|
||||||
return
|
|
||||||
}
|
|
||||||
}
|
|
||||||
http.Error(w, "OK", 200)
|
|
||||||
}
|
|
||||||
|
|
||||||
func (h Handler) ServeHTTP(w http.ResponseWriter, r *http.Request) {
|
|
||||||
secret := getSecret("host:trigger.cgi")
|
|
||||||
if r.FormValue("auth") != secret.Password {
|
|
||||||
http.Error(w, "Invalid authtok", 401)
|
|
||||||
return
|
|
||||||
}
|
|
||||||
|
|
||||||
switch trigger := r.FormValue("trigger"); trigger {
|
|
||||||
case "hvac":
|
|
||||||
h.TriggerHvac(w, r)
|
|
||||||
default:
|
|
||||||
http.Error(w, "Undefined trigger", 422)
|
|
||||||
return
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
func main() {
|
|
||||||
log.SetOutput(os.Stdout)
|
|
||||||
log.SetFlags(0)
|
|
||||||
log.SetPrefix("Status: 500 CGI Go Boom\nContent-type: text/plain\n\nERROR: ")
|
|
||||||
os.Setenv("HOME", "/home/neale") // required by netrc library
|
|
||||||
h := Handler{}
|
|
||||||
if err := cgi.Serve(h); err != nil {
|
|
||||||
log.Fatal(err)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
Loading…
Reference in New Issue