--- register/prgsrc/register.cgi	2001/09/11 21:48:53	1.5
+++ register/prgsrc/register.cgi	2001/09/11 22:27:12	1.6
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/11 21:48:53 $
+$Date: 2001/09/11 22:27:12 $
 
 =head1 REVISION
 
-$Revision: 1.5 $
+$Revision: 1.6 $
 
 =cut
 
@@ -34,17 +34,18 @@ $Revision: 1.5 $
 ###################################################
 
     use strict;
+use vars qw(%ENV);
 use CGI qw(:standard);
 use DBI;
 use POSIX qw(locale_h);
 
 setlocale(LC_CTYPE,'russian');
-
+$ENV{'LANG'}='ru_RU.KOI8-R';
 my ($SENDMAIL) = "/usr/sbin/sendmail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2001/09/11 21:48:53 $';
+my $date='$Date: 2001/09/11 22:27:12 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/;