diff --git a/http-auth.pl b/http-auth.pl index 38c98aa..3ba7fb0 100755 --- a/http-auth.pl +++ b/http-auth.pl @@ -18,11 +18,12 @@ my $user = shift; my $worte = shift; my $ppid = $$; -# standard values +# standard values: user changable my $ua = LWP::UserAgent->new; - $ua->agent("C3/25"); + $ua->agent("C3/25"); # as you like +my $concurrent = 2; # number of forks testing http-auth -my $concurrent = 2; +# reset: will be setup later my $per_process = 0; my $last_process = 0; my $tempdir; @@ -219,6 +220,11 @@ parent(); =head1 DESCRIPTION + http-auth tries to authenticate at with and given + via http-auth (required by a 401 answer). It forks + $concurrent forks (normally 2, can be changed in the source), which + work on $lines/$concurrent lines of the . + =head1 AUTHOR Nico Schottelius