OpenForum RSS: to: NuINu (Perl-Soap) � ��

to: NuINu (Perl-Soap) � �� (NuINu)

Mon, 01 Oct 2007 09:46:51 GMT

>� me.log ��

if(defined($sth)) {
print LOG "� sth �� , �� \n";
} else {
print LOG "� sth �� , �� \n";
}

print LOG "rows: $row_count\n";

�� . �� . �� .

to: NuINu (Perl-Soap) � �� (help)

Mon, 01 Oct 2007 08:06:38 GMT

� me.log ��

to: NuINu (Perl-Soap) � �� (NuINu)

Mon, 01 Oct 2007 07:49:03 GMT

>��
>�� , ��
>��
>��

��, �� , �� . ��
open(LOG, ">>", "/access_enable_write_apache/my.log");

if(defined($sth)) {
print LOG "� sth �� , �� \n";
}

print LOG "rows: $row_count\n";
close(LOG);

to: NuINu (Perl-Soap) � �� (help)

Mon, 01 Oct 2007 05:44:55 GMT

��
�� , ��
��
��

to: NuINu (Perl-Soap) � �� (NuINu)

Mon, 01 Oct 2007 05:25:49 GMT

>cito-to ne tak , smotri:
>�� $text �� $sth, ��
>��

� �� , �� (� �� ) ��, �� :)

�� .
�� , �� , � �� .

� �� , �� .

to: NuINu (Perl-Soap) � �� (help)

Mon, 01 Oct 2007 05:17:39 GMT

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) � �� (deep_admin)

Fri, 28 Sep 2007 20:03:03 GMT

>[�� ]
>################################
> if ($sth->rows)
> {
> $text= SOAP::Data->name('text'=>$envelope->{'text'})."�� ";
> }else{
> $text= SOAP::Data->name('text'=>$envelope->{'text'})."��";
> }
>return $text;
>}
>exit;

� �� :
$rows_affected = $sth->execute();

if ($rows_affected=~m/\d/)
{}
else
{}

to: NuINu (Perl-Soap) � �� (help)

Fri, 28 Sep 2007 12:59:27 GMT

��

to: NuINu (Perl-Soap) � �� (NuINu)

Fri, 28 Sep 2007 12:53:44 GMT

>�� :

� �� ? �� "�� "
�� 3 �� :)))

OpenForum RSS: to: NuINu (Perl-Soap) � ���� ��� �����������

to: NuINu (Perl-Soap) � ���� ��� ����������� (NuINu)

to: NuINu (Perl-Soap) � ���� ��� ����������� (help)

to: NuINu (Perl-Soap) � ���� ��� ����������� (NuINu)

to: NuINu (Perl-Soap) � ���� ��� ����������� (help)

to: NuINu (Perl-Soap) � ���� ��� ����������� (NuINu)

to: NuINu (Perl-Soap) � ���� ��� ����������� (help)

to: NuINu (Perl-Soap) � ���� ��� ����������� (deep_admin)

to: NuINu (Perl-Soap) � ���� ��� ����������� (help)

to: NuINu (Perl-Soap) � ���� ��� ����������� (NuINu)

OpenForum RSS: to: NuINu (Perl-Soap) � ��

to: NuINu (Perl-Soap) � �� (NuINu)

to: NuINu (Perl-Soap) � �� (help)

to: NuINu (Perl-Soap) � �� (NuINu)

to: NuINu (Perl-Soap) � �� (help)

to: NuINu (Perl-Soap) � �� (NuINu)

to: NuINu (Perl-Soap) � �� (help)

to: NuINu (Perl-Soap) � �� (deep_admin)

to: NuINu (Perl-Soap) � �� (help)

to: NuINu (Perl-Soap) � �� (NuINu)