2 <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
3 <title>Kapitel 4. Entwicklerdokumentation</title><link rel="stylesheet" type="text/css" href="style.css"><meta name="generator" content="DocBook XSL Stylesheets V1.76.1-RC2"><link rel="home" href="index.html" title="Lx-Office: Installation, Konfiguration, Entwicklung"><link rel="up" href="index.html" title="Lx-Office: Installation, Konfiguration, Entwicklung"><link rel="prev" href="ch03s03.html" title="3.3. Excel-Vorlagen"><link rel="next" href="ch04s02.html" title="4.2. Entwicklung unter FastCGI"></head><body bgcolor="white" text="black" link="#0000FF" vlink="#840084" alink="#0000FF"><div class="navheader"><table width="100%" summary="Navigation header"><tr><th colspan="3" align="center">Kapitel 4. Entwicklerdokumentation</th></tr><tr><td width="20%" align="left"><a accesskey="p" href="ch03s03.html">Zurück</a> </td><th width="60%" align="center"> </th><td width="20%" align="right"> <a accesskey="n" href="ch04s02.html">Weiter</a></td></tr></table><hr></div><div class="chapter" title="Kapitel 4. Entwicklerdokumentation"><div class="titlepage"><div><div><h2 class="title"><a name="d0e4243"></a>Kapitel 4. Entwicklerdokumentation</h2></div></div></div><div class="sect1" title="4.1. Globale Variablen"><div class="titlepage"><div><div><h2 class="title" style="clear: both"><a name="devel.globals"></a>4.1. Globale Variablen</h2></div></div></div><div class="sect2" title="4.1.1. Wie sehen globale Variablen in Perl aus?"><div class="titlepage"><div><div><h3 class="title"><a name="d0e4249"></a>4.1.1. Wie sehen globale Variablen in Perl aus?</h3></div></div></div><p>Globale Variablen liegen in einem speziellen namespace namens
4 "main", der von überall erreichbar ist. Darüber hinaus sind bareword
5 globs global und die meisten speziellen Variablen sind...
6 speziell.</p><p>Daraus ergeben sich folgende Formen:</p><div class="variablelist"><dl><dt><span class="term">
7 <code class="literal">$main::form</code>
8 </span></dt><dd><p>expliziter Namespace "main"</p></dd><dt><span class="term">
9 <code class="literal">$::form</code>
10 </span></dt><dd><p>impliziter Namespace "main"</p></dd><dt><span class="term">
11 <code class="literal">open FILE, "file.txt"</code>
13 <code class="varname">FILE</code> ist global</p></dd><dt><span class="term">
14 <code class="literal">$_</code>
15 </span></dt><dd><p>speziell</p></dd></dl></div><p>Im Gegensatz zu <span class="productname">PHP</span>™ gibt es kein
16 Schlüsselwort wie "<code class="function">global</code>", mit dem man
17 importieren kann. <code class="function">my</code>, <code class="function">our</code>
18 und <code class="function">local</code> machen was anderes.</p><div class="variablelist"><dl><dt><span class="term">
19 <code class="literal">my $form</code>
20 </span></dt><dd><p>lexikalische Variable, gültig bis zum Ende des
21 Scopes</p></dd><dt><span class="term">
22 <code class="literal">our $form</code>
24 <code class="varname">$form</code> referenziert ab hier
25 <code class="varname">$PACKAGE::form</code>.</p></dd><dt><span class="term">
26 <code class="literal">local $form</code>
27 </span></dt><dd><p>Alle Änderungen an <code class="varname">$form</code> werden am Ende
28 des scopes zurückgesetzt</p></dd></dl></div></div><div class="sect2" title="4.1.2. Warum sind globale Variablen ein Problem?"><div class="titlepage"><div><div><h3 class="title"><a name="d0e4350"></a>4.1.2. Warum sind globale Variablen ein Problem?</h3></div></div></div><p>Das erste Problem ist <span class="productname">FCGI</span>™.</p><p>
29 <span class="productname">SQL-Ledger</span>™ hat fast alles im globalen
30 namespace abgelegt, und erwartet, dass es da auch wiederzufinden ist.
31 Unter <span class="productname">FCGI</span>™ müssen diese Sachen aber wieder
32 aufgeräumt werden, damit sie nicht in den nächsten Request kommen.
33 Einige Sachen wiederum sollen nicht gelöscht werden, wie zum Beispiel
34 Datenbankverbindungen, weil die sehr lange zum Initialisieren
35 brauchen.</p><p>Das zweite Problem ist <code class="function">strict</code>. Unter
36 <code class="function">strict</code> werden alle Variablen die nicht explizit
37 mit <code class="function">Package</code>, <code class="function">my</code> oder
38 <code class="function">our</code> angegeben werden als Tippfehler angemarkert,
39 dies hat, seit der Einführung, u.a. schon so manche langwierige Bug-Suche verkürzt.
40 Da globale Variablen aber implizit mit Package angegeben werden, werden
41 die nicht geprüft, und somit kann sich schnell ein Tippfehler einschleichen.</p></div><div class="sect2" title="4.1.3. Kanonische globale Variablen"><div class="titlepage"><div><div><h3 class="title"><a name="d0e4383"></a>4.1.3. Kanonische globale Variablen</h3></div></div></div><p>Um dieses Problem im Griff zu halten gibt es einige wenige
42 globale Variablen, die kanonisch sind, d.h. sie haben bestimmte vorgegebenen Eigenschaften,
43 und alles andere sollte anderweitig umhergereicht werden.</p><p>Diese Variablen sind im Moment die folgenden neun:</p><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>
44 <code class="varname">$::form</code>
45 </p></li><li class="listitem"><p>
46 <code class="varname">%::myconfig</code>
47 </p></li><li class="listitem"><p>
48 <code class="varname">$::locale</code>
49 </p></li><li class="listitem"><p>
50 <code class="varname">$::lxdebug</code>
51 </p></li><li class="listitem"><p>
52 <code class="varname">$::auth</code>
53 </p></li><li class="listitem"><p>
54 <code class="varname">$::lx_office_conf</code>
55 </p></li><li class="listitem"><p>
56 <code class="varname">$::instance_conf</code>
57 </p></li><li class="listitem"><p>
58 <code class="varname">$::dispatcher</code>
59 </p></li><li class="listitem"><p>
60 <code class="varname">$::request</code>
61 </p></li></ul></div><p>Damit diese nicht erneut als Müllhalde missbraucht werden, im Folgenden
62 eine kurze Erläuterung der bestimmten vorgegebenen Eigenschaften (Konventionen):</p><div class="sect3" title="4.1.3.1. $::form"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4447"></a>4.1.3.1. $::form</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Ist ein Objekt der Klasse
63 "<code class="classname">Form</code>"</p></li><li class="listitem"><p>Wird nach jedem Request gelöscht</p></li><li class="listitem"><p>Muss auch in Tests und Konsolenscripts vorhanden
64 sein.</p></li><li class="listitem"><p>Enthält am Anfang eines Requests die Requestparameter vom
65 User</p></li><li class="listitem"><p>Kann zwar intern über Requestgrenzen ein Datenbankhandle
66 cachen, das wird aber momentan absichtlich zerstört</p></li></ul></div><p>
67 <code class="varname">$::form</code> wurde unter <span class="productname">SQL
68 Ledger</span>™ als Gottobjekt für alles misbraucht. Sämtliche
69 alten Funktionen unter SL/ mutieren <code class="varname">$::form</code>, das
70 heißt, alles was einem lieb ist (alle Variablen die einem ans Herz
71 gewachsen sind), sollte man vor einem Aufruf (!) von zum
72 Beispiel <code class="function">IS->retrieve_customer()</code> in
73 Sicherheit bringen. </p><p>
74 Z.B. das vom Benutzer eingestellte Zahlenformat, bevor man Berechnung in einem
75 bestimmten Format durchführt (SL/Form.pm Zeile 3552, Stand version 2.7beta), um
76 dies hinterher wieder auf den richtigen Wert zu setzen:
77 </p><pre class="programlisting"> my $saved_numberformat = $::myconfig{numberformat};
78 $::myconfig{numberformat} = $numberformat;
79 # (...) div Berechnungen
80 $::myconfig{numberformat} = $saved_numberformat;</pre><p>
81 Das Objekt der Klasse Form hat leider im Moment noch viele zentrale Funktionen die vom internen Zustand abhängen, deshalb bitte
82 nie einfach zerstören oder überschreiben (zumindestens nicht kurz vor einem Release oder in Absprache über bspw. die devel-Liste
83 ;-). Es geht ziemlich sicher etwas kaputt.
86 <code class="varname">$::form</code> ist gleichzeitig der Standard Scope in den <span class="productname">Template::Toolkit</span>™ Templates
87 außerhalb der Controller: der Ausdruck <code class="function">[% var %]</code> greift auf <code class="varname">$::form->{var}</code> zu. Unter
88 Controllern ist der Standard Scope anders, da lautet der Zugriff <code class="function">[% FORM.var %]</code>. In Druckvorlagen sind
89 normale Variablen ebenfall im <code class="varname">$::form</code> Scope, d.h. <code class="function"><%var%></code> zeigt auf
90 <code class="varname">$::form->{var}</code>. Nochmal von der anderen Seite erläutert, innerhalb von (Web-)Templates sieht man häufiger
92 </p><pre class="programlisting">[%- IF business %]
93 # (... Zeig die Auswahlliste Kunden-/Lieferantentyp an)
95 Entweder wird hier dann $::form->{business} ausgewertet oder aber der Funktion <code class="function">$form->parse_html_template</code>
96 wird explizit noch ein zusätzlicher Hash übergeben, der dann auch in den (Web-)Templates zu Verfügung steht, bspw. so:
97 </p><pre class="programlisting">$form->parse_html_template("is/form_header", \%TMPL_VAR);</pre><p>
98 Innerhalb von Schleifen wird <code class="varname">$::form->{TEMPLATE_ARRAYS}{var}[$index]</code> bevorzugt, wenn vorhanden. Ein
99 Beispiel findet sich in SL/DO.pm, welches über alle Positionen eines Lieferscheins in Schleife läuft:
100 </p><pre class="programlisting">for $i (1 .. $form->{rowcount}) {
102 push @{ $form->{TEMPLATE_ARRAYS}{runningnumber} }, $position;
103 push @{ $form->{TEMPLATE_ARRAYS}{number} }, $form->{"partnumber_$i"};
104 push @{ $form->{TEMPLATE_ARRAYS}{description} }, $form->{"description_$i"};
106 }</pre></div><div class="sect3" title="4.1.3.2. %::myconfig"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4531"></a>4.1.3.2. %::myconfig</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Das einzige Hash unter den globalen Variablen</p></li><li class="listitem"><p>Wird spätestens benötigt wenn auf die Datenbank
107 zugegriffen wird</p></li><li class="listitem"><p>Wird bei jedem Request neu erstellt.</p></li><li class="listitem"><p>Enthält die Userdaten des aktuellen Logins</p></li><li class="listitem"><p>Sollte nicht ohne Filterung irgendwo gedumpt werden oder
108 extern serialisiert werden, weil da auch der Datenbankzugriff
109 für diesen user drinsteht.</p></li><li class="listitem"><p>Enthält unter anderem Listenbegrenzung vclimit,
110 Datumsformat dateformat und Nummernformat numberformat</p></li><li class="listitem"><p>Enthält Datenbankzugriffinformationen</p></li></ul></div><p>
112 <code class="varname">%::myconfig</code> ist im Moment der Ersatz für ein Userobjekt. Die meisten Funktionen, die etwas anhand des
113 aktuellen Users entscheiden müssen, befragen <code class="varname">%::myconfig</code>. Innerhalb der Anwendungen sind dies überwiegend die
114 Daten, die sich unter <span class="guimenu">Programm</span> -> <span class="guimenuitem">Einstellungen</span> befinden, bzw. die Informationen
115 über den Benutzer die über die Administrator-Schnittstelle (admin.pl) eingegeben wurden.
116 </p></div><div class="sect3" title="4.1.3.3. $::locale"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4570"></a>4.1.3.3. $::locale</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse "Locale"</p></li><li class="listitem"><p>Wird pro Request erstellt</p></li><li class="listitem"><p>Muss auch für Tests und Scripte immer verfügbar
117 sein.</p></li><li class="listitem"><p>Cached intern über Requestgrenzen hinweg benutzte
118 Locales</p></li></ul></div><p>Lokalisierung für den aktuellen User. Alle Übersetzungen,
119 Zahlen- und Datumsformatierungen laufen über dieses Objekt.</p></div><div class="sect3" title="4.1.3.4. $::lxdebug"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4588"></a>4.1.3.4. $::lxdebug</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse "LXDebug"</p></li><li class="listitem"><p>Wird global gecached</p></li><li class="listitem"><p>Muss immer verfügbar sein, in nahezu allen
120 Funktionen</p></li></ul></div><p>
122 <code class="varname">$::lxdebug</code> stellt Debuggingfunktionen bereit, wie "<code class="function">enter_sub</code>" und
123 "<code class="function">leave_sub</code>", mit denen in den alten Modulen ein brauchbares Tracing gebaut ist,
124 "<code class="function">log_time</code>", mit der man die Wallclockzeit seit Requeststart loggen kann, sowie
125 "<code class="function">message</code>" und "<code class="function">dump</code>" mit denen man flott Informationen ins Log
126 (tmp/lx-office-debug.log) packen kann.
129 </p><pre class="programlisting">$main::lxdebug->message(0, 'Meine Konfig:' . Dumper (%::myconfig));
130 $main::lxdebug->message(0, 'Wer bin ich? Kunde oder Lieferant:' . $form->{vc});</pre></div><div class="sect3" title="4.1.3.5. $::auth"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4625"></a>4.1.3.5. $::auth</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse "SL::Auth"</p></li><li class="listitem"><p>Wird global gecached</p></li><li class="listitem"><p>Hat eine permanente DB Verbindung zur Authdatenbank</p></li><li class="listitem"><p>Wird nach jedem Request resettet.</p></li></ul></div><p>
131 <code class="varname">$::auth</code> stellt Funktionen bereit um die
132 Rechte des aktuellen Users abzufragen. Obwohl diese Informationen
133 vom aktuellen User abhängen wird das Objekt aus
134 Geschwindigkeitsgründen nur einmal angelegt und dann nach jedem
135 Request kurz resettet.</p></div><div class="sect3" title="4.1.3.6. $::lx_office_conf"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4646"></a>4.1.3.6. $::lx_office_conf</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse
136 "<code class="classname">SL::LxOfficeConf</code>"</p></li><li class="listitem"><p>Global gecached</p></li><li class="listitem"><p>Repräsentation der
137 <code class="filename">config/lx_office.conf[.default]</code>-Dateien</p></li></ul></div><p>Globale Konfiguration. Configdateien werden zum Start gelesen
138 und danach nicht mehr angefasst. Es ist derzeit nicht geplant, dass das
139 Programm die Konfiguration ändern kann oder sollte.</p><p>Beispielsweise ist über den Konfigurationseintrag [debug]
140 die Debug- und Trace-Log-Datei wie folgt konfiguriert und verfügbar:</p><pre class="programlisting">[debug]
141 file = /tmp/lx-office-debug.log</pre><p>ist der Key <code class="varname">file</code> im Programm als
142 <code class="varname">$::lx_office_conf->{debug}{file}</code>
143 erreichbar.</p><div class="warning" title="Warnung" style="margin-left: 0.5in; margin-right: 0.5in;"><table border="0" summary="Warning"><tr><td rowspan="2" align="center" valign="top" width="25"><img alt="[Warnung]" src="../../../../system/docbook-xsl/images/warning.png"></td><th align="left">Warnung</th></tr><tr><td align="left" valign="top"><p>Zugriff auf die Konfiguration erfolgt im Moment über
144 Hashkeys, sind also nicht gegen Tippfehler abgesichert.</p></td></tr></table></div></div><div class="sect3" title="4.1.3.7. $::instance_conf"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4682"></a>4.1.3.7. $::instance_conf</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse
145 "<code class="classname">SL::InstanceConfiguration</code>"</p></li><li class="listitem"><p>wird pro Request neu erstellt</p></li></ul></div><p>Funktioniert wie <code class="varname">$::lx_office_conf</code>,
146 speichert aber Daten die von der Instanz abhängig sind. Eine Instanz
147 ist hier eine Mandantendatenbank.
148 Beispielsweise überprüft
149 </p><pre class="programlisting">$::instance_conf->get_inventory_system eq 'perpetual'</pre><p>
150 ob die berüchtigte Bestandsmethode zur Anwendung kommt.</p></div><div class="sect3" title="4.1.3.8. $::dispatcher"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4703"></a>4.1.3.8. $::dispatcher</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse
151 "<code class="varname">SL::Dispatcher</code>"</p></li><li class="listitem"><p>wird pro Serverprozess erstellt.</p></li><li class="listitem"><p>enthält Informationen über die technische Verbindung zum
152 Server</p></li></ul></div><p>Der dritte Punkt ist auch der einzige Grund warum das Objekt
153 global gespeichert wird. Wird vermutlich irgendwann in einem anderen
154 Objekt untergebracht.</p></div><div class="sect3" title="4.1.3.9. $::request"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4721"></a>4.1.3.9. $::request</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Hashref (evtl später Objekt)</p></li><li class="listitem"><p>Wird pro Request neu initialisiert.</p></li><li class="listitem"><p>Keine Unterstruktur garantiert.</p></li></ul></div><p>
155 <code class="varname">$::request</code> ist ein generischer Platz um
156 Daten "für den aktuellen Request" abzulegen. Sollte nicht für action
157 at a distance benutzt werden, sondern um lokales memoizing zu
158 ermöglichen, das garantiert am Ende des Requests zerstört
159 wird.</p><p>Vieles von dem, was im moment in <code class="varname">$::form</code>
160 liegt, sollte eigentlich hier liegen. Die groben
161 Differentialkriterien sind:</p><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Kommt es vom User, und soll unverändert wieder an den User? Dann <code class="varname">$::form</code>, steht da eh schon</p></li><li class="listitem"><p>Sind es Daten aus der Datenbank, die nur bis zum Ende des Requests gebraucht werden? Dann
162 <code class="varname">$::request</code>
163 </p></li><li class="listitem"><p>Muss ich von anderen Teilen des Programms lesend drauf zugreifen? Dann <code class="varname">$::request</code>, aber Zugriff über
164 Wrappermethode</p></li></ul></div></div></div><div class="sect2" title="4.1.4. Ehemalige globale Variablen"><div class="titlepage"><div><div><h3 class="title"><a name="d0e4763"></a>4.1.4. Ehemalige globale Variablen</h3></div></div></div><p>Die folgenden Variablen waren einmal im Programm, und wurden
165 entfernt.</p><div class="sect3" title="4.1.4.1. $::cgi"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4768"></a>4.1.4.1. $::cgi</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>war nötig, weil cookie Methoden nicht als
166 Klassenfunktionen funktionieren</p></li><li class="listitem"><p>Aufruf als Klasse erzeugt Dummyobjekt was im
167 Klassennamespace gehalten wird und über Requestgrenzen
168 leaked</p></li><li class="listitem"><p>liegt jetzt unter
169 <code class="varname">$::request->{cgi}</code>
170 </p></li></ul></div></div><div class="sect3" title="4.1.4.2. $::all_units"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4784"></a>4.1.4.2. $::all_units</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>war nötig, weil einige Funktionen in Schleifen zum Teil
171 ein paar hundert mal pro Request eine Liste der Einheiten
172 brauchen, und de als Parameter durch einen Riesenstack von
173 Funktionen geschleift werden müssten.</p></li><li class="listitem"><p>Liegt jetzt unter
174 <code class="varname">$::request->{cache}{all_units}</code>
175 </p></li><li class="listitem"><p>Wird nur in
176 <code class="function">AM->retrieve_all_units()</code> gesetzt oder
177 gelesen.</p></li></ul></div></div><div class="sect3" title="4.1.4.3. %::called_subs"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4803"></a>4.1.4.3. %::called_subs</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>wurde benutzt um callsub deep recursions
178 abzufangen.</p></li><li class="listitem"><p>Wurde entfernt, weil callsub nur einen Bruchteil der
179 möglichen Rekursioenen darstellt, und da nie welche
180 auftreten.</p></li><li class="listitem"><p>komplette recursion protection wurde entfernt.</p></li></ul></div></div></div></div></div><div class="navfooter"><hr><table width="100%" summary="Navigation footer"><tr><td width="40%" align="left"><a accesskey="p" href="ch03s03.html">Zurück</a> </td><td width="20%" align="center"> </td><td width="40%" align="right"> <a accesskey="n" href="ch04s02.html">Weiter</a></td></tr><tr><td width="40%" align="left" valign="top">3.3. Excel-Vorlagen </td><td width="20%" align="center"><a accesskey="h" href="index.html">Zum Anfang</a></td><td width="40%" align="right" valign="top"> 4.2. Entwicklung unter FastCGI</td></tr></table></div></body></html>