From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 30 Oct 2013 21:50:32 +0000 (+0000)
Subject: numbered-alias-sheet: wip
X-Git-Tag: test~2
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=d.git;a=commitdiff_plain;h=24ee6d8bcf4ebec12bfbf62abed0df2e0a457646

numbered-alias-sheet: wip
---

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index a285be6..ef9e2bb 100755
--- a/numbered-alias-sheet
+++ b/numbered-alias-sheet
@@ -9,19 +9,31 @@ our $font = 'Courier';
 our $usage = <<END;
 usage: $us [<options>] <foo-mail-pregen> <foo-mail-pregen-opts>...
 options:
-  -p<papersize>     default is $papersize
+  -p<papersize>     default is $papersize  (for libpaper, or "creditcard")
   -f<fontsize>      default is ${fontsize}pt
   -F<font>          default is $font
 END
 
+our $paperx, $papery;
+
 for (;;) {
     badusage unless @ARGV;
     last unless $ARGV[0] =~ m/^-/;
     $_ = shift @ARGV;
     last if m/^--?$/;
     while (m/^-./) {
-	if (s/^-p(.*)$//) {
-	    
+	if (s/^-p(\w+)$//) {
+	    $papersize = $1;
+	} elsif (s/^-f([0-9]+)$//) {
+	    eval { $fontsize = $1 
+
+	} elsif (s/^-pcreditcard$//) {
+
+
+	    my $
+	    $!=0; $?=0; my $r = `paperconf -sp $1`;
+	    defined $r or die "paperconf failed: $? $!\n";
+	    $r =~ m/^([0-9.]+) ([0-9.]+)$/ or die "$_ ?";
 	
 p
 while (@ARGV && $ARGV[0] =~ m/^-/) {