home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Stone / STONE.PL < prev    next >
Perl Script  |  2000-05-25  |  1KB  |  47 lines
  1. #!/bin/perl -n
  2.  
  3. $on=0 if m,</table,;
  4. next if /<meta name="generator/i;
  5.  s,href="javascr.*server reports that this file cannot be found.+location='([^']+)'"(\s*tppabs\S+)*(\s*[^>]*)>,href="$1$3>"not found: ,;
  6.  s,href="javascr.*outside the boundaries set for its Starting A.+location='([^']+)'"(\s*tppabs\S+")*,href="$1",;
  7.  
  8. if ($on) {
  9.  $td+=/<td/;
  10.  s,\s*</t[dr]>\s*,,;
  11.  s/<td align="center"/<td/;
  12.  s/(<td width=)"\d+"/$1"100"/ if $td==1;
  13.  s/(<td width=)"\d+"/$1"480"/ if $td==2;
  14.  s/^\s*height[^>]+>//;
  15.  s/\s*height[^>]+>/>/;
  16.  s/<p\s*$//;
  17.  s,</p>\s*$,,;
  18.  s,</font>,,g;
  19.  s/^\s*align="left">//;
  20.  s/\s*<font[^>]+>//g;
  21.  s/\s*<font[^>]+$//;
  22.  s/^\s*face=[^>]+>//;
  23.  s/^\s*size=[^>]+>//;
  24.  s/^\s*color=[^>]+>//;
  25.  s/^\s*color=[^>]+$//;
  26.  s, tppabs="http://www.cracking.net[^>]+,,;
  27.  
  28.  
  29.  s/ \s*$//g;
  30.  s/^\s+//;
  31.  next if /^$/;
  32.  $x = "     ";
  33.  $x = " ",$td=0  if /<tr/;
  34.  $x = "   " if /<td/;
  35.  print $x;
  36. }
  37. s,(<table.*width=)"\d+,\n<BR>$1"580,;
  38. s,<p[^>]*>\s* \s*(</p>)*,,g;
  39. s,<div[^>]*>(<center>)*,,;
  40. s,\s*</div>,,;
  41. s,\s*</center>,,;
  42.  
  43. next if /^$/;
  44. $_ .= "\n" if !/\n/;
  45. print $_;
  46. $on += /<table/;
  47.