#!/usr/bin/perl
#!perl

#require "parse.pl";
use lib qw/./;
use parse;

$data="../dat";

parse_form;

if ($FORM{'select'} eq '') {$FORM{'select'}='vw';}
if ($FORM{'id'} eq '') {$FORM{'id'}=0;}

require "vote.pl";

open CDT, "$data/topic.dat";
@cdt=<CDT>;
close CDT;

push @HTML, <<EOF;
<a href="mailto:cd\@v-world.dn.ua?subject=CD_Order">Заказать диски</a><br>
<form name="form1" method="post" action="/cgi-bin/cd.cgi">
  <select name="select">
EOF


for ($n=0; $n<@cdt; $n++) {
  chomp $cdt[$n];
  ($topic, $name)=split /\|/, $cdt[$n];
  $TOPICS{$topic}=$name;
  push @HTML, "<option value=\"$topic\">$name</option>";
}

push @HTML, <<EOF;
  </select> <input type="submit" name="Submit" value="Выбрать">
</form>
EOF


open CD, "$data/vm.dat";
@cd=<CD>;
close CD;
$need=$FORM{'select'};

push @HTML, "<table border=1 bordercolor=blue width=\"98%\" align=center>".
            "<tr><td><b><center><font size=2>Код</font></center></b></td><td><b><center>".
            "<font size=2>Наименование</font></center></b></td><td><b><center><font size=2>В наличии</font></center>".
            "</b></td></tr>";
$ltopic='';
for ($n=0; $n<@cd; $n++) {
  chomp $cd[$n];
  ($id, $topic, $title, $exist)=split /\|/, $cd[$n];
  unless ($exist) {$exist='&nbsp;'};
  if ($topic eq $need) {
    if ($ltopic ne $topic) {
      $ltopic=$topic; $cid=0;
      push @HTML, "<tr><td colspan=3 bgcolor=black><font size=2><center>$TOPICS{$topic}</center></font></td></tr>";
    }
    if (($cid>=$FORM{'id'}) && ($cid<$FORM{'id'}+40)) {
      my $sss='+' if $exist;
      push @HTML, "<tr><td valign=top align=center><font size=2>$id</font></td><td><font size=2>$title</font></td><td><font size=2>$sss</font></td></tr>";
    }
    if ($cid<$FORM{'id'}+40) {$cid++;}
  }
}

$cid--;
push @HTML, "</table>";
push @HTML, "<br><center><a href=\"/cgi-bin/cd.cgi?id=$cid&select=$need\">Дальше</a></center>" if ($cid>$FORM{'id'});

&OutHTML;


#####################################################################
#####################################################################
#####################################################################
sub OutHTML {
  print "Content-type: text/html\n\n";
  open HTM, "../cd.htm";
  while ($s=<HTM>) {
    print $s;
    if ($s=~/<!--CDs-->/) {print @HTML;}
    if ($s=~/<!-- vote -->/) {print $out_htm;}

  }
  close HTM;
}