From 8ebd2cc4aaaae84c10861dec8bf2a246c89405e1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 27 Oct 2013 21:35:54 +0000
Subject: [PATCH] numbered-alias-sheet wip

---
 numbered-alias-sheet | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 numbered-alias-sheet

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
new file mode 100755
index 0000000..a285be6
--- /dev/null
+++ b/numbered-alias-sheet
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+use strict;
+our $us = $0; $us =~ s#.*/##;
+
+our $papersize =  'creditcard';
+our $fontsize = 10;
+our $font = 'Courier';
+
+our $usage = <<END;
+usage: $us [<options>] <foo-mail-pregen> <foo-mail-pregen-opts>...
+options:
+  -p<papersize>     default is $papersize
+  -f<fontsize>      default is ${fontsize}pt
+  -F<font>          default is $font
+END
+
+for (;;) {
+    badusage unless @ARGV;
+    last unless $ARGV[0] =~ m/^-/;
+    $_ = shift @ARGV;
+    last if m/^--?$/;
+    while (m/^-./) {
+	if (s/^-p(.*)$//) {
+	    
+	
+p
+while (@ARGV && $ARGV[0] =~ m/^-/) {
+    
-- 
2.30.2