<commit_before>#!/usr/bin/perl -w

=head1 NAME

provision.pl - Command-line interface to the provisioner

=head1 SYNOPSIS

provision.pl [options] command [arguments ...]

=cut

use warnings;

use Carp;
use Data::Dumper;
use File::Path;
use Getopt::Long;
use HTTP::Cookies;
use HTTP::Request;
use LWP;
use LWP::UserAgent;
use Pod::Usage;
use URI;
use URI::Escape;
use XML::Twig;

use vars qw(
	$BUILD
	$BROWSER
	$XML

	$print_help
	$print_longhelp

	$username
	$password

	$url_root
);

$BUILD = (qw$LastChangedRevision 1 $)[-1];
$XML = XML::Twig->new();

# set defaults
$url_root = 'http://localhost:8980/opennms/rest';
$username = 'admin';
$password = '<PASSWORD>';

=head1 OPTIONS

=over 8

=item B<--help>

Print a brief help message and exit.

=item B<--version>

Print the version and exit.

=item B<--username>

The username to use when connecting to the RESTful API.  This
user must have administrative privileges in the OpenNMS web UI.

Defaults to 'admin'.

=item B<--password>

The password associated with the administrative username specified
in B<-username>.

Defaults to 'password'.

=item B<--url>

The URL of the OpenNMS REST interface.  Defaults to
'http://localhost:8980/opennms/rest'.

=back

=cut

Getopt::Long::Configure( "require_order" );
my $result = GetOptions(
	"help|h"     => \$print_help,
	"longhelp|l" => \$print_longhelp,
	"version|v"  => \&print_version,

	"username|u=s" => \$username,
	"password|p=s" => \$password,

	"url=s"        => \$url_root,
);

pod2usage(1) if $print_help;
pod2usage(-exitstatus => 0, -verbose => 2) if $print_longhelp;<commit_msg>default is admin, not password<commit_after>#!/usr/bin/perl -w

=head1 NAME

provision.pl - Command-line interface to the provisioner

=head1 SYNOPSIS

provision.pl [options] command [arguments ...]

=cut

use warnings;

use Carp;
use Data::Dumper;
use File::Path;
use Getopt::Long;
use HTTP::Cookies;
use HTTP::Request;
use LWP;
use LWP::UserAgent;
use Pod::Usage;
use URI;
use URI::Escape;
use XML::Twig;

use vars qw(
	$BUILD
	$BROWSER
	$XML

	$print_help
	$print_longhelp

	$username
	$password

	$url_root
);

$BUILD = (qw$LastChangedRevision 1 $)[-1];
$XML = XML::Twig->new();

# set defaults
$url_root = 'http://localhost:8980/opennms/rest';
$username = 'admin';
$password = '<PASSWORD>';

=head1 OPTIONS

=over 8

=item B<--help>

Print a brief help message and exit.

=item B<--version>

Print the version and exit.

=item B<--username>

The username to use when connecting to the RESTful API.  This
user must have administrative privileges in the OpenNMS web UI.

Defaults to 'admin'.

=item B<--password>

The password associated with the administrative username specified
in B<-username>.

Defaults to '<PASSWORD>'.

=item B<--url>

The URL of the OpenNMS REST interface.  Defaults to
'http://localhost:8980/opennms/rest'.

=back

=cut

Getopt::Long::Configure( "require_order" );
my $result = GetOptions(
	"help|h"     => \$print_help,
	"longhelp|l" => \$print_longhelp,
	"version|v"  => \&print_version,

	"username|u=s" => \$username,
	"password|p=s" => \$password,

	"url=s"        => \$url_root,
);

pod2usage(1) if $print_help;
pod2usage(-exitstatus => 0, -verbose => 2) if $print_longhelp;
{'fraction_non_alphanumeric': 0.1510791366906475, 'fraction_numerical': 0.0118861432593056, 'mean_word_length': 4.321131447587354, 'pattern_counts': {'":': 0, '<': 18, '<?xml version=': 0, '>': 36, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3518752', 'n_tokens_mistral': 1240, 'n_tokens_neox': 1172, 'n_words': 341}