--- register/prgsrc/register.cgi	2010/03/30 02:55:52	1.19
+++ register/prgsrc/register.cgi	2011/05/09 02:22:01	1.20
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2010/03/30 02:55:52 $
+$Date: 2011/05/09 02:22:01 $
 
 =head1 REVISION
 
-$Revision: 1.19 $
+$Revision: 1.20 $
 
 =cut
 
@@ -38,18 +38,25 @@ use vars qw(%ENV);
 use CGI qw(:standard);
 use DBI;
 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';
 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 $date='$Date: 2010/03/30 02:55:52 $';
+my $date='$Date: 2011/05/09 02:22:01 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
-my $dbh = DBI->connect("DBI:mysql:chgk", "piataev", "")
+my $dbh = DBI->connect("DBI:mysql:register", "piataev", "")
     or do {
 	print h1("Временные проблемы") . "База данных временно не
 			работает. Заходите попозже.";
@@ -58,6 +65,8 @@ my $dbh = DBI->connect("DBI:mysql:chgk",
 	die "Can't connect to DB chgk\n";
     };
 
+        $dbh->do("set names koi8r");
+
 print header(-charset=>'koi8-r');
 
 
@@ -125,7 +134,7 @@ END
 <h1 align=center>
 Журнал "Игра"<br>
 и<br>
-<a href="/znatoki/klub/znat.html"><img 
+<a href="http://internet.chgk.info"><img 
 ismap border=0 src= "../../images/logo.gif" 
 alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a>
 <br>ПРЕДСТАВЛЯЮТ<br>
@@ -739,23 +748,23 @@ sub AddClub {
 				      -size=> 60)])),
 		     );
 
-    $result .= h3("Дополнительные вопросы");
-    $result .= table(
+#     $result .= h3("Дополнительные вопросы");
+#     $result .= table(
 
-		     Tr(td(["Что вам больше всего нравится в журнале 'Игра'?",
-			    textarea(-name=>'IgraA',
-				     -rows=>5,
-				     -columns=>60)])),
-		     Tr(td(["Что вам больше всего не нравится в журнале 'Игра'?",
-			    textarea(-name=>'IgraB',
-				     -rows=>5,
-				     -columns=>60)])),
-		     Tr(td(["Что бы вы хотели увидеть в журнале 'Игра' - то 
-чего нет в настоящее время?",
-			    textarea(-name=>'IgraC',
-				     -rows=>5,
-				     -columns=>60)])),
-		     );
+# 		     Tr(td(["Что вам больше всего нравится в журнале 'Игра'?",
+# 			    textarea(-name=>'IgraA',
+# 				     -rows=>5,
+# 				     -columns=>60)])),
+# 		     Tr(td(["Что вам больше всего не нравится в журнале 'Игра'?",
+# 			    textarea(-name=>'IgraB',
+# 				     -rows=>5,
+# 				     -columns=>60)])),
+# 		     Tr(td(["Что бы вы хотели увидеть в журнале 'Игра' - то 
+# чего нет в настоящее время?",
+# 			    textarea(-name=>'IgraC',
+# 				     -rows=>5,
+# 				     -columns=>60)])),
+# 		     );
 
     $result .= h3("Кто регистрировал");
     $result .= table(
@@ -790,7 +799,8 @@ END
 	if ($value =~ /^\s*$/) {
 	    next;
 	}
-	print MAIL "$key=$value\n\n";
+	$value =~ s/'/\\'/g;
+	print MAIL "$key=\'$value\'\n\n";
     }