tjh.dev
1--- a/apache2.1.pl
2+++ b/apache2.1.pl
3@@ -63,10 +63,10 @@ getopt ("h: l: p: e: s: t:" ,\%opts);
4 use LWP;
5
6
7-if (!(exists $opts{h})||!(exists $opts{p})||!(exists $opts{l})||!(exists $opts{e})){ &usage;}
8+if (!(exists $opts{h})){ &usage;}
9
10 sub usage{
11-print "\nUSAGE: apache.pl [-h 1.2.3.4] [-l names] [-p 80] [-s (SSL Support 1=true 0=false)] [-e 403 (http code)] [-t threads]\n\n ";
12+print "\nUSAGE: apache-users -h 1.2.3.4 [-l names] [-p 80] [-s (SSL Support 1=true 0=false)] [-e 403 (http code)] [-t threads]\n\n ";
13 exit 1;
14 };
15
16@@ -75,7 +75,7 @@ if (exists $opts{h}){
17 }
18 if (exists $opts{l}){
19 $list=$opts{l};
20-}else {$list="names";}
21+}else {$list="@out@/share/apache-users/names";}
22 if (exists $opts{p}){
23 $port=$opts{p};
24 }else{$port=80;}