[Allegro] Ruckzuck: Hilfe! (Ergänzung)

[Thomas Fischer]

Liebe KollegInnen,

ich kann das gestern erwähnte Problem jetzt genauer beschreiben.
Der unten angegeben Aufruf wird von find.php (in Kooperation mit diversen
anderen Dateien) erzeugt und liefert bei meinem Avanti-Server (29.3) auf der
Virtual Machine (Vmware Fusion 2.0.5 auf Mac OS X 10.5.8) mit Windows XP die
Antwort:

<hr><font face="Verdana"><font color=red>3</font> Ergebnisse des Befehls:
<font color=red>TIT _ado</font><br><font size=-1>(Den Befehl kÓnnen Sie
¼ndern, dann [Neu suchen])<p></font><form action="find.php"
method=post><input name="ufC" type=text size=40 maxlength=200 value="TIT
_ado"><input type=submit value="Neu ausfÒhren"></form>áááááááááááááááá
<hr><font size=-1><dl>
<dt>    1 <a href="javascript:grec(550)">[Info]</a></dd>
<dt>    2 <a href="javascript:grec(714)">[Info]</a></dd>
<dt>    3 <a
href="javascript:grec(14)">[Info]</a></dd></dl></font></font></b>

AVANTI:EOR

Auf meinen anderen Win-Avantis führt er zum Absturz von ACON, auch mein
Linux-Avanti liefert keine Ergebnisse.
Kann das jemand erklären?

(Ich muss gestehen, dass mir der Aufruf nur in Ansätzen verständlich ist.
Ich kann hinzufügen, dass ich immer vertreten habe, dass sich die
Allegro-Exportsprache unter den Skriptsprachen von keiner anderen an
Unlesbarkeit übertreffen lässt. Jetzt bin ich mir nicht mehr so sicher...)

Wer will, kann diese Anfrage an seinen/ihren Avanti-Server schicken (z.B.
mit avadmin) und sehen, was passiert, der Aufruf geht an avdemo, die sollte
eigentlich überall da sein. Der Absturz erfolgt nur, wenn der Aufruf (hier:
TIT _ado) tatsächlich Treffer produziert und die Datenbank auch funktioniert
(z.B. wird $a.cfg benötigt).

Mit freundlichen Grüßen
Thomas Fischer 

_____________________________________________________________

&
var '40'
ins #uzA
ins #uzB
var '1'
ins #uzS
var 'TIT _acker'
ins #utI
var '41'
ins #uzW
var ''
ins #ufa
switch coding
var 'TIT _acker'
asci
ins #uff
var 'TIT+_acker'
ins #usT
var 'TIT _acker'
ins #ufC
var #uff
if 'FAM' jump fmly
find
switch coding
jump found
:fmly
var '#' #uff(b'FAM')
find
fam
:found
if l 1 jump nix
var #uff
if ='FAM' jump kurzliste
if g 1 order d57
:kurzliste
wri '<hr>'
var #ufC
ins #ufA
wri '<font face="Verdana">'
var l
ins #uer
wri '<font color=red>' #uer(f'0') '</font> Ergebnisse des Befehls: <font
color=red>' #utI '</font><br>'
wri '<font size=-1>(Den Befehl können Sie ändern, dann [Neu
suchen])<p></font>'
wri '<form action="find.php" method=post>'
switch coding
wri '<input name="ufC" type=text size=40 maxlength=200 value="' #ufC '">'
switch coding
wri '<input type=submit value="Neu ausführen">'
jump klist
:famlist
wri '<b>There are ' l ' linked records </b> <p> <br>'
:klist
wri '</form>'
var l
ins #uzU
=
var #uzW
-
var Z
if <1 wri '                ';jump back
wri n '<a href="rset.php?ufC=' #usT '&uzA=' #uzA 
wri '&uzU=' l '&uzS=41&urO=d57'
wri '">'
wri '<font size=+2><i>Weiter</i></font></a>    ' n
:back
var #uzS
if <2 jump numm
=
var #uzA
-
var Z
if <2 var '1'
ins #uzS
wri n '<a href="rset.php?ufC=' #usT '&uzA=' #uzA 
wri '&uzU=' l '&urO=d57&uzS=' #uzS
wri '">'
wri '<font size=+2><i>Zurück</font></i></a> '
:numm
var #uzU
if <51 jump liste
wri '<form action="rset.php" method=POST>'
wri '<input type=submit value="Liste ab Nr. (1 ... ' #uzU(f'0') ')">' n
wri '<input name="uzS" type=text size=6 maxlength=6></td></tr>' n
wri '<input type="hidden" name="ufC" value="' #ufC '">'
wri '<input type="hidden" name="uzU" value="' l '">'
wri '<input type="hidden" name="uzA" value="' #uzA '">'
wri '<input type="hidden" name="urO" value="d57">'
wri '</form>'
:liste
wri '      '
wri '<hr><font size=-1><dl>'
xport p p-brief
get 1
:loop
var r
ins #urr
var #urr(f'0')
ins #urr
write 10 '<dt>' #urr(r5) '. '
down
wri ' <a href="javascript:grec(' i ')">[Info]</a></dd>'
switch coding
var #uzA
=
- 1
var Z
ins #uzA
if <1 jump send
next
if ok jump loop
:send
write '</dl></font></font></b>'
jump finish
:grec
var i
ins #urN
write 'i=' #urN n
write '<br>Ergebnis: nur 1 Datensatz, und zwar<br>' n
write s n
wri n '<a href="detail.php">'
wri '<h3><i>New Search</i></h3></a> ' n
jump finish
:nix
var #uff '?'
ins #uff
find
if l 1 jump garnix
jump found
:garnix
wri n '<br>This command <pre>' #ufC '</pre> retrieved nothing. Try other
terms.' n
wri '<br><br>Nichts gefunden mit <pre>' #ufC '</pre>'
jump finish
:index
var #usF
var '15 ' #urG(e' ')
ins #upG
exec X page
:finish
var l
ins #uzU
=
var #uzW
-
var Z
if <1 wri '                ';jump clear
wri n '<a href="rset.php?ufC=' #usT '&uzA=' #uzB 
wri '&uzU=' l '&uzS=41&urO=d57'
wri '">'
wri '<font size=+2><i>Weiter</i></font></a>    ' n
:clear
var ''
ins #ukt
ins #urr
ins #ufC
ins #ufA
ins #ufC
ins #us2
ins #uff
ins #uII
ins #usF
write n
@ DB=avdemo ID=opac/opac