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

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

chdir "$ENV{HOME}/forSale" or die "chir: $!\n";
open DVDs, "<$file" or die "open: $file: $!\n";

print <<EOH;
<h3><a name="dvds">DVDs for sale.</a></h3>

<p>Prices 15 CHF per DVD, or any 3 for 40 CHF, unless otherwise indicated.
All DVDs are European-region. Follow the links for reviews from
http://www.imdb.com/.</p>

<br>

<table border="1" align="center">
<tr>
  <td><b>Titre/Title</b></td>
  <td><b>Starring...</b></td>
  <td><b>Style/Genre</b></td>
  <td><b>Languages</b></td>
  <td><b>Price (if not 15 CHF)</b></td>
</tr>
EOH

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

foreach ( sort keys %h )
{
  @a = split(';',$_);
  $a[4] = $a[4] ? $a[4] : ' ';
  if ( $a[5] )
  {
    $a[2] =~ s% %%g;
    $a[0] = "<a href=\"" . $a[5] . "\">" . $a[0] . "</a>";
  }
  print <<EOT;
<tr>
  <td align="left"> $a[0] </td>
  <td align="left"> $a[1] </td>
  <td align="left"> $a[2] </td>
  <td align="left"> $a[3] </td>
  <td align="left"> $a[4] </td>
</tr>
EOT

}

print "</table>\n";