diff options
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/convert-srvtab-db | 1 | ||||
| -rwxr-xr-x | contrib/used-principals | 1 | ||||
| -rwxr-xr-x | contrib/wallet-report | 3 |
3 files changed, 1 insertions, 4 deletions
diff --git a/contrib/convert-srvtab-db b/contrib/convert-srvtab-db index 74b19a7..8d3b31e 100755 --- a/contrib/convert-srvtab-db +++ b/contrib/convert-srvtab-db @@ -1,5 +1,4 @@ #!/usr/bin/perl -w -our $ID = q$Id$; # # convert-srvtab-db -- Converts a leland_srvtab database to wallet # diff --git a/contrib/used-principals b/contrib/used-principals index f5abaf0..c4a6c07 100755 --- a/contrib/used-principals +++ b/contrib/used-principals @@ -1,5 +1,4 @@ #!/usr/bin/perl -w -our $ID = q$Id$; # # used-principals -- Report which Kerberos v5 principals are in use. # diff --git a/contrib/wallet-report b/contrib/wallet-report index 6f09914..1abe1f8 100755 --- a/contrib/wallet-report +++ b/contrib/wallet-report @@ -1,5 +1,4 @@ #!/usr/bin/perl -w -$ID = q$Id$; # # wallet-report -- Report on keytabs in the wallet database. # @@ -41,7 +40,7 @@ $ADDRESS = 'nobody@example.com'; require 5.005; use strict; -use vars qw($ADDRESS $DUMPFILE $ID @PATTERNS $REPORTS); +use vars qw($ADDRESS $DUMPFILE @PATTERNS $REPORTS); use Getopt::Long qw(GetOptions); use File::Path qw(mkpath); |