diff options
Diffstat (limited to 'contrib/wallet-summary')
| -rwxr-xr-x | contrib/wallet-summary | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/contrib/wallet-summary b/contrib/wallet-summary index 4e76119..5cbf6e0 100755 --- a/contrib/wallet-summary +++ b/contrib/wallet-summary @@ -1,8 +1,23 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # # Summarize keytabs in the wallet database. ############################################################################## +# Modules and declarations +############################################################################## + +require 5.005; + +use strict; +use vars qw($ADDRESS $DUMPFILE @PATTERNS $REPORTS); +use warnings; + +use Getopt::Long qw(GetOptions); +use File::Path qw(mkpath); +use POSIX qw(strftime); +use Wallet::Report (); + +############################################################################## # Site configuration ############################################################################## @@ -15,6 +30,7 @@ $ADDRESS = 'nobody@example.com'; # The various classification patterns for srvtabs. @PATTERNS = ([qr(/cgi\z), '*/cgi', 'CGI users'], + [qr(/cron\z), '*/cron', 'Cron users'], [qr(^(?i)http/), 'HTTP/*', 'HTTP Negotiate-Auth'], [qr(^cifs/), 'cifs/*', 'CIFS'], [qr(^host/), 'host/*', 'Host login'], @@ -29,20 +45,6 @@ $ADDRESS = 'nobody@example.com'; [qr(^service/), 'service/*', 'Service principals']); ############################################################################## -# Modules and declarations -############################################################################## - -require 5.005; - -use strict; -use vars qw($ADDRESS $DUMPFILE @PATTERNS $REPORTS); - -use Getopt::Long qw(GetOptions); -use File::Path qw(mkpath); -use POSIX qw(strftime); -use Wallet::Report (); - -############################################################################## # Database queries ############################################################################## @@ -144,7 +146,7 @@ if ($mail) { } # Run the report. -my @principals = read_dump; +my @principals = read_dump (); report_principals (@principals); # If -m was given, take the saved report and mail it as well. @@ -170,7 +172,7 @@ close REPORT; ############################################################################## =for stopwords --hm keytab keytabs MERCHANTABILITY NONINFRINGEMENT sublicense +-hm keytab keytabs MERCHANTABILITY NONINFRINGEMENT sublicense Allbery =head1 NAME @@ -233,7 +235,7 @@ future development. =head1 AUTHOR -Russ Allbery <rra@stanford.edu> +Russ Allbery <eagle@eyrie.org> =head1 COPYRIGHT AND LICENSE |