#!/usr/bin/perl
print <<HTML;
Content-type: text/html;
Pragma: no-cache;
Cache-Control: no-cache;
Expires: Thu Jan  1 00:00:00 1970\n
HTML

use CGI;
use CGI::Carp qw(fatalsToBrowser);
do 'subs.pl';

&Antispam(); #Запускать не чаще 1 раза в 10 секунд

my $q = new CGI;
my $cR=$q->param("cR");
my $cG=$q->param("cG");
my $cB=$q->param("cB");
if($cR>255){$cR=255}
if($cG>255){$cG=255}
if($cB>255){$cB=255}
if($cR<1){$cR=0}
if($cG<1){$cG=0}
if($cB<1){$cB=0}



print <<;
<HTML>
<HEAD>
<STYLE>
INPUT.rgb{width:50px;}
TD.pic{background: url(pic/x/x.png) no-repeat top left; width:70px;height:28px;padding:0}
</STYLE>
</HEAD>
<BODY>
<H1>При известном RGB подобрать цвет DMC</H1>
<P>Введите значения цветов в десятичном формате (от 0 до 255).</P>
<FORM method="POST">
<TABLE>
<TR><TH>R<TH>G<TH>B
<TR><TH>красный<TH>зелёный<TH>синий
<TR>
<TD><INPUT type="text" name="cR" value="$cR" class="grb">
<TD><INPUT type="text" name="cG" value="$cG" class="grb">
<TD><INPUT type="text" name="cB" value="$cB" class="grb">
<TR><TD colspan=3><INPUT type=submit value="Подобрать цвета">
</TABLE>
</FORM>

#$c="#ffff00";

#$cR=0;
#$cG=255;
#$cB=255;

$c=sprintf("#%02x%02x%02x",$cR,$cG,$cB);
### open my $OUT,">____.html";
### select $OUT;
open my $IN,"<index.txt";
#208.png #9f48b2 159 72 178
@A=<$IN>;
close $IN;
$th=10000;
for(@A){
  chomp;
  ($f,$he,$R,$G,$B)=split / /,$_;
#  $u=abs($cR-$R)**2+abs($cG-$G)**2+abs($cB-$B)**2;
  $sR=$cR-$R;
  $sG=$cG-$G;
  $sB=$cB-$B;
  $u=abs($sR)+abs($sG)+abs($sB);
  $pc=sprintf("%.1f",($u*100/(256*3)));
#  if ($pc<20){
    $text="<TR><TD class=c style='background:$c'><TD class='pic' style='background:url(pic/$f.png)'><TD
class=c style='background:$he'><TD><B>$f</B><TD>$he<TD>$R<TD>$G<TD>$B<TD>$u<TD>$pc%<TD>$sR<TD>$sG<TD>$sB\n";
    $H{$text}=$u;
#  }
}
$i=0;
print <<HTML;
<HTML>
<HEAD>
<STYLE>
BODY{font-family:monospace}
TABLE{border-collapse:collapse}
TD,TH{padding:0 9px;border:1px solid #999;}
TH{background:#ddd;}
TD{text-align:right;background:#eee;}
TD.pic{background:; width:70px;height:28px;padding:0}
TD.c{width:70px;height:28px;padding:0}
</STYLE>
</HEAD>
<BODY>
<TABLE>
<TR><TD class=c style='background:$c;text-align:center;' colspan=4>Искомый цвет<TD>$c<TD>$cR<TD>$cG<TD>$cB<TD colspan=5>
HTML
for(sort {$H{$a}<=>$H{$b}} keys %H){
  if($i++>15){last}
  print;
}
