version 1.4, 2001/09/11 20:19:42
|
version 1.6, 2001/09/11 22:27:12
|
Line 34 $Revision$
|
Line 34 $Revision$
|
################################################### |
################################################### |
|
|
use strict; |
use strict; |
|
use vars qw(%ENV); |
use CGI qw(:standard); |
use CGI qw(:standard); |
use DBI; |
use DBI; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
|
|
setlocale(LC_CTYPE,'russian'); |
setlocale(LC_CTYPE,'russian'); |
|
$ENV{'LANG'}='ru_RU.KOI8-R'; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my $TO = 'borisv@lk.net, igra@gorlovka.net'; |
my $TO = 'borisv@lk.net, igra@gorlovka.net'; |
my $FROM = 'borisv@lk.net'; |
my $FROM = 'borisv@lk.net'; |
Line 665 sub AddClub {
|
Line 666 sub AddClub {
|
-columns=>60)])), |
-columns=>60)])), |
); |
); |
|
|
|
$result .= h3("Кто регистрировал"); |
|
$result .= table( |
|
Tr(td(["Имя", |
|
textfield(-name=>'RegistrarName', |
|
-size=>60)])), |
|
Tr(td(["Email", |
|
textfield(-name=>'RegistrarEmail', |
|
-size=>60)])), |
|
); |
|
|
$result .= p("Нажав кнопку 'Submit', Вы отправите Вашу регистрационную |
$result .= p("Нажав кнопку 'Submit', Вы отправите Вашу регистрационную |
карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока |
карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока |
Ваша информация будет обработана и попадёт в регистр"); |
Ваша информация будет обработана и попадёт в регистр"); |