Diff for /parser3/src/www/htdocs/Attic/index.html between versions 1.268 and 1.294

version 1.268, 2001/08/20 13:22:05 version 1.294, 2001/09/05 15:05:27
Line 3  t.p Line 3  t.p
 dtf.p  dtf.p
   
 @main[]  @main[]
   ^tlsplit2[]
   #^tconnect[]
   #^timghtmlyu[]
   #^timghtml[]
   #^tresult[]
   #^voidtest[]
   #^ttext[]
   #^tdoubledefault[]
   #^tintdefault[]
   #^t3partycookie[]
   #^t3partycookie[]
   #^tcookie[]
   #^tfilemove[]
   #^treplace[]
   #^measuretest[]
   #^savetest[]
   #^oratestinsert[]
   #^oratestread[]
   #^process_check[]
   #^ffcheck[]^[xxx]
   
 #$ORIGINS(1)  #$ORIGINS(1)
 ^func(0)<hr>  #^list[]
 #^tests[]  #^tests[]
   #^func(0)<hr>
   
   @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]  @func[param]
 #[local]  #[local]
 $local(0)  $local(0)
 ^local.inc(1)  ^local.inc(1)
 #$local($local+1)  #$local($local+1)
 =$local=  
 ^if($param<10){^func($param+1)}  ^if($param<10){^func($param+1)}
   =$local=
   
 @bannerSSI[][code]  @bannerSSI[][code]
 $code[^file::cgi[/../cgi-bin/bbssi.pl;  $code[^file::cgi[/../cgi-bin/bbssi.pl;

Removed from v.1.268  
changed lines
  Added in v.1.294


E-mail: