--- parser3/www/htdocs/Attic/_bug.html 2004/08/03 11:18:22 1.61 +++ parser3/www/htdocs/Attic/_bug.html 2005/12/19 12:24:57 1.114 @@ -1,89 +1,21 @@ -# 20040623 paf@design.ru - -#neptune: parser upgraded, теперь $.bind[ -#$.name[^taint[uri][москва]] придёт в виде %xx%xx... - - @main[] -^connect[oracle://igs:pwd@oracle]{ - - - -^rem{ - $vars[ - $.puserisn(1) - $.poper[create] - $.pform[name1=value1&name2=value2] - $.pPremium(0) - $.pid(0) - $.pisn(0) - ] - ^void:sql{call iagency.doMotorAgr( - :puserisn, -- идентификатор пользователя (страхователя), необходим для создания договора - :poper, -- тип операции calc - расчет премии, create - расчет и создание договора - :pform, -- строка параметров вида параметр=значение&: - :pPremium, -- премия по договору - :pid, -- номер договора (после создания) - :pisn, -- системный номер договора (после создания) - null, -- в текущей версии не используется - null -- в текущей версии не используется - )}[ - $.bind[$vars] - ] - ^show[puserisn] - ^show[poper] - ^show[pid] - ^show[pisn] -
- - OK +^try{ + ^mustfail[] +}{ + ^if($exception.type eq xml){ + failed, that's OK + $exception.handled(1) + } } - $varsl[ - $.pname[igs] - $.pwd[create] - $.pisn[x] - $.pres[] - ] - - ^void:sql{call iagency.login( - :pname, - :pwd, - :pisn, - :pres - )}[ - $.bind[$varsl] - ] - - $varsl.pisn
- $varsl.pres
- - - -} - -@show[name] -$name=$vars.$name
- - -@x[] - $MotorBrands[ - $.v[2] - ] - - $a[^table::sql{ - SELECT - isn, - shortname name, - nvl(code,'0') code - FROM - ais.dicti - WHERE - parentisn=:v - and active is not null - ORDER BY - shortname - }[ - $.bind[$MotorBrands] - ] - ] +@mustfail[] +$dom_from_disk[^xdoc::create[input]] +$dom_created_in_air[^xdoc::create[doc]] +^dom_created_in_air.documentElement.appendChild[$dom_from_disk.documentElement] +^show_xdoc2[$dom_created_in_air] + +@show_xdoc2[xdoc] +
^taint[html][^xdoc.string[
+	$.method[html]
+]]
+