[BACK]Return to index.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / www / htdocs

Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.125 and 1.140

version 1.125, 2001/04/09 10:08:35 version 1.140, 2001/04/12 14:50:31
Line 31  $n Line 31  $n
 $m ^if(^s.match[$:m;i]){matches}{does not match} $s<BR>  $m ^if(^s.match[$:m;i]){matches}{does not match} $s<BR>
   
 @main[]  @main[]
 ^exec:cgi[envNT.pl]  $t[^table:set{id}]
   ^$t.id=$t.id ?
   
   #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;0)
   }
   
   ^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[
           $to[paf@design.ru]
           $subject[test]
           $body[test]
   ]
   <HR>
   }
   
   $e[^file:cgi[env.pl;$t[<b>1</b>]]]
   $e.text
 <HR>  <HR>
   
 ^rem{^mail:send[  ^rem{^mail:send[
Line 302  $response:location[http://parser3/123] Line 377  $response:location[http://parser3/123]
 ^$request:uri=$request:uri<BR>  ^$request:uri=$request:uri<BR>
   
 <form method=post>  <form method=post>
   <input type=hidden name=a value=123>
 <table border=1 width=250><tr><td>$form:name</td></tr></table>  <table border=1 width=250><tr><td>$form:name</td></tr></table>
 <textarea name=name rows=5 cols=40>^untaint[html]{^default[$form:name;Пробный текст: А.Ф._Петросян <<Жизнь в Аду>>  <textarea name=name rows=5 cols=40>^untaint[html]{^default[$form:name;Пробный текст: А.Ф._Петросян <<Жизнь в Аду>>
 нажми Submit]}</textarea><BR>  нажми Submit]}</textarea><BR>
Removed from v.1.125  
changed lines
  Added in v.1.140

E-mail: