inncheck patch
George Lindholm
George.Lindholm at ubc.ca
Tue Sep 28 23:06:36 UTC 1999
inncheck didn't understand about expiring classes
George
--
George.Lindholm at ubc.ca ITServices, UBC
Programmer/Analyst
phone: 604.822.4375 fax: 604.822.5116
-- Attached file included as plaintext by Listar --
-- File: inncheck.pa
*** inncheck.in 1999/09/28 22:51:45 1.1
--- inncheck.in 1999/09/28 23:00:09
***************
*** 236,250 ****
}
## Could check for conflicting lines, but that's hard.
! unless ( ($pat, $flag, $keep, $default, $purge) =
! /^([^:])+:([^:]+):([\d\.]+|never):([\d\.]+|never):([\d\.]+|never)$/ ) {
print "$file:$line: malformed line.\n";
next input;
}
! print "$file:$line: duplicate default line\n"
! if $pat eq "*" && $flag eq "a" && $def++;
! print "$file:$line: unknown modflag `$flag'\n"
! if $flag !~ /[mMuUaA]/;
print "$file:$line: purge `$purge' younger than default `$default'.\n"
if $purge ne "never" && $default > $purge;
print "$file:$line: default `$default' younger than keep `$keep'.\n"
--- 236,248 ----
}
## Could check for conflicting lines, but that's hard.
! unless ( ($class, $keep, $default, $purge) =
! /^(\d+):([\d\.]+|never):([\d\.]+|never):([\d\.]+|never)$/ ) {
print "$file:$line: malformed line.\n";
next input;
}
! print "$file:$line: invalid class\n"
! if $class < 0;
print "$file:$line: purge `$purge' younger than default `$default'.\n"
if $purge ne "never" && $default > $purge;
print "$file:$line: default `$default' younger than keep `$keep'.\n"
More information about the inn-bugs
mailing list