juretta.com

Reddot RQL in Perl | June 13, 2005-->

June 13, 2005

use Win32::OLE; # Benutze OLE Extension, um COM-Objekte bekommen zu kÃ¶nnen

$ObjIO = new Win32::OLE("RedDot4ASP.RdPageData"); # neues COM-Objekt anfordern
$ObjIO->{XmlServerClassName} = "RedDot4Server.XmlServer";

$elt_guid = "xyz"; # Identnr. des Textfeldes in einer bestimmten Seite
$sessionkey = "qN4M8Va604S"; # Identnr. der Session

$xmlSendDoc = "
<IODATA format=\"1\" sessionkey=\"$sessionkey\">
<ELT reddotcacheguid=\"\" 
    action=\"save\" 
    guid=\"$elt_guid\" 
    pageid=\"\" 
    id=\"\" 
    index=\"\" 
    type=\"32\">
[Hier kommt der HTML-Quellcode, URIencoded]
<ELT>
</IODATA>";

$ServerAnswer = $ObjIO->ServerExecuteXml($xmlSendDoc, $sError);

print "RQL Statement: " . $xmlSendDoc . "\n\n";

print "Server Answer: " . $ServerAnswer;
print "\nError:" . $sError . "\n\n";

@23:15 | Comments: 0 | Tags: CMS (1), Perl (2), Reddot (2), RQL (1)