register/prgsrc/register.cgi - diff

Return to register.cgi CVS log

Up to [Local Repository] / register / prgsrc

version 1.10, 2002/01/28 17:00:56	version 1.11, 2002/01/28 17:14:29
Line 41 use POSIX qw(locale_h);	Line 41 use POSIX qw(locale_h);

setlocale(LC_CTYPE,'russian');	setlocale(LC_CTYPE,'russian');
$ENV{'LANG'}='ru_RU.KOI8-R';	$ENV{'LANG'}='ru_RU.KOI8-R';
my ($SENDMAIL) = "/usr/sbin/sendmail";	my ($SENDMAIL) = "mail";
my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';	my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';
my $FROM = 'borisv@lk.net';	my $FROM = 'borisv@lk.net';

Line 767 sub AddClub {	Line 767 sub AddClub {
# Sending the letter with results	# Sending the letter with results
#####################################################################	#####################################################################
sub SendLetter {	sub SendLetter {
open(MAIL,"\| $SENDMAIL -t");	open(MAIL,"\| $SENDMAIL -s 'Registracionnaya kartochka kluba' $TO");
print MAIL <<END;	print MAIL <<END;
To: $TO
From: $FROM
Subject: Registracionnaya kartochka kluba
MIME-Version: 1.0	MIME-Version: 1.0
Content-type: text/plain; charset=koi8-r	Content-type: text/plain; charset=koi8-r