version 1.5, 2001/09/11 21:48:53
|
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'; |