--- register/prgsrc/register.cgi	2002/01/28 17:00:56	1.10
+++ register/prgsrc/register.cgi	2002/01/28 17:14:29	1.11
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2002/01/28 17:00:56 $
+$Date: 2002/01/28 17:14:29 $
 
 =head1 REVISION
 
-$Revision: 1.10 $
+$Revision: 1.11 $
 
 =cut
 
@@ -41,11 +41,11 @@ use POSIX qw(locale_h);
 
 setlocale(LC_CTYPE,'russian');
 $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 $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2002/01/28 17:00:56 $';
+my $date='$Date: 2002/01/28 17:14:29 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -767,11 +767,8 @@ sub AddClub {
 # Sending the letter with results
 #####################################################################
 sub SendLetter {
-   open(MAIL,"| $SENDMAIL -t");
+   open(MAIL,"| $SENDMAIL -s 'Registracionnaya kartochka kluba' $TO");
     print MAIL <<END;
-To: $TO
-From: $FROM
-Subject: Registracionnaya kartochka kluba
 MIME-Version: 1.0
 Content-type: text/plain; charset=koi8-r