[28946] in Perl-Users-Digest
Perl-Users Digest, Issue: 190 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 3 11:10:00 2007
Date: Sat, 3 Mar 2007 08:09:04 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 3 Mar 2007 Volume: 11 Number: 190
Today's topics:
Re: Cool Free Offers <g_m@remove-comcast.net>
Re: Cool Free Offers <uri@stemsystems.com>
Re: display datestamp in HTML anno4000@radom.zrz.tu-berlin.de
Re: Error In DBI - Cannot execute multiple statements <hjp-usenet2@hjp.at>
Re: guestbook.cgi :p anno4000@radom.zrz.tu-berlin.de
Re: how to find the "yesterday" logfile name? anno4000@radom.zrz.tu-berlin.de
Re: how to find the "yesterday" logfile name? <mritty@gmail.com>
new CPAN modules on Sat Mar 3 2007 (Randal Schwartz)
Re: pattern serach over many files anno4000@radom.zrz.tu-berlin.de
Re: Q on regex of LWP::Simple data anno4000@radom.zrz.tu-berlin.de
Question about Crypt::SSLeay (Jamie)
Re: Rindex used to find end of a string anno4000@radom.zrz.tu-berlin.de
Re: SOAP::Lite serializer or version problem <kari.k.saarela@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 3 Mar 2007 02:48:02 -0500
From: "~greg" <g_m@remove-comcast.net>
Subject: Re: Cool Free Offers
Message-Id: <BfqdnVwBaZ29tXTYnZ2dnUVZ_vyunZ2d@comcast.com>
"Uri Guttman" > wrote ...
>
> and your perl question is?
>
> <sound of massive plonkings>
>
> uri
I hadn't thought of you newbie before, Uri.
"Do You Believe In Magic?"
(- too young to remember the Lovin Spoonfuls?)
... "magic in a young girl's heart" ...
So!
You are going to stop spam. With a single cliche.
Which you can do, because your feelings about it
are very strong.
But here's the thing Uri;
I wouldn't have had to notice that spam at all,
except that you responded to it.
I just enjoying a perl-cast interview with you.
( And I can't help you with it, of course,
but I am interested in 'Stem', ---if it's easier, or clearer,
than POE.)
And that's why I am just too disappointed in you
not to say so.
Plonking spam. Yep.
This'll work.
------------------------------
Date: Sat, 03 Mar 2007 09:47:50 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Cool Free Offers
Message-Id: <x7d53qpend.fsf@mail.sysarch.com>
>>>>> "G" == ~greg <g_m@remove-comcast.net> writes:
G> "Uri Guttman" > wrote ...
>>
>> and your perl question is?
>>
>> <sound of massive plonkings>
>>
>> uri
G> So!
G> You are going to stop spam. With a single cliche.
G> Which you can do, because your feelings about it
G> are very strong.
G> ( And I can't help you with it, of course,
G> but I am interested in 'Stem', ---if it's easier, or clearer,
G> than POE.)
given your lack of understanding my response, i wonder if you can handle
stem.
G> Plonking spam. Yep.
G> This'll work.
it is called sarcasm. it was not intended for the spammer. notice how
only you responded. i didn't expect any responses.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 3 Mar 2007 13:04:24 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: display datestamp in HTML
Message-Id: <54ta2oF222q16U1@mid.dfncis.de>
Phil M <jimmyc@trexagi.net> wrote in comp.lang.perl.misc:
> I found a small perl script which claims to do the trick and it seems
> that I can't get the code right:
Then show your code. We can't help you with what we don't get to see.
> Here's my web page: (note that the date doesn't appear)
> http://www.greekradio.net/psa.html
How about saying *where* the date is supposed to appear?
> This is the script: (stored in cgi/lastmodified.pl)
>
> #!/usr/bin/perl
>
> # Script name:
> # @1 Last Modified Date and Time
>
> # Purpose:
> # This Perl script checks the "Last Modified" date and time
> # of a file.
>
> # Uses:
> # Call the display via SSI using the tag below:
> # <!--#include virtual="yourfolder1/yourfolder2/lastmodified.cgi" -->
>
> # License Notice:
> # Copyright 2004 UPDI Network Enterprise, www.upoint.info/cgi
> # You are free to use and distribute this script as long as
> # you keep this license notice intact.
>
> ############################################################
> # FULL PATH (not URL) to the file:
> ############################################################
> $filename = "/hrnet/u/chrb/www/ekm_psa/document.pdf";
>
> ############################################################
> # Turn on debug mode so that you can see the formats
> ############################################################
> $debug = "0"; # 1 = ON 0 = OFF
> # Set to "0" after testing
> ############################################################
> # DO NOT EDIT BELOW THIS LINE
> ############################################################
>
> use POSIX 'strftime';
> my $time = (stat $filename)[9];
> print "Content-type: text/html\n\n";
>
> print strftime '%a %d.%b.%Y @ %I:%M %p', localtime $time;
>
> if ($debug eq 1){
> print "<p>";
> print "a - ";
> print strftime '%a', localtime $time;
> print "<BR>";
> print "A - ";
> print strftime '%A', localtime $time;
> print "<BR>";
> print "b - ";
> print strftime '%b', localtime $time;
> print "<BR>";
> print "B - ";
> print strftime '%B', localtime $time;
> print "<BR>";
> print "c - ";
> print strftime '%c', localtime $time;
> print "<BR>";
> print "d - ";
> print strftime '%d', localtime $time;
> print "<BR>";
> print "H - ";
> print strftime '%H', localtime $time;
> print "<BR>";
> print "I - ";
> print strftime '%I', localtime $time;
> print "<BR>";
> print "j - ";
> print strftime '%j', localtime $time;
> print "<BR>";
> print "m - ";
> print strftime '%m', localtime $time;
> print "<BR>";
> print "M - ";
> print strftime '%M', localtime $time;
> print "<BR>";
> print "p - ";
> print strftime '%p', localtime $time;
> print "<BR>";
> print "s - ";
> print strftime '%s', localtime $time;
> print "<BR>";
> print "U - ";
> print strftime '%U', localtime $time;
> print "<BR>";
> print "w - ";
> print strftime '%w', localtime $time;
> print "<BR>";
> print "W - ";
> print strftime '%W', localtime $time;
> print "<BR>";
> print "x - ";
> print strftime '%x', localtime $time;
> print "<BR>";
> print "X - ";
> print strftime '%X', localtime $time;
> print "<BR>";
> print "y - ";
> print strftime '%y', localtime $time;
> print "<BR>";
> print "Y - ";
> print strftime '%Y', localtime $time;
> print "<BR>";
> print "Z - ";
> print strftime '%Z', localtime $time;
> }
Which garbage dump did you search to find this "script"? The author
doesn't have the slightest idea about programming, let alone Perl.
Programming is, among other things, about letting the computer do
the work.
Stripped of its pompous commentary and its pathetically repetitious
code, replace the whole thing by this:
#!/usr/bin/perl
use strict; use warnings;
use POSIX 'strftime';
my $filename = "/hrnet/u/chrb/www/ekm_psa/document.pdf";
my $debug = 1;
my $time = (stat $filename)[9] or die "Can't stat '$filename': $!";
print "Content-type: text/html\n\n";
print strftime '%a %d.%b.%Y @ %I:%M %p', localtime $time;
if ( $debug ) {
my $fmt = '<p>' . join '<BR>', map "$_ - %$_",
qw( a A b B c d H I j m p s U w W x X y Y Z);
print strftime $fmt, localtime $time;
}
__END__
> Thanks for any suggestions on what I might be doing wrong.
You're not showing what you're doing. How can we say what you're doing
wrong?
Anno
------------------------------
Date: Sat, 3 Mar 2007 11:53:10 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Error In DBI - Cannot execute multiple statements
Message-Id: <slrneuiksm.a1e.hjp-usenet2@yoyo.hjp.at>
On 2007-03-03 02:54, Paul Lalli <mritty@gmail.com> wrote:
> On Mar 2, 8:29 pm, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
>> On 2007-03-01 12:09, pankaj_wolfhun...@yahoo.co.in
>> > $dbh->do(q{
>> > spool test.sql
>> > select sysdate from dual
>> > spool off
>> > });
>> [...]
>> > What is wrong with the query?
>>
>> "spool" is not SQL command.
>
> True, but completely irrelevant. DBI doesn't care if the command
> passed to do() is valid as per the SQL standard. As long as the
> underlying RDMS understands it, it's fine.
But that's exactly the point: The RDBMS doesn't understand it, that's
why he got the error message.
Spool is an SQL*Plus command, *not* an (Oracle) SQL command.
hp
--
_ | Peter J. Holzer | Es ist ganz einfach ihn zu verstehen, wenn
|_|_) | Sysadmin WSR | man nur alle wichtigen Worte im Satz durch
| | | hjp@hjp.at | andere ersetzt.
__/ | http://www.hjp.at/ | -- Nils Ketelsen in danr
------------------------------
Date: 3 Mar 2007 13:55:57 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: guestbook.cgi :p
Message-Id: <54td3dF22d2keU1@mid.dfncis.de>
john.swilting <john.swilting@wanadoo.fr> wrote in comp.lang.perl.misc:
> john.swilting wrote:
>
> > #!/usr/bin/perl -Tw
> > use strict;
> > use CGI qw/:standard escapeHTML/;
> > use Fcntl qw/:flock/;
> > $|++;
> >
> > # Config
> > my $GUESTBOOK = '/var/www/cgi-bin/guestbook.txt';
> > my $TITLE = 'Guestbook'; # Title of guestbook
> > my $MAX_MSGS = 5; # Maximum number of messages displayed
> > my $MAX_NAME = 50; # Maximum length of name field
> > my $MAX_EMAIL = 50; # Maximum length of email field
> > my $MAX_COMMENTS = 300; # Maximum length of comments field
> > # End Config
[snip more somewhat dated (5.6.1) but reasonably well-written Perl]
> I post. it is my code. you can say to me what you think that will make me
> progress.
John, don't lie! You know neither enough Perl nor English to be the
author of that code.
Anno
------------------------------
Date: 3 Mar 2007 13:11:15 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: how to find the "yesterday" logfile name?
Message-Id: <54tafjF222q16U2@mid.dfncis.de>
Paul Lalli <mritty@gmail.com> wrote in comp.lang.perl.misc:
> On Mar 2, 4:04 am, "robertchen...@gmail.com" <robertchen...@gmail.com>
> wrote:
> > see if my directory has many logfiles like this:
> >
> > log022607.log
> > log022707.log
> > log022807.log
> > log030107.log
> >
> > today is 030207(03/02/07), I want to find the "yesterday" log, how
> > could I do in perl?
> > When time is 04/01/07, to get the "yesterday' log, which is
> > log033107.log maybe need some special handle, also when process for
> > year end...?
>
> Either use one of the bazillion Date parsing/modifying modules
> available on CPAN (for example, Date::Calc), or just calculate the
> timestamp yourself, subtract 24*60*60, and get the new date:
Usual objection: In places with DST there are two days per year
whose duration is different from 24*60*60 seconds. Better stick
to one of the time modules.
Anno
------------------------------
Date: 3 Mar 2007 06:44:35 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: how to find the "yesterday" logfile name?
Message-Id: <1172933075.160106.155480@v33g2000cwv.googlegroups.com>
On Mar 3, 8:11 am, anno4...@radom.zrz.tu-berlin.de wrote:
> Paul Lalli <mri...@gmail.com> wrote in comp.lang.perl.misc:
> > On Mar 2, 4:04 am, "robertchen...@gmail.com"
> > > today is 030207(03/02/07), I want to find the "yesterday" log,
> > > how could I do in perl?
> > Either use one of the bazillion Date parsing/modifying modules
> > available on CPAN (for example, Date::Calc), or just calculate the
> > timestamp yourself, subtract 24*60*60, and get the new date:
>
> Usual objection: In places with DST there are two days per year
> whose duration is different from 24*60*60 seconds.
Yes, which is why I set the dates to noon. If he's only subtracting
one date, there's no issue. If he were doing it in some sort of loop
where the hour offset would compound, then obviously it would be a
problem.
> Better stick to one of the time modules.
<shrug> I consider that overkill for this particular situation.
Paul Lalli
------------------------------
Date: Sat, 3 Mar 2007 05:42:09 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Mar 3 2007
Message-Id: <JEBBu9.1ooM@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
AppConfig-Exporter-1.02
http://search.cpan.org/~modulo/AppConfig-Exporter-1.02/
Allow modules to import AppConfig sections from a shared configuration.
----
Astro-SIMBAD-Client-0.005
http://search.cpan.org/~wyant/Astro-SIMBAD-Client-0.005/
Fetch astronomical data from SIMBAD 4.
----
Astro-satpass-0.013
http://search.cpan.org/~wyant/Astro-satpass-0.013/
----
Audio-MPD-0.13.0
http://search.cpan.org/~jquelin/Audio-MPD-0.13.0/
Class for talking to MPD (Music Player Daemon) servers
----
Audio-MPD-0.13.1
http://search.cpan.org/~jquelin/Audio-MPD-0.13.1/
Class for talking to MPD (Music Player Daemon) servers
----
CGI-Ex-2.08
http://search.cpan.org/~rhandom/CGI-Ex-2.08/
CGI utility suite - makes powerful application writing fun and easy
----
CGI-FormBuilder-3.0501
http://search.cpan.org/~nwiger/CGI-FormBuilder-3.0501/
Easily generate and process stateful forms
----
Calendar-List-0.18
http://search.cpan.org/~barbie/Calendar-List-0.18/
A module for creating date lists
----
Class-Accessor-Named-0.008
http://search.cpan.org/~jesse/Class-Accessor-Named-0.008/
Better profiling output for Class::Accessor
----
DBD-mysql-4.003
http://search.cpan.org/~capttofu/DBD-mysql-4.003/
MySQL driver for the Perl5 Database Interface (DBI)
----
DBIx-Class-QueryLog-0.01
http://search.cpan.org/~gphat/DBIx-Class-QueryLog-0.01/
Log queries for later analysis.
----
Data-Phrasebook-0.29
http://search.cpan.org/~barbie/Data-Phrasebook-0.29/
Abstract your queries!
----
Devel-Size-0.66
http://search.cpan.org/~tels/Devel-Size-0.66/
Perl extension for finding the memory usage of Perl variables
----
Egg-Plugin-Crypt-CBC-0.03
http://search.cpan.org/~lushe/Egg-Plugin-Crypt-CBC-0.03/
The encryption is supported.
----
Excel-Template-Plus-0.01
http://search.cpan.org/~stevan/Excel-Template-Plus-0.01/
An extension to the Excel::Template module
----
File-FTS-0.04
http://search.cpan.org/~shlomif/File-FTS-0.04/
Perl extension for File Traversing System
----
Finance-Currency-Convert-XE-0.12
http://search.cpan.org/~barbie/Finance-Currency-Convert-XE-0.12/
Currency conversion module.
----
Games-Trackword-1.05
http://search.cpan.org/~barbie/Games-Trackword-1.05/
Find words on a Trackword grid.
----
Google-Data-JSON-v0.0.3
http://search.cpan.org/~takeru/Google-Data-JSON-v0.0.3/
XML-JSON converter based on Google Data APIs
----
HTML-Tested-0.23
http://search.cpan.org/~bosu/HTML-Tested-0.23/
Provides HTML widgets with the built-in means of testing.
----
Hash-AsObject-0.07
http://search.cpan.org/~nkuitse/Hash-AsObject-0.07/
hashes with accessors/mutators
----
IMDB-Film-0.25
http://search.cpan.org/~stepanov/IMDB-Film-0.25/
OO Perl interface to the movies database IMDB.
----
InSilicoSpectro-1.0.11
http://search.cpan.org/~alexmass/InSilicoSpectro-1.0.11/
Open source Perl library for proteomics
----
KML-PolyMap-1.31
http://search.cpan.org/~ihaque/KML-PolyMap-1.31/
----
KML-PolyMap-1.32
http://search.cpan.org/~ihaque/KML-PolyMap-1.32/
----
Mail-File-0.08
http://search.cpan.org/~barbie/Mail-File-0.08/
mail module which writes to a flat file.
----
Makefile-GraphViz-0.11
http://search.cpan.org/~agent/Makefile-GraphViz-0.11/
Plot the Detailed Structure of Makefiles Using GraphViz
----
POE-Component-Server-DNS-0.06
http://search.cpan.org/~bingos/POE-Component-Server-DNS-0.06/
non-blocking, concurrent DNS server component
----
Regexp-Log-Common-0.05
http://search.cpan.org/~barbie/Regexp-Log-Common-0.05/
A regular expression parser for the Common Log Format
----
SVN-Notify-Mirror-0.03601
http://search.cpan.org/~jpeacock/SVN-Notify-Mirror-0.03601/
Keep a mirrored working copy of a repository path
----
Statistics-SPC.v0.1
http://search.cpan.org/~emorisse/Statistics-SPC.v0.1/
Calculations for Stastical Process Control
----
Template-Provider-DBIC-0.01
http://search.cpan.org/~dcardwell/Template-Provider-DBIC-0.01/
Load templates using DBIx::Class.
----
WWW-Mechanize-1.22
http://search.cpan.org/~petdance/WWW-Mechanize-1.22/
Handy web browsing in a Perl object
----
WebService-CIA-1.1
http://search.cpan.org/~imalpass/WebService-CIA-1.1/
information from the CIA World Factbook.
----
mediawiki-pod-0.01
http://search.cpan.org/~tels/mediawiki-pod-0.01/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 3 Mar 2007 15:42:13 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: pattern serach over many files
Message-Id: <54tjalF22aajqU2@mid.dfncis.de>
comp.llang.perl.moderated <ced@blv-sam-01.ca.boeing.com> wrote in comp.lang.perl.misc:
> On Feb 15, 4:39 am, pavan...@gmail.com wrote:
[...]
> Tie::File (comes with Perl distro now) will
> load a file into an array for you. Slower
> if big or many files but an easy upfront
> change to use Tad's solution.
Tie::File doesn't preload the file, if that's your concern, it uses tie
magic to make it look as if it did.
Anno
------------------------------
Date: 3 Mar 2007 13:21:51 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Q on regex of LWP::Simple data
Message-Id: <54tb3fF222q16U3@mid.dfncis.de>
Len Philpot <len@philpot.org> wrote in comp.lang.perl.misc:
> On Fri, 02 Mar 2007 17:39:51 +1100, Iain Chalmers wrote:
>
> > In article <epdxww5gfd0l.5psw3jcl6it4$.dlg@40tude.net>,
> > Len Philpot <len@philpot.org> wrote:
> At this point, I'm very low on the Perl learning cliff (oh, for the
> simplicity and clarity of C! :-),
As in chasing macros and typedefs through header files? As in
Duff's device? :)
Nah, C is a fine programming language. It is *smaller* than Perl,
in that Perl has more constructs and concepts to learn, but taken
individually, Perl's constructs and concepts are no more difficult
than C's.
Anno
------------------------------
Date: Sat, 03 Mar 2007 10:58:44 GMT
From: nospam@geniegate.com (Jamie)
Subject: Question about Crypt::SSLeay
Message-Id: <Lc117289908610820x8ca0360@pong.podro.com>
I'm using Crupt::SSLeay (the LWP interface)
Wondering how one might (easily) confirm the key on the other side
was from a known CA.
My prototype in question:
# MOZILLA.pem has both the key and the cert, but I could just as easily split them.
$ENV{HTTPS_CERT_FILE} = 'cert/MOZILLA.pem';
$ENV{HTTPS_KEY_FILE} = 'cert/MOZILLA.pem';
$ENV{HTTPS_CA_FILE} = 'cert/cacert.crt';
my $res = $ua->get($url);
#
# Will this ALWAYS be set if the server key is signed by a CA from some other
# source than I have in cacert.crt ?
#
my $wrn = $res->header('client-ssl-warning'); # Can I rely on this being set if it's
die "SSL: $wrn" if($wrn); # not signed proper?
# I noticed I can get the issuer this way:
my $ca_issue = $res->header('client-ssl-cert-issuer');
# I get a bunch of "/O=Whatever/F=Another/Etc=Whatnot/CN=remote.cn.com"
What I want to be absolutely certain of is that the server cert. is indeed signed
by the CA in the file: cert/cacert.crt
I could probably get a the ID from $ca_issue, but.. then I'd have to maintain two
sets of data, I'd really rather just use cacert.crt
What's the secure, right way to verify the remote host is who it says it is, assuming
the CA in cacert.crt is known?
Thanks!
Jamie
--
http://www.geniegate.com Custom web programming
Perl * Java * UNIX User Management Solutions
------------------------------
Date: 3 Mar 2007 15:36:18 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Rindex used to find end of a string
Message-Id: <54tiviF22aajqU1@mid.dfncis.de>
Ben Morrow <ben@morrow.me.uk> wrote in comp.lang.perl.misc:
>
> Quoth "Paul.Lee.1971" <Paul.Lee.1971@googlemail.com>:
> > Hi all,
> > I have a sequence of strings, for instance
> > "Hello, World "
> > "My First Perl Test "
> > "Exit(0) "
> >
> > - as you can see, the strings are all different lengths. Is there a
> > way to use rindex to find out the last non-whitespace character in the
> > string?
>
> Not easily. For a task like this you want a regex. The index of the last
> non-whitespace character in a string $str can be found with
>
> $str =~ /(\s*)$/ && length($str) - length($1) - 1;
...or
$str =~ /\s*$/ && $-[ 0] - 1;
Anno
------------------------------
Date: 3 Mar 2007 05:59:09 -0800
From: "Kari" <kari.k.saarela@gmail.com>
Subject: Re: SOAP::Lite serializer or version problem
Message-Id: <1172930349.635163.170120@n33g2000cwc.googlegroups.com>
On 2 maalis, 12:01, "Kari" <kari.k.saar...@gmail.com> wrote:
> Hi,
>
> I'm just starting with Perl and SOAP::Lite package so please be
> patient. The problem that I'm facing is that I have a quite simple
> webservice that I want to call. I managed to do so reading thry
> examples and docs. Then I updated my SOAP:Lite package to most recent
> version (0.69 I guess) from CPAN. Now the same script won't work with
> the webservice. With a little debuggin' I found that the SOAP call to
> the webservice is totally different now. And I think I need set
> something to serializer to get "old format" back. If somebody please
> would give some pointers and maybe and example it would be greatly
> appreciated.
>
> I'll paste here the input data +trace option gave me.
>
> So I this is the working call that gave me results:
>
> <?xml version="1.0" encoding="UTF-8"?>
> <SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-
> instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
> xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
> xmlns:xsd="http://www.w3.org/1999/XMLSchema" SOAP-
> ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
> <SOAP-ENV:Body>
> <namesp1:execute xmlns:namesp1="urn:XXX">
> <CustDataByIdInput_1>
> <password xsi:type="xsd:string">xxxxxx</password>
> <systemId xsi:type="xsd:string">xyx</systemId>
> <username xsi:type="xsd:string">DRM</username>
> <customerId xsi:type="xsd:int">98747</customerId>
> <maxAmount xsi:type="xsd:int">1</maxAmount>
> <queryId xsi:type="xsd:string"/>
> </CustDataByIdInput_1>
> </namesp1:execute>
> </SOAP-ENV:Body>
> </SOAP-ENV:Envelope>
>
> After update the same script produces this kind of call:
>
> <?xml version="1.0" encoding="UTF-8"?>
> <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
> xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
> xmlns:xsd="http://www.w3.org/2001/XMLSchema"
> soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
> xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
> <soap:Body>
> <execute xmlns="urn:XXX">
> <CustDataByIdInput_1>
> <password xsi:type="xsd:string">xxxxxx</password>
> <systemId xsi:type="xsd:string">xyx</systemId>
> <username xsi:type="xsd:string">DRM</username>
> <customerId xsi:type="xsd:int">98747</customerId>
> <maxAmount xsi:type="xsd:int">1</maxAmount>
> <queryIdxsi:type="xsd:string" />
> </CustDataByIdInput_1>
> </execute>
> </soap:Body>
> </soap:Envelope>
>
> and finally here's part of the script
>
> my $service = SOAP::Lite
> -> uri('urn:XXX')
> #-> encoding('iso-8859-1')
> -> proxy('http://xxx.xxx.xxx.xxx:xxxx/custdatabyid-jaxrpc/cust-
> data-by-id')
>
> my $result= $service -> execute (SOAP::Data->name("CustDataByIdInput_1" =>
>
> \SOAP::Data->value(
> SOAP::Data->name("password" => 'xxxxxx'),
> SOAP::Data->name("systemId" => 'xyx'),
> SOAP::Data->name("username" => 'DRM'),
> SOAP::Data->name("customerId" => $cust),
> SOAP::Data->name("maxAmount" =>'1'),
> SOAP::Data->name("queryId" => ''))));
>
> brgds,
> Kari
Never mind, got it to work on my own. By replacing uri('urn:XXX') with
ns('urn:XXX')...
K
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 190
**************************************
