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

Diff for /register/prgsrc/register.cgi between versions 1.19 and 1.20

version 1.19, 2010/03/30 02:55:52 version 1.20, 2011/05/09 02:22:01
Line 38  use vars qw(%ENV); Line 38  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);
   use locale;
   
 setlocale(LC_CTYPE,'russian');  my $thislocale;
   if ($^O =~ /win/i) {
           $thislocale = "Russian_Russia.20866";
   } else {
           $thislocale = "ru_RU.KOI8-R";
   }
   POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
 $ENV{'LANG'}='ru_RU.KOI8-R';  $ENV{'LANG'}='ru_RU.KOI8-R';
 my ($SENDMAIL) = "mail";  my ($SENDMAIL) = "mail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';  my $TO = 'borisv@lk.net';
 my $FROM = 'borisv@lk.net';  my $FROM = 'borisv@lk.net';
   
 my $date='$Date$';  my $date='$Date$';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/;   $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
   
   
 my $dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")  my $dbh = DBI->connect("DBI:mysql:register", "piataev", "")
     or do {      or do {
         print h1("Временные проблемы") . "База данных временно не          print h1("Временные проблемы") . "База данных временно не
                         работает. Заходите попозже.";                          работает. Заходите попозже.";
Line 58  my $dbh = DBI->connect("DBI:mysql:chgk", Line 65  my $dbh = DBI->connect("DBI:mysql:chgk",
         die "Can't connect to DB chgk\n";          die "Can't connect to DB chgk\n";
     };      };
   
           $dbh->do("set names koi8r");
   
 print header(-charset=>'koi8-r');  print header(-charset=>'koi8-r');
   
   
Line 125  END Line 134  END
 <h1 align=center>  <h1 align=center>
 Журнал "Игра"<br>  Журнал "Игра"<br>
 и<br>  и<br>
 <a href="/znatoki/klub/znat.html"><img   <a href="http://internet.chgk.info"><img 
 ismap border=0 src= "../../images/logo.gif"   ismap border=0 src= "../../images/logo.gif" 
 alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>  alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>
 <br>ПРЕДСТАВЛЯЮТ<br>  <br>ПРЕДСТАВЛЯЮТ<br>
Line 739  sub AddClub { Line 748  sub AddClub {
                                       -size=> 60)])),                                        -size=> 60)])),
                      );                       );
   
     $result .= h3("Дополнительные вопросы");  #     $result .= h3("Дополнительные вопросы");
     $result .= table(  #     $result .= table(
   
                      Tr(td(["Что вам больше всего нравится в журнале 'Игра'?",  #                    Tr(td(["Что вам больше всего нравится в журнале 'Игра'?",
                             textarea(-name=>'IgraA',  #                           textarea(-name=>'IgraA',
                                      -rows=>5,  #                                    -rows=>5,
                                      -columns=>60)])),  #                                    -columns=>60)])),
                      Tr(td(["Что вам больше всего не нравится в журнале 'Игра'?",  #                    Tr(td(["Что вам больше всего не нравится в журнале 'Игра'?",
                             textarea(-name=>'IgraB',  #                           textarea(-name=>'IgraB',
                                      -rows=>5,  #                                    -rows=>5,
                                      -columns=>60)])),  #                                    -columns=>60)])),
                      Tr(td(["Что бы вы хотели увидеть в журнале 'Игра' - то   #                    Tr(td(["Что бы вы хотели увидеть в журнале 'Игра' - то 
 чего нет в настоящее время?",  # чего нет в настоящее время?",
                             textarea(-name=>'IgraC',  #                           textarea(-name=>'IgraC',
                                      -rows=>5,  #                                    -rows=>5,
                                      -columns=>60)])),  #                                    -columns=>60)])),
                      );  #                    );
   
     $result .= h3("Кто регистрировал");      $result .= h3("Кто регистрировал");
     $result .= table(      $result .= table(
Line 790  END Line 799  END
         if ($value =~ /^\s*$/) {          if ($value =~ /^\s*$/) {
             next;              next;
         }          }
         print MAIL "$key=$value\n\n";          $value =~ s/'/\\'/g;
           print MAIL "$key=\'$value\'\n\n";
     }      }
                           
   
Removed from v.1.19  
changed lines
  Added in v.1.20

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