--- parser3/src/www/htdocs/Attic/index.html	2001/04/08 13:11:21	1.123
+++ parser3/src/www/htdocs/Attic/index.html	2001/04/23 15:13:48	1.154
@@ -1,20 +1,3 @@
-@auto[]
-$html-typo[^table:set{user	html	comment
-<<	&laquo^;	длинные user вперёд
->>	&raquo^;
-\n\n	<p>	!эти есть в таблице по умолчанию
-\n	<br>	!но т.к. заменяем, надо повторить.
-<	&lt^;	!можно этим воспользоваться,
->	&gt^;	!и что-то сделать ДО обычных замен
-"	&quot^;	!например из << и >>
-&	&amp^;	!сделать ёлочки-кавычки.
-_	&nbsp^;
-^#AB	&laquo^;	windows коды ёлочек
-^#BB	&raquo^;	windows коды ёлочек
-(c)	&copy^;
-^#A9	&copy^;	windows (c)
-}]
-
 @dump[t]
 ^t.menu{$n<BR>}
 <HR>
@@ -23,7 +6,7 @@ $n
 @twop[a;b]
 ($a,$b)
 
-@Zpost-process[data]
+@Zpostprocess[data]
 #(<BR>$data)<BR>
 ^data.match[1][g]{X}
 
@@ -31,7 +14,122 @@ $n
 $m ^if(^s.match[$:m;i]){matches}{does not match} $s<BR>
 
 @main[]
-<pre>^mail:send[
+match xmg:<BR>
+$s[2
+2]
+$r[^s.match[(2^$ #comment
+
+
+)][xmg]]
+^r.menu{$match}[,]
+<HR>
+
+image:create<BR>
+$itext[^image:create(300;100)]
+$itext{
+^font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/;font.gif](13)
+^^text(10;10)[ПАФ сделал это]<BR>
+^text(10;10)[ПАФ сделал это]
+^font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя0123456789-+=!\"%:,.^^^;<>?@()[]'&*/;font.gif](13;8)
+^^text(10;30)[ПАФ сделал это fixed]<BR>
+^text(10;30)[ПАФ сделал это fixed]
+}
+$ff[^itext.gif[]]
+^ff.save[i/itext.gif]
+^rem{
+^ff.save[i2/itext.gif]
+^file:delete[i2/itext.gif]
+}
+^itext.html[$src[i/itext.gif]]
+
+
+<HR>
+$t[^table:set{id}]
+^^t.id.int[]=^t.id.int[]<BR>
+^^hren.double[]=^hren.double[]<BR>
+<HR>
+#image:create<BR>
+#$drawing[^image:create(300;100)]
+drawing:load<BR>
+$drawing[^image:load[001004paf(c)lena_karin.gif]]
+$drawing{
+^$drawing.width=$width<BR>
+^$drawing.height=$height<BR>
+^for[i](0;$width/4){
+^line(0;0)($:i*4;$height-1)(0x00FF00)
+}
+
+^rectangle(100;10)(180;40)(0xFF0000)
+^bar(100+20;10+20)(180+20;40+20)(0xFFFF00)
+^fill(0;0)(0x0000FF)
+^replace(0xFFffFF;0x00FF00)(30;0)(150;99)(200;50)
+^polybar(0x00FFFF)(200;100)(170;99)(280;50)
+^polygon(0xFFFF00)(210;100)(160;90)(250;50)
+
+}
+<HR>
+#$response:body[^drawing.gif[]]
+$ff[^drawing.gif[]]
+^ff.save[drawing.gif]
+^drawing.html[$src[drawing.gif]]
+<HR>
+image:load<BR>
+$face[^image:load[001004paf(c)lena_karin.gif]]
+^$face.src=$face.src<BR>
+^$face.width=$face.width<BR>
+^$face.height=$face.height<BR>
+<HR>
+
+^if($form:photo){
+upload file:<BR>
+$face[^image:measure[$form:photo]]
+$face.src=$face.src<BR>
+^$face.width=$face.width<BR>
+^$face.height=$face.height<BR>
+<HR>
+}
+gif file class:<BR>
+$face[^image:measure[^file:load[001004paf(c)lena_karin.gif]]]
+^$face.src=$face.src<BR>
+^$face.width=$face.width<BR>
+^$face.height=$face.height<BR>
+^^face.html[]=^face.html[]<BR>
+<HR>
+gif:<BR>
+$face[^image:measure[001004paf(c)lena_karin.gif]]
+^$face.src=$face.src<BR>
+^$face.width=$face.width<BR>
+^$face.height=$face.height<BR>
+^^face.html[]=^face.html[]<BR>
+<HR>
+jpeg:<BR>
+$face[^image:measure[001004paf(c)lena_karin.jpg]]
+^$face.src=$face.src<BR>
+^$face.width=$face.width<BR>
+^$face.height=$face.height<BR>
+<a href=$request:uri>^^face.html[^$border(1) ^$ismap(-1)]=^face.html[$border(1) $ismap(-1)]</a>
+<HR>
+
+^rem{
+^mail:send[
+	$from[paf@design.ru]
+	$to[paf@design.ru]
+	$subject[test проверка]
+	$body[test]
+	$content-type[$value[text/plain] $charset[windows-1251]]
+]
+<HR>
+}
+
+env.pl<BR>
+$e[^file:cgi[env.pl;$t[<b>1</b>]]]
+^$e.exit-code=$e.exit-code<BR>
+^$e.stderr="$e.stderr"<BR>
+^$e.header="$e.header"<BR>
+$e.text
+<HR>
+
+^rem{^mail:send[
     $to[paf@design.ru]
     $from[paf@design.ru]
 	$body[
@@ -49,10 +147,11 @@ PAF
 		$attach[
 			$value[^file:load[test.zip]]
 			$type[uue]
+			$file-name[retest.zip]
 		]
 	]
-]</pre>
-<HR>
+]
+}
 
 ^rem{^mail:send[
 	$content-type[
@@ -103,6 +202,7 @@ $d[^table:dir[/;html^$]]
 ^d.menu{$name;<BR>}
 <HR>
 
+#^rem{
 ^connect[$SQL.connect-string]{
 	$shit[^taint[our's]]
 #	$paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}]
@@ -115,6 +215,7 @@ $d[^table:dir[/;html^$]]
 	</table>
 	}}
 }
+#}
 
 <HR>
 
@@ -141,9 +242,9 @@ $sm[^s.match[(.)][g]]
 ^^"$s".match[(.)][g]:<BR>
 ^sm.menu{
 	^line[]:<BR>
-	^$pre-match=$pre-match<BR>
+	^$prematch=$prematch<BR>
 	^$match=$match<BR>
-	^$post-match=$post-match<BR>
+	^$postmatch=$postmatch<BR>
 	^$1=$1<BR>
 }
 <HR>
@@ -151,9 +252,9 @@ $sm[^s.match[(.)][]]
 ^^"$s".match[(.)][]:<BR>
 ^sm.menu{
 	^line[]:<BR>
-	^$pre-match=$pre-match<BR>
+	^$prematch=$prematch<BR>
 	^$match=$match<BR>
-	^$post-match=$post-match<BR>
+	^$postmatch=$postmatch<BR>
 	^$1=$1<BR>
 }
 <HR>
@@ -187,7 +288,13 @@ $src[^table:set{a	b	c	d
 s1	s2	s3	s4
 }]
 ^dest.join[$src]
-^dest.menu{$a!$b!$c!<BR>}
+dest.menu:<BR>
+^dest.menu{$a!$b!$c!<BR>
+^rem{lock violation^table:set[nameless]{1
+2
+3}]
+}
+}
 
 <HR>
 ^^random:generate(10)=^random:generate(10)<BR>
@@ -292,12 +399,13 @@ $response:location[http://parser3/123]
 </ol>
 <HR>
 
-^${cookie:вот}=${cookie:вот}?<BR>
+#$cookie:вот[прислал "browser"]
 ^${cookie:вот}=${cookie:вот}?<BR>
 ^$request:query=$request:query<BR>
 ^$request:uri=$request:uri<BR>
 
 <form method=post>
+<input type=hidden name=a value=123>
 <table border=1 width=250><tr><td>$form:name</td></tr></table>
 <textarea name=name rows=5 cols=40>^untaint[html]{^default[$form:name;Пробный текст: А.Ф._Петросян <<Жизнь в Аду>>
 нажми Submit]}</textarea><BR>