equal
deleted
inserted
replaced
15 |
15 |
16 my @xiargs; |
16 my @xiargs; |
17 my @popts; |
17 my @popts; |
18 print $#ARGV . ": " . join(', ', @ARGV) . "\n"; |
18 print $#ARGV . ": " . join(', ', @ARGV) . "\n"; |
19 |
19 |
|
20 #TODO: Don't use Getopt. Parse by hand. |
20 GetOptions( |
21 GetOptions( |
21 'g=f' => sub { push(@xiargs, '-g') }, # ximage: -g gamma |
22 'g=f' => sub { push(@xiargs, '-g') }, # ximage: -g gamma |
22 'c=i' => sub { push(@xiargs, '-c') }, # ximage: -c ncolors |
23 'c=i' => sub { push(@xiargs, '-c') }, # ximage: -c ncolors |
23 'geometry=s' => sub { push(@xiargs, '-c') }, # ximage: -geometry geometry |
24 'geometry=s' => sub { push(@xiargs, '-c') }, # ximage: -geometry geometry |
24 #TODO: deal with =geometry |
25 #TODO: deal with =geometry |