#!/usr/bin/perl
# reg.cgi - регистрация пользователя
use strict;
use CGI qw(:standard);
use IO::File;


my $name = "";
my $family = "";
my $org = "";
my $edu = "";
my $spec = "";
my $position = "";
my $addres = "";
my $telephon = "";
my $email = "";
my $tema ="";


print header('text/html; charset=KOI8-R');
print start_html(-title=>"Радиотелескопы и методы НСА РАН 2008 - регистрация", -leftmargin=>"0", -topmargin=>"0", -alink=>"#cc6600", -bgcolor=>"#999999", 
                 -link=>"#ff0033", -marginheight=>"0", -marginwidth=>"0", -text=>"#000000", -vlink=>"#ff9900");
print <<EOF;
<style>
body {font-family:arial; font-size: 12px; color:black}
td { font-family:arial; font-size:12px}
H3
{font-family:arial; font-size: 18px;
        MARGIN-TOP: 3px;
        MARGIN-BOTTOM: 3px
}

H4
{font-family:arial; font-size: 16px;
        MARGIN-TOP: 3px;
        MARGIN-BOTTOM: 3px
}
H5
{font-family:arial; font-size: 14px;
        MARGIN-TOP: 3px;
        MARGIN-BOTTOM: 3px
}
ul { font-family:arial; MARGIN-TOP: 3px; MARGIN-BOTTOM: 3px }
A
{
        color: #666666;
        font-weight:bold;
        TEXT-DECORATION: none
}
A:hover
{
        TEXT-DECORATION: underline
}
</style>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="900">
<tbody><tr>
    <td colspan="13" background="/hq/vam/img/conf/poster.jpg" height="153" width="900"><font face="Arial" size="5"><b>  РАДИОТЕЛЕСКОПЫ И МЕТОДЫ <br> НСА РАН 2008<br>.<br>.</b></font></td>
</tr>
</tbody></table>
<table align="center" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" height="29" width="900">
<tbody><tr>
<td background="/hq/vam/img/conf/top_menu_bk.jpg" height="29">
      <!-- Start top menu -->
<table border="0" cellpadding="0" cellspacing="0">
<tbody><tr>
<td>
    <div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/vam/conf_spbf/conf2008.html">1-е сообщение</a>
    </b>&nbsp;&nbsp;&nbsp;</div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
    <div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/vam/conf_spbf/conf2008_2.html">2-е сообщение</a>
    </b>&nbsp;&nbsp;&nbsp;</div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
    <div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/cgi-bin/vam/conf_spbf/reg_conf.cgi">Регистрация</a>
    </b>&nbsp;&nbsp;&nbsp;</div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
    <div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/vam/conf_spbf/orgcomitet.html">Оргкомитет</a>
    </b>&nbsp;&nbsp;&nbsp;</div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
    <div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/vam/conf_spbf/contacts.html">Контакты</a>
    </b>&nbsp;&nbsp;&nbsp;</div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
    <div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/vam/conf_spbf/out_user.htm">Участники</a>
    </b>&nbsp;&nbsp;&nbsp;</div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td><td>
<div align="center">&nbsp;&nbsp;&nbsp;<b><a href="/hq/vam/conf_spbf/doc.htm">Доклады,абстракты</a></b>&nbsp;&nbsp;&nbsp;</div>
          </td>

<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
</tr>
</tbody></table>
       <!-- End top menu -->
</td>
</tr>
</tbody></table>
 
<table align="center" bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" height="auto" width="900">
<tbody><tr> <td width="100%"><!-- Start your page content here -->
<center><h3>Регистрация окончена</h3> </center>			  
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tbody><tr><td align="justify"><font size="+1">
<center><form method=post>
	<tr><th colspan=2 bgcolor="A2A8F9" align="center">Регистрация</th></tr>
        <tr><th align=right>Имя, Отчество</th><td><input name="name" value="$name" size=20 maxlength=150> <FONT color="#FF0000">#</FONT></td></tr>
        <tr><th align=right>Фамилия</th><td><input name="family" value="$family" size=20 maxlength=150> <FONT color="#FF0000">#</FONT></td></tr>
        <tr><th align=right>Организация</th><td><input name="org" value="$org" size=15 maxlength=150> <FONT color="#FF0000">#</FONT></td></tr>
        <tr><th align=right>Должность</th><td><input name="position" value="$position" size=15 maxlength=150> <FONT color="#FF0000"></FONT></td></tr>
        <tr><th align=right>Степень</th><td><input name="spec" value="$spec" size=15 maxlength=150> <FONT color="#FF0000"></FONT></td></tr>
        <tr><th align=right>Почтовый адрес с индексом</th><td><input name="address" value="$addres" size=20 maxlength=200> <FONT color="#FF0000">#</FONT></td></tr>
        <tr><th align=right>Телефон с кодом города</th><td><input name="telephon" value="$telephon" size=20 maxlength=25><FONT color="#FF0000">#</FONT> </td></tr>
        <tr><th align=right>E-mail</th><td><input name="email" value="$email" size="20" maxlength=50> 
	<FONT color="#FF0000">#</FONT></td></tr>
	<tr><th align=right>Тема сообщения</th><td><input name="tema" value="$tema" size="20" maxlength=150><FONT color="#FF0000"></FONT></td></tr>
        <tr><th colspan=2 bgcolor="A2A8F9" align="center">Поля, обязательные для заполнения, обозначены значком <FONT color="#FF0000">#</FONT></th></tr>
        <tr><td colspan=2 align="center">
            <input type="reset" value="Стереть">
	    <input type="hidden" name="agreement" value="YES"></td></tr></form>
<tr><td colspan=2><hr></td></tr>
</td></tr></tbody>
</table>
	<!-- End your page content here -->
</td></tr></tbody>
</table>

<table align="center" border="0" cellpadding="0" cellspacing="0" width="900">
<tbody><tr>
    <td bgcolor="#cccccc"><img src="/hq/vam/img/conf/x.gif" height="1" width="900"></td>
</tr>
<tr>
    <td bgcolor="#ffffff"><img src="/hq/vam/img/conf/x.gif" height="1" width="900"></td>
</tr>
<tr>
<td align="center" background="/hq/vam/img/conf/bottom_menu_bk.jpg" height="20"><span style="font-size: 11px;">
<a href="/hq/vam/conf_spbf/conf2008.html">1-е сообщение</a> | <a href="/hq/vam/conf_spbf/conf2008_2.html">2-е сообщение</a>
    | <a href="/hq/cgi-bin/vam/conf_spbf/reg_conf.cgi">Регистрация</a> | <a href="/hq/vam/conf_spbf/orgcomitet.html">Оргкомитет</a> 
    | <a href="/hq/vam/conf_spbf/contacts.html">Контакты</a> | <a href="/hq/vam/conf_spbf/out_user.htm">Участники</a> | <a href="/hq/vam/conf_spbf/doc.htm">Доклады,абстракты</a> </span></td>
</tr>
<tr>
    <td bgcolor="#cc3131"><img src="/hq/vam/img/conf/x.gif" height="2" width="900"></td>
</tr>
</tbody></table>
EOF
print qq{ <div align="center"><span style="color: white; font-size: 10px;"> 2008 
	<a href="http://www.sao.ru/"><font color="white">САО РАН</font></a>
	<br>  Карачаево-Черкессия, п.Нижний Архыз </span></div>
	};

if (param("agreement") eq "YES"){
####### PARAMETERS ######################
$email = param("email");               ##
$telephon = param("telephon");         ##
$name = param("name");                 ##
$family = param("family");             ##
$org = param("org");                   ##
$spec = param("spec");                 ##
$position = param("position");         ##
$addres = param("address");            ##
$tema = param("tema");                 ##
#########################################

open (USER, ">>/hq/vam/conf_spbf/user.txt");
    print "\r";
    print "\n";
    print USER $name, "::", $family,"::" , $org,"::" , $position,"::" , $spec,"::" , $addres,"::" , $telephon,"::" , $email,"::" , $tema, "::\n";
    print "\n";
close(USER);
};
print end_html();