|
Lines 180-201
binmode STDOUT, ":encoding(UTF-8)";
Link Here
|
| 180 |
# These variables can be set by command line options, |
180 |
# These variables can be set by command line options, |
| 181 |
# initially set to default values. |
181 |
# initially set to default values. |
| 182 |
|
182 |
|
| 183 |
my $help = 0; |
183 |
my $help = 0; |
| 184 |
my $man = 0; |
184 |
my $man = 0; |
| 185 |
my $verbose = 0; |
185 |
my $verbose = 0; |
| 186 |
my $send_email = 0; |
186 |
my $send_email = 0; |
| 187 |
my $attachment = 0; |
187 |
my $attachment = 0; |
| 188 |
my $format = "text"; |
188 |
my $format = "text"; |
| 189 |
my $to = ""; |
189 |
my $to = ""; |
| 190 |
my $from = ""; |
190 |
my $from = ""; |
| 191 |
my $subject = ""; |
191 |
my $subject = ""; |
| 192 |
my @params = (); |
192 |
my @params = (); |
| 193 |
my $separator = ','; |
193 |
my $separator = ','; |
| 194 |
my $quote = '"'; |
194 |
my $quote = '"'; |
| 195 |
my $store_results = 0; |
195 |
my $store_results = 0; |
| 196 |
my $csv_header = 0; |
196 |
my $csv_header = 0; |
| 197 |
my $csv_separator = ""; |
197 |
my $csv_separator = ""; |
| 198 |
my $csv_quote = ""; |
198 |
my $csv_quote = ""; |
| 199 |
|
199 |
|
| 200 |
my $username = undef; |
200 |
my $username = undef; |
| 201 |
my $password = undef; |
201 |
my $password = undef; |
|
Lines 204-232
my $method = 'LOGIN';
Link Here
|
| 204 |
my $command_line_options = join(" ",@ARGV); |
204 |
my $command_line_options = join(" ",@ARGV); |
| 205 |
|
205 |
|
| 206 |
GetOptions( |
206 |
GetOptions( |
| 207 |
'help|?' => \$help, |
207 |
'help|?' => \$help, |
| 208 |
'man' => \$man, |
208 |
'man' => \$man, |
| 209 |
'verbose' => \$verbose, |
209 |
'verbose' => \$verbose, |
| 210 |
'format=s' => \$format, |
210 |
'format=s' => \$format, |
| 211 |
'separator=s' => \$csv_separator, |
211 |
'separator=s' => \$csv_separator, |
| 212 |
'quote=s' => \$csv_quote, |
212 |
'quote=s' => \$csv_quote, |
| 213 |
'to=s' => \$to, |
213 |
'to=s' => \$to, |
| 214 |
'from=s' => \$from, |
214 |
'from=s' => \$from, |
| 215 |
'subject=s' => \$subject, |
215 |
'subject=s' => \$subject, |
| 216 |
'param=s' => \@params, |
216 |
'param=s' => \@params, |
| 217 |
'email' => \$send_email, |
217 |
'email' => \$send_email, |
| 218 |
'a|attachment' => \$attachment, |
218 |
'a|attachment' => \$attachment, |
| 219 |
'username:s' => \$username, |
219 |
'username:s' => \$username, |
| 220 |
'password:s' => \$password, |
220 |
'password:s' => \$password, |
| 221 |
'method:s' => \$method, |
221 |
'method:s' => \$method, |
| 222 |
'store-results' => \$store_results, |
222 |
'store-results' => \$store_results, |
| 223 |
'csv-header' => \$csv_header, |
223 |
'csv-header' => \$csv_header, |
| 224 |
|
224 |
|
| 225 |
) or pod2usage(2); |
225 |
) or pod2usage(2); |
| 226 |
pod2usage( -verbose => 2 ) if ($man); |
226 |
pod2usage( -verbose => 2 ) if ($man); |
| 227 |
pod2usage( -verbose => 2 ) if ($help and $verbose); |
227 |
pod2usage( -verbose => 2 ) if ( $help and $verbose ); |
| 228 |
pod2usage(1) if $help; |
228 |
pod2usage(1) if $help; |
| 229 |
|
229 |
|
|
|
230 |
|
| 230 |
cronlogaction({ info => $command_line_options }); |
231 |
cronlogaction({ info => $command_line_options }); |
| 231 |
|
232 |
|
| 232 |
unless ($format) { |
233 |
unless ($format) { |
| 233 |
- |
|
|