Changeset 639 for trunk/cgi-bin


Ignore:
Timestamp:
10/17/14 16:26:49 (10 years ago)
Author:
Kris Deugau
Message:

/trunk

Commit 11/mumble for work done intermittently over the past ~year.

  • Add a few more checks in the CustIDCK.pm demo module
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/CustIDCK.pm

    r546 r639  
    3434  my $custid = shift;
    3535
     36  # Arguably this is wrong, but spaces don't really show up well on printed material...
     37  $custid =~ s/^\s+//;
     38  $custid =~ s/\s+$//;
     39
    3640  # hardcoded "OK" custids.
    3741  return 1 if $custid =~ /^STAFF(?:-\d\d?)?$/;
    3842  return 1 if $custid =~ /^5554242(?:-\d\d?)?$/;  # just in case some later change might block this
     43  return 1 if $custid =~ /^\d{6}(?:-\d\d?)?$/;
    3944  return 1 if $custid =~ /^\d{7}(?:-\d\d?)?$/;
    4045  return 1 if $custid =~ /^\d{10}(?:-\d\d?)?$/;
Note: See TracChangeset for help on using the changeset viewer.