Lines Matching refs:options
12 use vars qw(%options);
42 # Error-handling related options.
43 $curl->setopt(CURLOPT_VERBOSE, 1) if $options{d};
59 # SSL related options.
63 $curl->setopt(CURLOPT_SSLKEY, $options{k}) if defined($options{k});
64 $curl->setopt(CURLOPT_SSLKEYPASSWD, $options{p}) if defined($options{p});
65 $curl->setopt(CURLOPT_SSLCERT, $options{c}) if defined($options{c});
66 $curl->setopt(CURLOPT_CAINFO, $options{C}) if defined($options{C});
67 $curl->setopt(CURLOPT_CAPATH, $options{P}) if defined($options{P});
68 $curl->setopt(CURLOPT_RANDOM_FILE, $options{r}) if defined($options{r});
69 $curl->setopt(CURLOPT_EGDSOCKET, $options{g}) if defined($options{g});
84 # Error-handling related options.
128 # Getting command-line options (default comes from TSGET environment variable).
133 getopts($getopt_arg, \%options) or usage;
136 getopts($getopt_arg, \%options) or usage;
139 if (!exists($options{h}) || (@ARGV == 0 && !exists($options{o}))
140 || (@ARGV > 1 && exists($options{o}))) {
141 print STDERR "Inconsistent command line options.\n";
146 $options{e} = ".tsr" unless defined($options{e});
149 my $curl = create_curl $options{h};
154 my $output_base = $base . $options{e};
155 my $output = defined($options{o}) ? $options{o} : $path . $output_base;
157 STDERR->printflush("$input: ") if $options{v};
173 STDERR->printflush("sending request") if $options{v};
179 STDERR->printflush(", reply received") if $options{v};
193 STDERR->printflush(", $output written.\n") if $options{v};