Allow non-word characters in usernames (machine accounts end with $)

This commit is contained in:
hjp 2005-12-12 08:48:59 +00:00
parent b7eb8717bd
commit 582f0fc6ac
2 changed files with 7 additions and 4 deletions

View File

@ -1,8 +1,11 @@
#!@@@perl@@@
#
# $Id: quotasanitycheck.pl,v 1.1 1998-09-17 08:32:57 hjp Exp $
# $Id: quotasanitycheck.pl,v 1.2 2005-12-12 08:48:59 hjp Exp $
# $Log: quotasanitycheck.pl,v $
# Revision 1.1 1998-09-17 08:32:57 hjp
# Revision 1.2 2005-12-12 08:48:59 hjp
# Allow non-word characters in usernames (machine accounts end with $)
#
# Revision 1.1 1998/09/17 08:32:57 hjp
# CVS cleanups:
# Added quotasanitycheck.pl and removed quotasanitycheck.
# Added quotasanitycheck
@ -45,7 +48,7 @@ for $ln (@df) {
if ($fs =~ m|^/dev/|) {
open REPQUOTA, "@@@repquota@@@ $mount 2>/dev/null |" or die "cannot call @@@repquota@@@: $!";
while (<REPQUOTA>) {
if (/(\w+) \s+ [-+][-+] \s*
if (/(\S+) \s+ [-+][-+] \s*
(\d+)\s+(\d+)\s+(\d+)\s+(NOT\sSTARTED|EXPIRED|\d+\.\d+\ (?:days|hours)|)\s+
(\d+)\s+(\d+)\s+(\d+)\s+(NOT\sSTARTED|EXPIRED|\d+\.\d+\ (?:days|hours)|)
/x) {

View File

@ -34,7 +34,7 @@ for $ln (@df) {
$msg = "";
if (!/\b\d+\b/) {
#print "header: $_";
} elsif (/(\w+) \s+ [-+][-+] \s*
} elsif (/(\S+) \s+ [-+][-+] \s*
(\d+)\s+(\d+)\s+(\d+)\s+(|$hpuxtime|$linuxtime)\s+
(\d+)\s+(\d+)\s+(\d+)\s+(|$hpuxtime|$linuxtime)
/x) {