#!/usr/bin/perl
#!perl

require "parse.pl";

$data='../dat';

&ReadConfig;

#$max_records_display=5;
#$pass='';

$FORM{'pass'}='';
$FORM{'id'}=0;

&parse_form;

#   if ($FORM{'a'} eq 'view')   { &view }

   if ($FORM{'a'} eq 'add')    { &add }
elsif ($FORM{'a'} eq 'delete') { &delete }
elsif ($FORM{'a'} eq 'login')  { &login }
elsif ($FORM{'a'} eq 'admin')  { &admin }
elsif ($FORM{'a'} eq 'change')  { &change }
else {
  require "vote.pl";
  &view;
  #print "Error";
}

sub BeginHTML {
  print "Content-type: text/html\n\n";

  for (my $n=0;$n<$place;$n++) {print $html[$n];}
}

sub EndHTML {
  for (my $n=$place;$n<@html;$n++) {
    $html[$n] =~ s /<!-- vote -->/$out_htm/;
    print $html[$n];
  }
}

sub view {
  &BeginHTML;
  open GDB, "$data/heroes.dat";
  $cid=0;
  while (($s=<GDB>)&&($cid<$FORM{'id'}+$max_records_display)) {
    chomp $s;
    ($nick,$spec,$record,$like,$dislike,$pic)=split /\|/, $s;
    unless ($pic) {$pic='/images/heroes/nopic.jpg';}
    if ($cid>=$FORM{'id'}) {

      print <<EOF;
<table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr valign="top">
     <td width="200"><img src="$pic"></td>
     <td>
       <table width="98%" border="1" cellspacing="1" cellpadding="0" bordercolor="#6666CC">
         <tr>
           <td bgcolor="#6666CC"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FFFF00">Ник</font></b>
           </td>
         </tr>
         <tr>
           <td><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF">$nick</font></td>
         </tr>
         <tr>
           <td bgcolor="#6666CC"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FFFF00">Специализация
             </font></b></td>
         </tr>
         <tr>
           <td><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF">$spec</font></td>
         </tr>
         <tr>
           <td bgcolor="#6666CC"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FFFF00">Стаж</font></b>
           </td>
         </tr>
         <tr>
           <td><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF">$record</font></td>
         </tr>
         <tr>
           <td bgcolor="#6666CC"><b><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="2">Любит</font></b></td>
         </tr>
         <tr>
           <td><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF">$like</font></td>
         </tr>
         <tr>
           <td bgcolor="#6666CC"><b><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="2">Не любит</font></b></td>
         </tr>
         <tr>
           <td><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF">$dislike</font></td>
         </tr>
      </table>
    </td>
  </tr>
  <tr valign="top">
    <td colspan="2">
      <hr size="1">
    </td>
  </tr>
</table>

EOF

    }
    $cid++;
  }
  if ($time ne '') {print "<a href=\"/cgi-bin/hero.cgi?a=view&id=$cid\">Дальше</a>";}
  close GDB;
  &EndHTML;
}

sub add {
  if ($FORM{'pass'} ne $pass) {
     &BeginHTML;
     print "В доступе отказано.";
     &EndHTML;
     exit;
  }
  &get_file_lock("$data/heroes.lock");
  rename "$data/heroes.dat", "$data/heroes.dat.bak";
  open GDB, ">$data/heroes.dat";
  print GDB "$FORM{'nick'}\|$FORM{'spec'}\|$FORM{'record'}\|$FORM{'like'}\|$FORM{'dislike'}\|$FORM{'pic'}\n";
  open BAK, "$data/heroes.dat.bak";
  @bak=<BAK>;
  close BAK;
  print GDB @bak;
  close GDB;
  unlink("$data/heroes.dat.bak");
  &release_file_lock("$data/heroes.lock");

  print "Location: /cgi-bin/hero.cgi?a=view\n\n";
}

########################################################

sub change {
  if ($FORM{'pass'} ne $pass) {
     &BeginHTML;
     print "В доступе отказано.";
     &EndHTML;
  }
  else {
    $max_records_display=$FORM{'maxrec'};
    &get_file_lock("$data/hero.cfg.lock");
    open CFG, ">$data/hero.cfg";
    print CFG "$max_records_display\n";
    close CFG;
    &release_file_lock("$data/hero.cfg.lock");
    &view;
  }

}

########################################################

sub login {

  if ($FORM{'pass'} ne $pass) {
     &BeginHTML;
     print "Доступ запрещен.";
     &EndHTML;
  }
  else {
    &BeginHTML;
    print <<EOF;
<form name="CfgForm" method="post" action="/cgi-bin/hero.cgi?a=change">
  <table width="90%" border="0" valign="top">
    <tr valign="top">
      <td>Макс. кол-во сообщений на экране</td>
    </tr>
    <tr>
      <td>
        <input type="text" name="maxrec" size="40" value="$max_records_display">
      </td>
    </tr>
  </table>
  <p>
    <input type="hidden" name="pass" value="$pass">
    <input type="submit" name="btnCfg" value="Изменить">
  </p>
</form>
<form name="DelForm" method="post" action="/cgi-bin/hero.cgi?a=delete">
    <input type="hidden" name="pass" value="$pass">
    <input type="submit" name="btnDel" value="Удалить героев">
</form>

<form name="HeroForm" method="post" action="/cgi-bin/hero.cgi?a=add">
 <table width="98%" border="1" cellspacing="1" cellpadding="0" bordercolor="#6666CC">
  <tr>
    <td bgcolor="#6666CC"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FFFF00">Ник</font></b></td>
  </tr>
  <tr>
    <td><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF">
    <input type="text" name="nick" size="40">
    </font></td>
  </tr>
  <tr>
    <td bgcolor="#6666CC"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FFFF00">Специализация</font></b></td>
  </tr>
  <tr>
    <td>
      <input type="text" name="spec" size="40">
    </td>
  </tr>
  <tr>
    <td bgcolor="#6666CC"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#FFFF00">Стаж</font></b></td>
  </tr>
  <tr>
    <td>
      <input type="text" name="record" size="40">
    </td>
  </tr>
  <tr>
    <td bgcolor="#6666CC"><b><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="2">Любит</font></b></td>
  </tr>
  <tr>
    <td>
      <input type="text" name="like" size="40">
    </td>
  </tr>
  <tr>
    <td bgcolor="#6666CC"><b><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="2">Не любит</font></b></td>
  </tr>
  <tr>
    <td>
      <input type="text" name="dislike" size="40">
    </td>
  </tr>
  <tr>
    <td bgcolor="#6666CC"><b><font color="#FFFF00" face="Arial, Helvetica, sans-serif" size="2">Фото</font></b></td>
  </tr>
  <tr>
    <td>
      <input type="text" name="pic" size="40">
    </td>
  </tr>
 </table><input type="hidden" name="pass" value="$pass">
 <input type="submit" name="Submit" value="Посвятить в герои">
 <input type="reset" name="Submit2" value="Очистить">
</form>


EOF
    &EndHTML;
    ##&delete;
  }

}

sub admin {
  &BeginHTML;

  print <<EOF;
<form name="LogForm" method="post" action="/cgi-bin/hero.cgi?a=login">
  <table width="90%" border="0">
    <tr>
      <td>Пароль</td>
      <td>
        <input type="password" name="pass" size="40">
      </td>
    </tr>
  </table>
  <p>
    <input type="submit" name="btnLogin" value="Войти">
  </p>
</form>
EOF

  &EndHTML;
}

sub delete {
  &BeginHTML;

  if ($FORM{'pass'} ne $pass) { print "В доступе отказано."; return}

  #####=======================================================
  @ks=keys(%FORM); $sk=join (';',@ks);
  if ($sk=~/(;cb\d+)(;|$)/) {
    &get_file_lock("$data/heroes.lock");
    rename "$data/heroes.dat", "$data/heroes.dat.bak";
    open GDB, ">$data/heroes.dat";
    $cid=0;

    open BAK, "$data/heroes.dat.bak";
    while ($s=<BAK>) {
      if ($FORM{"cb$cid"} ne "1") {
        print GDB $s;
      }
      $cid++;
    }
    close BAK;
    close GDB;
    unlink("$data/heroes.dat.bak");
    &release_file_lock("$data/heroes.lock");
  }
  ####======================================================

  open GDB, "$data/heroes.dat";

  $cid=0;

  print <<EOF;
<form name="DelForm" method="post" action="/cgi-bin/hero.cgi?a=delete&id=$cid">
<input type="hidden" name="pass" value="$pass">
EOF

  while (($s=<GDB>)&&($cid<$FORM{'id'}+$max_records_display)) {
    chomp $s;
    if ($cid>=$FORM{'id'}) {
      ($nick, $spec, $record, $like, $dislike, $pic)=split /\|/, $s;
      print "<input type=\"checkbox\" name=\"cb$cid\" value=\"1\">";
      print "<font color=white size=2><i><b>Ник</b>: $nick</i><br>\n";
      print "<b>Специализация:</b> $spec<br>\n";
      print "<b>Стаж:</b> $record</font><br>\n";
      print "<hr size=\"1\">\n";
    }
    $cid++;
  }
  if ($time ne '') {print "<a href=\"/cgi-bin/hero.cgi?a=delete&id=$cid\">Дальше</a>";}
  close GDB;

#-------------------------------------------------------
  print <<EOF;
  <p>
  <input type="submit" name="btnDel" value="Удалить">
  </form>
  <a href="/cgi-bin/hero.cgi?a=view">Закончить режим администрирования</a>
EOF
#-------------------------------------------------------

  &EndHTML;
}


#############################################
##
##  Config
##
sub ReadConfig {
  open CFG,"$data/hero.cfg";
  $max_records_display=<CFG>;
  close CFG;
  open CFG,"$data/pass.cfg";
  $s=<CFG>;
  $s=<CFG>;
  ($pass,$nochop)=split /``/, $s;
  close CFG;
  chomp $max_records_display;
  open HTML, "../heroes.htm";
  @html=<HTML>;
  close HTML;
  $place=0;
  for ($n=0;$n<@html;$n++) {
    $place=$n+1 if ($html[$n]=~/<!--Heroes -->/);
  }
}