numbered-alias-sheet

   1 #!/usr/bin/perl -w
   2 use strict;
   3 our $us = $0; $us =~ s#.*/##;
   4
   5 our $papersize =  'creditcard';
   6 our $fontsize = 10;
   7 our $font = 'Courier';
   8
   9 our $usage = <<END;
  10 usage: $us [<options>] <foo-mail-pregen> <foo-mail-pregen-opts>...
  11 options:
  12   -p<papersize>     default is $papersize  (for libpaper, or "creditcard")
  13   -f<fontsize>      default is ${fontsize}pt
  14   -F<font>          default is $font
  15 END
  16
  17 our $paperx, $papery;
  18
  19 for (;;) {
  20     badusage unless @ARGV;
  21     last unless $ARGV[0] =~ m/^-/;
  22     $_ = shift @ARGV;
  23     last if m/^--?$/;
  24     while (m/^-./) {
  25         if (s/^-p(\w+)$//) {
  26             $papersize = $1;
  27         } elsif (s/^-f([0-9]+)$//) {
  28             eval { $fontsize = $1
  29
  30         } elsif (s/^-pcreditcard$//) {
  31
  32
  33             my $
  34             $!=0; $?=0; my $r = `paperconf -sp $1`;
  35             defined $r or die "paperconf failed: $? $!\n";
  36             $r =~ m/^([0-9.]+) ([0-9.]+)$/ or die "$_ ?";
  37
  38 p
  39 while (@ARGV && $ARGV[0] =~ m/^-/) {
  40