Inhaltsverzeichnis
\n1. Server\t1
\n1.1. backend.php\t1
\n1.2. backend_soap.php\t2
\n1.3. backend_base.php\t2
\n1.4. include\/config.inc\t5
\n1.5. include\/sql_magazin_stars.php\t5
\n1.6. include\/sql_magazin_soundcheck.php \t5
\n2. PHP-Client\t5
\n2.1. client.php\t5
\n2.2. include\/inc_client_http.php\t6
\n2.3. include\/inc_client_soap.php\t7
\n3. Perl-Client\t9
\n3.1. nightloop.pm\t9
\n3.2. client.pl\t11
\n4. Web-Interface\t12
\n4.1. syndic8.php\t12
\n4.2. syndic8.css\t15
\n4.3. template.php\t16
\n4.4. vorlage.perl.txt \t17
\n4.5. vorlage.php.txt\t18<\/p>\n
1. Server
\n1.1. backend.php
\n 0)
\n if (is_numeric($items))
\n $sql .= ” limit $items”;
\n else
\n createErrorDocument(“Item ist kein numerischer Wert!”);<\/p>\n
#—
\n# Wenn als Parameter “RDF” uebergeben wurde, dann RDF zurueckgeben,
\n# ansonsten XML.
\n#—
\n$format = strtoupper($_GET[“format”]);
\nif ($format != “RDF” )
\n print createXML($sql, $db);
\nelse
\n print createRDF($sql, $db);<\/p>\n
?><\/p>\n
1.2. backend_soap.php
\n register(“backend”);<\/p>\n
function backend($cat, $items=0, $protocol=”xml”)
\n{<\/p>\n
global $base_url;<\/p>\n
$sql_file = “include\/sql_$cat.php”;
\n if (! file_exists($sql_file) )
\n return “Error!”;
\n include ($sql_file);<\/p>\n
if (is_numeric($items))
\n $sql .= ” limit $items”;<\/p>\n
return createXML($sql, $db);<\/p>\n
}<\/p>\n
$s->service($HTTP_RAW_POST_DATA);<\/p>\n
?><\/p>\n
1.3. backend_base.php
\nread($sql);<\/p>\n
#– Daten in einem assosiativen Feld speichern
\n while ($row = $db->get())
\n $feld[] = array(“title” => $row[“title”],
\n “description” => $row[“description”],
\n “link” => $row[“href”]);<\/p>\n
$db->close(); #— Datenbank schliessen<\/p>\n
return $feld; #– das assosiative Feld zurueckgeben<\/p>\n
} \/\/teleschau()<\/p>\n
#———————————————————————————–
\nfunction createErrorDocument($reason)
\n{
\n print $reason;
\n die(); #— Programm beenden
\n}<\/p>\n
#———————————————————————————–
\n# Hier werden die Fehler abgefangen, wenn kein Parameter “cat” angegeben oder
\n# eine Kategorie angegeben wurde, zu der keine entsprechende “include\/sql_*”-
\n# Datei vorhanden ist.
\n#
\n# IN: $errno: Fehlernummer
\n# $errstr: Fehlerbeschreibung
\n# $errfile: Datei, in der der Fehler auftrat
\n# $errline: Zeile, in der der Fehler auftrat
\n# OUT: N\/A
\n#—–<\/p>\n
function catNotFoundError($errno, $errstr, $errfile, $errline)
\n{
\n switch ($errno)
\n {
\n case 2:
\n {
\n createErrorDocument(“Kategorie konnte nicht gefunden werden.”);
\n break;
\n } \/\/case
\n case 8:
\n {
\n createErrorDoument(“Es wurde keine Kategorie angegeben.”);
\n break;
\n } \/\/case
\n default:
\n print “
Fehler: [$errno] $errstr.
“;
\n } \/\/switch<\/p>\n
die(); #— Programmausfuehrung abbrechen<\/p>\n
} \/\/function()<\/p>\n
#———————————————————————————–
\n# Diese Funktion erstellt einen String, der die aus der Datenbank erhaltenen
\n# Daten als XML-Baum darstellt.
\n#
\n# IN: $sql: SQL-String
\n# $db: Datenbank, aus der gelesen werden soll
\n# OUT: $xml: String mit der XML-Datenstruktur
\n#—–
\nfunction createXML($sql, $db)
\n{<\/p>\n
#—
\n # Erzeugen eines neuen Text-Kind-Elements
\n #—
\n function new_child($doc, $parent, $name, $value)
\n {
\n $child = $parent->append_child($doc->create_element($name));
\n return $child = $child->append_child($doc->create_text_node($value));
\n } \/\/new_child()<\/p>\n
#—
\n # Das Root-ELement erzeugen, der Name ist immer “channel”.
\n #—
\n $doc = domxml_new_doc(“1.0”);
\n $root = $doc->create_element(“channel”);
\n $root = $doc->append_child($root);<\/p>\n
#—
\n # neues Titel-Element erzeugen
\n # “Wie heisst unser Channel?”
\n #—<\/p>\n
new_child($doc, $root, “title”, “nightloop.de”);
\n new_child($doc, $root, “link”, “http:\/\/www.nightloop.de\/”);
\n new_child($doc, $root, “description”, “die party community des nordwest-net”);
\n new_child($doc, $root, “language”, “de-DE”);
\n new_child($doc, $root, “creator”, “Lutz Schroeer (Lutz.Schroeer@team.nwn.de)”);
\n new_child($doc, $root, “rights”, “Copyright ” . date(“Y”) . ” nordwest.net”);
\n new_child($doc, $root, “image”, “http:\/\/www.nightloop.de\/pics\/logo.gif”);<\/p>\n
#—
\n # Die noetigen Daten aus der Datenbank holen und die Felder
\n # in den XML-Baum einfuegen.
\n #—
\n foreach (retrieve_db($sql, $db) as $item)
\n {
\n $new_item = $root->append_child($doc->create_element(“item”));
\n new_child($doc, $new_item, “title”, ($item[“title”]));
\n new_child($doc, $new_item, “link”, ($item[“link”]));
\n new_child($doc, $new_item, “description”, ($item[“description”]));
\n } \/\/foreach<\/p>\n
#—
\n# Eine mit UTF-8 kodierten XML-String an den Aufrufer zurueckgeben.
\n#—
\n# return utf8_encode($doc->dump_mem(1, “utf-8”));<\/p>\n
$doc = utf8_encode($doc->dump_mem(1, “utf-8”));
\nreturn $doc;<\/p>\n
} \/\/create_XML()<\/p>\n
#———————————————————————————————
\nfunction createRDF($sql, $db)
\n{<\/p>\n
global $title, $description, $link, $language, $creator, $rights, $image, $publisher;<\/p>\n
#—
\n # Erzeugen eines neuen Text-Kind-Elements
\n #—
\n function new_child($doc, $parent, $name, $value)
\n {
\n $child = $parent->append_child($doc->create_element($name));
\n return $child = $child->append_child($doc->create_text_node($value));
\n } \/\/new_child()<\/p>\n
#—
\n # Erzeugen eines neuen Text-Kind-Elements mit Attributen
\n #—
\n function new_attribute_child($doc, $parent, $name, $value, $key, $key_value)
\n {
\n $child = $parent->append_child($doc->create_element($name));
\n $child = $child->set_attribute($key, $key_value);
\n return $child = $child->append_child($doc->create_text_node($value));
\n } \/\/new_child()<\/p>\n
#—
\n # Das Root-ELement erzeugen, der Name ist immer “channel”.
\n #—
\n $doc = domxml_new_doc(“1.0”);
\n $root = $doc->create_element(“rdf:RDF”);
\n $root = $doc->append_child($root);
\n $root->set_attribute(“xmlns:rdf”, “http:\/\/www.w3.org\/1999\/02\/22-rdf-syntax-ns#”);
\n $root->set_attribute(“xmlns:dc”, “http:\/\/purl.org\/dc\/elements\/1.1\/”);<\/p>\n
$channel = $root->append_child($doc->create_element(“channel”));
\n $channel->set_attribute(“rdf:about”, “http:\/\/www.nightloop.de”);<\/p>\n
new_child($doc, $channel, “dc:title”, $title);
\n new_child($doc, $channel, “dc:link”, $link);
\n new_child($doc, $channel, “dc:description”, $description);
\n new_child($doc, $channel, “dc:language”, $language);
\n new_child($doc, $channel, “dc:date”, date(“Y-m-d\\TH:i:s+01:00”) );
\n new_child($doc, $channel, “dc:creator”, $creator);
\n new_child($doc, $channel, “dc:publisher”, $publisher);
\n new_child($doc, $channel, “dc:type”, “World Wide Web Home Page”);<\/p>\n
# Nun die Resourcen-Liste
\n $items = $channel->append_child($doc->create_element(“items”));
\n $rdfseq = $items->append_child($doc->create_element(“rdf:Seq”));<\/p>\n
$schlagzeilen = retrieve_db($sql, $db);
\n foreach($schlagzeilen as $schlagzeile)
\n new_attribute_child($doc, $rdfseq, “rdf:li”, “”, “rdf:resource”,
\n substr($schlagzeile[“link”], strpos(“http:\/\/”, $schlagzeile[“link”])));<\/p>\n
$string = substr($string, 0, strpos($string,$sep2));<\/p>\n
# foreach (retrieve_db($sql, $db) as $item)
\n foreach ($schlagzeilen as $item)
\n {
\n $new_item = $items->append_child($doc->create_element(“item”));
\n new_child($doc, $new_item, “title”, ($item[“title”]));
\n new_child($doc, $new_item, “link”, ($item[“link”]));
\n new_child($doc, $new_item, “description”, ($item[“description”]));
\n } \/\/foreach<\/p>\n
return utf8_encode($doc->dump_mem(1, “utf-8”));<\/p>\n
}<\/p>\n
?><\/p>\n
1.4. include\/config.inc
\n<\/p>\n
1.5. include\/sql_magazin_stars.php
\n<\/p>\n
1.6. include\/sql_magazin_soundcheck.php
\n<\/p>\n
2. PHP-Client # Fuer die Uebertragung per WWW: #Fuer die Uebertragung per SOAP: #—————————————————————————— ?><\/p>\n
\n2.1. client.php
\n,
\n# Durch das Einbinden unterschiedlicher Module kann man sich hier entscheiden,
\n# ob die Uebrtragung der Daten wie eine uebliche Web-Seite stattfindet oder
\n# per SOAP.<\/p>\n
\n#include “include\/inc_client_http.php”;<\/p>\n
\ninclude “include\/inc_client_soap.php”;<\/p>\n
\n# Erstellt ein Inline-Stylesheet um die Tabelle und die Datenfelder formatiert
\n# darstellen zu koennen.
\n#—–
\nfunction getInlineStyleSheet()
\n{<\/p>\n