X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=inline;f=clearadm%2Freadme.cgi;h=ce994af64d0802fdb9cc0e564661280db1851aec;hb=e630262a2c0552836678d33c6ee8e21e7f7fcd42;hp=3f9d3f9ebf6eed58cff8b55cc8fe5315eea0156f;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git diff --git a/clearadm/readme.cgi b/clearadm/readme.cgi index 3f9d3f9..ce994af 100755 --- a/clearadm/readme.cgi +++ b/clearadm/readme.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl =pod @@ -40,7 +40,7 @@ use warnings; use FindBin; use Getopt::Long; -use CGI qw (:standard *table start_Tr end_Tr); +use CGI qw(:standard *table start_Tr end_Tr); use CGI::Carp 'fatalsToBrowser'; use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib"; @@ -50,7 +50,7 @@ use Display; use Utils; # Main -GetOptions ( +GetOptions( 'usage' => sub { Usage }, 'verbose' => sub { set_verbose }, 'debug' => sub { set_debug }, @@ -65,8 +65,7 @@ display '
'; @@ -106,9 +105,9 @@ L'; display h1 {class => 'center'}, "$ClearadmWeb::APPNAME: README"; -display $_ - foreach (ReadFile 'README'); +display $_ foreach (ReadFile 'README'); display '
-ClearadmWeb=end html @@ -123,4 +122,4 @@ Please report problems to Andrew DeFaria
-Display
-Utils
+ClearadmWeb
+Display
+Utils