--- parser3/src/www/htdocs/Attic/index.html	2001/03/19 22:56:46	1.23
+++ parser3/src/www/htdocs/Attic/index.html	2001/07/31 12:44:36	1.250
@@ -1,15 +1,99 @@
-$response:body[123]
+@main[]
+^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 enctype=multipart/form-data>
-<input name=photo type=file>
-<input type=submit>
-</form>
-<hr>
-^if($form:photo){
-	<pre>
-	^$form:photo.name='$form:photo.name'
-	^$form:photo.size='$form:photo.size'
-	^$form:photo.text='$form:photo.text'
-	^form:photo.save{paf.txt}
-	</pre>
+
+^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>