#!/usr/bin/perl -w
# change the image paths to relative paths

unless ($#ARGV == 0)
{
   die "fixpaths <dir>\n";
}

$dir = $ARGV[0];

my @files = <$dir/*.html>;

foreach $file (@files)
{
   my $tmpname = $file . "_tmp";

   open INFD, $file or die "Can't open '$file' $!\n";
   open OUTFD, ">$tmpname" or die "Can't open '$tmpname' $!";

   while (<INFD>)
   {
      if (/SRC="([^"\/]+\.png)"/)
      {
         my $file = "../sharedimages/$1";

         if (-e $file)
         {
            s/SRC="([^"]+\.png)"/SRC="..\/..\/sharedimages\/$1"/g;
         }
      }

      s/ALT="Image [^"]+\/([^\/]+\.png)"/ALT="Image $1"/g;

      print OUTFD;
   }

   close OUTFD;
   close INFD;

   rename $tmpname, $file or die "Can't rename '$tmpname', '$file' $!";
}

1;
