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@@@ #!@@@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 $ # $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: # CVS cleanups:
# Added quotasanitycheck.pl and removed quotasanitycheck. # Added quotasanitycheck.pl and removed quotasanitycheck.
# Added quotasanitycheck # Added quotasanitycheck
@ -45,7 +48,7 @@ for $ln (@df) {
if ($fs =~ m|^/dev/|) { if ($fs =~ m|^/dev/|) {
open REPQUOTA, "@@@repquota@@@ $mount 2>/dev/null |" or die "cannot call @@@repquota@@@: $!"; open REPQUOTA, "@@@repquota@@@ $mount 2>/dev/null |" or die "cannot call @@@repquota@@@: $!";
while (<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)|)\s+
(\d+)\s+(\d+)\s+(\d+)\s+(NOT\sSTARTED|EXPIRED|\d+\.\d+\ (?:days|hours)|) (\d+)\s+(\d+)\s+(\d+)\s+(NOT\sSTARTED|EXPIRED|\d+\.\d+\ (?:days|hours)|)
/x) { /x) {

View File

@ -34,7 +34,7 @@ for $ln (@df) {
$msg = ""; $msg = "";
if (!/\b\d+\b/) { if (!/\b\d+\b/) {
#print "header: $_"; #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)\s+
(\d+)\s+(\d+)\s+(\d+)\s+(|$hpuxtime|$linuxtime) (\d+)\s+(\d+)\s+(\d+)\s+(|$hpuxtime|$linuxtime)
/x) { /x) {