- to: NuINu (Perl-Soap) и всем кто разберается,
 NuINu, 16:44 , 28-Сен-07 (1)
- to: NuINu (Perl-Soap) и всем кто разберается, help, 16:48 , 28-Сен-07 (2)
вот как пробовал но что не так:my $text;
sub sms {
my $class = shift;
my $envelope = pop;
$text= SOAP::Data->name('text'=>$envelope->{'text'}); ###############################
$query="select name from table where name='$text' ";
$sth=$dbh->prepare($query)";
$sth->execute();
################################
if ($sth->rows)
{
$text= SOAP::Data->name('text'=>$envelope->{'text'})."есть такой";
}else{
$text= SOAP::Data->name('text'=>$envelope->{'text'})."нету";
}
return $text;
}
exit;
- to: NuINu (Perl-Soap) и всем кто разберается, NuINu, 16:53 , 28-Сен-07 (3)
- to: NuINu (Perl-Soap) и всем кто разберается, deep_admin, 00:03 , 29-Сен-07 (5)
- to: NuINu (Perl-Soap) и всем кто разберается, help, 09:17 , 01-Окт-07 (6)
cito-to ne tak , smotri:
use DBI;
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('ClassName')
-> handle;
package ClassName;
sub sms {
my $class = shift;
my $envelope = pop;
my $text= SOAP::Data->name('text'=>$envelope->{'text'});
my $server = '....';
my $db = 'database';
my $username = '....' ;
my $password = '.....' ;$query="select name from table where name='$text' ";
$sth=$dbh->prepare($query);
$row_affected= $sth->execute(); if ($row_affected=~m/\d/)
{
$text= SOAP::Data->name('text'=>$envelope->{'text'})."esti takoi";
}else{
$text= SOAP::Data->name('text'=>$envelope->{'text'})."netu takogo";
}
return $text;
}
exit; толи не вазврощает $text толи не доходит в $sth, то есть не выдает результата
|
Версия для распечатки
to: NuINu (Perl-Soap) и всем кто разберается, 
