ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alex Druzenko                        2:5020/400     20 Jul 2000  00:51:09
 To : All
 Subject : Скрипт для работы с базой данных!
 -------------------------------------------------------------------------------- 
 

 Привет, Аll!
 
 При написании скрипта для работы с базой данных у меня возникла следующая
 проблема: мне нужно отправить сообщение по e-mail новому пользователю,
 зарегестрировавшемуся в базе данных, для этой цели я  использовал
 MIME::Lite. При тестировании я написал скрипт для отправки почты в отдельном
 файле - все работало. Когда я добавил этот код в главный скрипт, то
 происходит какая-то ошибка.
 
 Часть программы после строки   print "All O'key";  невыполняется, если же
 закомментировать строку msg->send, то все работает нормально. Hиже я привожу
 проблемный участок программы.
 Подскажите: в чем моя ошибка, и как сделать правильно.
  # создание связи с базой данных
 my $conn= Pg::connectdb('dbname=ukrmet');
  if (PGRES_CONNECTION_OK == $conn->status) {
   print "All O'key";
   open (IDD, "+<id.txt") || die "cannot open id.txt";
   flock(IDD, 2) || die "cannot lock id.txt: $_";
   my $idd = <IDD>;
   $idd += 1;
  #формирование строки-команды для базы данных
   my $cmd = "INSERT INTO firminfo VALUES($idd,' $surname', '$name',
 '$patronymic',
             '$job','$firmname', $region, '$rayon','
 $city','$postcode','$address',
      '$workphone','$homephone', '$fax', '$email', '$www','$other');";
   $result = $conn->exec($cmd);
   seek(IDD,0,0);
   print IDD $idd;
   close IDD;
 #создание сообщения
   my $msg = new MIME::Lite From     => 'root',
                            To       => 'root',
       Subject  => 'Test',
       Type     => 'Text',
       Data     => 'Thisi i only test';
 
  # отправка сообщения!!!
   $msg->send;
 
   }
   else {
   print "$conn->errorMessage";
   print PGRES_CONNECTION_OK;
   }
  open (END, "end.txt") || die "cannot open end.txt";
  while (<END>){
  print $_;
  }
  close(END);
  exit;
  }
 
 Заранее благодарен, Александр Друзенко.
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор