#!/usr/bin/perl

my $line;

sub replace {
   my $str = shift;
   $str =~ s/[\/][\~]mcoan[\/]cgi[\-]bin[\/]cxx_browser[\.]cgi[\?]infile[\=]//g;
   return $str;
}

sub scan_file {
   my $page = shift;
   my $page2 = "";

   open(PAGE, "<", $page) or die("unalbe to open input file ($!)...\n");
   while($line=<PAGE>) {
      $line = &replace($line); 
      print $line;
      $page2 .= $line;
   }
   close(PAGE);

   open(PAGE, ">", $page) or die("unable to open output file ($!)...\n");
   print PAGE $page2;
   close(PAGE);
}

sub scan {
   my $file = shift;
   print $file . "\n";
   opendir(my $dir, $file) or die("Cannot open directory: $!");
   while($f = readdir($dir)) {
      if($f ne "." && $f ne "..") {
         $f = $file . "/" . $f;
         if(-d $f) {
            &scan($f);
         } 
         elsif($f =~ m/\.html$/) {
            &scan_file($f);
         }
      }
   }
   closedir($dir);
}

&scan("/var/www/htdocs/public_html");

exit(0);