| Server IP : 74.208.236.79 / Your IP : 216.73.216.46 Web Server : Apache System : Linux infongp-us50 4.4.400-icpu-108 #2 SMP Wed Feb 11 10:12:42 UTC 2026 x86_64 User : u93192080 ( 6162215) PHP Version : 8.4.22 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /kunden/usr/share/doc/libsoap-lite-perl/examples/ |
Upload File : |
#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe
# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
use SOAP::Lite;
$r = SOAP::Lite
-> uri('urn:lemurlabs-Fortune')
-> proxy('http://www.lemurlabs.com/rpcrouter')
-> getFortuneByDictionary('work')
-> result || '';
print $r && ref($r = SOAP::Deserializer->deserialize($r)) && ($r = $r->valueof('//fortune') || '')
? "Your fortune cookie:\n$r" : "No fortune cookies for you today\n";