Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.258 and 1.296.2.7

version 1.258, 2001/08/06 12:27:46 version 1.296.2.7, 2001/09/13 08:31:20
Line 1 Line 1
   @main[]
   ^emptyprotocol[]
   #^emptytableisnotdef[]
   #^autoconvemptystring[]
   #^tdupleform[]
   #^tvoiddefault[]
   #^testdom0[]
   #^testlocal[0]
   #^thashdefault2[]
   #^tcase2[]
   #^tlsplit2[]
   #^tconnect[]
   #^timghtmlyu[]
   #^timghtml[]
   #^tresult[]
   #^voidtest[]
   #^ttext[]
   #^tdoubledefault[]
   #^tintdefault[]
   #^t3partycookie[]
   #^t3partycookie[]
   #^tcookie[]
   #^tfilemove[]
   #^treplace[]
   #^measuretest[]
   #^savetest[]
   #^oratestinsert[]
   #^oratestread[]
   #^process_check[]
   #^ffcheck[]^[xxx]
   
   #$ORIGINS(1)
   #^list[]
   #^tests[]
   #^func(0)<hr>
   
   @emptyprotocol[]
   ^connect[]{zz}
   
   @emptytableisnotdef[]
   $table[^table::set[nameless]{}]
   ^if(def $table){y;n}
   
   @autoconvemptystring[]
   ^if($form:v){y}{n}
   
   
   @tdupleform[]
   #$form:fields.a
   #$c[^form:tables.a.columns[]]
   #^c.menu{$c.column}[,]<br>
   $atable[$form:tables.a]
   ^atable.menu{a=$atable.field}[,]
   
   @tvoiddefault[]
   $var[$form:element]
   ^var.int(2)
   
   
   @testdom0[]
   $dom[^dom::load[a.xml]]
   
   
   @testlocal[level][local]
   $local($level)
   before($level):$local<br>
   ^if($level<10){
           ^testlocal($level+1)
   }
   after($level):$local<br>
   
   @thashdefault2[]
   $hash[
           $.a[1]
           $.b[2]
           $._default[xx]
   ]
   $hash.c
   
   @tcase2[]
   $hash[
           $.1{^load[code1]}
           $.2{code2}
   ]       
   $hash.1
   
   @tlsplit2[]
   $splitURI[^request:uri.mid(1;^request:uri.length[]-1).lsplit[/]]
   OK
   
   @tconnect[]
   #^connect[mysql://hren:pwd@hren/zz]{hren}
   ^connect[mysql://]{^void:sql{show tables}}
   
   
   @timghtmlyu[]
   ^img[/i/commons_22_prev.gif][$.vspace(100)]
   @img[filename;params]
   ^if(-f $filename){$thisImage[^image::measure[$filename]]^thisImage.html[$params]}
   
   @timghtml[]
   $êàðòèíêà[^image::measure[i/commons_22_prev.gif]]
   #$hash[$.alt[222]]
   #^timghtml-nested[$hash]
   ^timghtml-nested[$.alt[222]]
   
   @timghtml-nested[params]
   ^êàðòèíêà.html[$params]
   
   @tresult[]
   44
   $result[]
   
   @voidtest[]
   #$var[123x]
   ^var.int(4)
   
   @ttext[]
   $êàðòèíêà[^image::load[/i/commons_22_prev.gif]]
   ^êàðòèíêà.font[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789-+=!\"%:,.^^^;<>?@()[]'&*/^$;/i/font.gif](5)
   
   ^êàðòèíêà.text(10;10)[ ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijkl]
   ^êàðòèíêà.text(10;30)[mnopqrstuvwxyzÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞß]
   ^êàðòèíêà.text(10;50)[àáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ0123456789]
   ^êàðòèíêà.text(10;70)[!-+=!\"%:,.^^^;<>?@()[]'&*/^$!]
   
   
   $response:body[^êàðòèíêà.gif[]]
   
   @tdoubledefault[]
   $a[123.6x]
   #^a.double[]
   ^a.double(999)
   
   
   @tintdefault[]
   $a[123x]
   #^a.int[]
   ^a.int(999)
   
   @t3partycookie2[]
   #z<img width=100 height=100 src=http://i/cgi-bin/p3p.cgi>z
   z<img width=100 height=100 src=http://i.office.design.ru/cgi-bin/p3p.cgi>z
   
   @t3partycookie[]
   z<img width=100 height=100 src=http://rotabanner.adex.ru/cgi-bin/banner/mail>z
   
   @tcookie[]
   $response:P3P[policyref="http://parser3/w3c/paf.xml"]
   $cookie:test[$form:x^math:random(100)]
   $env:HTTP_COOKIE<br>
   get:$cookie:test
   #<img src=http://parser3.office.design.ru/?x=coffice>
   
   @tfilemove[]
   ^file:move[a/a;b/b]
   
   @treplace[]
   $øèëî-íà-ìûëî[^table::set{a     b
   øèëî    ìûëî
   }]
   $ñòðîêà[áûâàåò øèëî â çàäèöå]
   ^ñòðîêà.replace[$øèëî-íà-ìûëî]<BR>
   
   @measuretest[]
   $im[^image::measure[mm3.gif]]
   x:y=${im.width}:${im.height}<BR>
   
   @savetest[]
   $file[^file::load[text;index.html]]
   ^file.save[binary;/some/dir/here.dat]
   OK
           
   @oratestinsert[]
   ^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{
   #^void:sql{create table lobtest(test clob)}
   ^void:sql{insert into lobtest values (/**test**/'áó''êâû')}
   $table[^table::sql{select * from lobtest}]
   ^table.menu{^table.line[] <!--. $table.test -->}
   }
   
   @oratestread[]
   ^connect[oracle://mts_admin:admin_pwd@ORACLE.PAF.OFFICE.DESIGN.RU]{
   ^rem{
   $tables[^table::sql{select table_name from user_tables}]
   ^tables.menu{
           $tables.table_name<br>
   }
   <hr>
   }
   $news[^table::sql{select * from news}[$.limit(2)]]
   ^rem{
   news columns:<br>
   $news_columns[^news.columns[]]
   ^news_columns.menu{
           $news_columns.column<br>
   }
   <hr>
   }
   news description:<br>
   ^news.menu{
   <hr>
           $news.description
   }
   }
   
   @process_check[]
   $f[^file::load[text;process.tpl]]
   ^process[$f.text]
   
   @ffcheck[]
   ^file:find[bug/index.html]{not found}
   
   @list[]
   $list[^file:list[.;.*\.html^$]]
   ^list.menu{$list.name<br>}
   #^list.count[]
   
   @func[param]
   #[local]
   $local(0)
   ^local.inc(1)
   #$local($local+1)
   ^if($param<10){^func($param+1)}
   =$local=
   
 @bannerSSI[][code]  @bannerSSI[][code]
 $code[^file::cgi[z/../cgi-bin/bbssi.pl;  $code[^file::cgi[/../cgi-bin/bbssi.pl;
         $.QUERY_STRING[H=ad1.lbe.ru&pubid=91033&pg=1&vbn=26&num=1&w=-1&h=-1&r=ssi&i=http://go.bb.ru/images/onerror/bb.gif&g=http://www.bb.ru&before=<center>&after=</center>&bafter=]          $.QUERY_STRING[d=1&H=ad1.lbe.ru&pubid=91033&pg=1&vbn=26&num=1&w=-1&h=-1&r=ssi&i=http://go.bb.ru/images/onerror/bb.gif&g=http://www.bb.ru&before=<center>&after=</center>&bafter=]
 ]]  ]]
 $result[^untaint[as-is]{$code.stderr text}]  $result[<pre>^untaint[as-is]{$code.text}</pre>]
   
 @bannerJS[]  @bannerJS[]
 <!-- BannerBank advertising begin: new -->  <!-- BannerBank advertising begin: new -->
Line 18  document.write(''); Line 244  document.write('');
 </script>  </script>
 <!-- BannerBank advertising end: new -->  <!-- BannerBank advertising end: new -->
   
 @main[]  @tests[]
   $ab(123)
   ${[ab]}=
   <hr>
   $õýø[$.âîçðàñò(88)] $äîñòàòü[$.ïîëå[âîçðàñò]] ^õýø.[$äîñòàòü.ïîëå].format{%05d}
   <hr>
   
   $ëþäè[
           $.âàñÿ[
                   $.âîçðàñò(45)
           ]
   ]
   $÷åëîâåê[
           $.ïîëå[âîçðàñò] 
   ]
   
   $ëþäè.âàñÿ.[$÷åëîâåê.ïîëå]<br>
   ^ëþäè.âàñÿ.[$÷åëîâåê.ïîëå].format{%010d}<br>
   
   
   <hr>
   $unsorted[^table::set{a b
   1       1
   3       3
   2       2
   }]
   $sorted[^unsorted.sort($unsorted.a)]
   ^sorted.menu{$sorted.a}[,]
   <hr>
                   =^dtf:format[aaa-%Y-bbb-%m]=
   <hr>
   
   #$ORIGINS(0)
   ^math:random(3686)
   <hr>
   
 #^bannerJS[]  #^bannerJS[]
 ^bannerSSI[]  #^bannerSSI[]
   
 $t[^table::set{a        b  $t[^table::set{a        b
 1       2  1       2
Line 1627  $tt.0<br> Line 1888  $tt.0<br>
 ïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåò321  ïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåòïðèâåò321
 ')}  ')}
 }  }
         $ïðîâåðêà[^table::sql{select test from lotest}(6)]          $ïðîâåðêà[^table::sql{select test from lotest}[$.limit(6)]]
         ^ïðîâåðêà.menu{          ^ïðîâåðêà.menu{
 #               ^ïðîâåðêà.line[]:<pre>^untaint[as-is]{$ïðîâåðêà.test}</pre>  #               ^ïðîâåðêà.line[]:<pre>^untaint[as-is]{$ïðîâåðêà.test}</pre>
 #               ^ïðîâåðêà.line[]:<pre>^untaint[html]{$ïðîâåðêà.test}</pre>  #               ^ïðîâåðêà.line[]:<pre>^untaint[html]{$ïðîâåðêà.test}</pre>
Line 1647  $tt.0<br> Line 1908  $tt.0<br>
         }[<br>]          }[<br>]
 }  }
 <hr>  <hr>
 $cookie:reg0[$.value[8reg0]$.expires[session]]  #$cookie:reg0[$.value[8reg0]$.expires[session]]
 $cookie:reg1[$.value[8reg1]$.expires[session]]  #$cookie:reg1[$.value[8reg1]$.expires[session]]
 $cookie:reg0  $cookie:reg0
 $cookie:reg1  $cookie:reg1
   

Removed from v.1.258  
changed lines
  Added in v.1.296.2.7


E-mail: