#!/usr/bin/perl -w
use strict;

my ($title,$actors,$genre,$languages);
my (%h,%colours,@a);
my $file = "other.txt";

my $nocheck = shift || 0;
chdir "$ENV{HOME}/forSale" or die "chdir: $!\n";
open ITEMS, "<$file" or die "open: $file: $!\n";

print <<EOH;
  <h3><a name="other">Other items for sale.</a></h3>
<br>Price as indicated, or make me an offer for part/all of any item.

<br>

<table border="1" align="center">
<tr>
  <td><b>Item</b></td>
  <td><b>Links to pictures</b></td>
  <td><b>Price</b></td>
</tr>
EOH

while ( <ITEMS> )
{
  chomp;
  next if m%^#%;
  $h{$_}++;
}

foreach ( sort keys %h )
{
  @a = split(';',$_);
  $a[1] = $a[1] ? $a[1] : ' ';
  my $text = '';
  if ( $a[2] )
  {
    foreach ( split(' ',$a[2]) )
    {
      s% %%g;
      $nocheck || -f $_ or die "$_: Not found\n";
      $text .= "<a href=\"$_\">$_</a>,&nbsp";
    }
  }
  if ( $a[3] )
  {
    $a[0] = "<a href=\"" . $a[3] . "\">" . $a[0] . "</a>";
  }
  print <<EOT;
<tr>
  <td align="left"> $a[0] </td>
  <td align="left"> $text </td>
  <td align="left"> $a[1] </td>
</tr>
EOT

}

print "</table>\n";