#!/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>)
   {
      s/SRC="[^"]+\/([^\/]+\.png)"/SRC="$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;
