#!/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"> <b><a href="/hq/vam/conf_spbf/conf2008.html">1-е сообщение</a>
</b> </div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
<div align="center"> <b><a href="/hq/vam/conf_spbf/conf2008_2.html">2-е сообщение</a>
</b> </div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
<div align="center"> <b><a href="/hq/cgi-bin/vam/conf_spbf/reg_conf.cgi">Регистрация</a>
</b> </div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
<div align="center"> <b><a href="/hq/vam/conf_spbf/orgcomitet.html">Оргкомитет</a>
</b> </div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
<div align="center"> <b><a href="/hq/vam/conf_spbf/contacts.html">Контакты</a>
</b> </div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td>
<td>
<div align="center"> <b><a href="/hq/vam/conf_spbf/out_user.htm">Участники</a>
</b> </div>
</td>
<td><img src="/hq/vam/img/conf/menu_line.gif"></td><td>
<div align="center"> <b><a href="/hq/vam/conf_spbf/doc.htm">Доклады,абстракты</a></b> </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();