Dear my friends...
I am trying to sending an e-mail with Perl::CGI.
But It does not work as I expect. This is the error message:
EHLO command failed: 220 We do not authorize the use of this system to
transport unsolicited,
at cgicgi-akun.cgi line 855
line 855 contains:
$smtp = Net::SMTP::TLS-
;;
print "";
print "";
print "";
$pjg=$ENV{"CONTENT_LENGTH"};
read(STDIN, $kueri, $pjg);
print "kueri: $kueri";
exit;
@arr_prm=split("&",$kueri);
foreach $myprm(@arr_prm){
($namavar,$nilaivar)=split("=",$myprm);
$assprm{$n
ere is still other "things" which will be diplayed empty by
"print $var".
Thank you very much in advance.
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
ery old key - March 2006; do keys expire if you don't use them
> for a long time?)
>
> --
> David Filmer (http://DavidFilmer.com)
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
:
ABQISzVWEo9_PkDjwjTkhPHJIxTovFWtVmuuMSRYt_dv3iXA1zQ3OxT9hxr3F7hqD-SZIzQb7p0QjzUobQ
at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3412
Please tell my, what is my mistake?
Thank you very much in advance.
On Wed, 17 Oct 2007 03:28:01 +0700
Patrik Hasibuan <[EMAIL PROTECTED]> wrote:
> Dear my friends...
>
Dear Tom,
Thank you for your help. You solved my problem.
And I apologize because I understood Jenda's advice very slowly.
Again thanks.
===
On Fri, 12 Oct 2007 19:40:16 -0700
"Tom Phoenix" <[EMAIL PROTECTED]> wrote:
> On 10/12/07, Patrik Hasibuan <[EMAIL PROTECTED]
Hi Jenda,
You solved my problem.
Thank you very...very... much.
===
On Sat, 13 Oct 2007 02:10:42 +0200
"Jenda Krynicky" <[EMAIL PROTECTED]> wrote:
> From: Patrik Hasibuan <[EMAIL PROTECTED]>
> > I want to parse HTML files those I retrieve
I have that require Net-Google work again.
===
Please tell me if somebody has ever found the same problem.
Please tell me my mistake.
Thank you very much.
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Dear Jenda and friends...
I modified the code but the result is still empty.
Please tell me my mistake.
===
Here is my current code:
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTML::Parser;
my @result='';
my @judul='';
my @bodi='';
my $tekshslparse='';
my $title='';
my $body='';
my
y $p=new HTML::Parser;
$tekshslparse=$p->parse($retriveresult);
print @result;
sub text{
my($self, $text)[EMAIL PROTECTED];
print "self: $self \n\n";
print "text: $text \n\n";
}
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Dear my friends...
Which pm can I use for parsing HTML tags?
Thanks in advance.
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
rt order. -- Larry Wall
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
"$nohal");
print "$_";
print "";
print "";
$i=0;
while (<>){
@result[$i]=substr($_, index($_,""), index($_, ""));
print "";
print "@result[$i]";
print "";
$i++;
}
print @result;
You've solved my problem, Jeff.
Thank youThank you very much.
I really appreciate your help.
On Mon, 8 Oct 2007 10:20:00 +0800
"Jeff Pang" <[EMAIL PROTECTED]> wrote:
> 2007/10/8, Patrik Hasibuan <[EMAIL PROTECTED]>:
>
> > But if I retrieve a
because the connection to the host is broken.";
}
return $konten;
}
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
You've solved my problem, Chas.
Thank you very...very...much. I really appreciate your help.
On Mon, 17 Sep 2007 16:39:08 -0400
"Chas Owens" <[EMAIL PROTECTED]> wrote:
> On 9/17/07, Patrik Hasibuan <[EMAIL PROTECTED]> wrote:
> snip
> > I want to get a cont
Dear Jenda,
you thank you very much for your help. My problem has been solved because of
your help. Also thank you for the further additional information about socket
and lwp:;agent.
On Tue, 18 Sep 2007 00:41:45 +0200
"Jenda Krynicky" <[EMAIL PROTECTED]> wrote:
> Fr
l' in this case.
I think pm of 'Socket' can not do that, it is for building a communication
among server and client those two belong to us but not the server belong to
"somebody else"-'es a webserver.
Thank you very much in advance.
--
Patrik Hasibuan <[EMAIL P
you have in it.\nPlease be patient.\n";
$strsql="select nomor,location,informasi,nomormedia from tblarsip where
(location like '%$kk%') or (informasi like '%$kk%')";
print "$strsql\n";
#
$dbh=DBI->connect("DBI:mysql:arsipan;localhost:3306
$sth=$kueri::dbh->prepare($strsql);
$sth->execute;
$sth->finish;
}
}
} else{
print "gagal membuka direktori yang diinginkan: $rootdir\n";
exit 1;
}
}
1;
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
wclark/perl-5.8.8/pod/perlboot.pod
>
> Hope this helps!
>
> --Tom Phoenix
> Stonehenge Perl Training
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
>
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
ll if I still can
not solve the problem.
Thank you very much again, Tom.
===
On Sun, 24 Jun 2007 11:33:52 -0700
"Tom Phoenix" <[EMAIL PROTECTED]> wrote:
> On 6/24/07, Patrik Hasibuan <[EMAIL PROTECTED]> wrote:
>
> > I want to write once a script as a part of b
dir', '')");
$sth->execute;
$sth->finish;
}
} else{
print "gagal membuka direktori yang diinginkan: $rootdir\n";
exit 1;
}
}
1;
The error message is:
"
Can't call method "prepare" on an undefined value at
23 matches
Mail list logo
