3 our $us = $0; $us =~ s#.*/##;
5 our $papersize = 'creditcard';
10 usage: $us [<options>] <foo-mail-pregen> <foo-mail-pregen-opts>...
12 -p<papersize> default is $papersize (for libpaper, or "creditcard")
13 -f<fontsize> default is ${fontsize}pt
14 -F<font> default is $font
20 badusage unless @ARGV;
21 last unless $ARGV[0] =~ m/^-/;
27 } elsif (s/^-f([0-9]+)$//) {
30 } elsif (s/^-pcreditcard$//) {
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 "$_ ?";
39 while (@ARGV && $ARGV[0] =~ m/^-/) {