Merge tag 'upstream/1.1' into debian

Upstream version 1.1

Conflicts:
	NEWS
	README
	client/keytab.c
	perl/lib/Wallet/ACL.pm
	perl/sql/Wallet-Schema-0.08-PostgreSQL.sql
	perl/t/general/admin.t
	perl/t/verifier/ldap-attr.t

Change-Id: I1a1dc09b97c9258e61f1c8877d0837193c8ae2c6

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