*** checklink	Mon Mar 25 15:43:38 2002
--- checklink.orig	Mon Mar 25 15:37:27 2002
***************
*** 61,67 ****
  my $_masquerade = 0;
  my $_local_dir = my $_remote_masqueraded_uri = '';
  my $_hide_same_realm = 0;
- my $_ignoreRE = '';
  my $_depth = 0; # -1 means unlimited recursion
  
  # Restrictions for the online version
--- 61,66 ----
***************
*** 248,255 ****
              $_remote_masqueraded_uri = shift(@ARGV);
          } elsif (m/^--hide-same-realm$/) {
              $_hide_same_realm = 1;
-         } elsif (m/^--ignore$/) {
-             $_ignoreRE = &add_ignoreRE(shift(@ARGV));
          } else {
              push(@uris, $_);
          }
--- 247,252 ----
***************
*** 274,281 ****
  				http://www.w3.org/TR/html4/Overview.html
  				for example, it would be:
  				http://www.w3.org/TR/html4/
-         --ignore                Ignore documents whose URI matches this 
- 				Regular Expression.
  	-n/--noacclanguage	Do not send an Accept-Language header.
  	-L/--languages		Languages accepted (default: '$_languages'). 
  	-q/--quiet		No output if no errors are found.
--- 271,276 ----
***************
*** 347,357 ****
      # If $html_header equals 1, we need to generate a HTML header (first
      # instance called in HTML mode).
  
-     # check this uri doesn't match the ignore regexp (possibly not needed?)
-     if (&matches_ignore($uri)){
-         return(-1);
-     }
- 
      my $start;
      if (! $_quiet) {
          $start = &get_timestamp();
--- 342,347 ----
***************
*** 475,481 ****
      foreach $u (keys %links) {
          # Don't check mailto: URI's
          next if ($u =~ m/^mailto:/);
-         next if (&matches_ignore($u));
          if (! $_summary) {
              &hprintf("Checking link %s\n", $u);
          }
--- 465,470 ----
***************
*** 1856,1887 ****
          print HTML::Entities::encode(sprintf($_[0], @_[1..@_-1]));
      }
  }
- 
- ########################################################################
- # Add this to the list of regular expressions we don't check 
- # in future we could do even fancier stuff and add from a file
- ########################################################################
- 
- sub add_ignoreRE
- {
-   my ($re)=@_;
- 
-   if ($_ignoreRE){
-     $_ignoreRE.="|$re";
-   } else {
-     $_ignoreRE=$re;
-   }
- }
- 
- ##############################################################################
- # Check to see if a provided URI matches against the ignore regular expression
- ##############################################################################
- 
- sub matches_ignore
- {
-   my ($uri)=@_;
- 
-   # we match case insensitive since many hostnames are case
-   # insensitive, although this is not 'strictly' correct
-   return $uri=~/$_ignoreRE/i;
- }
--- 1845,1847 ----