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