numbered-alias-sheet: wip

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index a285be65a15029d3781ea02f824908969c8d8e8c..ef9e2bb12ca59b3dbe52424bea00dcc695ec127f 100755 (executable)
--- 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/^-/) {