Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 74865
Collapse All | Expand All

(-)fetchyahoo (-1 / +1 lines)
Lines 823-829 Link Here
823 
  my $tmpLine = '';
 823 
  my $tmpLine = '';
824 

          824
          

        

        

          825
          
  # the long regex matches and removes a single message

          825
          
  # the long regex matches and removes a single message

        

          
            

              826
              
  while ( $tmpPage =~ s/^.*?^<tr class=msg(new|old).*?^<td .*?name="Mid" value="([0-9_-]+)".*?^<td>(.*?)<.*?^<td>.*?^<a href=.*?ShowLetter\?MsgId=([0-9_-]+).*?\n(.*?)\n.*?^<td .*?>(.*?)<.*?^<td>(.*?)<//ms ) {


              826
              
  while ( $tmpPage =~ s/^.*?^<tr class=msg(new|old).*?^<td .*?name="Mid" value="([^"]+)".*?^<td>(.*?)<.*?^<td>.*?^<a href=.*?ShowLetter\?MsgId=([^"]+).*?\n(.*?)\n.*?^<td .*?>(.*?)<.*?^<td>(.*?)<//ms ) {

            

        

          827
          
    if (! $2 eq $4) {

          827
          
    if (! $2 eq $4) {

        

        

          828
          
        print "\nWarning: message ID's $2 and $4 don't match.\n" unless $quiet;

          828
          
        print "\nWarning: message ID's $2 and $4 don't match.\n" unless $quiet;

        

        

          829
          
    }

          829
          
    }

        






  

  Return to bug 74865