--- parser3/src/www/htdocs/Attic/index.html	2001/03/15 11:01:29	1.1
+++ parser3/src/www/htdocs/Attic/index.html	2001/07/31 12:44:36	1.250
@@ -1,15 +1,99 @@
 @main[]
-test: '$test'<BR>
-local auto: '$local_auto'<BR>
+^connect[pgsql://paf:paf123@six/paf]{
+#	^void:sql{create table lotest (test oid)}
+	$проверка[^table::sql{select test from lotest}]
+	^проверка.menu{
+#		^проверка.line[]:<pre>^untaint[as-is]{$проверка.test}</pre>
+		^проверка.line[]:<pre>^untaint[html]{$проверка.test}</pre>
+#		^проверка.line[]:<pre>$проверка.test</pre>
+	}[<br>]
+	<hr>
 
 
-<form method=post action=index.html>
-введите выражение <input name=expr value="$form:expr">
-<input type=submit value="и нажмите кнопку">
-</form>
-
-птичка выпрыгнет тут: ^process[^^eval($form:expr)[%.4f]]?
- 
-@Zexception[origin;source;comment;type;code]
-Сервер испытывает временные трудности.
-напишите болвану администратору, что у него в $origin есть $source, который $comment (насквозь).
+^rem{
+#	^void:sql{create table texttest (body text)}
+	^void:sql{insert into texttest (body) values ('приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+приветприветприветприветприветприветприветприветприветприветприветприветпривет
+')}
+	$проверка[^table::sql{select * from texttest}]
+	^проверка.menu{
+		^проверка.line[]:$проверка.body
+	}[<br>]
+	<hr>
+}
+#    ^void::sql{insert into хрен (a) values (1)}
+	2*2=$id(^int:sql{select 2*2})
+	$id<br>
+
+	$пресса[^table::sql{select * from aaa}]
+#	$a[^пресса.columns[]]^a.menu{$a.column}
+	^пресса.menu{
+		$пресса.val
+	}[<br>]
+}
+<hr>
+$cookie:reg0[$.value[8reg0]$.expires[session]]
+$cookie:reg1[$.value[8reg1]$.expires[session]]
+$cookie:reg0
+$cookie:reg1
+
+<hr>
+^connect[odbc://dsn=voz7^;uid=voz^;pwd=pwd]{
+#    ^void::sql{insert into хрен (a) values (1)}
+	$id(^int:sql{select 5})
+	$id
+
+	$пресса[^table::sql{select * from press where header='$form:h'}]
+	^пресса.menu{
+		$пресса.id, $пресса.date_row, $пресса.header, $пресса.short_text^rem{, $пресса.full_text}, $пресса.mode
+	}[<br>]
+}
+<hr>
+#$response:status[404]
+#$response:location[/inh.html]
+#<hr>
+$таблица[^table::set{a	b
+1	2
+11	22
+}]
+^$таблица.fields.a=$таблица.fields.a<br>
+^$таблица.a=$таблица.a<br>
+<hr>
+$n[z]
+=^n.match[sdf][]{123}=
+<hr>
+
+=$3=
+<hr>
+
+$строка[123]
+^строка.match[(.);g]{($match.1)}
+<hr>
+$a{
+	$b[1]
+}
+^$b=$b<br>
+^$a!$a<br>
+^$b=$b<br>
+<hr>