[BACK]Return to register.cgi CVS log [TXT] [DIR] Up to [Local Repository] / register / prgsrc

Diff for /register/prgsrc/register.cgi between versions 1.4 and 1.6

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', Вы отправите Вашу регистрационную 
 карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока  карточку службе поддержки регистра. Пожалуйста, подождите несколько дней, пока
 Ваша информация будет обработана и попадёт в регистр");  Ваша информация будет обработана и попадёт в регистр");
Removed from v.1.4  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>