Forum Webscript.Ru

Программирование => Perl => Тема начата: systemroot от 07 Апреля 2005, 11:52:22

Название: скрипт не отправляет почту MIME::lite
Отправлено: systemroot от 07 Апреля 2005, 11:52:22

есть скрипт который выводит форму предлагает ввести адрес и опиание и по нажатии на кнопку должен отправлять письмо но он повисает на отправке письма....

#!/usr/local/bin/perl
use Mysql;
use Time::Local;

$curtime = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($curtime);
$Day="0".($mday);
$Day=substr($Day, -2, 2);
$Month="0".(1+$mon);
$Month=substr($Month, -2, 2);
$Year=(1900+$year);

$SDate=$Year."-".$Month."-".$Day;

@MonthNames = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
 
 
  $dbh=Mysql->connect("localhost","tpp","tpp","nt[gjllth;rf");
  if (!defined($dbh))
    {
      exit 255;
    }

print "Content-type: text/html\\n\\n";
print < 
 

   

M1
;


$Params{CallID}="";
$Params{Destination}="";
$Params{DestinationID}="";
$Params{EmailID}="";

$Query=$ENV{QUERY_STRING};
  @pairs=split(/&/,$Query);
  foreach $Pair (@pairs)
   {
    if ($Pair =~ /(.+)=(.*)/)
     {
#      $Value = $dbh->quote($2);
      $Key = $1;
      $Value = $2;
      $Params{$Key} = $Value;
     }
   }



print "\\n";
print "\\n";
print "\\n";
print "\\n";
print "\\n";
print "

$Params{OperatorName}\\t"; print "$Params{Operator}

Отключить print " value=\\"$Params{Operator}\\">

\\n";    

   if($Params{EmailID} != "")
{
 $querystr = "Select Email From Contacts where Id=\\"$Params{EmailID}\\"";
 my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
 if (!defined($sth))
             {   exit 1; }
 %Email = $sth->fetchhash;
 require MIME::Lite;
 $msg = MIME::Lite->new(
 From =>\'tpp@company.utk.ru\',
 To =>$Email{Email},
 Subject =>\'Тех поддержка\',
 Type => \'multipart/related\');

 $msg->attach(
 Type =>\'text/plain; charset=KOI8-R\',
 Data =>\'Тип проблемы: \'.$Params{Problem}.\'\\n Описание проблемы:\'. $Params{Description}.\' \\n Дата:\'. $SDate
 );

 $msg->send(\'smtp\', \'212.220.44.254\', Timeout=>60);
  }
 
      if($Params{Email} ne "" )
   {
 require MIME::Lite;
 $msg = MIME::Lite->new(
 From =>\'tpp@company.utk.ru\',
 To =>$Params{Email},
 Subject =>\'Тех поддержка\',
 Type => \'multipart/related\');

 $msg->attach(
 Type =>\'text/plain; charset=KOI8-R\',
 Data =>\'Тип проблемы: \'.$Params{Problem}.\'\\n Описание проблемы:\'. $Params{Description}.\' \\n Дата:\'. $SDate
 );

 $msg->send(\'smtp\', \'212.220.44.254\', Timeout=>60);
            }
 
 print "

\\n";
      print "\\n";
      print "\\n";
      print "\\n";
      print "\\n";
      print "\\n";
      print "

\\n";       print "\\n";       print "\\n";       print "\\n";       print "Номер назначения из списка:";       $querystr="Select * from Contacts where type=\\"Phone\\" OR type=\\"all\\" ";       my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;       if (!defined($sth))         {   exit 255; }       while (%arr = $sth->fetchhash)         {  if ($Params{DestinationID}==$arr{Id}) {             print "$arr{Phone} $arr{DataText}";  }else {    print "$arr{Phone} $arr{DataText}";  }         }       print " \\n";       print "Номер назначения: \\n";       print " \\n";       print "

\\n";       print "E-Mail из списка: ";       $querystr="Select * from Contacts where type=\\"email\\" OR type=\\"all\\"";       my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;            while (%arr = $sth->fetchhash)         {  if ($Params{DestinationID}==$arr{Id}) {    print "$arr{Email} $arr{DataText}";    }else {    print "$arr{Email} $arr{DataText}";  } }       print " \\n";         print "E-Mail: ";       print "Категория звонка : ";           $querystr="Select * from Categories";           my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;           if (!defined($sth))            {   exit 255; }           while (%arr = $sth->fetchhash)            {              print "$arr{Category}";            }  print " ";  print "Тип проблемы :  \\n";  print " ";       print "Описание проблемы: ";       print "

\\n";
      print "

\\n";

 print <  
M2
;